编程高手请进利用VB实现数据的试算。希望不吝赐教

2024年12月03日 01:58

有2个网友回答

网友（1）：

做个自定义函数，以供调用：
sub myTry()
dim ax as long
dim vx as long

ax=val(text1.text)'提取初始值，将文本值转为数值
vx=val(text2.text)'试算值，将文本值转为数值
if vx>ax and (vx-ax)/ax<0.05 then
'调整语句，我不知道你要怎样调整
elseif vx>ax and (vx-ax)/ax>0.05 then
'调整语句，我不知道你要怎样调整

elseif vx '调整语句，我不知道你要怎样调整

elseif vx0.05 then
'调整语句，我不知道你要怎样调整

end if

end sub

网友（2）：

多做一个文本框就行了呗。把要偏移的数值放里面，加入到程序的运算中去。

编程高手请进 利用VB实现数据的试算。 希望不吝赐教

编程高手请进利用VB实现数据的试算。希望不吝赐教