1樓：匿名使用者
'如圖,command1的caption設為 "計算"
'新增一個combobox 什麼都不設定
option explicit
private sub command1_click()
'如果一定要100以內,取消下一行的註釋
'if val(text1.text) > 100 or val(text2.text) > 100 then exit sub
select case combo1.listindex
case 0
text3.text = cstr(val(text1.text) + val(text2.text))
case 1
text3.text = cstr(val(text1.text) + val(text2.text))
case 2
text3.text = cstr(val(text1.text) + val(text2.text))
case 3
if val(text2.text) = 0 then
msgbox "除數不能為零,oh no!"
exit sub
end if
text3.text = cstr(val(text1.text) + val(text2.text))
end select
end sub
private sub form_load()
text1.text = ""
text2.text = ""
text3.text = ""
combo1.additem "加上" '這裡寫"+"也行,不要點到順序
combo1.additem "減去"
combo1.additem "乘以"
combo1.additem "除以"
combo1.listindex = 0
end sub
'這新手真新
2樓：
dim a,b,c as integer a=inputbox b=inputbox a b=c print c
3樓：匿名使用者
這個應該很簡單那吧，就是按鍵和控制元件麻煩點！演算法還是比較簡單吧
vb：設計一個100以內加減法運算的計算程式
4樓：匿名使用者
private sub command1_click()text1 = int(rnd() * 99 + 1)text2 = int(rnd() * 99 + 1)text3 = ""
end sub
private sub command2_click()if val(text3) = val(text1) + val(text2) then
label1.caption = "恭喜你回答正確。"
else
label1.caption = "x 正確答案為：" & val(text1) + val(text2)end if
end sub 『***************加法運版算，減法類似權
VB求100以內素數的和，用 vb 做 100以內質數求和 的程式
我是vb初學者，難道沒考慮到什麼嗎，為什麼我想的 就這麼點呢private sub command1 click dim i as integer dim j as integer dim s as integer dim sushu as boolean s 0 for j 2 to 100 su...
用VB做簡單的計算器，該怎麼做，用VB做一個簡單的計算器，該怎麼做？
du瓶邪 option explicit dim op1,op2 前面輸入的運算元 dim decimalflag as integer 小數點仍然存在嗎？dim numops as integer 運算元個數 dim lastinput 指示上一次按鍵事件的型別 dim opflag 指示未完成的...
怎麼用vb設計隨機產生100到200之間的數求出
刺友互 1 首先需要啟動vb6.0，新建一個標準exe工程。2 開啟vb6.0之後，在窗體上繪製一個命令按鈕。3 接下來需要雙擊命令按鈕進入 視窗。4 接下來開始編輯按鈕的單擊事件。5 最後就可以按f5執行測試。求出最大值與最小值。 指尖遊戲 dim a 9 as integer 定義一個整數變數陣...