VB程序查询数表，怎么改正，谢谢

显示全部楼层 · 2013-4-8 12:03:08

这段代码乱七八糟！简直没有任何逻辑性可言！！强烈建议你先学学基本功！！！ Dim x(0 To 9) As DoubleDim y(0 To 9) As DoublePrivate Sub Form_Load()
x(0) = 6.58
x(1) = 5.99
x(2) = 5.3
x(3) = 4.92
x(4) = 4.57
x(5) = 4
x(6) = 3.54
x(7) = 3.23
x(8) = 2.85
x(9) = 2.1
y(0) = 4.23
y(1) = 4#
y(2) = 3.56...

千问 · 2013-4-8 12:03:08

For x = 0 To 9 If XX.Text = x(i) Then
Text2.Text = Format(y(i), "0.00")
IsFind = True
End IfNext i
'该为Next xPrivate Sub Form_Load()For i = ...

千问 · 2013-4-8 12:03:08

把For i = 0 To 9去掉把Next i改为Next x...

千问 · 2013-4-8 12:03:08

不明其要求。...