请补充下划线的内容j :
Dim I, J, AA(9) As Short
Dim Temp As Short
For I = 0 To 9
AA(I) = InputBox("请输入第" & I & "数", "输入窗口")
Next
For I = 1 To 8
For J = I + 1 To 9
If AA(I) > AA(J) Then
Temp = AA(I)
_______ '交换1
AA(J) = Temp
End If
Next
Next
....
举一反三
- 下列程序段的执行结果为 _______。 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)
- 下列程序: Option Base 1 Private Sub Form_Click() Dim a(5，5) For i ＝ 1 To 5 For j ＝ 1 To 5 k ＝ k ＋ 1 a (i，j)＝ k Next j Next i For i ＝ 1 To 5 s ＝ s ＋ a (i，i) Next i Print s End Sub 运行时的输出结果是( )。
- 有如下语句,执行后该段语句的循环次数是_____。 Dim s,I,j as integer For I =1 to 3 For j=3 To 1 Step-1 S=I*j Next j Next I
- 下列程序段不能正确显示1！、2！、3！、4！的结果的是 。 A: For i = 1 To 4 For j = 1 To i n = 1 n = n * j Next j MsgBox( n)Next i B: Dim i%, j%, n%For i = 1 To 4 n = 1 For j = 1 To i n = n * j Next j MsgBox( n)Next i C: Dim j%, n%n = 1For j = 1 To 4 n = n * j MsgBox( n)Next j D: Dim j%, n%n = 1j = 1Do While j<=4 n=n*j MsgBox(n) j=j+1Loop E: Dim j%, n%n = 1j = 1Do n=n*j MsgBox(n) j=j+1Loop While j<=4
- 下面代码是实现数组array冒泡排序的片段，划线处应填入（ ） int[] array = 60, 56, 38, 45 int temp for (int i = 0 i < 3 i++) for (int j = 0 j < __________ j++) if (array[j] < array[j + 1]) temp = array[j] array[j] = array[j + 1] array[j + 1] = temp
内容
- 0
窗体上命令按钮Command1的事件过程如下： Option Base 1 Private Sub Command1_Click() Dim a(4,4)As Variant For i=1 To 4 For j=1 To 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(i,j) Next j Next i End Sub 该程序执行后，输出结果是( )。 A: 9 B: 10 C: 12 D: 13 E: 7 F: 10 G: 12 H: 13 I: 9 J: 12 K: 10 L: 13 M: 8 N: 11 O: 9 P: 12
- 1
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a(4，4) For i=1 To 4 For j=1 To 4 a(i，j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(j，i)； Next j Next i End Sub 程序运行后，单击命令按钮，其输出结果为 ______ 。 A．6 9 7 10 B．7 10 8 11 C．8 11 9 12 D．9 12 10 13
- 2
在窗体上画一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_ Click() Dim arr(4, 4) For i = 1 To 4 For j = 1 To 4 arr(i, j) = (i - 1) * 3 + j Next j Next i For i = 1 To 2 For j = 1 To 2 Print arr(i, j) Next j Next i End Sub程序运行后，单击命令按钮，输出结果为______ 。 A: 3 4 6 7 B: 7 8 10 11 C: 1 2 4 5 D: 8 9 12 13
- 3
在窗体上画一个名称为Command1的命令按钮 ，并编写如下程序：Option Base 1Private Sub Command1_Click() Dim a(4,4) For i=1 To 4 For j=1 To 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(j,i)； Next j Print Next iEnd Sub运行程序，单击命令按钮，则输出结果为______。 A: 6 9 7 10 B: 7 10 8 11 C: 8 11 9 12 D: 9 12 10 13
- 4
执行下面的程序段后，循环参数i、j的值分别为（） For i=1 to 3 For j=4 to 1 setp -1 Print i*j Next j Next i