展开全部
给邮箱, 发工程, 以免自己调试不出来
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
--
2022-12-05 广告
图形化编程简单理解为用积木块形式编程，scratch和python也是其中的一种，属于入门级编程，以其简单生动的画面获得无数学生的喜爱，深圳市创客火科技有限公司是一家做教育无人机的公司，旗下有编程无人机，积木无人机及室内外编队，每款飞机含有...
点击进入详情页
本回答由--提供
展开全部
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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你好厉害呀，会编程吗？我一点不会耶😊
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
