Yahoo奇摩知識+將於 2021 年 5 月 4 日 (美國東部時間) 終止服務。自 2021 年 4 月 20 日 (美國東部時間) 起,Yahoo奇摩知識+服務將會轉為唯讀模式。其他Yahoo奇摩產品與服務或您的Yahoo奇摩帳號都不會受影響。如需關於Yahoo奇摩知識+ 停止服務以及下載您個人資料的資訊,請參閱說明網頁。

程式設計VB

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

1 個解答

評分
  • W.J.S.
    Lv 7
    2 0 年前
    最佳解答

    以下是十個加法算數考題,設個表單直接把程式碼貼上就可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

還有問題?馬上發問,尋求解答。