VB两个小问题

来源：百度知道 编辑：UC知道 时间：2024/06/06 20:19:55
我妹妹在作题，我想帮她，Q代码
题目1.产生5个10到50之前的随机整数.冒泡法排序
2.打印如下乘积表
3 6 9 12
15
16
17
18

第一题：
Private Sub Command1_Click()
Dim I As Integer
Dim J As Integer
Dim A(5) As Integer
Dim Temp As Integer

Me.Print "排序前："

For I = 1 To 5
A(I) = Int(Rnd * 40) + 10
Me.Print A(I);
Next I

Me.Print

For I = 1 To 5
For J = 5 - I To 4
If A(J) > A(J + 1) Then
Temp = A(J)
A(J) = A(J + 1)
A(J + 1) = Temp
End If
Next J
Next I

Me.Print "排序后："

For I = 1 To 5
Me.Print A(I);
Next I
End Sub

第二题：
看不懂你的意思，呵呵

妹妹张得好看不