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