1樓：吾桐語
完全照你圖做的：
private sub command1_click()dim a() as integer
print "1000以內的完數："
for i = 6 to 1000
s = 0
n = 0
t = ""
for j = 1 to i - 1
if i mod j = 0 then
s = s + j
n = n + 1
redim preserve a(n)
a(n) = j
end if
next j
for k = 1 to n
t = t & str(a(k))
next k
if i = s then print i & "的因子有：" & t & " 是完數"
next i
end sub
2樓：匿名使用者
private sub command1_click()dim i as integer, j as integer, s as integer, x as string
print "1000以內的完數："
for i = 1 to 1000
for j = 1 to i - 1
if i mod j = 0 then s = s + j: x = x & j & " "
next
if s = i then print i & "的因子數有："; x; "是完數"
s = 0: x = ""
next
end sub
3樓：匿名使用者
private sub form_load()dim i&, j&
dim sum&, slist$
for i = 1 to 1000
sum = 0
slist = ""
for j = 1 to i - 1
if i mod j = 0 then
sum = sum + j
slist = slist & iif(slist = "", "", vbtab) & j
end if
next
if sum = i then
debug.print i & "的因子有：" & slist & "是完數"
end if
next
end sub
vb作業 急求vb高手！！！！！！！！！！！！！1
跪求高手指點迷津！vb急急急急急！！！！！！！！！
4樓：白跡空幽
1、private sub command1_click()randomize
dim a(1 to 10)
for i = 1 to 10
a(i) = int(rnd * 10000) + 1print a(i)
next i
min = 10000
for i = 1 to 10
if a(i) < min then min = a(i)next i
print "最小值為"; min
end sub
2、private sub vscroll1_change()randomize
n = int(rnd() * 19) + 2text1.text = n
for i = 1 to n
p = 1
for j = 1 to i
p = p * j
next j
s = s + p
next i
label1.caption = s
label2.caption = "1!+2!+...+" & n & "!="
end sub
5樓：唐
(2)private sub hscroll1_change()dim sum as long
dim n as integer
sum = 1
text1.text = hscroll1.valuefor n = 1 to val(text1.text)sum = sum * n
next
label1.caption = sum
end sub
(1)private sub command1_click()dim a(1 to 10) as integerrandomize
for i = 1 to 10
a(i) = int(rnd * 100)print a(i);
next
min = a(1)
for i = 2 to 10
if min > a(i) then
min = a(i)
end if
next
10道vb題 急求答案！！！謝謝高手了
6樓：匿名使用者
bcddaabdbc
樓上第一題b跟第六題a沒看清楚？明顯答案就是衝突的所以第六題是a
第二題是基礎基礎基礎啊 居然選a？應該是c
7樓：何宜校
badda dbdbc
(僅供參考)
【高分急求】vb考試試題！高手請進
8樓：匿名使用者
在vb中,若要重新定義一個動態陣列的元素個數,應當使用redim語句對其進行重新定義
在vb 6.0中,設 single型變數 xyz 的值為123.45,若要將其轉換成字串,應使用的型別轉換函式是.str(xyz)
在vb中,若要將字串"12345"轉換成數字值應使用的型別轉換函式是val("12345")
在vb中,若要重新定義一個動態陣列的元素個數,應當使用redim語句對其進行重新定義
9樓：匿名使用者
1 redim()
2 str(xyz)
3 val("123.45")
4 redim()
10樓：翰林院裡掃地的
redim
str()或者cstr()
val()
redim
vb題 急求答案 高手幫一下！！！！
11樓：匿名使用者
1:a2:c
3:c4:c
5:c6:d
7:d8:c
9:b10:c
12樓：匿名使用者
accccddcbc
尋求暗黑高手指點迷津,有幾道題目，真心求高手指點迷津
不管修什來麼系的法師，力量和敏捷 到可自以穿自己喜bai歡的裝備就行，剩du下的根據你的練法分zhi配給血和魔，基dao本還是以加在血上比較多 法師主流的玩法有全冰暴風雪，全火隕石火球，混合 冰到暴風雪火到火球 全電 充能彈 閃電，nova 雷雲風暴 不管什麼加法，都有一個主打的技能，加技能點都以提...
高分求營銷高手指點迷津，高分跪求營銷高手 推薦幾本市場實戰營銷案例書籍？
其實產品賣不賣得好只有三個原因 1 2質量3合作伙伴 首先說 如果你的產品 比別人高但是不是高很多那你要開啟市場是不難的.首先終端的售價不可以比市場銷售比較好的牌子高15 高出15 銷售的量肯定上不去，給經銷商的 要低自己少轉點讓利 經銷商 經銷商有甜頭就會主動給你賣產品 現在說質量 質量包括 產品...
最近好迷茫，希望嵌入式高手指點迷津
不要迷茫了,人在兩種情況下學東西最快 1 自己感興趣的東西。2 在有壓力的情況下。基於你的情況，你可能對嵌入式也不算很有興趣。所以我認為你首先還是把畢業證先混到再說吧。然後到深圳這邊找個嵌入式開發的公司，在研發部先做個小弟，慢慢再來吧。跟著這些人搞正真的有市場價值的專案可比你弄那個學習板強太多了。放...