vb 簡單計算
1樓：網友
dim num1%, num2%, result!, nok%, nerror%
private sub command2_click()label1 = 您一共答了十道題，對了" &val(nok) &道題，錯了" &val(nerror) &道題"
trueend sub
private sub command3_click()endend sub
private sub command4_click()= true
label1 =
nok = 0
nerror = 0
end sub
private sub form_load()= false
falsedim nop%, op as string * 1randomize
num1 = int(90 * rnd + 10)num2 = int(90 * rnd + 10)nop = int(4 * rnd + 1)select case nop
case 1
op = result = num1 + num2case 2
op = result = num1 - num2case 3
op = result = num1 * num2case 4
op = result = format(num1 / num2, "")
end select
num1; op; num2; "
end sub
private sub command1_click()if val(text1) =result thenlabel1 = 恭喜你，答對了！"
nok = nok + 1
elselabel1 = 答錯了，請努力！"
nerror = nerror + 1
end if
text1 =
form_load
if nok + nerror > 9 thenmsgbox "只能答十道題", 提示"
true 檢視結果"
falseend if
end sub
2樓：網友
vb計算1+1
private sub command1_click()=1+1 '加法。
1-1 '減法。
1*1 '乘法。
1/1 '除法。
end sub
vb 簡單演算法題
3樓：學古箏
這是乙個遞迴函式，分別解釋。
x\100結果是x除以100取整，x mod 100結果是x除以100取餘數，x mod 10結果是x除以10取餘數，第一次執行pt
x=15768,x mod 100不計算。
x \ 100=157,注意這裡開始遞迴，又一次需要計算pt，所以再次進入pt ，可以這樣理解x mod 10已經計算得到8就等這次pt的結果了並沒有執行下一步print pt
第二次執行pt
x=157,x mod 100不計算。
x \ 100=1,注意這裡又開始遞迴，又一次需要計算pt，所以再次進入pt ，可以這樣理解x mod 10已經計算得到7就等這次pt的結果了並沒有執行下一步print pt
第三次執行pt
x=1,這次執行的是。
pt = x mod 100
結果是pt=1
返回到第二次。
pt=1*10+7=17
列印17這是遞迴沒結束pt=17還要。
返回到第一次。
pt=17*10+8=178
列印178遞迴結束返回（pt=178）
你的上一步還有乙個。
列印178（所以這裡還有一次178）
圖中vb的具體計算過程
4樓：網友
2+5^2*3=2+5*5*3=2+25*3=77 sqr函式是平方根 求得sqr(77)約等於9
9 mod 4 求餘數等於1
vb日期計算，vb時間的加減
首先得到今天的日期 year date month date day date 然後對day date 的值 n 然後根據月份 month date 判斷加後的日期是否超過30 或31 之後得到新的日期值，然後用famat函式輸出新的日期即可。n 10 text1 dateadd d n,date ...
vb中計算下列分段函式的值，VB中，計算下列分段函式的值
input x x if x 0 and x 100 theny 0.9 x elseif x 100 and x 300 theny 0.85 x elseif x 300 then y 0.82 x end if print y yend vb編寫程式，計算分段函式 在窗體上放一個命令按鈕，將 ...
VB計算BMI指數，如何計算BMI指數？
你的公式不對a b 2 我幫你改成a b 看起來差不多，實際公式是a 是標準身材。private sub command1 click dim a as single,b as single,c as single a val text1 b val text2 c round a b c if t...