VB作業跪求答案

2021-03-07 15:41:56 字數 1007 閱讀 1079

1樓:vb程式設計

private sub ***mand1_click()dim js as integer

js = 0

for i = 11 to 55

for j = 11 to 55

for k = 11 to 20

if i + j * 2 + k * 3 = 100 thenjs = js + 1

'print "一分硬幣"; i; "枚,二分硬幣"; j; "枚,五分硬幣"; k; "枚"

end if

next k

next j

next i

print "共有"; js; "種方案"

end sub

private sub ***mand2_click()dim js as integer

js = 5

doif js mod 4 = 3 thenprint js

exit do

end if

js = js + 5

loop

end sub

private sub ***mand3_click()dim js as integer

js = 0

for a = 1 to 9

for b = 0 to 9

for c = 0 to 9

for d = 0 to 9

if 1000 * a + 100 * b + 10 * c + d = (10 * a + b + 10 * c + d) ^ 2 then

print 1000 * a + 100 * b + 10 * c + d

js = js + 1

end if

next d

next c

next b

next a

print "共有這樣的數的個數:"; jsend sub

2樓:吹熱風的扇

好難的樣子,。。你是大一

vb程式設計教程答案,vb程式設計教程答案

option explicit private sub command1 click dim a as integer dim i,j,n redim a 9,9 for i 1 to 8 print tab 25 i 2 for j 1 to i a i,1 1 a i,i 1 a i 1,j 1...

計算機網路基礎作業,跪求答案

因為此2個子網的裝置數量都不超過60臺,2 6 64 60,滿足要求,又因為c類網段的掩碼是255.255.255.0 正常情況下該網段需要253臺主機 包不包含全0和全1 所以,需要vl 劃分一下,即11111111.11111111.11111111.00111111 即掩碼為255.255.2...

跪求優課聯盟大學計算機作業答案

計算機 puter 俗稱電腦,是現代一種用於高速計算的電子計算機器,可以進行數值計算,又可以進行邏輯計算,還具有儲存記憶功能。是能夠按照程式執行,自動 高速處理海量資料的現代化智慧電子裝置。由硬體系統和軟體系統所組成,沒有安裝任何軟體的計算機稱為裸機。可分為超級計算機 工業控制計算機 網路計算機 個...