求助幫忙改VB程式總說我下標越界

2022-05-06 03:46:43 字數 604 閱讀 9883

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則表明該引...