超星 - 第四章第4次作业for+while单循环 - 查题吧

单选题

以下循环语句中在任何情况下都至少执行一次循环体的是（）。

A. Do While 循环体 Loop
B. While 循环体 Wend
C. Do 循环体 Loop Until
Do Until 循环体 Loop

单选题

运行下列程序:Private Sub Form_Click()Dim x As Integer, y As String, z As Stringy = "abcde"For x = 1 To Len(y)z = Mid(Right(y, x), 1)Next xPrint zEnd Sub单击窗体后,则在窗体上显示的结果是（）。

A. a
B. dac
C. abcde
D. baced

单选题

运行下列程序:Private Sub Form_Click()Dim x As Integer, y As String, z As Stringy = "abcde"For x = 1 To Len(y)z = z & Mid(Right(y, x), x, 1)Next xPrint zEnd Sub单击窗体后,则在窗体上显示的结果是（）。

A. eeeee
B. edcba
C. abcde
D. baced

单选题

'运行下面程序后,在窗体中显示的是（）。Private Sub Form_Click()a$="*": b$="$"For k=1 To 3x$=String$(Len(a$)+k,b$)Print x$;Next kPrintEnd Sub

A. *** ** ****
B. *$*$*$
C. 1*$2*$3*$
D. $$$$$$$$$

单选题

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()c = 1234c1 = Trim(Str(c))For i = 1 To 4PrintNext IEnd Sub程序运行后,单击命令按钮,要求在窗体上显示如下内容4342341234则在程序循环体中的处应填入的内容为（）.

A. Mid(c1,i,1)
B. Mid(c1,i,i)
C. Right(c1,i)
D. Left(c1,i)

单选题

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()n = 5f = 1s = 0For i = 1 To nf = f _s = s + fNext IPrint sEnd Sub该事件过程的功能是计算1+1/2!+1/3!+1/4!+1/5!的值,则在程序循环体中横线_处应填的内容是()

A. /i
B. *i
C. +f/i
D. +1/i

单选题

在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:Private Sub Command1_Click()s = 0For i = 1 To 15If i Mod 2 = 0 Then s = s + 1Next iLabel1.Caption = sEnd Sub程序运行后,单击命令按钮,则标签中显示的内容是（）

A. 1
B. 5
C. 7
D. 27

单选题

在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i = 1 To 6If i = 1 Then x = iIf i <= 4 Thenx = x + 1Elsex = x + 2End IfNext iPrint xEnd Sub程序运行后,单击命令按钮,其输出结果为（）。

A. 9
B. 6
C. 12
D. 15

单选题

执行下面的程序段后,x的值为（）。x=5For i=1 To 20 Step 2x=x+i\5Next i

A. 21
B. 22
C. 23
D. 24

单选题

执行以下程序段a$="abbacddcba"For i=6 To 2 Step -2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z=UCase(X & Y & z)Next IPrint z输出结果为（）。

ABA
BBABBA
C. ABBABA
D. AABAAB

1