1樓：guoxin愛記錄
private sub command1_click()
for i = 0 to 10 '三重迴圈計算符合條件的兌換方式
for j = 0 to 25
for k = 0 to 50
if 5 * i + 2 * j + k = 50 then
s = s + 1 '符合條件，則s加1
list1.additem "5元" & i & "張" & " || " & "2元" & j & "張" & " || " & "1元" & k & "張"
if i * j * k <> 0 then th = th + 1 '判斷三種都存在
if (i = 0 and j * k <> 0) or (j = 0 and i * k <> 0) or (k = 0 and i * j <> 0) then tw = tw + 1 '判斷缺一種
if (i <> 0 and j + k = 0) or (j <> 0 and i + k = 0) or (k <> 0 and i + j = 0) then one = one + 1 '判斷缺兩種
end if
next k
next j
next i
msgbox "共" & s & "種兌換方式" & vbcrlf & "三種都有：" & th & "種" & vbcrlf & "缺一種有：" & tw & "種" & vbcrlf & "缺兩種有：
" & one & "種"
end sub
答案是總共：146
三種都有：106
缺一種：37
缺兩種：3
2樓：匿名使用者
for 迴圈
for i= 0 to 50
for j=0 to 25
for k=0 to 10
if i+j*2+k*5=50 then print i;j;knext
next
next
3樓：
private sub command1_click()dim i as integer, j as integer, k as integer
for i = 0 to 10
for j = 0 to 25
if i * 5 + j * 2 <= 50 thendebug.print "5元："; i; "張2元：
"; j; "張，1元："; 50 - i * 5 - j * 2; "張"
k = k + 1
end if
next j
next i
msgbox "共有：" & k & "種"
end sub
vb的題目，關於大小寫轉換的，大蝦幫幫忙
我淚我流 建立兩個文字框 private sub form load text1.text text2.text end sub private sub text1 keypress keyascii as integer dim x as string 1 x chr keyascii selec...
各位大蝦幫忙取個名字，各位大蝦幫忙取個名字
夜雪舞風 此命五行金旺缺火 日主天干為金，生於秋季 必須有水助，但忌木太多。繁體 拼音 筆劃 五行 吉凶 楊 楊 yang 13 木 吉 雯 雯 wen 12 水 吉 丹 丹 dan 4 火 吉 天格 14 火 人格 25 土 地格 16 土 外格 5 土 總格 29 水 天格14的解析 破兆 家庭...
跪求大俠幫忙寫vb的程式。謝謝了。題目如下。急在
況知慧 private sub command1 click static a as boolean if a false then label1.left label1.left 50else label1.left label1.left 50end if if label1.left labe...