1樓：美若之夏花
dim a as integer
dim n as integer
dim s as integer
private sub command1_click()
n = 1
randomize
a = int(rnd * 9 + 1)
text1.setfocus
end sub
private sub command2_click()
text1.text = ""
label3 = ""
text1.setfocus
n = n + 1
end sub
private sub text1_change()
s = val(text1.text)
if s < a then
label3 = "不對哦,猜的小了,已經用了" & n & "次機會了!"
end if
if s > a then
label3 = "不對哦,猜的大了,已經用了" & n & "次機會了!"
end if
if a = s and n >= 5 then
label3 = "猜中了,但閣下用了" & n & "次機會,不算好成績!"
elseif a = s and n < 5 then
label3 = "猜中了,您真了不起,您用了" & n & "次機會!"
end if
if a = s and n = 1 then
label3 = "真是太了不起了,您一次就猜中了,真是奇才!!"
end if
end sub
你的程式，改了一下這樣就對了
你編的程式中command2中的n=1不要，加了的話每次單擊就把n永遠變為1了,次數就加不上去。
text1_change中for迴圈不需要用
2樓：帳號已登出
把下三句去掉：
for n = 0 to 10
next n
n = 1
大家幫我看看我設計的班徽
一款由五個手臂環握形成一個五角形，中間印有tumu4五個字母的圖形為04政本一班班徽。這一班微意義深遠，五個手臂緊緊環握,形成一個不易動搖的五角形圖形，代表土木工程 4班一班全體同學的手也像這五個手臂一樣緊緊的握在一起，共同凝結在這個班級裡,為她出力，為她爭光。中間的五個字母分別代表 我們是政一 的...
大家幫我看看看我的電腦能玩什麼遊戲？
戰地系列，使命召喚，俠盜飛車系列。能支援。你電腦的配置很好，許多fps遊戲都能完美執行。可以推薦英雄聯盟 戰地3 使命召喚系列 是誰讓電腦可以玩遊戲 諮詢記錄 於2021 11 06 您好很高興為你解答，電腦遊戲的出現與1960年代電子計算機進入美國大學校園有密切的聯絡。當時的環境培養出了一批程式設...
幫我看看我的上升星座 10，幫我看看我的上升星座
幫我看看我的上升星座 上升位於白羊座 活力 冒險 熱情。優點 活潑，果敢，慷慨。缺點 衝動，缺乏耐性，不善理財。上升代表 靈魂，外在行為，生活態度。基本特質 上升星落在牡羊座的人非常活躍且爽快，行動敏捷，給他人的印象是非常熱情，生氣蓬勃。你有積極樂觀的生活態度，縱使遇到挫折或內心有點不安，也會突破難...