A.税金
B.补贴
C.利息
D.工资
E.折旧
第1题
阅读下列程序并写出程序运行结果。
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的结果。
第2题
下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k,"*") Print x Next End Sub
A.* * * * * *
B.1 * 2 * 3 *
C.3 * 2 * * 1 * * *
D.* * * * * *
第3题
(28)下列程序的运行结果是。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,b) Print a,b Private Sub fun(x,y) x=y*x y=y+x End SubA.2.25 3.75 B.1.5 2.25 C.1.5 0.75 D.0.75 1.5
第4题
下列程序的运行结果是()。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,B) Print a,b End Sub Private Sub fun(x,y) x=y*y y=y+x End Sub
A.2.25 3.75
B.1.5 2.25
C.1.5 0.75
D.0.75 1.5
第5题
运行下列程序: Private Sub Command1_Click() x = 0 Do While x<10 x=x * x + 1 y=y+x Loop MsgBox y End Sub 单击Command1命令按钮后,弹出的消息对话框中会显示
A.5
B.8
C.26
D.34
第6题
下面程序运行后,窗体中显示【 】。
Private Sub Command1_Click) ()
aS ="*" :b$ ="$"
For k = 1 To 3
x$ =Strings (Len(a$) +k,b$ )
Print x $;
Next
End Sub
第7题
下面程序的运行结果是 Private Sub Command1_Click() x=1:y=1 For i=1 To 3 x=x+y:y=y+x Next i:print x,y End Sub
A.6 6
B.5 8
C.13 21
D.34 35
第8题
有如下程序: Private Sub Command1_Click() as="A WORKER IS HERE" x = Len(a$) For i=1 To x - 1 b$ =Mid$(a$, i,3) If b$ ="WOR" Then S=S+ 1 Next Print S End Sub 单击命令按钮,程序运行结果为
A.1
B.2
C.3
D.5
第9题
运行下列程序:
Private Sub Command1_Click()
x = 1
z = InputBox("请输入一个整数2")
Select Case z
Case Is > 0
y = x + 1
Case Is = 0
y = x - 2
Case Else
y = x + 5
End Select
Print x; y
End Sub
从键盘输入2,输出的结果是()。
A.0 1
B.1 2
C.1 3
D.5 5
第10题
运行下列程序:
Private Sub Command1_Click()
Dim x As Integer, n As Integer
n = 0
Do
n = n + 2
x = x + n
Loop While n< 10
Debug.Print x
End Sub
单击Command1命令按钮后,则在立即窗口上输出结果是是()。
A.2
B.10
C.12
D.30
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!