UC知道VB6.0编程高手请进~
来源：百度知道 编辑：UC知道 时间：2024/05/22 10:06:39
比如我设计了一个程序：
TPrivate Sub Command1_Click()
Dim m As Double
m = Val(Text1.Text)
Text2.Text = 40 / (0.016 / m - 0.016)
End Sub
我现在要把Text2.Text的值表示成整数，并且要把算出来的值用下面的表格里面的值表示~我应该如何编程？
100 110 120 130 140
210 220 230 240 260
310 330 350 360 380
400 410 420 430 440
表格1
例如~我用Text2.Text = 40 / (0.016 / m - 0.016)算出来的Text2.Text值为118.8~因为118.2比较接近表格中的120，因此Text2.Text的取值应该为120。如何在VB里面实现这个功能~请高手帮忙编程下~
TPrivate Sub Command1_Click()
Dim m As Double
m = Val(Text1.Text)
Text2.Text = 40 / (0.016 / m - 0.016)
End Sub
我现在要把Text2.Text的值表示成整数，并且要把算出来的值用下面的表格里面的值表示~我应该如何编程？
100 110 120 130 140
210 220 230 240 260
310 330 350 360 380
400 410 420 430 440
表格1
例如~我用Text2.Text = 40 / (0.016 / m - 0.016)算出来的Text2.Text值为118.8~因为118.2比较接近表格中的120，因此Text2.Text的取值应该为120。如何在VB里面实现这个功能~请高手帮忙编程下~
取表格里的值-text2.text的值最小的那个数
比如 120-118.8=1.2 值最小，所以取120
要具体算法的话留言，一个for循环就能搞定
楼上的思维跟我差不多
把条件放入数组
dim a(4) as integer
a(0)=100
a(1)=110
a(2)=120
a(3)=130
a(4)=140
写个过程
function js(byval txt as single) as integer
dim i as integer
dim s as single
dim n as integer
'初使化数
s= a(0)-txt
'将条件逐一判断，取出最小
for i=1 to 4
if s>a(i)-txt then
s=a(i)-txt
n=i
end if
next i
js=a(n)
end function
'直接调用这个过程，把text2的值传过来就行了
（未经过VB测试，请自己调试)