查人人中国名人网亲子园虐童案:vb 高手,帮帮我,
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/04 19:33:58
你能帮我做一个程序吗,达到我说的目的在EXCEL里有这么几个数据
吨位跨度 7.5 10.5 11.5 8.5
5 123 245 265 145
10 245 365 654 300
15 500 700 800 600
VB里有TEXT1 TEXT2 TEXT3 COMOND1
现在我在TEXT1里输入5 TEXT2里输入11.5 按下COMOND1 TEXT3变成265
输入10 输入8.5 TEXT3成300
就这样,你帮我做一个程序能实现的程序吧,就这么做就可以.把整个程序打包发过来,我就能看懂了,我现在无论如何都做不出来了,里边的数据总是空白,什么都不出,加了VAL()也没有用，照样什么都没有.谢谢了.
caohuanchd@126.com
我真想选无满意答案,但是...算了,那么辛苦了都
吨位跨度 7.5 10.5 11.5 8.5
5 123 245 265 145
10 245 365 654 300
15 500 700 800 600
VB里有TEXT1 TEXT2 TEXT3 COMOND1
现在我在TEXT1里输入5 TEXT2里输入11.5 按下COMOND1 TEXT3变成265
输入10 输入8.5 TEXT3成300
就这样,你帮我做一个程序能实现的程序吧,就这么做就可以.把整个程序打包发过来,我就能看懂了,我现在无论如何都做不出来了,里边的数据总是空白,什么都不出,加了VAL()也没有用，照样什么都没有.谢谢了.
caohuanchd@126.com
我真想选无满意答案,但是...算了,那么辛苦了都
新建个工程，放三个Text和一个Command。
然后把下面代码复制过去:
Dim A(4, 4)
Dim row, col As Integer
Private Sub Command1_Click()
row = 0: col = 0
For i = 0 To 3
For j = 0 To 4
If A(i, j) = Val(Text1.Text) Then col = j
If A(i, j) = Val(Text2.Text) Then row = i
Next
Next
Text3.Text = A(row, col)
End Sub
Private Sub Form_Load()
A(0, 0) = 0: A(0, 1) = 7.5: A(0, 2) = 10.5: A(0, 3) = 11.5: A(0, 4) = 8.5
A(1, 0) = 5: A(1, 1) = 123: A(1, 2) = 245: A(1, 3) = 265: A(1, 4) = 145
A(2, 0) = 10: A(2, 1) = 245: A(2, 2) = 365: A(2, 3) = 654: A(2, 4) = 300
A(3, 0) = 15: A(3, 1) = 500: A(3, 2) = 700: A(3, 3) = 800: A(3, 4) = 600
End Sub
想用access了,还是数据库方便.