赋值与输入输出 3
第3章赋值与输入输出 个完整的V应用程序,一般都包含三部分内容,即 输入→处理→输出 可通过VB语句、各种控件实现输入输出操作 本章主要内容 赋值语句 常用基本语句 使用 Print方法输出数据 窗体和基本控件 命令按钮标签/文本框 对话框 输入对话框/消息对话框 程序举例 ★
一个完整的VB应用程序，一般都包含三部分内容，即 输入 → 处理 → 输出 可通过VB语句、各种控件实现输入输出操作 本章主要内容 使用Print 窗体和基本控件 命令按钮/标签/文本框 对话框 输入对话框/消息对话框 第3章 赋值与输入输出
31赋值语句 赋值语句是程序设计中最基本、最常用的语句 格式:[Let]变量名=表达式 功能:计算右端的表达式,并把结果赋值给左端的变量 例3.1已知a=6,b=9,计算c=√a2+b2 编写的窗体单击事件过程代码如下: Private Sub Form Click Dim a As single, b As single, c As single b=9 Sqr(a*a+ bb Print c=v& c End Sub 运行程序后单击窗体,输出结果如下: C=10.81665 ★
赋值语句是程序设计中最基本、最常用的语句 格式：［Let］变量名=表达式 功能：计算右端的表达式，并把结果赋值给左端的变量 例3.1 已知a=6,b=9,计算c=√a2 + b2 编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim a As Single, b As Single, c As Single a = 6 b = 9 c = Sqr(a * a + b * b) Print "c=" & c End Sub C=10.81665 3.1 赋值语句
本事件过程采用的是顺序程序结构,运行的过程是: 声明3个单精度变量a,b,c 69 ab 计算表达式,其结果10.81665→c 输出结果 赋值含义:将值送到变量的存储单元中去 ★
本事件过程采用的是顺序程序结构，运行的过程是： 声明3个单精度变量a,b,c 6→a 9→b 计算表达式，其结果10.81665→c 输出结果 赋值含义: 将值送到变量的存储单元中去
说明 1)表达式中的变量必须是赋过值的,否则变量的 初值自动取零值(变长字符串变量取空字符)。例如: c=a+b+ 3 b未赋过值,为0 执行后,c值为4 (2)利用赋值语句,可以改变变量的值,因此,同 变量在不同时刻可以取不同的值
说明： (1)表达式中的变量必须是赋过值的，否则变量的 初值自动取零值(变长字符串变量取空字符)。例如： a = 1 c = a + b + 3 ′b未赋过值，为0 执行后，c 值为 4 (2)利用赋值语句，可以改变变量的值，因此，同
例3.2示例 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(覆盖原有内容)
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 示例
某 年的元旦是星期几 设计步骤如下: (1)分析:计算某年y的元且是星期几,可由以下式子得出: F=y-1+[(y-1)/4]-[(y-1)/100]+[(y-1)/400]+1 其中[]表示求整 K= F Mod 7 F除以7的余数 y为某年公元年号,计算出K为星期几 (2)创建应用程序的用户界面 万年历 输入年份P005 星期 查看
(1)分析：计算某年y的元旦是星期几，可由以下式子得出： 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)设置对象属性 (4)编写程序代码 功能要求:用户在“输入年份”文本框(Text1)中输入某 年份,单击“查看”按钮时,则在“星期”文本框(Text2) 中显示出星期几 ★
(3)设置对象属性 (4)编写程序代码 功能要求：用户在“输入年份”文本框(Text1)中输入某 一年份，单击“查看”按钮时，则在“星期”文本框(Text2) 中显示出星期几
编写的“查看”按钮( Command1) Click事件过程代 码如下: Private Sub Commandl Click Dim y As Integer, fAs Integer, kAs Intege y= Val(Text1.Text)-1 f=y+int(y/4)-Inty/100+n(y/400)+1 k=f Mod 7 等价于f-Intf/7)*7吗? Text2Text =k End Sub 运行结果(见上图) ★
编写的“查看”按钮(Command1)Click事件过程代 码如下： Private Sub Command1_Click() Dim y As Integer, f As Integer, k As Intege y = Val(Text1.Text) -1 f = y + Int(y/4) – Int(y/100) + Int(y/400) + 1 k = f Mod 7 ‘等价于f - Int(f / 7) * 7 吗 ? Text2.Text = k End Sub 运行结果（见上图）
32常用基本语句 321注释语句Rem 在程序的适应位置加上必要的注释,可以提高程序的可读性 语法格式:Rem注释内容 或′注释内容 功能:在程序中加入注释内容,以便于对程序的理解。 例如 Rem交换变量a和b的值 c为临时单元 a= b b=c 说明:(1)如果使用关键字Rm,在Rem和注释内容之间要 加一个空格。 (2)在其他语句后使用Rem关键字,必须使用冒号(:)与前面 的语句隔开。注释符(单引号’)可以直接写在其他语句后面
3.2.1 注释语句Rem 在程序的适应位置加上必要的注释，可以提高程序的可读性 语法格式：Rem 或 ´ Rem 交换变量a和b的值 c = a ´ c a = b b = c 说明：(1)如果使用关键字Rem，在Rem和注释内容之间要 (2)在其他语句后使用Rem关键字，必须使用冒号(:)与前面 的语句隔开。注释符(单引号’)可以直接写在其他语句后面。 3.2 常用基本语句