窗体中有命令按钮Command1，事件过程如下：

Public Function f(x As Integer)As Integer

D．im y As Integer

x=20

y=2

f=x*Y

E．nd Function

Private Sub Command 1_Click()

D．im y As Integer

static x As Integer

x=10

y=5

y=f(x)

D．ebug.Print x；y

E．nd Sub

运行程序，单击命令按钮，则立即窗口中显示的内容是( )。

A．10 5

B．10 40

C．20 5

D．20 40

[单选题]窗体中有命令按钮Command1和文本框Text1，事件过程如下：F．unction result(ByVal x As Integer)As BooleanIf x Mod 2=0 Thenresult=Trueelseresult=FalseE．nd IfE．nd FunctionPrivate Sub Command1_Click()x=Val(InputBox(“请输入一个整数”))If______ ThenTextl=Str(x)&“是偶数．”E．lseTextl=Str(x)

[单选题]设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click（）D．im a（30）As IntegerF．or i=1 To 30a（i）=Int（Rnd*100）NextF．or Each arrItem In aIf arrItem Mod 7=0 Then Print arrItem；If arrItem>90 Then Exit ForNextE．nd Sub对于该事件过程，以下叙述中错误的是（ ）。A．a数组中的数据是30个100以

[单选题]设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click（）D．im a（3，3）As IntegerF．or i=1 To 3F．or j=1 To 3a（i，j）=i*j+iNext jNext iSum=0F．or i=1 To 3Sum=Sum+a（i，4-i）Next iPrint SumE．nd Sub运行程序，单击命令按钮，输出结果是（ ）。A．20B．7C．16D．17

[试题]设有命令按钮Command1的单击事件过程,代码如下:Private Sub Command1_Click()D．im a As IntegerF．or i=1 To 30a(i)=iNextF．or Each arrItem [ ]aIf arrItem Mod 7=0 Then Print arrItem;If arritem>90 Then Exit ForNextE．nd Sub请填空。

[单选题]设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1 Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是______。A．20B．7C．16D．17

[单选题]设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a(i)=Int(Rnd*100) Next For Each arrItem In a If arrItem Mod 7=0 Then Print arrItem If arrItem＞90 Then Exit For Next End Sub 对于该事件过程，以下叙述中错误的是______。A．a数组中的数据是

[单选题]单击窗体上Command1命令按钮时，执行如下事件过程： Private Sub Command1-Click() a$="software and hardware" b$=Right(a$，8) c$=Mid(a$，1，8) Msgbox a $,,b$；c$,1 End sub 则在弹出的信息框的标题栏中显示的信息是( )。A．software and hardwareB．softwareC．hardwareD．1

[单选题]窗体中有命令按钮Command1，事件过程如下：（　　）。运行程序，单击命令按钮，则窗口中显示的内容是（　　）。A.10　5B.10　40C.20　5

[单选题]在窗体中有一个命令按钮command1，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(3)+P(4) Debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是( )

[单选题]在窗体中有一个命令按钮Command1，对应的事件代码如下： PrivateSubCommand1_Enter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i=1 To 10 num=InputBox(“请输入数据：”，“输入”，1) If Int(num/2)=num/2Then a=a+1 Else b=b+l End If Next i MsgBox(“运行结果：a=“&St