來問個VB題希望高手來幫忙

時間 2022-06-21 23:10:07

1樓:匿名使用者

9999種```

這個買全套彩票一樣``

2樓:【都市精靈

【看我的】

private sub command1_click()

dim ten as integer, five as integer, two as integer, one as integer

dim n as integer

dim len2 as integer, len5 as integer

n = 0

for ten = 1 to 10

for five = 1 to 20

for two = 1 to 50

one = 50 - ten - five - two

if ten * 10 + five * 5 + two * 2 + one * 1 = 100 and one >= 0 then

n = n + 1

len2 = len(trim(str(two))): len5 = len(trim(str(five)))

if len2 = 2 then len2 = 0

if len5 = 2 then len5 = 0

print "十元 - " & ten & space(5) & "五元 - " & five & space(len5 + 3) & "兩元 - " & two & space(len2 + 3) & "一元 - " & one

end if

next two

next five

next ten

msgbox "共有 " & n & " 種換法。"

end sub

private sub form_load()

form1.autoredraw = true

end sub

3樓:匿名使用者

private sub command1_click()dim x, y, z, k, n as integerfor x = 1 to 50

for y = 1 to 50

k = 8 * x + 3 * y

z = 50 - x - y - k

if x > 0 and y > 0 and z > 0 and k > 0 then

print "十元有" & x & "張" & " " & "五元有" & y & "張" & " " & "二元有" & z & "張" & " " & "一元有" & k & "張"

n = n + 1

end if

next y

next x

msgbox "有" & n & "種方法"

end sub

private sub form_load()form1.autoredraw = trueend sub

4樓:匿名使用者

一共26種

form加一個按鈕,複製**過去執行

private sub command1_click()dim ten as integer, five as integer, two as integer, one as integer

dim n as integer

n = 0

for ten = 1 to 10

for five = 1 to 20

for two = 1 to 50

one = 50 - ten - five - twoif ten * 10 + five * 5 + two * 2 + one * 1 = 100 then

n = n + 1

print "十塊-" & ten & _space(5) & "五塊-" & five & _space(5) & "兩塊-" & two & _space(5) & "一塊-" & oneend if

next two

next five

next ten

msgbox "共有 " & n & "種換法."

end sub

結果十塊-1 五塊-1 兩塊-37 一塊-11

十塊-1 五塊-2 兩塊-33 一塊-14十塊-1 五塊-3 兩塊-29 一塊-17十塊-1 五塊-4 兩塊-25 一塊-20十塊-1 五塊-5 兩塊-21 一塊-23十塊-1 五塊-6 兩塊-17 一塊-26十塊-1 五塊-7 兩塊-13 一塊-29十塊-1 五塊-8 兩塊-9 一塊-32十塊-1 五塊-9 兩塊-5 一塊-35十塊-1 五塊-10 兩塊-1 一塊-38十塊-2 五塊-1 兩塊-28 一塊-19十塊-2 五塊-2 兩塊-24 一塊-22十塊-2 五塊-3 兩塊-20 一塊-25十塊-2 五塊-4 兩塊-16 一塊-28十塊-2 五塊-5 兩塊-12 一塊-31十塊-2 五塊-6 兩塊-8 一塊-34十塊-2 五塊-7 兩塊-4 一塊-37十塊-3 五塊-1 兩塊-19 一塊-27十塊-3 五塊-2 兩塊-15 一塊-30十塊-3 五塊-3 兩塊-11 一塊-33十塊-3 五塊-4 兩塊-7 一塊-36十塊-3 五塊-5 兩塊-3 一塊-39十塊-4 五塊-1 兩塊-10 一塊-35十塊-4 五塊-2 兩塊-6 一塊-38十塊-4 五塊-3 兩塊-2 一塊-41十塊-5 五塊-1 兩塊-1 一塊-4326

幾道數學題,高手來幫忙,幾道數學題,高手來幫忙 小六

1 12分之1 2 x 要說平均分 3 張 李 王 25 30 9 320 25 30 9 25 9 80張比李是5 6,王佔李的10分之3轉化成王比李是3比10,李是中間量,取它最小公倍數轉化成30份,這樣第一個比張要擴大5倍,變成25,王擴大3倍變成9,就轉化成一個比了 用320一共的量除以一共...

一些vb的選擇題,高手幫忙做下,謝謝

d a d b d b d b b a b d d d b 樓上兩位都挺強,但是,有幾點要說明一下 gushenkai的解釋稍微有點問題 1.物件是類的例項,例如 按鈕 是一個類,放在窗體上的一個具體的按鈕是一個物件。學生 是一個類,張三同學 是一個物件,類是抽象的,物件是具體的。7.因為語言的編譯...

幾道數學題,數學高手來幫幫忙

1 設分子為x,分母為y,得 x 1 y 2 3,x 2 y x 5,y 6 分數為5 6 2 6 20的時候分針在4的位置上,而時針在6的偏左邊,4與6的角度為60 分針從0走到4的位置,走了1 3圈,6與7的角度為30 30 1 3 10 所以時針與分針的角度是60 10 70 3 原式 200...