25顺序结构程序设计 (2).ppt

《25顺序结构程序设计 (2).ppt》由会员分享，可在线阅读，更多相关《25顺序结构程序设计 (2).ppt（26页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、1顺序结构的执行程序是自上而下、依次执行。大多数情况顺序结构的执行程序是自上而下、依次执行。大多数情况下顺序结构都是作为程序的一部分，与其他结构一起组成一个复杂下顺序结构都是作为程序的一部分，与其他结构一起组成一个复杂的程序。的程序。2赋值语句的格式是赋值语句的格式是”变量名表达式变量名表达式”或或“对象名属性对象名属性表达式表达式”。如果在同一行中出现多个赋值语句，则语句之间用冒号。如果在同一行中出现多个赋值语句，则语句之间用冒号(：)隔开。隔开。例如：例如：a5：ba3：c2*a+b825 顺序结构程序设计顺序结构程序设计Print方法方法Print方法可以在窗体上显示文本字符串和表达式的

2、值，其一方法可以在窗体上显示文本字符串和表达式的值，其一般格式为：般格式为：Print P1P2式中，式中，P1，P2是输出项；是输出项；s是输出项之间的分隔符，可以是逗是输出项之间的分隔符，可以是逗号，也可以是分号。号，也可以是分号。例如：例如： Print “的次方等于的次方等于”，56格式输出函数格式输出函数Format用格式输出函数可以使数值或日期按指定的格式输出。一般格用格式输出函数可以使数值或日期按指定的格式输出。一般格式为：式为：Format （数值表达式，格式字符串）（数值表达式，格式字符串）该函数的功能是按该函数的功能是按“格式字符串格式字符串”指定的格式输出指定的格式输出“

