在窗体上画三个单选按钮,组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是
A.Tag
B.Index
C.Listlndex
D.Name
A.Tag
B.Index
C.Listlndex
D.Name
在窗体上画一个命令按钮,然后编写如下代码: Private Sub Command1_Click() 0pen "d:\vb\test.txt "For Input As #1 Print LOF(1) Close #1 End Sub 假设文件d:\vb\test.txt的内容为I am a student.,那么程序运行后,单击命令按钮,其输出结果为______.
A.13
B.14
C.15
D.16
在窗体(Name属性为form1)上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮 (Name属性为Command1),然后编写如下两个事件过程,该过程的运行结果为______。Private Sub Command1_Click() a = Text1, Taxt + Text2, Text Print aEnd SubPrivate Sub form_ Load() Text1.Text = "123" Text2.Text = "321"End Sub
A.444
B.321123
C.123321
D.132231
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim Arr1(10)As Integer,arr2(10)As Integer n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n);Arr1(n) End Sub 程序运行后,单击命令按钮,输出结果是 ______。
A.11 3
B.3 11
C.13 3
D.3 13
在窗体上画两个标签和一个命令按钮,其名称分别为Labell、Label2和Command1,然后编写如下程序: Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell,A)Label2.Caption=a End Sub 程序运行后,单击命令按钮,在两个标签Label1和Label2中显示的内容分别是 ______。
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10
在窗体上添加有一个命令按钮,(名为Command1),然后编写如下事件过程: Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next I MsgBox x End Sub 打开窗体后,单击命令按钮,消息框的输出结果是 ______。
A.7
B.15
C.157
D.538
A.Private Sub Text1_Change()
Command1.Caption = "计算机等级考试"
End Sub
B.Private Sub Command1_ Click ()
Caption = "计算机等级考试"
End Sub
C.Private Sub Form1_ Click ()
Text1.Caption = "计算机等级考试"
End Sub
D.Private Sub Command1_ Click ()
Text1.Text = "计算机等级考试"
End Sub
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:
Dim SaveAll As String
Private Sub Command1_Click()
Text1.Text=Left(UCase(SaveAll),4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是______。
在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程: Private Sub TxtA_KeyPress(KeyAscii As Integer) …… End Sub 假定焦点已经位于文本框中,则能够触发KeyPress事件的操作是______。
A.单击鼠标
B.双击文本框
C.鼠标滑过文本框
D.按下键盘上的某个键
在窗体中添加一个命令按钮(名称为Command1),然后编写如下代码: Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b+c End Sub 窗体打开运行后,如果单击命令按钮,则消息框的输出结果为______。
A.11
B.a=11
C.0
D.False
在窗体中有一个命令按钮Commandl,编写事件代码如下:
Private Sub Command1_CliCk()
Dim s As Integer
s=P(1)+P(2)+e(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+i
Next i
P=Sum
End Function
打开窗体运行后,单击命令按钮,输出结果是
A.15
B.20
C.25
D.35
在窗体中有一个命令按钮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 打开窗体运行后,单击命令按钮,输出的结果是()。
A.15
B.20
C.25
D.35