浙江省临海市白云高级中学2019届高三信息技术复习教案：VB之解一元二次方程

VB之解一元二次方程

学习目标：

1、 了解VB的程序设计环境

2、体验VB应用程序设计的基本过程 3、掌握if语句的使用 4、理解解析算法 重难点

1、if语句的使用

2、VB应用程序设计的基本过程 任务描述 变量a,b,c分别保存一元二次方程的二次项、一次项系数和常数项（其中a≠0），变量x1和x2分别保存议程的两个根。完善下列程序，程序运行时能根据议程的a,b,c值计算根并输出相应信息。

[来源学科网Z.X.X.K][来源学科网ZXXK][来源:Z_xx_k.Com]

操作过程：

1.分析问题。计算一元二次方程时，d=b2-4ac,当d>0时，方程有两个不同的实数根，当d=0时，方程有两个相同的实数根，当d<0时，方程没有实数根。

2.设计界面。新建工程，在窗体中添加6个标签、5个文本框、一个按钮。

3.编写程序。

4.运行调试程序。 相关练习 1、下列符合VB语句正确描述的是：如果x≤3y且x>y，则y=x3 A、if x<=3*y and x>y then y=x^3 B、if and(x<=3y,x>y) then y=x3 C、if x<=3*y and x>y then y=x**3 D、if x<=3*y:x>y then y=x3

2、下列VB程序的功能是输入一串字符，判断该字符串字符数的奇偶。 Private Sub Command1_Click()

Dim nvalue as string,nlength as string nvalue=Text1.Text

If Len(nvalue) Mod 2 <> 0 Then nlength = \Else

nlength = \End if

Label2.Caption = nlength End Sub

运行程序后在文本框中输入“Basic”，单击“Command1”按钮，标签上Label2中输出