在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer，j As Integer Dim a(10， 10)As Integer For i=1 To 3 For i=1 To 3 a(i，j)=(i-1) *3+j Print a(i，j)； Next i Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是

窗体上有一个名为List1的列表框，程序执行时在窗体上单击，输出的结果是( )。 Priate Sub Form_Click() For i=0 To List1．ListCount-1 If i Mod 2=0 Then Print List1．List(i)； End If Next i End Sub Private Sub Form_Load() List1．AddItem"中国" List1．AddItem"日本" List1．AddItem"韩国" List1．AddItem"新加坡" List1．AddItem"香港" End Sub

程序运行后，如果单击命令按钮则，在窗体上显示的内容是（）.

程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）

在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入一个整数"))
Print x + Text1.Text
End Sub
程序运行时,在文本框中输入12,然后单击窗体,在输入对话框中输入34,单击"确定"按钮后,在窗体上显示的内容为______。

有下列程序： Private Sub Command1_Click() X$="Nanchang" y$="Beijing" z$="Nanjing" z$=InStr(Left(x$，3)+Right(y$，4)，z$) Print z$ End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr，Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub程序运行后，单击窗体，输出结果为

下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End Sub

设有如下程序： 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 程序运行后，单击窗体，则在窗体上显示的是（）

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮，则窗体上显示的内容是______。

程序设计题目： （事件）单击窗体。 （响应）求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。

当下面程序运行后，单击窗体在对话框中输入10，则输出的结果是（） Private Sub Form_Click（） score=InputBox（"输入"） Select Case score CaseIs＜10 a$="F" Case 10 To 19 a$="D" Case 20 To 29 a$="C" Case 30 To 39 a$="B" Case Else a$="A" End Select Printa$ End Sub