编写VB程序-求一元二次方程的根

整理文档很辛苦,赏杯茶钱您下走!

免费阅读已结束,点击下载阅读编辑剩下 ...

阅读已结束,您可以下载文档离线阅读编辑

资源描述

编写VBVBVBVB程序,求一元二次方程的根创建如下窗体图1,并对“求判别式”、“求根X1”、“求根X2”、“清除”、“关闭”等五个命令按钮编写相应程序,大概步骤如下:图11111、打开VisualBasic6.0应用程序,新建工程:标准EXE。2、在窗口左边的工具栏(如图2)中,选择相应图标拉进窗体中,并对其设置属性,如名称、Caption等。图22223、双击窗体,弹出如下程序窗口图3:图33334、在上述窗口中的“对象”、“过程”下拉菜单中,选择对应的命令按钮名称,进行编程。程序如下:PrivateSubCmdClear_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text6.Text=EndSubPrivateSubCmdClose_Click()EndEndSubPrivateSubCmdDelta_Click()Text4.Text=Str$(Val(Text2.Text)*Val(Text2.Text)-4*Val(Text3.Text)*Val(Text1.Text))EndSubPrivateSubCmdRoot1_Click()Text5.Text=Str$((-Val(Text2.Text)+Sqr(Val(Text4.Text)))/(2*Val(Text3.Text)))EndSubPrivateSubCmdRoot2_Click()Text6.Text=Str$((-Val(Text2.Text)-Sqr(Val(Text4.Text)))/(2*Val(Text3.Text)))EndSub5、完成编程后,退出。6、启动调试,按如下图4设置方程的系数。图44447、点击相应的命令按钮求解判别式及根,结果如图5.图5555

1 / 4
下载文档,编辑使用

©2015-2020 m.777doc.com 三七文档.

备案号:鲁ICP备2024069028号-1 客服联系 QQ:2149211541

×
保存成功