程式設計VB

Question

設計程式，由接受測驗者點選答案，每題計50分，答錯一提到扣20分，並顯示得分，(最少為0分)會的請麻煩給我一下程式碼^^

Answer 1

最佳解答

以下是十個加法算數考題,設個表單直接把程式碼貼上就可XD

Dim A As Label, T, X, Y, R As Boolean, WithEvents B As CheckBox, WithEvents C As CheckBox

Private Sub B_Click()

If B Then Chk B.Caption

End Sub

Sub Chk(S)

If Val(S) = X + Y Then

T = T + 50

MsgBox "你答對了"

Else

T = T - 20

If T < 0 Then T = 0

MsgBox "你答錯了"

End If

R = True

End Sub

Private Sub C_Click()

If C Then Chk C.Caption

End Sub

Private Sub Form_Activate()

Dim I

Randomize

For I = 1 To 10

R = False

X = Int(Rnd * 100) + 1

Y = Int(Rnd * 100) + 1

A = X & "+" & Y

If (Int(Rnd * 10) + 1) Mod 2 = 0 Then

B.Caption = X + Y: C.Caption = Int(Rnd * 10) + X + Y + 1

Else

C.Caption = X + Y: B.Caption = Int(Rnd * 10) + X + Y + 1

End If

Do

DoEvents

Loop Until R

B = 0: C = 0

Next

MsgBox "你的分數是 : " & T & "分"

End Sub

Private Sub Form_Load()

Set A = Controls.Add("VB.Label", "A")

A.Width = ScaleWidth: A.Visible = True

Set B = Controls.Add("VB.CheckBox", "B")

B.Top = A.Top + A.Height + 20: B.Visible = True

Set C = Controls.Add("VB.CheckBox", "C")

C.Top = B.Top: C.Left = B.Left + B.Width + 10: C.Visible = True

End Sub