求一道VB算术题的代码。

显示全部楼层 · 2011-4-13 12:53:32

要求：数字+/-/*/%数字= （）确定计分清屏
下面，是对或者错的显示，还有得分的显示
形式就是这样，希望会的帮帮忙。
最后效果是这样的。麻烦看一下这个代码对不对？
ption Explicit
Dim i, j, x, y, op, nop, result As Integer
Private Sub Command2_Click()
Picture1.Picture = "-----------------------"
Picture1.Picture = "一共计算&str(x)道题，得分为 &str(y)分"
End Sub
Private Sub Command3_Click()
Picture1.Picture = ""
End Sub
Private Sub Form_Load()
Dim sdata1, sdata2
Randomize
sdata1 = Int(100 * Rnd) + 1
sdata2 = Int(100 * Rnd) + 1
nop = Int(4 * Rnd) + 1
Select Case nop
Case 1
op = "+"
i = sdata1 + sdata2
Case 2
op = "-"
i = sdata1 - sdata2
Case 3
op = "×"
i = sdata1 * sdata2
Case 4
op = "÷"
i = sdata1 / sdata2
End Select
End Sub
Private Sub Label1_Click()
Label1.Caption = result
End Sub

千问 · 2011-4-13 12:53:32

Option ExplicitDim i, j, x, y, op, nop, result As IntegerPrivate Sub Command1_Click()If Abs(i - Val(Text1)) < 1 Then '1是精度，可以改锝小一些！ Picture1.Print Label1 & Text1 & "（√）": y = y + 1Else Picture1.Print Label1 & Text1 & "（×）"End Ifx = x + 1: Command2.Enabled = TrueDataLoadEnd SubPrivate Sub Command2_Click(

千问 · 2011-4-13 12:53:32

我用另一个小号给你说一下：picture的操作不对，改为如下；另外，确定的按钮你没编程，label的什么时候赋值也没编程，记分的累计过程也没有编程。Private Sub Command2_Click()Picture1.Print "-----------------------"Picture1.Print "一共计算&str(x)道题，