| |
Randomizeを使用すればいいと分かっているのですが、どうやって使用したらいいのかわかりません。
Private Sub コマンド17_Click()
If Me!解答選択 = Me!解答Ｄ Then
tensu = tensu + 1
Else
mis = mis + 1
End If
If Me.NewRecord = False Then
DoCmd.GoToRecord , , acNext
End If
点数.Value = tensu
ミス.Value = mis
goukei = mis + tensu
合計.Value = goukei
If goukei = 5 Then
MsgBox "あなたのこれまでの点数は" & tensu & "です"
Select Case tensu
Case Is < 2
MsgBox "まだまだですね。修行がたりません！！"
Case Is < 5
MsgBox "あ〜、、、知ったか程度ですね！"
Case Else
MsgBox "おぉ！！やるやん自分！認めちゃる！！"
End Select
DoCmd.GoToRecord , , acFirst
点数.Value = 0
ミス.Value = 0
合計.Value = 0
tensu = 0
mis = 0
goukei = 0
End If
'点数.Value = tensu
'ミス.Value = mis
'goukei = mis + tensu
'合計.Value = goukei
End Sub
と、今やています。
とりあえず全レコード数 10 でクイズをしています。三択式のクイズです。
５問といたら評価がでるという仕組みです。今のところ、レコードの順でしか問題がでないのでこれを乱数を使用してレコードをランダムに出題したいと考えています。分かる方いらっしゃいましたら、アドバイスお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
