初学者怎样看懂代码 在vb怎样实现四个数四则任意运算?
浏览量:2315
时间:2021-03-16 15:04:32
作者:admin
在vb怎样实现四个数四则任意运算?
两个文本框text1,输入4,然后运算公式text2将显示结果。将Microsoft脚本控件1.0添加到零件并在窗体上绘制它。代码如下:dim x as single,y as single,private sub command1uclick() ScriptControl1.Language=VBScript ScriptControl1.ExecuteStatement x=& x y=ScriptControl1.Eval(Text1.Text) ScriptControl1.Reset Text2.Text=Trim(Str(y)) End sub
怎样用VB制作一个四则运算的程序?
画一个Text1输入第一个数字,画一个Text2输入第一个数字第二个数字,画一个Combo1来选择算法,画一个command1并点击它开始计算!键入Combo1。添加项“”组合1。添加项“-”组合1。添加项“×”组合1。AddItem“/”命令1。Caption=“计算”在加载窗体中。A型=Val(文本1。文本)B=Val(文本2。文本)选择案例组合1。Text case“”C=a B case“-”C=a-B case“×”C=a*B case“/”C=a/B end在command1中点击选择msgboxc,希望能对您有所帮助。如果您有任何其他要求或问题,请问我。
版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。