Visual Basic程序设计 郁春兰 第3章新.ppt

基本语句 选择结构 多路分支结构 循环结构 [案例3-1]打印输出 通过这个简单的程序，可以掌握Visual Basic中常用的几种基本语句，包括赋值语句、打印语句、注释语句、结束语句等。 1.1 案例说明 程序执行时，单击窗体的任何一个位置，顺序执行“窗体单击”事件中相应的语句，执行后在窗体上会显示数字的不同排列以及不同的符号组合。这些不同数字和符号，是通过赋值语来取得数据，按照语句的先后顺序执行这些赋值语句，通过打印语句以及打印控制语句来完成输出，在指定的位置显示相应的符号。 1.2 程序实现 1.界面设计 新建一个工程，系统默认产生了一个新窗体，无需添加其它控件。窗体的属性采用系统的默认值。 2.代码设计 Private Sub Form_Click () a = 12345 b = 54321 a = b b = 12345 Print a Print b Print a = @: b = #: c = $ Print a; b; c Print Print a, b, c Print Print Tab(2); a; Space(4); b; Space(8); c End Sub 1.3 相关知识 1.赋值语句：为变量提供数据，设置对象的属性。 变量名=表达式 （为变量提供数据）。 [对象名．]属性名=表达式 （为对象设置属性） 2.输出语句：可以把运算结果传送到窗体、图片框等对象显示，也可传送到打印机用于打印。Print的格式为： [对象名．]Print [表达式1[，|；[表达式2]…]] 几点说明： 3.Cls方法：清除窗体或图片框上的文本或图形。格式如下： [对象名．] Cls 4.注释语句： 在VB中用“‘”或Rem标识。 5.结束语句：End 1.4 拓展知识 1.赋值相容问题： 2.与Print语句有关的函数： 1.5 案例1-2 这个程序可以观察“重叠显示”和“覆盖显示”两种输出方式。 相关知识： 1.如需要保留原来显示的内容，或者需要部分覆盖原来的图案。可设置窗体对象的FontTransParent属性来实现。格式为： [对象名．]FontTransParent [=True|False] 2.CurrentX和CurrentY属性的作用是设置下一次显示或打印的水平和垂直坐标。格式为： [对象名．] CurrentX[=X] [对象名．] CurrentY[=Y] 2.1 求解一元二次方程案例说明 一元二次方程ax2+bx+c=0的根取决于它的三个系数a、b、c。根据三个系数的具体值，判断出该一元二次方程的根的情况。 当a=0时不构成一元二次方程，只有一个根； 当a≠0时，根的情况要计算b2-4ac的值。 b2-4ac＞0时，方程有两个不相等的实根， b2-4ac=0时，该方程有两个相等的实根， b2-4ac＜0时则没有实根。 该程序要求从键盘输入a、b、c三个系数，根据上述的几种情况做出不同的判断和处理，然后把这个方程的根显示出来。 2.2 程序实现 1. 界面设计：单击窗体后，显示一个输入框，从键盘输入所需要的3个系数a、b和c，然后进行计算。 2.代码设计： 2.3 相关知识 选择结构就是根据给定的“条件”是否满足，从两种或多种可能的操作方案中选择一种操作执行。包括： 1.行If：If 条件 Then 语句1 [Else 语句2] 2.块If语句： If 条件 Then 语句块1 [Else 语句块2 End If 块If语句的几点说明： 2.3 相关知识 3.ElseIf结构：可以解决多层嵌套问题。格式为： If 条件1 Then 语句块1 ElseIf 条件2 Then 语句块2 …… ElseIf 条件n Then 语句块n [Else 语句n+1 End If 小结：两种结构的对比。 本案例中求解一元二次方程的根的算法中，前述的块If嵌套的代码可以改为如下ElseIf结构，对比一下可以看出，用ElseIf结构取代块If嵌套结构可以使得代码的层次变得简单了。 3.1 判定成绩案例说明 从键盘输入一个学生的成绩，按照不同的分数区域，给出不同的等级。例如分数≥90时，给出的等级是“优秀”，80≤分数＜90时等级为“良好”，70≤分数＜80时等级为“中等”，60≤分数＜70给出的等级为“及格”，而当分数＜60时，则为“不及格”。也就是说根据给定的条件不同，有5种选择，采用多路分支