vb6.0のプログラム

質問

今こんなプログラムを作っているのですがなぜか、足りない部分があると言われて困っております。
できれば教えてください。
図
ーーーーーーーーーーーーーーーー
from
ーーーーーーーーーーーーーーーー
残り３０秒[ーーーーラベルーーーー]
０００＋０００＝０００←(３つともlabel)
□-------------------□←HScrollbar max100 min0
[コマンドボタン]
[タイマー]←非表示
ーーーーーーーーーーーーーーーー
コード
Private intCount As Integer
Private intSecond As Integer
Private Sub cmdStart_Click()
Dim intNum1 As Integer
Dim intNum2 As Integer

If cmdStart.Caption = "Start" Then
intCount = 0
intSecond = 30
lblResult.Caption = ""
cmdStart.Caption = "OK"
tmrSecond.Enabled = True

ElseIf cmdStart.Caption = "OK" Then
If CInt(lblAnswer.Caption) = CInt(lblNum1.Caption) + CInt(lblNum2.Caption) Then
lblResult.Caption = lblResult.Caption & "○"
intCount = intCount + 1
Else
lblResult.Caption = lblResult.Caption & "×"
End If

intNum1 = Rnd() * 50
intNum2 = Rnd() * 50

lblNum1.Caption = intNum1
lblNum2.Caption = intNum2
End If
End Sub

Private Sub hsbAnswer_Change()
lblAnswer.Caption = hsbAnswer.Value
End Sub

Private Sub tmrSecond_Timer()
intSecond = intSecond - 1
lblTime.Caption = "残り" & intSecond & "秒"
If intSecond = 0 Then
tmrSecond.Enabled = False
MsgBox (intCount & "問正解")
cmdStart.Caption = "Start"
Else
End If
End Sub
どうぞよろしくお願いします。

回答No.5

king_joe1006 · ベストアンサー

＃３です。
修正箇所としては・・・
１．lblAnswer を TEXTBOX にしてtxtAnswer 等にしま
　　しょう。
２．intNum1 = Rnd() * 50 の前に call Randomize で
　　乱数を初期化させましょう。
３．intNum1 = Rnd() * 50 ではなく、
　　intNum1 = int(50 * Rnd + 1) にしましょう
４．○×の採点の後にtxtAnswer = "" としてクリア
　　しましょう。
５．○×の採点の時にプログレスバーを操作しましょう

このくらいでしょうか・・・

お礼

ありがとうございます！

これで何とか進めそうです。

回答No.4

king_joe1006

＃３です。
続けて、cmdStartで答え合わせした後クリアされないから前回の答えが残ったままになる。
問題をRnd()で生成する前にRandomize関数を使っていないから一発目の問題がいつも同じ数字になる。
＃３でも言ったが回答の入力場所がない。
プログレスバーは何も変化しない。

以上、気になった点です

お礼

すいませんでした；

自分もまだVBのことがよく分からないので詳しくはいえません;

回答No.3

king_joe1006

どこに答えを入力するんでしょうか？
また、初回起動だとlblNum1とlblNum2に数値が入らないのでは？

補足

２回目から入るようになってるんですが；
intNum1 = Rnd() * 50ってところです。

回答No.2

noname#22222

表示が変更されないままに、ただただ、３０秒が過ぎて終了するのでは・・・。
そこで、何かが足りないと言われているのでは？

補足

表示はスクロールバーの位置をずらせば数字をかえられます。

回答No.1

king_joe1006

それぞれのラベルの名前、コマンドボタンの名前が標記されていないので解読が非常に面倒臭いです。
どのラベルがlblAnswer？どのラベルがlblResult？などなど・・・。
ざっと見た所、３０秒以内に出来るだけ足算に答えて行くというプログラムのようですが、よろしいでしょうか？
私の見た限りハイスコアを計算している所が見当たりませんが？大体HScrollbarとはプログレスバーの事なんでしょうか？

補足

>HScrollbarとはプログレスバーの事なんでしょうか？
そうです。
後、言い忘れていた所を書きますね。

000+000=000
最初の000はlblNum1
+がlblPlus
次の000はlblNum2
=がlblEqual
次の000はlblAnswerです。

「残り３０秒」のところがlblTime
その隣のラベルはlblResult
Hscrollbarの方はhsbAnswer
コマンドボタンがcmdStart
タイマーがtmrSecond
です。