1樓:
a%()陣列長度是多少,需要提前定義
2樓:匿名使用者
'判斷是否完數
private function b(p%) as integerdim i%, s#
for i = 1 to p - 1
if p mod i = 0 then '是因子s = s + i
end if
next
if s = p then
print "shiwanshu"
else
print "bushi"
end if
end function
3樓:匿名使用者
colsnow(i) = c
colprevsnow(i) = getpixel(hdc, x, y)
這兩句你的變數定義在**?colsnow(i)、colprevsnow(i)的陣列定義至少要大於你這裡的nsnow吧,估計問題就是出在這裡了!檢視陣列定義改大點應該就沒問題了
還有後面的vysnow(nsnow)定義也沒有,不知你是不是在其它地方有定義。反正要注意一下,說不定也會出錯!
VB求助 求Sn a aa aaa aaaaaa aaa n個a
當i不等於n的時候在s字串最後加上一個 號,當輸出最後一個字串,比如22222時候i 5,n 5,這個時候不要再s最後加上 號 如果有這句,比如a 2,n 5時候輸出是這樣的 當a 2時,n 5時,s 2 22 222 2222 22222如果沒有這句if i n then s s 那麼輸出是這樣的...
VB6程式條怎麼實現,VB6如何讓程式只執行一個程式例項
實現方法很多呀。如果自帶進度條。可以用自帶的做。太久不用vb6了。放了是否自帶了。這種做法就是設定一個總值。比如100,然後把你程式要做的工作分成若干個任務,比如10個。這樣每次一個任務執行完,更新進度條的值。10,20,30.還有更靈活的。不如利用picture box。在flash裡面做一個動畫...
vb的sub子程式怎麼用,關於vb的sub子過程的定義問題!
建立sub過程 1 定義sub過程 語句結構如下 static private public sub 過程名 引數列表 語句塊 exit sub 語句塊 endsub 引數列表指明瞭呼叫時傳送給過程的引數的型別和個數,每個引數的格式為 byval 變數名 as 資料型別 如果加上byval則表明該引...