私有子命令1_Click(索引為整數)
如果索引= 0，則‘隨機數’按鈕控制
my value = int((100 * rnd)+1)' rnd()函數生成隨機數。
我。Text1(0)。' Text = MyValue '將生成的隨機數存儲在文本框1中，然後隱藏。
我。Text1(0)。可見=假
Me.command1 (0)。“啟用=假”按鈕不可用。
Me.command 1 (1)。' Enabled = true '我猜按鈕可以使用。
我。Text1(1)。文本= " "
表單1。標題= " "
其他
我猜是按鈕控制
如果是數值(me.text1 (1))。text)不要輸入數字或退出。
對於j = I到I
如果CInt(我。Text1(0)。text)>；CInt(我。Text1(1)。文本)然後
我。Label1(2)。Caption = "太小了！"
如果…就會結束
如果CInt(我。Text1(0)。正文)& ltCInt(我。Text1(1)。文本)然後
我。Label1(2)。Caption = "太大了！"
表單1。caption = " no . " &；我& amp《時代》
如果…就會結束
如果CInt(我。Text1(0)。Text) = CInt(我。Text1(1)。文本)然後
我。Label1(2)。Caption = "恭喜妳猜對了！"
表單1。caption = " Used " &；我& amp“第二次機會”
我。Text1(0)。‘visible = True’妳猜對了，電腦顯示的數字是正確的。
Me.command1 (0)。Enabled = true '恢復使用。
Me.command 1 (1)。“Enabled = false”恢復不可用。
我。命令1(0)。SetFocus
I = 5
為...退出
如果…就會結束
如果I = 1或者I & lt那麽1
表單1。Caption = "0次機會！"
我。Label1(2)。Caption = "恭喜浪費5次機會！"
我。Text1(0)。‘visible = True’妳猜對了，電腦顯示的數字是正確的。
Me.command1 (0)。Enabled = true '恢復使用。
Me.command 1 (1)。“Enabled = false”恢復不可用。
我。Text1(1)。文本= " "
我。命令1(0)。SetFocus
I = 5
為...退出
如果…就會結束
表單1。caption = " And " &；1 & amp；“第二次機會”
I = I - 1
為...退出
下壹個j
如果…就會結束
如果…就會結束
末端接頭
私有子窗體_Load()
Me.command 1 (1)。不能使用“Enabled = false”。
我。Text1(0)。不能編輯“Locked = True”。
我。Text1(1)。文本= " "
我。Text1(0)。文本= " "
I = 5
末端接頭