Select Case结构运行时,首先计算()的值。A.表达式B.执行语句C.条件选项D.任意值
Select Case结构运行时,首先计算()的值。
A.表达式
B.执行语句
C.条件选项
D.任意值
Select Case结构运行时,首先计算()的值。
A.表达式
B.执行语句
C.条件选项
D.任意值
有如下程序 x=InputBox("input value of x") Select Case x Case Is>0 y=y+l Case Is=0 y=x+2 Case Else y=x+3 End Select. Print x: y 运行时,从键盘输入—5,输出的结果是()。
A.-7
B.-9
C.-8
D.-10
运行下列程序: x=InputBox("input value of x") Select Case X Case Is>0 y=y+1 Case Is=0 y=x+2 Case ELse y=x+3 End Select Print x;y 运行时,从键盘输入-5,输出的结果是()。
A.-7
B.-9
C.-8
D.-10
有如下程序 x=InputBox("input value of x") Select Case x Case Is>0 y=y+1 Case Is=0 y=x+2 Case Else y=x+3 End Select Print x ;y 运行时,从键盘输入-5,输出的结果是()。
A.-7
B.-9
C.-8
D.-10
窗体上有一个命令按钮Command1,编写如下事件过程:
Private Sub Command1_Click()
Sum = 0
For m = 1 To 3
Select Case m
Case 1
a = 1
Case 2
a = 2
Case 3
a = 3
End Select
Print a,
Sum = Sum + a
Next m
Print Sum
End Sub
运行时,单击按钮,输出结果是()。
A、 3 3 3 9
B、 3 2 1 6
C、 1 1 1 3
D、 1 2 3 6
设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮,并有以下事件过程:
Private Sub Commandl一Click()
x!==Val(Textl.Text)
Select Case x
Casc Is<-10,Is>=20
Print“输入错误”
Case Is<0
Print 20 x
Case ls<10
Print 20
Case Is=20
Print x+10
End Select
End Sub
程序运行时,如果存文本框中输入一5,则单击命令按钮后的输出结果是
A.5
B.20
C.25
D.输入错误
A.Case 1 <= a <= 10
B.Case 1 ≦ a And a ≦ 10
C.Case Is >= 10 or Is >= 1
D.Case 1 To 10
下列不是分支结构的语句是()。
A.If…Then…EndIf
B.If…Then…Else…EndIf
C.While…Wend
D.Select…Case…End Select
下列不是分支结构的语句是()。
A. If.··Then··End IF
B. While…End
C. If...Then...Else…End If
D. Select…Case…End Select
阅读以下说明及Visual Basic 程序代码,将应填入(n)处的字句写在对应栏内。
[程序5.1说明]
下列程序运行时,当单击窗体后,从键盘输入一个字符,判断该字符是字母字符、数字字符还是其他字符,并做相应的显示。窗体上无任何控件,并禁用Ase和Chr函数,Select Case语句中禁用枚举值。
[Visual Basic代码]
Private Sub Form. Load ()
Dim x As String*1
X=(1) (“请输入单个字符”,“字符”)
Select Case UCase ((2) )
Case (3)。
Print X+“是字母字符”
Case (4)
Print X+ “是数字字符”
Case Else
Print X+“是其他字符”
End Select
[程序5.2说明]
在窗体上画一个名称为Timer1的计时器和一个名称为Labe11的标签。当运行程序后,将在标签中显示当前时间的数字时钟(包括时:分:秒)。
[Visual Basic代码]
Private Sub Fom_Load ()
Timer1.Interval=1000
EndSub
Private Sub Timer1_ timer() (5)
EndSub
下列不是分支结构的语句是()。
A.If…Then…Endlf
B.If…Then…Else…Endlf
C.While…Wend
D.Select…Case…End Select