100万人基因工程:高手看看这个程序代码哪里有问题？

来源：百度文库编辑：杭州交通信息网时间：2024/04/28 19:35:00

这是个加法计算，可是为什么执行命今后，Cj的值只在第一次运算的时候有效，第二次，第三次。。。以后都不会再变。
Private Sub Command1_Click()
If Val(Text1) = Val(Label2) + Val(Label4) Then
Label6.Caption = "√"
cj = cj + 10
Else
Label6.Caption = "ⅹ"
cj = cj - 5
End If
Label8.Caption = cj
Label2.Caption = Int(Rnd * 99 + 1)
Label4.Caption = Int(Rnd * 99 + 1)
End Sub

Private Sub Form_Load()
Randomize
Label2.Caption = Int(Rnd * 99 + 1)
Label4.Caption = Int(Rnd * 99 + 1)
End Sub
不好意思，忘记写代码了。

你的CJ是一个局部变量，要声明成全局变量才行。
方法是在整个代码的最前面加上： Dim cj As Integer

你的程代码序在哪？

高手看看这个程序代码哪里有问题？关于数据库的备份：请高手看看，看看哪里有问题。这个程序时好时坏。有高手看看这个! VB程序代码?看看有没有误? 高手们看看这个配置有问题吗高手帮忙看看这个页面有问题么？哪里有逐行翻译程序代码的软件高手帮我看看这个asp问题求FLASH高手，看看下面脚本哪里有问题？这个对话框真顽固,请高手帮忙看看是哪里出了问题?