描點資料通過過listview控制元件輸入，代碼如下：
Function simulation()
Dim h As Variant
Dim i, j As Integer
Dim x(), y() As Double
Dim a, b
Const pi = 3.1415926 '定義pi的值
ReDim x(1, 1 To ListView1.ListItems.Count), y(1, 1 To ListView1.ListItems.Count) As Double
For i = 1 To ListView1.ListItems.Count
x(1, i) = ListView1.ListItems(i).SubItems(1) ’存盤第一列值
y(1, i) = ListView1.ListItems(i).SubItems(1) * Cos(pi / 180 * ListView1.ListItems(i).SubItems(2)) ’存盤第二列值
xlabel ("distance")
ylabel ("height")
Next i
a = mabs(x)
b = mabs(y)
h = plot(a, b)
End Function
問題描述：本來是想通過listview輸入資料，共兩列資料，分別存在陣列里面，再利用MatrixVB的mabs()函式將陣列轉化為矩陣，呼叫plot()函式畫圖，現在總是報錯下邊越界，除錯看了，for回圈完后，i = ListView1.ListItems.Count，修改為：
,不報越界，圖形還是出不來，請教下問題出在哪里？
Function simulation()
Dim h As Variant
Dim i, j As Integer
Dim x(), y()
Dim a, b
Const pi = 3.1415926 '定義pi的值
ReDim x(1, 1 To ListView1.ListItems.Count), y(1, 1 To ListView1.ListItems.Count) As Double
For i = 1 To ListView1.ListItems.Count
x(1, i) = ListView1.ListItems(i).SubItems(1)
y(1, i) = ListView1.ListItems(i).SubItems(1) * Cos(pi / 180 * ListView1.ListItems(i).SubItems(2))
If j = ListView1.ListItems.Count Then
Exit Function
End If
xlabel ("distance")
ylabel ("height")
Next i
a = mabs(x)
b = mabs(y)
h = plot(a, b)
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/145068.html
標籤：控件
上一篇：關于word編程的問題請教