3、数值表达数值表达式式”的值。的值。Print方法的使用方法的使用Print方法在实际的使用大多是作为程序调试用，用方法在实际的使用大多是作为程序调试用，用户在调试过程中使用户在调试过程中使用Print方法可方法可以实时观察变量的变化。下面以实例来说明以实时观察变量的变化。下面以实例来说明Print方方法的使用。法的使用。Private Sub Command1_Click() Print “的次方等于的次方等于”， Print Format $ (98765.4321,“00000.00”） Print Format $（Sqr（5），），“0.00”） Print Format $ （0.8

4、53，“0.0%”）End Sub4InputBox函数函数InputBox函数用来接收用户通过键盘输入的数据，即产生一个函数用来接收用户通过键盘输入的数据，即产生一个对话框，这个话框作为输入数据界面，等待用户输入数据，并返回对话框，这个话框作为输入数据界面，等待用户输入数据，并返回所输入的内容。其格式为：所输入的内容。其格式为：z InputBox(“提示字符串提示字符串”， “对话框标题对话框标题”)例如：例如：Private Sub Command1_Click()Dim a As Integera InputBox(“请输入请输入a的值的值”， “输入变量值输入变量值”)End Sub

5、执行完该语句，系统会弹出如下对话框。执行完该语句，系统会弹出如下对话框。此时，输入的内容将返回到变量此时，输入的内容将返回到变量a中。中。5MsgBox函数和语句函数和语句MsgBox函数在对话框中显示消息，等待用户单击按钮，并函数在对话框中显示消息，等待用户单击按钮，并返回一个整型变量告诉用户单击哪一个按钮。返回一个整型变量告诉用户单击哪一个按钮。(注：在程序调试阶注：在程序调试阶段，此函数非常有用。段，此函数非常有用。)MsgBox函数使用方法：函数使用方法：z MsgBox(“提示字符串提示字符串”， 按钮，按钮， “标题标题”)参数说明：提示字符串为必填项，按钮为选填，默认值为参数说明

6、：提示字符串为必填项，按钮为选填，默认值为0。常量常量值值说明说明VbOKOnly0只显示只显示“确定确定”按钮按钮VbOKCancel1显示显示“确定确定”和和“取消取消”按钮按钮VbAbortRetryIgnore2显示显示“终止终止”、“重试重试”和和“忽略忽略” 按钮按钮VbYesNoCancel3显示显示“是是”、“否否”和和“取消取消”按钮按钮VbYesNo4显示显示“是是”和和“否否”按钮按钮VbRetryCancel5显示显示“重试重试”和和“取消取消”按钮按钮例如有以下例如有以下VB程序段：程序段：Private Sub Command1_Click() Dim an As

7、Integer an MsgBox(“你确认要离开我吗？你确认要离开我吗？”，1，”离开离开”) If an 1 Then Print “离开离开” Else Print “留下留下”End Sub运行时，会跳出如下图所示对话框。运行时，会跳出如下图所示对话框。 MsgBox语句使用方法语句使用方法MsgBox语句的使用方法为：语句的使用方法为：MsgBox 输出字符串或表达式，按输出字符串或表达式，按钮，钮， ”窗口标题窗口标题”该语句与该语句与MsgBox函数唯一的区别就是没有返回值，因而常用函数唯一的区别就是没有返回值，因而常用于较为简单的信息提示。其中，跟于较为简单的信息提示。其中，跟

8、MsgBox函数一样，按钮与窗口函数一样，按钮与窗口标题信息可以缺省。一般在调试过程中该语句用得比较多。例如：标题信息可以缺省。一般在调试过程中该语句用得比较多。例如：Private Sub Command1_Click()MsgBox “今天是今天是” Str(Date), 0, “提示日期提示日期”End Sub程序显示如下对话框：程序显示如下对话框：6Cls方法方法Cls方法格式为：方法格式为：对象对象ClsCls方法清除对象上的输出内容，默认对象为当前窗体。例如执方法清除对象上的输出内容，默认对象为当前窗体。例如执行：行：From1.Cls。即将。即将From1窗体中的所有显示信息清空

9、。窗体中的所有显示信息清空。本节课主要是掌握赋值语句格式的使用。尤其要掌握本节课主要是掌握赋值语句格式的使用。尤其要掌握VB常用常用的程序调试方法。考查方式为选择题与填空题。的程序调试方法。考查方式为选择题与填空题。1在在VB中，给变量中，给变量a，b，c均赋值为均赋值为8，下列语句正确，下列语句正确的是的是 ()Aa8，b8，c8 Ba8：b8：c8Ca8；b8；c8 Dabc8B B D D 2有如下有如下VB程序段：程序段：x 1: a x: b x 1x x 1: c x: d x 1该程序运行后该程序运行后 ()Aa与与b的值相同，的值相同，c与与d的值相同的值相同 Ba与与b的值相

10、同，的值相同，c与与d的值不同的值不同Ca与与b的值不同，的值不同，c与与d的值相同的值相同 Da与与b的值不同，的值不同，c与与d的值不同的值不同C C 3将整数型变量将整数型变量c的值显示在文本框的值显示在文本框Text1中，完整的语中，完整的语句是句是 ()AStr(Text1.Text)c BVal(Text1)cCText1.TextVal(c) DText1c 4有如下有如下VB程序段：程序段：a 321b a 10c b Mod 10该程序运行后，变量该程序运行后，变量c的值为的值为_。2 2 8 8 5有如下有如下VB程序段：程序段：Dim a As Integera Inpu

11、tBox(“a”， “输入输入a”)b InputBox(“b”，“输入输入b”)c a bMsgBox c运行程序，在运行程序，在InputBox提示窗口分别输入提示窗口分别输入2和和3，最后，最后MsgBox提示窗口输出变量提示窗口输出变量c的值是的值是_。好孩子好孩子 6有如下有如下VB程序段：程序段：Private Sub Command1_Click()a 我们都是好孩子我们都是好孩子b Len(Right(a, 1)c Mid(a, 5, 3)MsgBox a, b, cEnd Sub执行程序，单击命令按钮执行程序，单击命令按钮Command1，则在弹出的信息框标题，则在弹出的信息

12、框标题栏中显示的标题是栏中显示的标题是_。a=InputBox(a=InputBox(请输入班内编号请输入班内编号, , 输入框输入框) )7执行一个执行一个VB语句弹出如下图所示的对话框：语句弹出如下图所示的对话框：假如输入结果赋值给变量假如输入结果赋值给变量a，则这个语句是，则这个语句是_。X=False Y=TrueX=False Y=True8有如下程序段：有如下程序段：Private Sub Command1_Click() a 1 b 2 c 3 x a b y Not x And b c Print “X”， x, “Y”， yEnd Sub运行程序后，在窗体中显示的信息是运行程

13、序后，在窗体中显示的信息是_。2 2 9有如下有如下VB程序段：程序段：Private Sub Command1_Click() Dim a As Integer Dim b As Integer a Val(Text1.Text) b Val(Text2.Text) a a b b a Mod b a a b Text1.Text Str(a) Text2.Text Str(b)End Sub程序运行时，在文本框程序运行时，在文本框Text1与与Text2分别输入分别输入5和和6，单击命令按钮，单击命令按钮Command1后，文本框后，文本框Text1中显示的内容是中显示的内容是_，文本框，

14、文本框Text2中显示的内容是中显示的内容是_。5 5 10有如下有如下VB程序段：程序段：Private Sub Command1_Click() Dim u As Single, x As Single, y As Single, z As Single u Val(Text1.Text) x (u 10) / (u * u 8) y (u 1) / (x u) z Sqr(x y) Text2.Text Str(z)End Sub运行程序时，在文本框运行程序时，在文本框Text1中输入中输入1，单击命令按钮，单击命令按钮Command1，弹出如上图所示的错误提示信息。产生此错误的语句，弹

15、出如上图所示的错误提示信息。产生此错误的语句是是_。y=(u-1)/(x+u)13 13 11下列下列VB程序运行时，在文本框程序运行时，在文本框Text1中输入中输入10，单击命令，单击命令按钮按钮Command1后，文本框后，文本框Text2中显示的内容是中显示的内容是_。Private Sub Command1_Click() Dim x As Single, a As Integer, b As Integer a Val(Text1.Text) x Sqr(a) b Int(x) Text2.Text Str(a b)End Sub12(操作题操作题)某段公路全长某段公路全长300公

16、里，公里，A车与车与B车分别从两头开车分别从两头开始同一时间出发。请设计一个始同一时间出发。请设计一个VB程序，计算两车相遇的时间。程序，计算两车相遇的时间。程序代码参考如下：程序代码参考如下：Private Sub Command1_Click() Dim a As Integer, b As Integer, h As Integer，f As Integer a _ 输入输入A的时速的时速 b _ 输入输入B的时速的时速 a a b计算速度和计算速度和 h _计算小时数计算小时数 f _计算剩余的分钟计算剩余的分钟 MsgBox “两车将在两车将在” Str(h) “小时小时” Str(

17、f) “ 分钟后相遇分钟后相遇”， 0, “”End Sub InputBox(请输入请输入B车的车速车的车速km/h , 输入车速输入车速) (1)程序运行时显示如下图所示的输入窗口。程序运行时显示如下图所示的输入窗口。为实现该功能，应在处填入语句为实现该功能，应在处填入语句_，在处填入语句在处填入语句_。InputBox(请输入请输入A车的车速车的车速km/h , 输入车速输入车速)(2)程序运行时，在对话框中分别输入程序运行时，在对话框中分别输入A车的车速与车的车速与B车的车速车的车速后，弹出如上图所示的信息。后，弹出如上图所示的信息。为顺利实现该功能，应在处填入语句为顺利实现该功能，应在处填入语句_；在处填；在处填入语句入语句_；在处填入窗口标题信；在处填入窗口标题信息息_。300a相遇时间相遇时间Int(300 Mod a)/a*60