A.volcano
B.cave
C.mountain
D.valley
第1题
下面程序运行后的输出结果是______。Private Sub Command1_ Click () for j = 1 To 10 if j Mod 3 <> 0 then a =a+j\3 Next j Print aEnd Sub
A.20
B.10
C.3
D.9
第2题
运行下面程序后,正确的输出结果是 ______。Private Sub Command1_ Click() x = 6 if x >6 then Print "x>6": Else if x <8 then Print "x<8"; Else if x = 6 then Print "x=6": End if End if End ifEnd Sub
A.x<8 x=6
B.x<8
C.x=6
D.x<8或x=6
第3题
下列程序的运行结果为______。Private Sub Command1_ Click() Dim s As Long Dim x As Integer s = 0 for x = 99 To 1 step - 2 s=s+ x Next x Print sEnd Sub
A.100
B.500
C.2500
D.5000
第4题
如下有一段程序,窗体上打印出来的结果是______。Private Sub Command1_ Click() x=1 do x=x+3 Print x; Loop until x>=8End Sub
A.4 7 10
B.1 3
C.8
D.1 8 9
第5题
下面程序运行后,窗体中显示______。Private Sub Command1_ Click() a$ = "*": b$ = "$ for k = 1 To 3 x$ = String$(Len(a$) +k, b$) Print x$; Next k PrintEnd Sub
A.*** ** ***
B.*$*$*$
C.1*$2*$3*$
D.$$$$$$$$$
第6题
下列事件过程:Private Sub Command1_ Click() MsgBox Str (123+123)End Sub运行时,信息框中出现的结果是______。
A.123+123
B.123
C.246
D.显示出错信息
第7题
下列程序的执行结果为______。Private sub Command1_ Click () a = 100 b = 50 if a <> b then a = a + b Else b = b -a Print a, bEnd Sub
A.50 50
B.150 50
C.200 200
D.10 10
第8题
程序段如下:Private Sub Command1_ Click() a = 0 for 1=15 To 15 Step- 2 a = a +1 Next I Print a, IEnd Sub发生Command 1的单击事件后,程序的输出结果是 ______。
A.0 13
B.15 13
C.0 15
D.15 15
第9题
下列程序运行后的输出结果是______。Private Sub f(k,s) s = 1 for j = 1 To k s=s*j Next jEnd SubPrivate Sub Command1_ Click () Sum = 0 for i = 1 To 3 Call f(i, s) Sum = Sum + s Next i Print Sum End Sub
A.0
B.3
C.6
D.9
第10题
在窗体中添加一个命令按钮,并编写如下程序:Private Sub Command1_ Click() x=1: y=2: z=3 x=y: y=z: z=xEnd Sub程序执行后,输出的结果是______。
A.3
B.0
C.2
D.1
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!