（ 13 ）设窗体文件中有下面的事件过程：

Private Sub Command1_Click （）

D．im s

a%=100

Print a

E．nd Sub

其中变量 a 和 s 的数据类型分别是

A． ）整型，整型

B． ）变体型，变体型

C． ）整型，变体型

D． ）变体型，整型

[单选题]设窗体文件中有下面的事件过程：Private Sub Commandl_Click()D．im Sa％=100Print aE．nd Sub其中变量a和s的数据类型分别是A．整型，整型B．变体型，变体型C．整型，变体型D．变体型，整型

[单选题]单击窗体上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

[单选题]假定有如下的窗体事件过程： Private Sub Command1_Click() a$="Microsoft Visual Basic" b$=Riqht(a$, 5) c$=Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是______。A．Microsoft VisualB．MicrosoftC．BasicD．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，编写如下事件过程：Private Sub Command1_Click()Sum = 0F．or m = 1 To 3Select Case mC．ase 1a = 1C．ase 2a = 2C．ase 3a = 3E．nd SelectPrint a,Sum = Sum + aNext mPrint SumE．nd Sub运行时，单击按钮，输出结果是( )。A． 3 3 3 9B． 3 2 1 6C． 1 1 1 3D． 1 2 3 6

[单选题]窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()a = 80: b = 50: c = 30If ac Then b = cIf b = c And ac Then c = a + bPrint a, b, cE．nd Sub运行时，单击按钮，窗体输出的结果是( )。A． 80 50 30B． 80 30 30C． 50 30 80D． 50 30 30

[单选题]窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()x = InputBox("x=")y = InputBox("y=")Print x + yE．nd Sub运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是( )。A． 444B． 123321C． 123+321D． 出错信息

[单选题]（ 19 ）若在某窗体模块中有如下事件过程（ ）Private Sub Command1_Click （ Index AS Integer ）……E．nd Sub则以下叙述中正确的是A． ）此事件过程与不带参数的事件过程没有区别B． ）有 1 个名称为 Command1 的窗体 , 单击此窗体则执行此事件过程C． ）有 1 个名称为 Command1 的空件数组 , 数组中有多个不同类型控件D． ）有 1 个名称为 Command1 的空件数组 , 数组中有多个相同类型控件

[单选题]下面程序运行后，窗体中显示______。Private Sub Command1_ Click() a＄ = "*": b＄ = "＄ for k = 1 To 3 x＄ = String＄(Len(a＄) +k, b＄) Print x＄; Next k PrintEnd SubA．*** ** ***B．*＄*＄*＄C．1*＄2*＄3*＄D．＄＄＄＄＄＄＄＄＄

[单选题]阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是A．3B．9C．14D．21