求VB小程序代码

来源：百度知道 编辑：UC知道 时间：2024/06/25 18:56:25
程序启动!
按下按钮S后
TestS=( 100 / TextL )*( TextP1 * TextL1 )+(TextP2 * TextL2)+……+(TextPn * TextLn)
按下按钮N后
关闭Form1 并打开Form2
在Form2里 当TextS=<40时 TextF=0.25*TextS
当TextS> 40时 TextF=10
并且TextF不能手动改变
请高手帮忙 谢谢
我要能编出来就不用您编了 汗!
另外一个按钮SN 按下后
弹出FormP1 FormP1能输入TextP1 和TextL1
在FormP1里按下 OK按钮后.关闭FormP1 并且TextP1和TextL1和上面的式子关联起来
然后在按下按钮SN后 弹出另外一个FORM 里面就是FORMPn 以此类推

我在线等答案.高手帮忙解决后在送50分#11QQ22749556

278005218，已经加了Q

你添加textP数组控件 和 TextL数组控件
这样就好弄了
temp=100/val(textL)*textP(0)*textL(0)
for i = 1 to n
sum=sum+val(textP(i))*val(textL(i))
next i
testS=temp+sum

============form2
if form1.testS<=40 then textF=0.25* form1.testS

textF不能手动改变 你就将该控件的Enabled设置为false就好了

不难的
只是有些繁琐
你自己先编出来，我们改就好