小張設計了一個“加減運算練習”VB程序.界面如下圖所示.單擊“出題”Command1按鈕顯示兩個運算數和運算符號,并計數.在文本框Text1中輸入計算結果后單擊“判斷”按鈕Command2,如果計算結果正確,則得分加10分,直至完成10題測試.VB程序如下,但加下橫線處代碼有錯,請改正.
Dim n,s As Integer'n為試題計數器,s為得分
Dim a,b As Integer'a,b 為兩個運算數
Dim c As String'c為運算符:“+“表示加法,“-“表示減法
Private Sub Form_Load( ?。﹏=0:
s=0
End Sub
Private Sub Command1_Click( ?。鲱}按鈕
Randomize
n=n+1
If n<11Then
Label1.Caption=“No:“+Str(n)
a=Int(Rnd*100)'a,b為運算數,且要求a不小于b
b=Int(Rnd*100)
If
a>bThen t=a:a=b:b=t'(1)
If Rnd>0.5Then c=“+“Else
b=“-“'(2)
Label5.Caption=Str(a)+c+Str(b)+“=“
Text1.Text=““
Else
Command1.Caption=“完成測試“
End If
End Sub
Private Sub Command2_Click( ?。袛喟粹o
If c=“+“Then
If a+b=Val(Text1.Text) Then s=s+10
Else
If
a+b=Val(Text1.Text)Then s=s+10'(3)
End If
Label3.Caption=“得分:“+Str(s)
End Sub.