【vb精品源码栏目提醒】:网学会员,鉴于大家对vb精品源码十分关注,论文会员在此为大家搜集整理了“【精品】第4章程序结构 - 大学课件”一文,供大家参考学习!
第4章 程序结构 4.1 顺序结构 4.2 选择结构 4.3 循环结构 结束4.1 顺序结构 4.1.1 赋值语句 语句 1 4.1.2 Print方法 语句 2 4.1.3 With结构 … 图 4.1 顺序结构 返回首页 4.1.1 赋值语句 赋值语句是程序设计中最常用、最基本的语句,用于为变量或对象的属性赋值,格式如下:格式1:变量名 表达式格式2:对象名.属性名 表达式 在格式2中,若省略对象名,则默认对象为当前窗体。
对象类型变量的赋值比较特殊,需要使用Set关键字,格式如下:Set 对象变量名 表达式 返回本节 返回首页 4.1.2 Print方法(1)1. 用Print方法输出数据Print方法用于在窗体、图片框或打印机等对象上输出数据,格式如下:对象名.Print 输出项列表说明:对象名:可以是窗体、图片框或打印机等对象,若省略对象名,则在当前窗体上输出数据。
输出项列表:要输出的内容(表达式)。
若有多个输出项,可用逗号或分号隔开。
分号(;):各输出项连续输出,中间无空格。
4.1.2 Print方法(2)逗号(,):各输出项按分区格式输出,即将一个输出行以 14 个字 符 的宽 度为 单位 分 成若 干 区段 ( 称为 “打 印区”),每个区段输出一个表达式的值。
如果调用Print方法的语句以分号或逗号结束,则下一次执行Print方法时将在同一行输出;否则,每执行一次Print方法即自动换行。
Print方法在Form_Load事件过程中不起作用。
如果要在该事件中显示数据,必须在该过程内加上Form.Show方法或把窗体的AutoRedraw属性设置为True。
技巧:在输入Print关键字时可以只输入问号(),
VB会自动将其翻译成Print。
4.1.2 Print方法(3)2. 与Print方法有关的函数
VB提供了Spc和Tab两个函数,用于配合Print方法对输出进行定位。
(1)Spc函数格式:SpcnSpc函数用于插入n个空格。
例如:Print 你好 Spc8 Hello输出结果:你好 Hello 4.1.2 Print方法(4)(2)Tab函数格式:Tabn Tab函数用于将输出位置定位于第n列。
若省略参数n,则将插入点移动到下一个打印区的起点。
如果n小于当前显示位置,则将输出位置移到下一行第n列。
例如:Print 1234567890Print Hello Tab10 ChinaPrint Hello Tab ChinaPrint Hello Tab4 China 4.1.2 Print方法(5)若在窗体的Form_Click事件中加入以上代码,则单击窗体后输出如图4.2所示的结果。
图4.2 Tab函数示例 返回本节 返回首页 4.1.3 With结构(1)使用With结构可以对某个对象执行一系列语句,而不用重复指出该对象的名称。
With结构的格式如下:With 对象 语句块End With例如,要改变一个对象的多个属性,可以在With结构中添加为该对象的多个属性赋值的语句,此时只需引用对象一次而不是在每个属性赋值时都要引用它。
下面的示例说明了如何使用With结构来给同一个对象的几个属性赋值。
4.1.3 With结构(2)为文本框字体对象的多个属性赋值With Text1.Font 下面只需输入圆点即可引用对象的属性或方法 .Name 隶书 字体名 .Size 12 字号 .Bold True 粗体 .Italic True 斜体 .Underline True 下划线End With注意:当程序一旦进入With结构,对象就不能改变。
因此不能用一个With结构来设置多个不同的对象。
顺序结构示例下面通过实例说明顺序结构程序设计的特点。
【例4.1】求一元二次方程ax2bxc0的根。
设计步骤如下:(1)新建工程,在窗体上添加五个文本框、两个命令按钮和五个标签。
文本框均采用默认名称,Text属性均为空。
其他对象的属性设置如表4.1所示。
注:标签Label7用于显示二次方程通式的指数,六号字。
(2)编写代码。
双击【计算】按钮,打开代码窗口,输入以下代码:Private Sub cmdCalcu_Click Dim a As Single b As Single c As Single Dim D As Single Dim x1 As Single x2 As Single a ValText1.Text b ValText2.Text c ValText3.Text D b b - 4 a c 二次方程求根的判别式 x1 -b SqrD / 2 a 用求根公式计算x1和x2 x2 -b - SqrD / 2 a 显示结果,最多保留4位小数 Text4.Text Formatx1 0. Text5.Text Formatx2 0.End Sub在【结束】按钮的单击事件中用End语句结束程序运行。
运行程序,单击【计算】按钮即可解出方程的根。
运行效果如图4.3所示。
注意:上面的程序是有缺陷的。
当a0或判别式(变量D)的值小于0时,将出现错误,导致程序崩溃。
因此,应设法判断变量a和D的值所处的范围,并作相应的处理。
这不是顺序结构所能完成的任务,需采用下面将要介绍的选择结构才能实现。
图4.3 二次方程求根 返回本节 返回首页4.2 选择结构 4.2.1 If语句 4.2.2 Select Case语句 返回首页 4.2.1 If语句 1. If…Then结构 2. If…Then…Else结构 3. If...Then...ElseIf结构 4. If语句的嵌套 返回本节 返回首页 1. If…Then结构(1)If…Then 结 构 的 流 程 如 图 4 .4 所 示 。
该 结 构 表 示“如果条件满足就执行Then后边的语句,否则不执行任何操作”。
语法格式如下:(1)单行形式 条件 FIf 条件 Then 语句 T(2)块(多行)形式 语句块If 条件 Then 语句块End If 图 4.4 If...Then 结构 1. If…Then结构(2)一般情况下,“条件”是运算结果为逻辑值的表达式,若表达式的值为True,则条件成立,若表达式的值为False,则条件不成立。
“条件”也可以是运算结果为数值的表达式,此 时
VB将表 达式的 值解释 成逻辑 值:0为False,非零为True。
需要注意的是,If…Then的单行格式不用End If语句,整个语句必须写在一行上。
如果条件为真时需要执行多条语句,所有语句必须在同一行上并且以冒号分开,如:If 条件 Then 语句1:语句2:语句3为了使程序便于维护,提高其可读性,建议尽量不要采用这种单行多句的形式。
如果需要在Then关键字后面执行多条语句,应使用块形式的If…Then…End If结构。
1. If…Then结构(3)【例4.2】编写程序,在文本框中输入一个整数,判断该数是不是偶数。
分析:判断某整数的奇偶性,可以检查该数能否被2整除。
若某数能被2整除,则该数为偶数。
设计步骤如下:(1)建立用户界面,设置对象属性。
各对象的属性如表4.2所示。
表4.2 例4.2对象属性(2)编写程序代码。
“判断”命令按钮的Click事件代码如下:Private Sub Command1_Click Dim x As Integer x ValText1.Text If x Mod 2 0 Then Label2.Caption x 是偶数。
End IfEnd Sub“清除”命令按钮Click事件的代码如下:Private Sub Command2_Click Text1.Text Label2.Caption End Sub运行结果如图4.5所示。
图4.5 If...Then示例【例4.3】限制用户输入合法数据。
文本框是常用的数据输入控件,为了防止用户输入错误数据,可以在文本框的KeyPress事件中检查用户的按键。
KeyPress事件有一个KeyAscii参数,用于传送或改变用户按键的ASCII码。
在KeyPress事件过程中将KeyAscii设置为0即可取消按键。
在本例中,要求只能输入数字,若输入非数字字符则取消本次按键。
代码如下:Private Sub Text1_KeyPressKeyAscii As Integer If Not IsNumericChrKeyAscii And _ KeyAscii 8 Then KeyAscii 0End Sub说明:IsNumeric是
VB内部函数,用于判断参数是否为数字。
“8”是回删键Backspace的ASCII码。
可将上述代码应用到例4.2中观察其效果。
返回本节 返回首页