《25顺序结构程序设计.ppt》由会员分享，可在线阅读，更多相关《25顺序结构程序设计.ppt（26页珍藏版）》请在三一文库上搜索。
1、1顺序结构的执行程序是自上而下、依次执行。大多数情况下顺序结构都是作为程序的一部分，与其他结构一起组成一个复杂的程序。 2赋值语句的格式是”变量名表达式”或“对象名属性表达式”。如果在同一行中出现多个赋值语句，则语句之间用冒号(：)隔开。 例如：a5：ba3：c2*a+b8,25 顺序结构程序设计,Print方法 Print方法可以在窗体上显示文本字符串和表达式的值，其一般格式为： Print P1P2 式中，P1，P2是输出项；s是输出项之间的分隔符，可以是逗号，也可以是分号。 例如： Print “的次方等于”，56 格式输出函数Format 用格式输出函数可以使数值或日期按指定的格式输出
2、。一般格式为： Format （数值表达式，格式字符串） 该函数的功能是按“格式字符串”指定的格式输出“数值表达式”的值。,Print方法的使用 Print方法在实际的使用大多是作为程序调试用，用户在调试过程中使用Print方法可 以实时观察变量的变化。下面以实例来说明Print方法的使用。 Private Sub Command1_Click() Print “的次方等于”， Print Format $ (98765.4321,“00000.00”） Print Format $（Sqr（5），“0.00”） Print Format $ （0.853，“0.0%”） End Sub,4I
3、nputBox函数 InputBox函数用来接收用户通过键盘输入的数据，即产生一个对话框，这个话框作为输入数据界面，等待用户输入数据，并返回所输入的内容。其格式为： z InputBox(“提示字符串”， “对话框标题”) 例如： Private Sub Command1_Click() Dim a As Integer a InputBox(“请输入a的值”， “输入变量值”) End Sub,执行完该语句，系统会弹出如下对话框。,此时，输入的内容将返回到变量a中。,5MsgBox函数和语句 MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回一个整型变量告诉用户单击哪一个按钮。(注
4、：在程序调试阶段，此函数非常有用。) MsgBox函数使用方法： z MsgBox(“提示字符串”， 按钮， “标题”) 参数说明：提示字符串为必填项，按钮为选填，默认值为0。,例如有以下VB程序段： Private Sub Command1_Click() Dim an As Integer an MsgBox(“你确认要离开我吗？”，1，”离开”) If an 1 Then Print “离开” Else Print “留下” End Sub,运行时，会跳出如下图所示对话框。, MsgBox语句使用方法 MsgBox语句的使用方法为：MsgBox 输出字符串或表达式，按钮， ”窗口标题”
5、该语句与MsgBox函数唯一的区别就是没有返回值，因而常用于较为简单的信息提示。其中，跟MsgBox函数一样，按钮与窗口标题信息可以缺省。一般在调试过程中该语句用得比较多。例如： Private Sub Command1_Click() MsgBox “今天是” Str(Date), 0, “提示日期” End Sub,程序显示如下对话框：,6Cls方法 Cls方法格式为：对象Cls Cls方法清除对象上的输出内容，默认对象为当前窗体。例如执行：From1.Cls。即将From1窗体中的所有显示信息清空。,本节课主要是掌握赋值语句格式的使用。尤其要掌握VB常用的程序调试方法。考查方式为选择题与
6、填空题。,1在VB中，给变量a，b，c均赋值为8，下列语句正确的是 () Aa8，b8，c8 Ba8：b8：c8 Ca8；b8；c8 Dabc8,B,D,2有如下VB程序段： x 1: a x: b x 1 x x 1: c x: d x 1 该程序运行后 () Aa与b的值相同，c与d的值相同 Ba与b的值相同，c与d的值不同 Ca与b的值不同，c与d的值相同 Da与b的值不同，c与d的值不同,C,3将整数型变量c的值显示在文本框Text1中，完整的语句是 () AStr(Text1.Text)c BVal(Text1)c CText1.TextVal(c) DText1c,4有如下VB程序
7、段： a 321 b a 10 c b Mod 10 该程序运行后，变量c的值为_。,2,8,5有如下VB程序段： Dim a As Integer a InputBox(“a”， “输入a”) b InputBox(“b”，“输入b”) c a b MsgBox 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, c End Sub 执行程序，单
8、击命令按钮Command1，则在弹出的信息框标题栏中显示的标题是_。,a=InputBox(请输入班内编号, 输入框),7执行一个VB语句弹出如下图所示的对话框：,假如输入结果赋值给变量a，则这个语句是_。,X=False Y=True,8有如下程序段： Private Sub Command1_Click() a 1 b 2 c 3 x a b y Not x And b c Print “X”， x, “Y”， y End Sub 运行程序后，在窗体中显示的信息是_。,2,9有如下VB程序段： Private Sub Command1_Click() Dim a As Integer Di
9、m 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中显示的内容是_，文本框Text2中显示的内容是_。,5,10有如下VB程序段： Private Sub Command1_Click() Dim u As Single, x As Single, y As Single, z As Single u Val
10、(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，弹出如上图所示的错误提示信息。产生此错误的语句是_。,y=(u-1)/(x+u),13,11下列VB程序运行时，在文本框Text1中输入10，单击命令按钮Command1后，文本框Text2中显示的内容是_。 Private Sub Command1_Click() Dim x As Single, a As Integer, b As Integer
11、a Val(Text1.Text) x Sqr(a) b Int(x) Text2.Text Str(a b) End Sub,12(操作题)某段公路全长300公里，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(f) “ 分钟后相遇”， 0, “” End Sub, InputBox(请输入B车的车速km/h , 输入车速),(1)程序运行时显示如下图所示的输入窗口。,为实现该功能，应在处填入语句_， 在处填入语句_。,InputBox(请输入A车的车速km/h , 输入车速),(2)程序运行时，在对话框中分别输入A车的车速与B车的车速后，弹出如上图所示的信息。 为顺利实现该功能，应在处填入语句_；在处填入语句_；在处填入窗口标题信息_。,300a,相遇时间,Int(300 Mod a)/a*60,