单项选择题

阅读程序：
Sub subP(b()As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4)As Integer
a (1)=5
a (2)=6
a (3)=7
a (4)=8
subP a()
For i=1 To 4
Print a(i)
Next i
End Sub
运行以上程序，单击命令按钮，输出结果为______ 。

A．2
4
6
8

B．5
6
7
8

C．10
12
14
16

D．出错
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上建立三个文本框，名称分别为Text1、Text2和Text3，一个命令按纽，名称为command1，如果在TEXT1中输入数200，在TEXT2中输入数150，则执行下列程序后，TEXT3的值为______。 Private Sub Command1_Click() Dim m, n As Integer m = Val (Text1. Text) n = Val (Text2. Text) If n * m = 0 Then Exit Sub End If If m ＜ n Then t =m: m= n: n = t End If Do r = m Mod n m= n n =r Loop While r ＜＞ 0 Text3. Text= m End Sub
A．200
B．50
C．100
D．150
单项选择题
阅读程序： Function F(a As Integer) b=0 Static c b=b+1 c=c+1 f=a+ b+ c End Function Private Sub Command1_Click() Dim S As Integer a=2 For i=1 To 3 Print P(
A．
Next i
End Sub
运行上面的程序，单击命令拄钮，输出结果为______ 。A) 4
4
4
B．4
5
6
C．4
6
8
D．4
7
9
相关试题