自己拿来练手的一个VB小程序~

来源：百度知道 编辑：UC知道 时间：2024/05/14 04:48:05
本人刚学VB~这个是自己拿来练手的一个VB小程序~但是我怎么编都~有问题~其实这个程序很简单~一个输出信息的窗口~两个按钮~一个按钮是~开始~一个按钮是~关闭~代码方面~先设置一个实数变量~比如~shushi=1~shishu=shishu+1当你点击开始按钮的时候~每两秒钟就会从~窗口出现递增的shishu变量~(也就是shishu变量~每两秒循环一次)~当实数变量达到9~窗口就出现一排字~条件已达成~然后点关闭就~能关闭程序~谁能帮我把代码写出来~~如果能在QQ上指导我学VB的话我把全部的积分都给他！！我QQ~269676812

在窗体上放两个命令按钮，command1 和command2一个计时器timer1
程序运行，单击开始每两秒输出一次shishu的值。当shishu的值达到9时输出“条件已成立”。代码如下：

Dim shishu As Integer
Private Sub Command1_Click()
Timer1.Interval = 2000
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "退出"
shishu = 1
End Sub

Private Sub Timer1_Timer()

Form1.Cls
Print shishu
shishu = shishu + 1
If shishu = 9 Then
Print "条件已成立。"
Timer1.Interval = 0
End If

End Sub

好久没用
生疏了啊！！