1樓：匿名使用者
label1 = "布" and val(text1) = 3
這個情況你沒考慮到。所以出現這情況就會彈出 1 2 3
還有你下面的** 兩個都是平局？
elseif label1 = "石頭" and val(text1) = 2 then
x = msgbox("平局", vbretrycancel, "結果")
text1 = ""
elseif label1 = "布" and val(text1) = 2 then
x = msgbox("平局", vbretrycancel, "結果")
text1 = ""
2樓：網海1書生
elseif label1 = "布" and val(text1) = 2 then
改為elseif label1 = "布" and val(text1) = 3 then
另外，你這個程式完全可以簡化的：
private sub text1_change()
m = val(text1)
if m > 0 and m < 4 then
n = int(rnd * 3 + 1)
if n = 1 then
label1 = "剪刀"
elseif n = 2 then
label1 = "石頭"
elseif n = 3 then
label1 = "布"
end if
if n = m then
msgbox "平局", , "結果"
elseif n - m = -1 or n - m = 2 then
msgbox "你輸了", , "結果"
elseif n - m = 1 or n - m = -2 then
msgbox "你贏了", , "結果"
end if
text1 = ""
elseif text1 <> "" then
msgbox "請輸入1,2,3"
text1 = ""
label1 = ""
end if
end sub
3樓：小先
if text1 <> "" then n = int(rnd * 3 + 1)
你這句的end if 呢，我用你這個根本沒法執行。。。。
然後我加上end if後就可以成功執行了，你試試加上end if執行看看
VB選擇題，求大佬幫忙看一下qwq
答案是c str函式在把整數轉為字串時，加了一個前導空格，暗示是正數 祝好運，望採納。請問，我好像覺得這道題有問題，請大佬們幫助一下，qwq 第5題 a 0，把不等式兩邊同成a，不等號變方向，正好如題所述，有什麼問題嗎 這道題的意思是a在什麼範圍內，該不等式變形後會改變符號 大於變小於 按照常理，不...
幫忙看一下這是怎麼,幫忙看一下這是怎麼了
可以嘗試噴施蕓薹素，碧護，加氨基酸，腐殖酸，海藻酸葉面肥或者磷酸二氫鉀交替噴霧緩解，提高植株抗逆性促進生根壯苗，建議5 7天一次，連噴2 3次。有條件最好是中耕劃鋤。以上建議僅供參考，希望對您有用。幫忙看一下這是怎麼了 韭菜疫病。用2500倍52.5 惡唑菌酮.霜 脲氰水分散粒劑，或600倍58 甲...
各位幫忙看一下這是怎麼回事，幫忙看一下這是怎麼回事？
這是grub啟動了來，原因是找 自不到系統引導檔案了。bai 試一下這個命令 du grub rootnoverify hd0,0 grub chainloader 1 grub boot 這樣就可以進zhi 入到windows裡面，然後在daodos 下 輸入 fdisk mbr即可 命令詳解 在...