程序执行结果s的值是 【7】 。 Private Sub sub1(Byval p As Integer) p=p*2 End Sub Private Sub Command1_Click() Dim i As Integer i=3 Call sub1(i) if i＞4 then i=i mod 2 Print cstr(i) End Sub

扩展名为".com"的网址说明网站属于（）

A、军方网站

B、政府网站

C、教育网站

D、商业网站