题目
编写如下两个事件过程。 Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住Shift键和锁定大写键时)运行程序,如果按“A”键,则程序输出的结果是
A.A A
B.a A
C.A a
D.a a
第1题
Private Sub Command1_Click()
S$= InputBox ("请输入1个字符串")
Text1.Text= S$
End Sub
Private Sub Text1_Change()
Labell.Caption = UCase(Mid(Text1, Text2, 8))
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串"Visual Basic",则在标签中显示的内容是______。
第2题
(6)在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为 Text1、Label1 和 Command1,然
后编写如下两个事件过程:
Private Sub Command1_Click()
S$=InputBox("请输入一个字符串")
Text1.Text=S$
End Sub
Private Sub Text1_Change()
Label1.Caption=UCase(Mid(Text1.Text, 7))
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“VisualBasic”,
则在标签中显示的内容是 【6】 。
第3题
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a() a=Array(1,3,5,7) s=0 For i=1 To 3 s=s*10+a(i) Next i Print s End Sub 程序运行后,输出结果为()。
A.135
B.357
C.531
D.753
第4题
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a() a=Array(1,3,5,7) s=0 For i=1 To 3 s=s*10+a(i) Next i Print s End Sub 程序运行后,输出结果为()。
A.135
B.357
C.531
D.753
第5题
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim a() a=Array(1,3,5,7) s=0 For i=1 To 3 S=S*10+a(i) Next i Print s End Sub 程序运行后,输出结果为()。
A.135
B.357
C.531
D.753
第6题
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a() a = Array(1, 3, 5, 7) s=0 For i = 1 To 3 s=s*10+a(i) Next i Print s End Sub程序运行后,输出结果为()。
A.135
B.357
C.531
D.753
第7题
在窗件上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a=12345 Print Format S(a, "000. 00") End Sub 程序运行后,单击命令按钮,窗体上显示的是______。
A.123.45
B.12345.00
C.12345
D.00123.45
第8题
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s> = 30 Print Number,s End Sub 程序运行后,输出的结果是
A.2 3
B.2 56
C.5 12
D.10 20
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!