1樓：終生美麗飄零鳥
1全部private i as integer
private sub command1_click(index as integer)
if index = 0 then ' 隨機數按鈕控制
myvalue = int((100 * rnd) + 1) 'rnd()函式生成隨機數
me.text1(0).text = myvalue '把生成的隨機數存放於文字框1 ，之後隱藏
me.text1(0).visible = false
me.command1(0).enabled = false '按鈕不可用
me.command1(1).enabled = true '我猜按鈕可使用
me.text1(1).text = ""
form1.caption = ""
else
'我猜按扭控制
if isnumeric(me.text1(1).text) then '輸入的不是數字就退出
for j = i to i
if cint(me.text1(0).text) > cint(me.text1(1).text) then
me.label1(2).caption = "太小！"
end if
if cint(me.text1(0).text) < cint(me.text1(1).text) then
me.label1(2).caption = "太大！"
form1.caption = "第" & i & "次"
end if
if cint(me.text1(0).text) = cint(me.text1(1).text) then
me.label1(2).caption = "恭喜你猜對了！"
form1.caption = "使用了" & i & "次機會"
me.text1(0).visible = true '猜對了顯示電腦出的數
me.command1(0).enabled = true '恢復使用
me.command1(1).enabled = false '恢復不可用
me.command1(0).setfocus
i = 5
exit for
end if
if i = 1 or i < 1 then
form1.caption = "0次機會！"
me.label1(2).caption = "恭喜浪費了5次機會！"
me.text1(0).visible = true '猜對了顯示電腦出的數
me.command1(0).enabled = true '恢復使用
me.command1(1).enabled = false '恢復不可用
me.text1(1).text = ""
me.command1(0).setfocus
i = 5
exit for
end if
form1.caption = "還有" & i - 1 & "次機會"
i = i - 1
'exit for
next j
end if
end if
end sub
private sub form_load()
me.command1(1).enabled = false '不能使用
me.text1(0).locked = true '不可編輯
me.text1(1).text = ""
me.text1(0).text = ""
i = 5
end sub
下面的病句怎麼修改，下面的病句怎麼修改？快快。。。
1.報紙上刊登了我們老師許多的文章。2.李玉剛是吉林人。李玉剛的家鄉是吉林。3.我加入了學校的課餘讀書會。4.在老師的幫助下，我終於克服了困難。5.我們要努力提高寫作水平。6.只要我們的學習有點進步，老師和同學就會及時地鼓勵我。7.他是死難者中倖免逃過的乙個。8.今天天氣不好，下了一場大雨 9.近兩...
用修改符號修改下面的句子學習了《在牛肚子裡旅行》這篇課文,受到了很大的啟發
原句 學習了 在牛肚子裡旅行 這篇課文，受到了很大的啟發。分析 此句缺主語，結構殘缺。應當說明 誰 受到了很大啟發。修改 學習了 在牛肚子裡旅行 這篇課文，我受到了很大的啟發。用符號修改 用增補號。增補號是增補字 詞 句的符號。根據增補的字數的多少，其形式有所不同。見下圖 啟發 要學習青頭足智多謀，...
用修改符號修改下面的病句小學生從小就要愛讀書的習慣。我不
1 小學生從小就要 有 愛讀書的習慣！2 我忍不住不禁笑出聲來！3 我對語文這門課很感興趣！愛可以在一秒鐘產生，情卻需要一生來完成。愛 要了解，也要開解 要道歉，也要道謝 要認錯，也要改錯 要體貼也要體諒，是接受，而不是忍受，是寬容，而不是縱容 是支援，而不是支配 是慰問而不是質問 是傾訴，而不是控...