阅读程序：
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
运行以上程序，单击命令按钮，输出结果为______ 。

单项选择题在窗体上建立三个文本框，名称分别为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

单项选择题阅读程序： 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(