题目
A.您要查询的是天气
B.您要查询的是邮编
C.您要查询的是电话号码
D.False
第1题
下列程序段的执行结果为 Private Sub Command1_Click() a=InputBox("请输入a值") c="您要查询的是" &IIf(a>0,"天气"," ") &IIf(a<0,"电话号码"," ") &IIf(a=0,"邮编"," ") Text1.Text=c End Sub程序运行后,如果从键盘上输入"16",则在文本框显示的内容是______。
A.您要查询的是天气
B.您要查询的是邮编
C.您要查询的是电话号码
D.False
第2题
下列程序段的执行结果为______。 Private Sub Command1_Click() n = 0 For a = 1 To 20 For b = 1 To 20 For c = 1 To 20 If a * a + b * b - c * c Then n=n+l End If Next c Next b Next a Print n End Sub
A.9
B.12
C.10
D.11
第3题
阅读下列程序并写出程序运行结果。
Private Sub Command1_Click()
x = 0
Do While x < 60
x = (x + 3) * (x + 4)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
写出程序运行后,文件框Text3的结果。
第4题
下列程序段的执行结果为______。 Private Sub Command1_Click() a=1:b=1 Select Case a Case 1 Select Case b Case 0 Print "你好!" Case 1 Print "Hello!" End Select Case 2 Print"谢谢使用!" End Select End Sub
A.你好!
B.谢谢使用!
C.Hello!
D.你好!谢谢使用!
第5题
执行下面的程序段,x的值为 。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA.5 B.6 C.7 D.8
第6题
执行下面的程序段,x的值为【 】。
Private Sub Command1_Click()
For i=1 To 9
a=a+i
Next
x=Val(i)
MsgBox x
End Sub
第7题
窗体上有一个按钮和一个列表框,执行下列程序后的输出结果为【 】。
Private Sub Command1_Click()
List1.Addltem"China"
List1.Addltem"USA"
List1.Addltem"Japan",1
Print List1.List(2)
End Sub
第8题
设有如右图所示的窗体和下列程序:
Private Sub Command1_Click() Text1.Text="Visual Basic" End Sub Private Sub Text1_LostFocus() If Text1.Text<>"BASIC" Then Text1.Text=" " Text1.SetFocus End If End Sub程序运行时,在Text1文本框中输入“Basic”(如图所示),然后单击Command1按钮,则产生的结果是()。
A.文本框中无内容,焦点在文本框中
B.文本框中为"Basic",焦点在文本框中
C.文本框中为"Basic",焦点在按钮上
D.文本框中为"Visual Basic",焦点在按钮上
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!