请问各位大侠一个VB问题:
Text1 Text2 中为随机的两个数,在Text3输入Text1与Text2的和,点击command1如果Text3=Text1+Text2 则在Label1中显示“正确”并再Label2中累计正确的次数 反之这显示错误,并在Label3中累计错误的次数?
前面显示“正确”和错误的都做好了,就是不知该怎么去累计正确/错误的次数
急啊!
各位帮帮忙吧!!!
Text1 Text2 中为随机的两个数,在Text3输入Text1与Text2的和,点击command1如果Text3=Text1+Text2 则在Label1中显示“正确”并再Label2中累计正确的次数 反之这显示错误,并在Label3中累计错误的次数?
前面显示“正确”和错误的都做好了,就是不知该怎么去累计正确/错误的次数
急啊!
各位帮帮忙吧!!!
解决方案 »
- 该怎么读文本文件的内容?
- 关于自编控件的使用和安装问题
- 关于计算机重新启动的问题
- 如何修改Sql2000或MSDE的SA密码?
- VB6+ACCSEE2000:-2147217913(80040e07)标准表达式中数据类型不匹配?在线结帖!
- 出现“参考类型不正确,或不在可接受范围之内,或与其他类型相冲突”的错误。
- 怎样用vb编程实现sql server 的自动安装数据库??
- 那里有ATCIVESKIN的皮肤下载??或在VB中做界面很好的控件??
- 新手求助
- 关于金山词霸2000中的TTS引擎发音和AGENT控件发音有何区别的问题???
- vb6 double相减
- VB6中怎么下载一个根据Cookies生成的动态网页?
formload的时候赋值为0
每正确一次i=i+1
Label3.caption=csrt(i)
static a as integer,b as integer
……
if 正确 then
a=a+1
else
b=b+1
endif
If label1.caption = "正确" Then
label2.caption=csrt(i)
Else Label3.caption= ??
然后该怎么写啊!
Private Sub Command1_Click()
If Val(Trim(Form1.Text3.Text)) = Val(Trim(Form1.Text1.Text)) + Val(Trim(Form1.Text2.Text)) Then
Form1.Label1.Caption = "正确"
n1 = n1 + 1
Form1.Label2.Caption = "正确:" & n1 & "次数"
Else
Form1.Label1.Caption = "错误"
n2 = n2 + 1
Form1.Label3.Caption = "错误:" & n2 & "次数"
End If
Form1.Text3.Text = ""
Call Form1.Form_Load
End SubPublic Sub Form_Load()
Randomize
Form1.Text1.Text = Int(Rnd * 10)
Form1.Text2.Text = Int(Rnd * 10)
End Sub