更多"设有如下程序： CLEAR USE 职工 DO WHILE! E"的相关试题:
[单项选择]CLEAR USE 选课 DO WHILE!EOF（ ） IF成绩＜90 SKIP LOOP ENDIF DISPLAY SKIP ENDDO USE 该程序执行的功能是( )。
A. 显示所有成绩大于90分学生的记录
B. 显示所有成绩小于90分的学生的记录
C. 显示所有成绩大于或者等于90分学生的记录
D. 显示所有成绩小于或者等于90分的学生的记录
[单项选择]设有如下程序： Private Sub Commandl Click（ ） Dimsum As Double,x As D0uble 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 Su b Commandl 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 i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是
A. 1+1／2+2／3+3／4+4／5
B. 1+1／2+1／3+1／4+1／5
C. 1／2+2／3+3／4+4／5
D. 1／2+1／3+1／4+1／5
[单项选择]设有如下程序文件： SET TALK OFF CLEAR DIMENSION a(2，3) i=1 DO WHILE i＜=2 j=1 DO WHILE j＜=3 a(i，)=i+j a(i，j) j=j+1 ENDDO i=i+1 ENDDO SET TALK ON RETURN 执行此程序，程序的运行结果为
A. 2 3 4 3 4 5
B. 1 2 3 3 4 5
C. 1 2 3 2 4 6
D. 2 3 4 4 5 6
[单项选择]设有如下程序： Option Base 0 Private Sub Form Click（ ） Dim a Dim i As Integer a = Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i = 0 To 3 Print a(5 - i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是
A. 4 3 21
B. 543 2
C. 6 54 3
D. 7 6 54
[单项选择]设有如下程序： Option Base 1 Private Sub Form Click（ ） Dim arr arr = Array(10, 20, "ABCDE") For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后，单击窗体，在窗体上显示的内容为______ 。
A. ABCDE 20 10
B. 10 20 ABCDE
C. ABCDE 10 20
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 i End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是( )。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+1/3+1/4+1/5
C. 1/2+2/3+3/4+4/5
D. 1/2+1/3+1/4+1/5
[单项选择]设有如下程序
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 i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是_____。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+1/3+1/4+1/5
C. 1/2+2/3+3/4+4/5
D. 1/2+1/3+1/4+1/5
[单项选择]设有如下程序： Private Sub Form_ Click（ ） Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后，单击窗体，则在窗体上显示的是______ 。。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]设有如下程序： 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 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 i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是( )。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+1/3+1/4+1/5
C. 1/2+2/3+3/4+4/5
D. 1/2+1/3+1/4+1/5
[单项选择]设有如下程序： 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
