1樓:匿名使用者
真的很急哦,樓下的搭把手
2樓:**殺手
求vb高手解答三道題目,急求!!!!!拜託各位大神!**等!!!!
3樓: ゙愛她又如何
奇數:private sub ***mand1_click()for i = 1 to 99 step 2print i
next i
end sub
fibonacci數列:
private sub ***mand1_click()dim a as integer, b as integer, c as integer
a = 1: b = 1
print a; b;
for i = 3 to 20
c = a + b
print c;
a = b: b = c
next i
end sub
4*5矩陣:
option base 1
private sub ***mand1_click()dim a(4, 5) as integerfor i = 1 to 4
for j = 1 to 5
a(i, j) = int(rnd * 100 + 1)print a(i, j);
next j
next i
min = 101
for i = 1 to 4
for j = 1 to 5
if a(i, j) < min then min = a(i, j)
next j
next i
for i = 1 to 4
for j = 1 to 5
if a(i, j) = min then print "最小值:"; a(i, j), "第"; i; "行"; "第"; j; "列"
next j
next i
end sub
4樓:匿名使用者
求奇數private sub ***and1_click ()i=0do
i=i+1
if imod2 <>2 then
print i
end if
end sub
fibonacci數列
private sub ***mand1_click ()dim f(1 to 20)
f(1)=1
f(2)=1
i=2do
i=i+1
f(i)=f(i-1)+f(i-2)
loop until i=20
i=0do
i=i+1
print f(i)
loop until i=20
end sub
矩陣dim a(1 to 4,1 to 5)i=0j=0
doi=i+1
doj=j+1
a(i,j)=int(100*rnd+1)loop until j=5
loop until i=4
不好意思啊,矩陣忘記怎麼整了,希望對您有所幫助
5樓:紅山人
VB程式設計急求，急求VB程式設計程式碼！！！！
private sub command1 click 計算應發工資，text4 text4 val text1 val text2 val text3 計算個人所得稅，text5 if val text4 1000 thentext5 0 elseif val text4 1000 and val ...
急 求高手解幾道化學題，急，請高手幫忙做幾道化學題，謝謝了，急要啊
1若是強電解質溶於水，則大部分是以離子 形式存在 若是弱電解質溶於水則大部分是以分子形式存在 若是非電解質溶於非極性溶劑，則以分子形式存在。因為溶質在溶劑中分散的比較均一，與反應物接觸的面積大於固體 只有表面接觸反應物 所以比較快。泡沫滅火器中用的是碳酸氫鈉溶液而不是固體。2水 蛋白質氨基酸 脂質 ...
急求VB程式設計
呵呵，估計只有這裡題目會是 1000萬 因為這樣就溢位了，並且老師上課是按1000演示的，我這裡也是1000記錄的。老師筆記 是按1000來的 private sub command1 click dim n,pingfang,diwei as doublefor k 3 to 1000 pingf...