A: 21
B: 32
C: 33
D: 11
举一反三
- 声明一个变量为局部变量应该用（ ）。 A: Private Sub Command1 Click() n=5：x=1 Do X=X * I I=I + 1 Loop While I ＜ n Print x End Sub B: Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I ＜n Print x End Sub C: Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＜=n Print X End Sub D: Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＞n Print X End Sub
- 下面程序运行后，语句“Print i”执行的次数是( )。 Private Sub Form_Click() Dim i As Integer,j As Integer i=0 Do i=i+1 Forj=10 To 1 Step-3 i=i+j Print i Next j Loop While i<50 End Sub A: 4 B: 8 C: 12 D: 16
- 窗体上有一个名为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() i = 0 Do While i < 8 For j = 1 To i n = n + 1 Next i = i + 1 Loop Print n End Sub 运行程序，单击命令按钮，则输出结果是______。
- 下列程序段的运行结果是（ ）。 Sub sele() Dim n As Integer i=21：n=3 Do While i＞n i=i—n Loop Print i End Sub A: 3 B: 4 C: 5 D: 3.2
- 下面程序运行后的结果为___ Private Sub Form_Click() Dim i%, sum% i = 1 Do While i < 5 sum = sum + i * i i = i + 2 Loop Print sum End Sub A: 45 B: 35 C: 10 D: 25
内容
- 0
下列程序的运行结果为（ ）。 Private Sub Command1_Click() Dim a(5) As String Dim i As Integer For i = 0 To 5 a(i) = i + 1 Print a(i); Next i End Sub
- 1
编写如下程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 1 Do y = x * y If y > 10 Then Print x, y Exit Do Else x = x + 3 End If Loop While x <= 10 End Sub 运行程序，输出结果为______
- 2
程序执行结果S的值是 【11】 。 Private Sub Command1_Click() i=0 Do i=i+1 s=i+s Loop Until i＞=4 Print s End Sub
- 3
运行下列程序，单击窗体显示的结果为（ ）。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3) For i = 2 To 0 Step -1 s = s + a(i) * a(i) Next i Print s End Sub
- 4
以下程序的运行结果是 Sub s1(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer For i = 1 To 4 a(i) = i + 5 Next i s1 a() For i = 1 To 4 Print a(i) Next i End Sub