vb程序编写设置坐标系，左上角坐标为（0，0），右下角坐标为（20，20）；当重复单击窗体时，以红、黄、绿的顺序交替出现实心圆，每个圆的半径均为2，其圆心也都在窗体的中央。

Question

vb程序编写
设置坐标系，左上角坐标为（0，0），右下角坐标为（20，20）；
当重复单击窗体时，以红、黄、绿的顺序交替出现实心圆，每个圆的半径均为2，其圆心也都在窗体的中央。

Answer 1

1.
Private Sub Command1_Click()
Text2.Text = StrReverse(Text1.Text)
End Sub
2.
Dim a() As Integer, d() As Integer
Private Sub Command1_Click()
b = Text1.Text
n = Val(Text3.Text)
ReDim a(n)
ReDim d(n)
For u = 1 To n
If u < n Then
a(u) = Left(b, InStr(b, ",") - 1)
d(u) = Left(b, InStr(b, ",") - 1)
b = Right(b, Len(b) - InStr(b, ","))
Else
If InStr(b, ",") = 0 Then
a(u) = b
d(u) = b
For i = 1 To n - 1
For j = i + 1 To n
If a(i) > a(j) Then temp = a(i): a(i) = a(j): a(j) = temp
Next j
Next i
Else
MsgBox "你输入的数组有误"
End If
End If
Next u
For h = 1 To n
If a(1) = d(h) Then
e = d(1): d(1) = d(h): d(h) = e
Exit For
End If
Next h
For j = 1 To n
Text2.Text = Text2.Text & d(j) & " : "
Next j
End Sub
3.
Dim a(1 To 6) As Integer
Private Sub Command1_Click()
For h = 1 To 6
a(h) = h
Next h
Scale (0, 0)-(100, 100)
For i = 1 To 6
For u = 1 To 6
If u + i <= 7 Then
CurrentX = (u + i) * 5: CurrentY = i * 5
Else
CurrentX = (u + i - 6) * 5: CurrentY = i * 5
End If
Print a(u)
Next u
Next i
End Sub
这是程序代码 全部程序 我发到你邮箱了 你看看