下列程序段的运行结果为（）。 Dim a Dim s%, i% a = Arra...) ^ 2 Next i Print s
29
举一反三
- 运行下列程序，单击窗体显示的结果为（ ）。 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
- 下列程序中 s = s + j 语句共执行了______次。 Dim s As Integer Dim i As Integer, j As Integer For i = 1 To 10 Step 2 For j = 1 To 5 Step 2 s = s + j Next j Next i Print s
- 执行下面程序段后，输出的结果为（ ）。 Dim m(5) As Integer s = 0 For i = 0 To 5 m(i) = 5 Next i For j = 0 To 5 s = s + m(j) Next j Print s
- 下列程序的运行结果为（ ）。 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
- 执行下列程序段后，程序的运行结果为()。 s = 1 For i = 1 To 3 For j = 0 To i - 1 s = s + s * j Next j Print s; Next i
内容
- 0
下列程序段的运行结果为（ ）。Dim m(10)For i = 0 To 9 m(i) = 2 * iNext iPrint m(m(3)) A: 12 B: 6 C: 0 D: 4
- 1
下列程序段的运行结果为（ ）。 Dim m(10) For i = 0 To 9 m(i) = 2 * i Next i Print m(m(3)) A: 12 B: 6 C: 0 D: 4
- 2
下列程序段的执行结果为（）。 Dim M(2) For i=l To 2 M(i... M(k); Next j Next i
- 3
下列程序的运行结果为（）。 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 Su A: 123456 B: 6 C: 123456 D: 0
- 4
下列程序段的执行结果为 _______。 Dim a(3, 5) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 1 To 5 a(i, j) = a(i - 1, j - 1) + (i - 1) * 5 + j Next j Next i Print a(3, 4)