28.小張設計了一個“加減運算練習”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( )n=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( )‘判斷按鈕 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.