更多"[单选题]第239题 （1.0分）有如下程序.Private Sub "的相关试题:
[单选题]第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.循环体不执行即结束循环
[单选题]第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
[单选题]第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
[单选题]有如下程序代码:
Private Sub Form_MouseDown(Button As Integr ,Shift As Integer , X As Single,Y As Single)
FillColor=QBColor(Int(Rnd*15))
FillStyle=Int(Rnd*8)
Circle(x,y),25. End Sub
该程序的功能是().
A.鼠标拖曳时在窗体中构造一个圆
B.双击鼠标时在窗体中构造一
个圆
C.单击鼠标时在窗体中构造一
个圆
D.加载时在窗体中构造一个圆
[单选题]有如下程序,该段程序将().
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.循环体不执行即结束循环
[单选题]设有如下程序:
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
[单选题]有如下程序段,该程序段执行完毕后,共循环次数为().
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
[单选题]有如下程序:
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
[单选题]有如下程序:
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
[单选题]在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:
Private Sub Command1_Click()
For I=1 To 4
For J=0 To I
Print Chr$(65+i);
Next J
Print
Next I
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是().
A.BB CCC DDDD EEEEE
B.A BB CCC DDDD
C.B CC DDD EEEE
D.AA BBB CCCC DDDDD
[单选题]有如下程序:
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
