1樓：匿名使用者
速採納，答題進行中！！！
private sub command1_click()'第一題: 2^1+......(2n)^(2n-1)dim i as long, n as integerdo while true
n = inputbox("請輸入一個整數，數值請小於5：")if isnumeric(n) then exit doloop
dim sum as long
for i = 1 to n
sum = sum + (2 * i) ^ (2 * i - 1)next
print sum
end sub
private sub command2_click()'第二題 ：[20,80]..能被5整除的數的和dim i as long
dim sum as long
for i = 20 to 80
if i mod 5 = 0 then sum = sum + i '能被5整除的數的和
'if i mod 3 = 0 then sum = sum + i '能被3整除的數的和
next
print sum
end sub
private sub command3_click()'第三題：求n個隨機的[20,100]的裡面的數的偶數和dim i as long, n as integer, m as integer
do while true
n = inputbox("請輸入一個整數，數值請小於5：")if isnumeric(n) then exit doloop
randomize
dim sum as long
for i = 1 to n
m = int(rnd * 81 + 20)if m mod 2 = 0 then
print m;
sum = sum + m
end if
next
print sum
end sub
請在vb窗體中加入3個command1,2,3按鈕進行測試！
完成！！
2樓：巨星李小龍
for i=1 to n
sum=sum+(2n)^(2n-1)
next
print sum
for i=20 to 80
if i mod 3=0 or i mod 5=0 thensum=sum+i
endif
next
print sum
for i=1 to n
randomize
s=int(rnd*81+20)
if s mod 2=0 then
sum=sum+s
endif
next
print sum
求高手解決vb程式試題，vb程式設計選擇題 求高手解答 ！
選擇題 1.c 2.a 3.a 填空題 1，連字元 2，rgb 255,0,0 3,34,3 分析題 b改錯題 1，2.dim n as integer n 120 if n mod 2 0 then print 它是偶數 endif 選擇題 1，c2，c 3，a4，d 5，a6，a 7，a8，b ...
求VB試題答案 1 ，求VB考試答案
試試，不知道能答對幾道題 呵呵 2c4a 5b6d 7c8a 9a11d 12d13c 14b17b 18c19a 20a22a 24d25a 求vb 一1 對 2 錯3 兩者bai都是合法的，但du含義不zhi同 4 dao錯 5 是6 對 7 錯8 錯專 9 錯10 錯 二 屬 1 c fram...
VB測試題，友情測試題
1 vb6.0中屬於定製控制元件的檔案是 a a ocx b frm c vbp d exe 2 如果編寫的過程要被多個窗體及其物件呼叫，應將這些過程放在 b 模組中？a 窗體模組 b 標準模組 c 工程 d 類模組 3 下面的表示式中，不正確的是 d a const m o27 b dim a x...