- 99 名前：84 [2006/08/21(月) 14:09:52 ]
- 以前に>84で質問を致しまして、このスレで教えていただいた方法を試してはみたのですが、なかなかうまくいかないので、どなたか助けていただけないでしょうか…？
以下に、参照用としてコードを記入しておきます。
Timer1_Tick
Label2.Text = Int((52 * Rnd()) + 1)
Label3.Text = Int((52 * Rnd()) + 1)
Button1.Click
Timer1.Enabled = True
Button2_Click
Timer1.Enabled = False
a = Val(Label2.Text)
b = Val(Label3.Text)
Do
Label2.Text = Int((52 * Rnd()) + 1)
Label3.Text = Int((52 * Rnd()) + 1)
Loop Until a <> b
