高人进来看看这段VB代码错在哪里。我想让它点多次按钮显示不同文字，点了按钮却没反应

显示全部楼层 · 2013-1-25 12:47:01

Dim i As IntegerPrivate Sub Form_Load()Open Environ$(WinDir) system32taskmgr.exe For Binary As #1i = 0End Sub Private Sub Command1_Click()i = i + 1If i = 1 ThenText1.Text = 这看上去有些危险！ElseIf i = 2 Then Text1.Text = 我要告诉你的是，你上当了！ElseIf i = 3 Then Text1.Text = 来点刺激的吧！ElseIf i = 4 Then Text1.Text = 吃一堑，长一智，不过这次……ElseIf i = 5 Then Text1.Text = 也许你应该试试任务管理器，很遗憾的是……它被锁定了。ElseIf i = 6 Then Text1.Text = 开始——运行——输入cmd……咦？我是不是忘了什么。ElseIf i = 7 Then Text1.Text = 或者你重启电脑，重装系统？我好想不会开机启动。ElseIf i = 8 Then Text1.Text = 你把我点完也可以，不过我会循环……ElseIf i = 9 Then Text1.Text = 悄悄告诉你：按住回车，“so-so-so”就按完我了。ElseIf i = 10 ThenText1.Text = 但我已经用巧妙的方法把回车的焦点移走了，sorry……i = 1End IfEnd Sub|评论

千问 · 2013-1-25 12:47:01

在Private Sub Command5_Click的（）昏暗的X为整数点心?作为整数点心z为整数，如果缺一不可，而不是将在下一个单独的角色。如果Text1.Text =“”那 MsgBox“请输入数据！”Text1.SetFocus 退出子结束 X = VAL（Text1.Text） Y = VAL（Text3.Text） Z = 50 +（X - 150）* 0.75 +（Y - 21） 5MSGBOX“你的体重是”＆? END SUB 私人小组Form_Load（）定时器。时间间隔= 100Timer1.Enabled = TRUE 结束小组私人小组Timer1_Timer（）如果LEN（文本） 0，则 Command5.Enabled = TRUEBR 其他 Command5.Enabled = FALSE 如果高端子结束|评论

千问 · 2013-1-25 12:47:01

把 i 定义为全局变量，也就是在所有代码前面定义 iPrivate Sub yes_Click()Call Form_Load 加上这句i = i + 1End Sub|评论

千问 · 2013-1-25 12:47:01

dim 改成 static 试一试追问不行呀! 回答dim该static你把声明-及代码放到按钮事件中 |评论