UC知道vb基础题
来源：百度知道 编辑：UC知道 时间：2024/06/25 13:12:52
请在下列程序的括弧中填上适当的内容，使程序运行后，在屏幕上显示下结果：
1
2 4
3 6 9
FOR J=1 TO 3
FOR I=1 TO ( )
PRINT ( );
NEXT I
PRINT
NEXT J
请在下面的划线处填上适当的内容，使程序能对数组a中的10个数据递增排序：
FOR I = 1 TO 9
FOR J= I +1 TO 10
IF a( ) < a( ) THEN
____=a (J)
a(J)=a(I)
a(I)=b
END IF
NEXT J
NEXT I
希望有人给出详细的解题过程，并要注意那几点
1
2 4
3 6 9
FOR J=1 TO 3
FOR I=1 TO ( )
PRINT ( );
NEXT I
NEXT J
请在下面的划线处填上适当的内容，使程序能对数组a中的10个数据递增排序：
FOR I = 1 TO 9
FOR J= I +1 TO 10
IF a( ) < a( ) THEN
____=a (J)
a(J)=a(I)
a(I)=b
END IF
NEXT J
NEXT I
希望有人给出详细的解题过程，并要注意那几点
第一题答案:
Private Sub Command1_Click()
Dim i%, j%
For j = 1 To 3
For i = 1 To j
Print j * i;
Next i
Print
Next j
End Sub
第一个空写j
第二个空写j*i
第二题答案:
Private Sub Command1_Click()
Dim i%, j%
For i = 1 To 9
For j = i + 1 To 10
If a() < a() Then
b = a(j)
a(j) = a(i)
a(i) = b
End If
Next j
Next i
End Sub
第二题答案:
Private Sub Command1_Click()
Dim i%, j%
For i = 1 To 9
For j = i + 1 To 10
If a() < a() Then
b = a(j)
a(j) = a(i)
a(i) = b
End If
Next j
Next i
End Sub
填空应该写b
FOR J=1 TO 3
FOR I=1 TO j
PRINT j+(i-1)*j;
NEXT I
PRINT
NEXT J
'下面叫做冒泡排序法
FOR I = 1 TO 9
FOR J= I +1 TO 10
IF a(j-1) < a(j) THEN
b=a (J)
a(J)=a(I)
a(I)=b
'下面