求一个VB的经典小程序

Question

可以是计算器、网络时钟、或者其他的经典程序。要求：有完整的步骤、通俗易懂，重要的是代码

Answer 1

'添加一个名为label1的标签控件，并将其index设为0；再添加一个名为command1的按钮控件
Dim a(1 To 9) As Boolean
Dim win As Boolean, begin As Boolean, haveload As Boolean, start As BooleanPrivate Sub Command1_Click()
start = True: begin = False
For i = 1 To 9
a(i) = False
Next i
Form_Load
End SubPrivate Sub Form_Load()
a(9) = True
Label1(0).Visible = False
Me.Height = 4400
Me.Width = 4000
Scale (0, 0)-(3, 3.3)
If haveload = False Then
haveload = True: start = True
Command1.Top = 3: Command1.Left = 2
Command1.Width = 1: Command1.Height = 0.3
Command1.Caption = "开始"
For i = 1 To 9
Load Label1(i)
Next i
End If
For i = 1 To 9
Label1(i).Height = 1
Label1(i).Width = 1
Label1(i).Visible = True
Label1(i).Top = (i - 1) \ 3
Label1(i).Left = (i - 1) Mod 3
Label1(i).Caption = Str(i)
Label1(i).BackColor = QBColor(i)
Label1(i).FontBold = True
Label1(i).FontSize = 40
Next i
Label1(9).Caption = "": Label1(9).BackColor = vbWhite
Randomize
For i = 1 To 500
r% = Int(9 * Rnd) + 1
Call Label1_Click(r)
Next i
begin = True
End SubPrivate Sub Label1_Click(index As Integer)
Dim x1 As Integer, y1 As Integer
If start = True Then
If a(index) = False Then
x1 = (index - 1) Mod 3: y1 = (index - 1) \ 3

If x1 - 1 > -0.2 Then
If a(x1 + y1 * 3) = True Then Call yidong(x1 + y1 * 3, index)
End If
If x1 + 1 < 2.2 Then
If a(x1 + y1 * 3 + 2) = True Then Call yidong(x1 + y1 * 3 + 2, index)
End If
If y1 - 1 > -0.2 Then
If a(x1 + 1 + (y1 - 1) * 3) = True Then Call yidong(x1 + (y1 - 1) * 3 + 1, index)
End If
If y1 + 1 < 2.2 Then
If a(x1 + 1 + (y1 + 1) * 3) = True Then Call yidong(x1 + 1 + (y1 + 1) * 3, index)
End If
End If
win = True
For i = 1 To 8
If Val(Label1(i).Caption) <> i Then win = False
Next i
If win = True And begin = True Then MsgBox ("恭喜你成功了"): begin = False: start = False
End If
End Sub
Sub yidong(x, index)
Label1(0).Caption = Label1(index).Caption
Label1(index).Caption = Label1(x).Caption
Label1(x).Caption = Label1(0).Caption
a(index) = True: a(x) = False
Label1(0).BackColor = Label1(index).BackColor
Label1(index).BackColor = Label1(x).BackColor
Label1(x).BackColor = Label1(0).BackColor
End Sub

Answer 2

Dim v As Boolean '是否第一次按下运算符Dim s As String '存放上一次按的运算符Dim x As Double '存放第一个操作数Dim y As Double '存放第二个操作数Private Sub Command1_Click(Index As Integer)If Form1.Tag = "T" Then If Index = 10 Then Text1.Text = "0" Else Text1.Text = Command1(Index).Caption End If Form1.Tag = ""Else a = Text1.Text Text1.Text = a & Command1(Index).CaptionEnd IfEnd SubPrivate Sub Command2_Click(Index As Integer)Form1.Tag = "T"If v Then x = Val(Text1.Text) v = Not vElse y = Val(Text1.Text) Select Case s Case 0 Text1.Text = x + y Case 1 Text1.Text = x - y Case 2 Text1.Text = x * y Case 3 If y <> 0 Then Text1.Text = x / y Else MsgBox "除数不能为0！", 32, "error" End If End Select x = Text1.TextEnd If s = IndexEnd SubPrivate Sub Command3_Click()Form1.Tag = "T"y = Text1.TextSelect Case s Case 0 Text1.Text = x + y Case 1 Text1.Text = x - y Case 2 Text1.Text = x * y Case 3 If y <> 0 Then Text1.Text = x / y Else MsgBox "除数不能为0！", 32, "error" End If End Select x = Text1.Text y = 0 v = False s = 5End Sub