1樓：匿名使用者
第一題：
private sub ***mand1_click()
dim s as integer, i as integer
dim a1 as integer, a2 as integer, a3 as integer, a4 as integer, a5 as integer
for i = 1 to 12
replay:
s = inputbox("輸入0-100之間的整數")
if s < 0 or s > 100 then
msgbox "輸入0-100之間的整數", vbcritical, "錯誤"
goto replay
end if
if s > 90 and s <= 100 then
a5 = a5 + 1
elseif s > 80 and s < 90 then
a4 = a4 + 1
elseif s > 70 and s < 80 then
a3 = a3 + 1
elseif s > 60 and s < 70 then
a2 = a2 + 1
elseif s < 60 then
a1 = a1 + 1
end if
next
msgbox "0 -60的數有 " & a1 & " 個" & chr(10) & chr(13) _
& "60-70的數有 " & a2 & " 個" & chr(10) & chr(13) _
& "70-80的數有 " & a3 & " 個" & chr(10) & chr(13) _
& "80-90的數有 " & a4 & " 個" & chr(10) & chr(13) _
& "90-100的數有 " & a5 & " 個"
end sub
第二題private sub ***mand2_click()
dim a as integer, b as integer
a = inputbox("請輸入一個整數", "輸入第一個整數")
b = inputbox("請輸入二個整數", "輸入第二個整數")
if a + b > 100 then
msgbox "兩數之和大於100，現輸出後面兩位數：" & right(str(a + b), 2)
else
msgbox "兩數之和小於100，現輸兩數之和：" & a + b
end if
end sub
以上測試通過
麻煩各位哥哥姐姐們幫幫我這道題怎麼做
1.8 360 1.6 405條 1.8 360 648。原來做360套就需要648米的布料，現在用這些布料648 1.6 405。改進工藝後即能做405套了 一米的布料做初生兒的我做了三套 所以這製衣廠真浪費 1.8 360 1.6 麻煩各位老師大哥哥姐姐們，幫我解答一下這道題。根，莖，葉，花，果...
理工哥哥 姐姐 老師 前輩們來幫幫我關於電動機的問題
不會的抄 確切的說是很不現實bai 儘管和風車的 物理模型很相似 但是du那麼小的電動機zhi 需要使內部線圈的轉速達dao到多大呢？這個速度恐怕不是能夠達到的 再一個就是 即使能加速到這個速度 那麼材料能否承受的問題 所以較不現實 會但是效率比較低 你可以試試 把兩個小電機的軸連線起來 使用電池 ...
求求你們了幫幫我吧！大哥哥大姐姐
這個高二就會學到了 1，出生後 2，從小 3，行走 4，沒有 少 c祖母劉憫臣孤弱 撫養 下一題 而劉夙 廢遠 就是最後一句 各位大哥哥大姐姐求你們幫幫我吧！煩死了啊 10 我看，她來跟那個男人不可能 源。首先是沒有自由戀愛，根本就不瞭解對方，兩人沒經過戀愛的磨合，婚後根本不可能好。還有，那個男人家...