A.标准差
B.和
C.比率
D.乘积
第1题
Private Sub Command1_Click()
Dim s As Double
Dim i As Integer
s = 5
i = 1
Do While i < 9
i = i + 2
s = s + i
Loop
Text1.Text = s
End Sub
程序运行后,Text1的输出结果是( )。
第2题
运行下列程序:
Private Sub Command1_Click()
Dim A(10) As Integer
For i = 1 To 5
A(i) = i
A(i + 5) = i
Next i
For i = 1 To 10
s = s + A(i)
Next i
Debug.Print s
End Sub
单击按钮后,则在立即窗口内显示的结果是()。
A.5
B.10
C.30
D.出错信息
第3题
下列程序运行后的输出结果是______。
Private Sub f(k,s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i,s)
Sum=Sum+s
Next
Print Sum
End Sub
第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() s = 0 Do s=(s+1) ((s+2) N=N+1 Loop Until s>=10 Print N;s End Sub 运行后的输出结果是
A.0 1
B.30 30
C.4 30
D.2 12
第6题
有如下程序:
Private Sub Command1_Click()
a$="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
第7题
运行下列程序,最后在窗体中输出【 】。
Private Sub command1_Click()
a=65 : b = 17
a = a Mod b ^ 2
a = a \ 4
Print a
End Sub
第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
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!