更多"[单选题]第235题 （1.0分）有如下程序.A=100DoS=s+a"的相关试题:
[单选题]第235题 （1.0分）
有如下程序.
A=100
Do
S=s+a . a=a+1
Loop While a>120
Print a
运行时输出的结果是().
A.100
B.120
C.201
D.101
[单选题]有如下程序:
A=100
Do
S=s+a : a=a+1
Loop While a>120
Print a
运行时输出的结果是().
A.100
B.120
C.201
D.101
[单选题]第233题 （1.0分）
有如下程序,该段程序将().
Private Sub Command1_Click()
Dim i AS Integer, k AS Integer
For i=1 To 10 Step 0
K = k + 2
Next i
End Sub
A.形成无限循环
B.循环体执行一次后结束循环
C.语法错误
D.循环体不执行即结束循环
[单选题]第209题 （1.0分）
有如下程序,该程序的执行结果为().
Dim k As Integer
N=5
M=1
K=1
Do until k>n
m=m*2
k=k+1
Loop
Print m
A.1
B.5
C.32
D.40
[单选题]第185题 （1.0分）
有如下程序段,该程序段执行完毕后,共循环次数为().
Private Sub Commandl_Click()
For i=1 To 5
For j=1 To i
For k=j To 4
Print"a";
Next k
Print
Next j
Print
Next i
End Sub
A.4
B.5
C.38
D.40
[单选题]第200题 （1.0分）
有如下程序.
Private Sub Command1_Click()
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后,输出的结果是().
A.1
B.15
C.90
D.120
[单选题]第184题 （1.0分）
有如下程序.
Private Sub Command1_Click()
M$="ABC"
N$="abc"
K$=LCase$(mS)
J$=UCase$(n$)
Print Asc(k$+j$)
End Sub
程序运行后,输出的结果是().
A.abcabc
B.ABCABC
C.65
D.97
[单选题]第239题 （1.0分）
有如下程序.
Private Sub Command1_Click()
S=0
Do s=(s+1)*(s+2)N=N+l
Loop Until s>=10
Print N;S
End Sub
运行后的输出结果是().
A.0 1
B.30 30
C.4 30
D.2 12
[单选题]第281题 （1.0分）
设有如下程序.
Private Sub Command1_Click()
Dim sum As Double,x As Double
Sum = 0
N = 0
For i = 1 To 5
X = n / i
N = n + 1
Sum = sum + x
Next
End Sub
该程序通过For循环计算一个表达式的值,这个表达式是().
A.1+1/2+2/3+3/4+4/5
B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5
D.1+1/2+1/3+1/4+1/5
[单选题]第229题 （1.0分）
有如下程序.
Private Sub Command1_Click()
A$="A WORKER IS OVER THERE"
X=Len(a$)
For i=1 To X-1
B$=Mid$(a$,i,2)
If b$="ER" Then s=s+1
Next i
Print s
End Sub
程序运行后的输出结果是().
A.1
B.2
C.3
D.4
[单选题]第246题 （1.0分）
有如下程序.
Infocase$=InputBox("Input one letter.")
Select Case infocase$
Case "a" grade$="Very good"
Case "b" grade$="good"
Case "C" grade$="OK"
Case "d" grade$="Qualified"
Case Else
Grade$="Bad"
End Select Print grade$
运行时从键盘上输入英文小写字母d后,输出的结果是().
A.Very good
B.Good
C.Bad
D.Qualified
