Private Sub guanghua1()
Dim x1!, y1!, x2%, y2!, a As Variant, j%, b%(42), i%
a = Array(86, 87, 82, 67, 61, 59, 86, 77, 76, 99, 108, 169, _
151, 243, 274, 347, 417, 547, 735, 814, 820, 1051, 1091, 1142, _
1127, 1012, 940, 810, 705, 593, 431, 346, 239, 192, 130, 95, 53, 32, 14, 11, 7)
Picture1.Cls
Picture1.DrawStyle = 0
x1 = 200: y1 = Picture1.ScaleHeight - 200
x2 = Picture1.ScaleWidth - 200: y2 = 200
Picture1.Line (x1, y1)-(x2, y1) 'x
Picture1.Line (x1, y2)-(x1, y1) 'y
For j = 1 To 42
b(j) = 129 + i
Next j
For i = 1 To 42
Picture1.PSet (b(i), a(i)), vbRed
Next i
順便在問一下 ，圖片框里給定的坐標系上打出 b(i),a(i) 繪出函式影像啊！。。。。啊啊啊 啊啊想了好久，，，
uj5u.com熱心網友回復：
a a a == =求救啊啊啊uj5u.com熱心網友回復：
For j = 1 To 42b(j) = 129 + i
Next j
其中 i 沒有賦值，始終 =0，因此， b(j) 也始終 = 129，估計問題就在這里。
uj5u.com熱心網友回復：
Option Base 1這個代碼里面有的，我少打上去了，對不起了各位大神 ，關于樓上所說的 我改了一下變成了j但是顯示
Picture1.PSet (b(i), a(i)), vbRed
下標越界
uj5u.com熱心網友回復：
啊，大神我懷疑是我寫的函式列印在坐標區間有問題，
uj5u.com熱心網友回復：
你的 a 成員只有 41 個！卻要回圈到 42！！！
下標越界第一時間檢查陣列大小啊。
uj5u.com熱心網友回復：
“多一少一”問題占程式員常犯錯誤的10%以上！避免“多一少一”問題的方法之一是將比如<10甚至<5的數代入程式片斷，掰手指頭心算驗證一下程式到底應該寫為
x、x-1、x+1中的哪個？
<、<=、==、>、>=中的哪個？
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
For j = 1 To 42
b(j) = 129 + i
Next j
For i = 1 To 42
Picture1.PSet (b(i), a(i)), vbRed
Next i
‘修改為：
For j = 0 To 41
b(j) = 129 + j
Next j
For i = 0 To 41
Picture1.PSet (b(i), a(i)), vbRed
Next i
a = Array(86, 87, 82, 67, 61, 59, 86, 77, 76, 99, 108, 169, _
151, 243, 274, 347, 417, 547, 735, 814, 820, 1051, 1091, 1142, _
1127, 1012, 940, 810, 705, 593, 431, 346, 239, 192, 130, 95, 53, 32, 14, 11, 7)
'a陣列是（0 To 41）
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/60933.html
標籤：VB基礎類
上一篇：VB中，如何在資料數值發生變化時候，相應的生成一副顏色有差別的云圖
下一篇：錯誤3001