《[工学]VB第3章电子讲稿》由会员分享，可在线阅读，更多相关《[工学]VB第3章电子讲稿（55页珍藏版）》请在金锄头文库上搜索。
1、第3章,赋值与输入输出,一个完整的VB应用程序，一般都包含三部分内容，即 输入 处理 输出 可通过VB语句、各种控件实现输入输出操作 本章主要内容 赋值语句 常用基本语句 使用Print方法输出数据 窗体和基本控件 命令按钮/标签/文本框 对话框 输入对话框/消息对话框 程序举例,第3章 赋值与输入输出,赋值语句是程序设计中最基本、最常用的语句 格式：Let变量名=表达式 功能：计算右端的表达式，并把结果赋值给左端的变量 编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim a As Single, b As Single, c As Single a =
2、 6 b = 9 c = Sqr(a * a + b * b) Print c= & c End Sub 运行程序后单击窗体，输出结果如下： C=10.81665,3.1 赋值语句,例3.1,本事件过程采用的是顺序程序结构，运行的过程是： 声明3个单精度变量a,b,c 6a 9b 计算表达式，其结果10.81665c 输出结果 赋值含义: 将值送到变量的存储单元中去,说明： (1)表达式中的变量必须是赋过值的，否则变量的初值自动取零值(变长字符串变量取空字符)。例如： Dim a as Integer a = 1 c = a + b + 3 执行后，c 值为 ? (2)利用赋值语句，可以改变变
3、量的值，因此，同一变量在不同时刻可以取不同的值。,4,Private Sub Form_Click() a = 3 : Print *A= & a a = 7 : Print *A= & a a = a * 2 + 3 : Print *A= & a End Sub 运行程序后单击窗体，输出的结果如下： *A=3 *A=7 *A=17 (3)赋值语句跟数学中等式具有不同的含意，例如赋值语句x=x+1,表示把变量x的当前值加上1后再将结果赋给变量 “先读后写”：读出x的内容 加1 写回x（覆盖原有内容）,例3.2 示例,例3.2,设计步骤如下： (1)分析：计算某年y的元旦是星期几，可由以下式子
4、得出： F = y-1 +(y-1)/4-(y-1)/100+(y-1)/400+ 1 其中 表示求整 K = F Mod 7 F除以7的余数 y为某年公元年号，计算出K为星期几 (2)创建应用程序的用户界面,例3.3 设计一个“万年历”程序，用来查看某 年的元旦是星期几,例3.3,(3)设置对象属性 (4)编写程序代码 功能要求：用户在“输入年份”文本框(Text1)中输入某一年份，单击“查看”按钮时，则在“星期”文本框(Text2)中显示出星期几,编写的“查看”按钮(Command1)Click事件过程代码如下： Private Sub Command1_Click() Dim y As
5、Integer, f As Integer, k As Integer y = Val(Text1.Text) -1 f = y + Int(y/4) Int(y/100) + Int(y/400) + 1 k = f Mod 7 Text2.Text = k End Sub,3.2.1 注释语句Rem 在程序的适应位置加上必要的注释，可以提高程序的可读性 语法格式： Rem 注释内容 或 注释内容 功能：在程序中加入注释内容，以便于对程序的理解。 例如 Rem 交换变量a和b的值 c = a c为临时单元 a = b b = c 说明：(1)如果使用关键字Rem，在Rem和注释内容之间要加一
6、个空格。 (2)在其他语句后使用Rem关键字，必须使用冒号(:)与前面的语句隔开。注释符(英文状态单引号)可以直接写在其他语句后面。,3.2 常用基本语句,3.2.2 加载对象语句Load 语法格式：Load 对象名 功能：把对象名代表的窗体对象、控件及控件数组元素等加载到内存中。 说明：使用Load语句可以加载窗体，但不显示窗体。当VB加载窗体对象时，先把窗体属性设置为初始值，再执行Load事件过程。 例如 Load Forml 加载窗体Forml Load Option(2) 加载控件数组中的一个元素,3.2.3 卸载语句Unload 格式：Unload 对象名 功能：从内存中卸载指定窗体
7、或控件。 如果卸载的对象是程序惟一的窗体，则将终止程序的执行 例如 Private Sub Command1_Click() Unload Me 卸载当前窗体 End Sub Me是系统关键字，用来代表当前窗体,3.2.4 结束语句End 格式：End 功能：结束程序的运行。 也可以单击工具栏上的“结束”按钮 3.2.5 暂停语句Stop 格式：Stop 功能：暂停程序的运行。可用于调试程序(设 置断点) 也可以通过单击工具栏上的“中断”按钮来实现 使用Ctrl + Break组合键,3.3.1 Print方法 用于显示(输出)文本 格式：对象名.Print 表达式列表说明：(1)使用的对象可
8、以是窗体等 Print “程序设计” 在当前窗体上输出 Picture1.Print “程序设计” 在图片框上输出 (2)表达式列表是一个或多个表达式，如果省略，则输出一个空行 (3)当输出多个表达式时，各表达式之间用分号“;”(紧凑格式)或逗号“,”(按区格式)隔开。 按区格式(14个字符位置),3.3 使用Print方法输出数据,例：Private Sub Form_Click() a = 2 b = VB Print 50 * a 计算并输出表达式的值 Print b 输出变量的值 Print 输出空行 Print The Total is 输出字符串常量 End Sub 运行结果：,例
9、3.3a,输出数值数据时，前面有一个符号位(正号以空格表示)，后面留有一个空格；输出字符串时，前后不留空格。(4)若语句行末尾有分号或逗号,则输出本行输出项后不换行 例：Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print a=; a, b=; b End Sub 运行结果?,例3.3b,编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim d A
10、s Integer, s As Integer, m As Single a = 6 : b = 21 : c = 23 : d = 15 s = a + b + c + d m = (a * 18 + b * 19 + c * 20 + d * 21) / s 以下舍入到小数后1位 Print 平均年龄：; Int(m * 10 + 0.5) / 10 End Sub 运行程序后单击窗体，输出结果是： 平均年龄：19.7,例3.4 使用Print方法输出全班学生的平均年龄 已知18岁6人，19岁21人，20岁23人，21岁15人,例3.4,1. Spc函数 格式：Spc(n) 功能：在输出下一项之前插入n个空格。 例如： Print 学号；Spc(2)；姓名；Spc(5)；成绩 输出结果(表示空格)： 学号姓名成绩,3.3.2 特殊打印格式 ,
