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

2024-12-03 01:58:11

推荐回答（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实现数据的试算。希望不吝赐教