Question

VB编程题目？

希望可以按照图片要求来，如果题目不清楚就留言，我会再发一遍的。谢谢

Answer 1

给邮箱, 发工程, 以免自己调试不出来

Answer 2

Private Sub Command1_Click()
Timer1.Enabled = True

End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = True
Label1.Caption = Text1.Text

End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "停"
Text1.Text = ""
Label1.Caption = ""
Timer1.Interval = 500
Timer2.Interval = 1000
Timer1.Enabled = False
Timer2.Enabled = False

End Sub

Private Sub Timer1_Timer()
Text1.ForeColor = QBColor(Int(Rnd * 15))
Text1.Text = 100000 + Int(Rnd * 900000)

End Sub

Private Sub Timer2_Timer()
Label1.Font.Size = Int(20 + Rnd * 21)
Label1.ForeColor = QBColor(Int(Rnd * 15))

End Sub

Answer 3

你好厉害呀，会编程吗？我一点不会耶😊