vb温度计编程查看属相小程序.doc

1.温度计 Public x As Integer Option Explicit Private Sub Command1_Click() Command1.Enabled = False Command2.Enabled = True Timer1.Interval = 10 x = -4 End Sub Private Sub Command2_Click() Timer1.Interval = 0 Command1.Enabled = True Command2.Enabled = False End Sub Private Sub Form_Load() Command1.Enabled = True Command2.Enabled = False Label1.Caption = 43.1 End Sub Private Sub Timer1_Timer() If Line1.Y1 = 0 Then Timer1.Interval = 0 Label1.Caption = 100 Else Line1.Y1 = Line1.Y1 + x Label1.Caption = Label1.Caption + 0.1 End If If Line1.Y1 = 800 Then Line2.BorderColor = vbBlue Else Line2.BorderColor = vbRed End If End Sub 2. 属相 Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(Text1.Text) y = x Mod 12 If y = 0 Then Label2.Caption = 猴 ElseIf y = 1 Then Label2.Caption = 鸡 ElseIf y = 2 Then Label2.Caption = 狗 ElseIf y = 3 Then Label2.Caption = 猪 ElseIf y = 4 Then Label2.Caption = 鼠 ElseIf y = 5 Then Label2.Caption = 牛 ElseIf y = 6 Then Label2.Caption = 虎 ElseIf y = 7 Then Label2.Caption = 兔 ElseIf y = 8 Then Label2.Caption = 龙 ElseIf y = 9 Then Label2.Caption = 蛇 ElseIf y = 10 Then Label2.Caption = 马 Else Label2.Caption = 羊 End If End Sub 3. 出题复杂 Private Sub Cmd1_Click() Cmd1.Enabled = False Cmd2.Enabled = True If Op1.Value Then Text1.Text = Int((10 - 1 + 1) * Rnd + 1) Text2.Text = Int((10 - 1 + 1) * Rnd + 1) End If If Op2.Value Then Text1.Text = Int((99 - 10 + 1) * Rnd + 10) Text2.Text = Int((99 - 10 + 1) * Rnd + 10) End If If Op3.Value Then Text1.Text = Int((999 - 100 + 1) * Rnd + 100) Text2.Text = Int((999 - 100 + 1) * Rnd + 100) End If End Sub Private Sub Cmd2_Click() If Op1.Value And Op4.Value And Val(Text3.Text) = Val(Text1.Text) + Val(Text2.Text) Then lbl1.Caption = 对了 End If If Op1.Value And Op4.Value And Val(Text3.Text) Val(Text1.Text) + Val(Text2.Text) Then lbl1.Caption = 大了 End If If Op1.Valu