Question

求解第二题第二题第二题

Answer 1

用到随机数。
百度一下你就知道了！！！

Answer 2

做好了怎么发给你？
第一题

Private Sub Command1_Click()
Dim m, n, r, t As Integer
m = Val(Text1.Text)
n = Val(Text2.Text)
If m < n Then t = m: m = n: n = t
r = m Mod n
Do While (r <> 0)
m = n
n = r
r = m Mod n
Loop
Text3.Text = n
End Sub

第三题
Private Sub Command1_Click()
Dim n As Integer
n = Val(Text1.Text)
For i = 1 To n
Print Space(n + 10 - i); String(2 * i - 1, "*")
Next i
End Sub

第二题

Private Sub Command1_Click()
Dim a(10) As Integer
Dim s As String
s = ""
For i = 1 To 10
a(i) = Int(Rnd * 100) + 100
s = s & a(i) & " "
Next i
Print s;
For i = 1 To 10
For j = 1 To 10 - i
If a(j) > a(j + 1) Then
temp = a(j + 1)
a(j + 1) = a(j)
a(j) = temp
End If
Next j
Next i
Print
s = ""
For i = 1 To 10

s = s & a(i) & " "
Next i
Print s

End Sub

追问

图

图拍给我吧

追答

第二题就在窗体上加一个text控件和一个command控件就可以了。
请采纳，谢谢
要工程可以q我 三一四零二一 一 四六

Answer 3

Private Sub Form_Load()

Dim A(1 To 10) As Integer, MM As Integer

For I = 1 To 10

Randomize

A(I) = Int(Rnd * 100 + 100)

Text1.Text = Text1.Text & A(I) & "  "

Next I

For I = 1 To 9

    For J = I + 1 To 10

    If A(I) > A(J) Then

    MM = A(I)

    A(I) = A(J)

    A(J) = MM

    End If

    Next J

Next I

For I = 1 To 10

Text2.Text = Text2.Text & A(I) & "  "

Next I

End Sub