更多"若在某窗体模块中有如下事件过程
Private Sub Comman"的相关试题:
[单项选择]若在某窗体模块中有如下事件过程
Private Sub Command1_Click(Index As Integer)
End Sub
则以下叙述中正确的是【 】
A. 此事件过程与不带参数的事件过程没有区别
B. 有1个名称为Command1的窗体,单击此窗体则执行此事件过程
C. 有1个名称为Command1的控件数组,数组中有多个不同类型控件
D. 有1个名称为Command1的控件数组,数组中有多个相同类型控件
[单项选择]
若在某窗体模块中有如下事件过程： Privam Sub Command1_Click(Index As Integer) ...... End Sub 则以下叙述中正确的是（）。
A. 此事件过程与不带参数的事件过程没有区别
B. 有—个名称为Command1的窗体，单击此窗体则执行此事件过程
C. 有一个名称为Command1的控件数组，数组中有多个不同类型控件
D. 有—今名称为Command1的控件数组，数组中有多个相同类型控件
[单项选择]窗体模块属于
A. 标准模块
B. 类模块
C. 全局模块
D. 局部模块
[单项选择]
在窗体中有一个文本框Test1，编写事件代码如下：
Private Sub Form_Click（ ）
X= val (Inputbox(“输入x的值”))
Y= 1
If X<>0 Then Y= 2
Text1.Value = Y
End Sub
打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是（）
A. 1
B. 2
C. 3
D. 4
[单项选择]
在窗体中有一个文本框Text1，编写事件代码如下：
Private Sub Form_Click（ ）
X-val(Inputbox("输入X的值"))
Y＝1
If X＜＞0 Then Y＝2
Text1.Value＝Y
End Sub
打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是（）。
A. 1
B. 2
C. 3
D. 4
[判断题]一个窗体必须对应一个窗体模块，各种控件对象必须建立在窗体上。
[单项选择]在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下：
Private Sub run34_Click（ ）
sum=0
For i=10 To 1 Step-2
sum=sum+i
Next i
MsgBox sum
End Sub
运行以上事件，程序的输出结果是
A. 10
B. 30
C. 55
D. 其他结果
[单项选择]在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下： Private Sub run 34_Click（ ） sum=0 For i=1 To 10 Step 3 sum=sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是
A. 22
B. 30
C. 55
D. 25
[单项选择]在窗体中有一个命令按钮(名称为run1)，对应的事件代码如下： Private Sub rum_Click（ ） suln=0 For i=10 To 1 Step-2 sum=Sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是
A. 10
B. 30
C. 55
D. 其他结果
[判断题]VB的代码存储在模块中。在VB中提供了三种类型的模块：窗体模块、控件模块和类模块。
[单项选择]
若在窗体模块的声明部分声明了如下自定义类型和数组
Private Type rec
Code As Integer
Caption As String
End Type
Dim arr(5) As rec
则下面的输出语句中正确的是（）
A. Print arr.Code(2),arr.Caption(2)
B. Print arr.Code,arr.Caption
C. Print arr(2).Code,arr(2).Caption
D. Print Code(2),Caption(2)
[单项选择]
设窗体文件中有下面的事件过程：
Private Sub Command1_Click（ ）
Dim s
a%=100
Print a
End Sub
其中变量a和s的数据类型分别是（）
A. 整型，整型
B. 变体型，变体型
C. 整型，变体型
D. 变体型，整型
[单项选择]设有如下说明，请回答(22)～(24)小题： 有如下窗体，窗体的名称为finTest，窗体中有一个标签和一个命令按钮，名称分别为Labell和bChange。
在“窗体视图”显示该窗体时，要求在单击命令按钮后标签上显示的文字颜色变为红色，以下能实现该操作的语句是( )。
A. labelForeColor=255
B. bChangForeColor=255
C. labelForeColor="255"
D. bChangForeColor="255"
