在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件
A.10
B.20
C.30
D.40
A.10
B.20
C.30
D.40
Private Sub Command1_Click()
a = InputBox("Enter an integer")
b = InputBox("Enter an integer")
Text1.Text = b + a
End Sub
程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是()。
A.108
B.18
C.810
D.出错
A.5
B.4
C.3
D.2
注意:
程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise57.vbp,窗体文件名为execise57.frm。
Private Sub Command1_Click()
Text 1="VB programming"
Text 2=Text 1
Text 1="ABCD"
End Sub
程序运行后,单击命令按钮,文本框Text 2中显示的内容为【 】。
A.15和1
B.27和3
C.195和3
D.600和4
A.30
B.25
C.20
D.15
A.Private Sub Text1_Change() Command1.Caption=“计算机等级考试” End Sub
B.Private Sub Command1_Cick() Caption=“计算机等级考试” End Sub
C.PrivateSubForm1_Click() Text1.Caption=“计算机等级考试” End Sub
D.PrivateSubCommand1_Click() Text1.Text=“计算机等级考试” End Sub
Private Sub Command1_Click()
Dim str As String, s As String, c As String
str = UCase(Text1)
s = ""
c = "Z"
While c >= "A"
If InStr(str, c) = 0 Then
s = 【7】
End If
c = Chr$(Asc(c) 【8】 )
Wend
If s <> "" Then
Text1 = s
End If
End Sub