宁国都颈装饰工程有限公司

在窗體上畫(huà)一個(gè)命令按鈕，名稱為Command1。程序運(yùn)行后，如果單擊命令按鈕，則顯示一個(gè)輸入對(duì)話框，在該對(duì)話框中輸入一個(gè)整數(shù)，并用這個(gè)整數(shù)作為實(shí)參調(diào)用函數(shù)過(guò)程F1。對(duì)下面程序說(shuō)法正確的是（）
Private Sub Command1_Click（）
x=InputBox（"請(qǐng)輸入整數(shù)"）a=F1（Val（x））
Print a
End Sub
Function F1（ByRef b As Integer）
If b Mod 2=0 Then
F1=0
Else
F1=1
End If
End Function

設(shè)有如下程序：
Private Sub Command1_Click（）
Dim a
Dim I As Integer
a=Array（1，2，3，4，5，6，7，8，9）
For I=0 To 3
Print a（5-I）；
Next I
End Sub
程序運(yùn)行后，單擊窗體，則在窗體上顯示的是（）

在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下程序：
Private Sub Command1_Click（）
Dim I As Integer，j As Integer
Dim a（10，10）As Integer
For I=1 To 3
For j=1 To 3
a（I，j）=（I-1）*3+j
Print a（I，j）；
Next j
Print
Next i
End Sub
程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是（）。（其中CR表示回車和換行）

在窗體上畫(huà)一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click（）
Dim array1（10，10）As Integer
Dim I，j As Integer
For I=1 To 3
For j=2 To 4
array1（I，j）=I+j
Next j
Next I
Text1.Text=array1（2，3）+array1（3，4）
End Sub
程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是（）

在窗體上畫(huà)一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click（）
Dim c As Integer，n As Integer
For c=0 To 50
c=c+3
n=n+1
Ifc＞10Then Exit For
Next c
Text1.Text=Str（n）
End Sub
程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是（）