1、第4章 顺序结构程序设计,讲课人：李冬梅,第4章 顺序结构程序设计,数 据 输 出,1,常用基本语句,2,利用文本框进行数据输入,3,使用对话框,4,4.1 数据输出,4.1.1 直接输出到窗体 1. 使用Print方法对象名. Print 表达式表 , | ; 逗号分隔符，各输出项按标准输出（分区输出）格式显示，此时，以14个字符宽度为单位将输出行分为若干区段，逗号后面的表达式在下一个区段输出。 分号分隔符，按紧凑格式输出，即各输出项之间无间隔地连续输出。,Private Sub Command1_Click()PrintPrint “2 * 3 + 4 =“; 2 * 3 + 4Print
2、 Print “祝你学好“Print , “Visual Print , , “Baisc“ PrintPrint “ 祝您学好“,Print “Visual“; “ Baisc“ End Sub,要输出如下所示表格，该怎么办？,想一想：,知识目标：1、进一步掌握方法Print2、掌握与Print方法有关的函数：Tab函数及Spc函数,能力目标：具有在窗体上将数据进行对齐输出的能力,情感目标：1、是通过创设和谐的教学氛围，以及交流互动的方式，让学 生体验自我价值，增强自信2、通过学生的上机实践，使学生进一步熟悉VB程序设计的操作,学习目标：,重点：1、数据输出方法Print的使用2、与Prin
3、t方法有关的函数Tab函数及Spc函数的应用,难点：上机实践：在窗体上将数据进行对齐输出,重点难点：,说明： n为数值表达式，其值为一整数。Tab函数把显示或打印位置移到由参数n指定的列数，从此列开始输出数据。要输出的内容放在Tab函数后面，并用分号隔开。,123456789 123456789 123456789 123456789 1234,2. 与Print方法有关的函数,(1) Tab函数：,格式为：Tab(n),例1：程序： Print Tab(10);”姓名”;Tab(25);”性别”;Tab(40);”年龄” 的输出结果是什么？,性名,性别,年龄,输出结果：,屏幕位置：,通常最左
4、边的列号为1。如果当前的显示位置已经超过n，则自动下移一行。当n大于行的宽度时，显示位置为n Mod行宽。,当在一个Print方法中有多个Tab函数时，每个Tab函数对应一个输出项，各输出项之间用分号隔开。,Print Tab(10);”姓名”;Tab(25);”性别”;Tab(40);”年龄”,(2) Spc函数：,Spc函数与Tab函数的作用类似，可以互相代替。但应注意，Tab函数从对象的左端开始计数，而Spc函数只表示两个输出项之间的间隔。,Print Spc(10);”姓名”; (25);”性别”; Spc(40);”年龄”,格式为：Spc(n),Private Sub Form_Cl
5、ick()ShowFontSize = 12 PrintPrint Tab(10); “姓名“; Tab(25); “性别“; Tab(40); “年龄“PrintPrint Tab(10); “张红“; Tab(25); “女“; Tab(40); 17Print Tab(10); “海小翔“; Tab(25); “男“; Tab(40); 18 End Sub,上机实践：,教材48页：任务4.2,小结：,这节课我们学习了哪些主要内容？,本节课主要讲授的是与Print方法有关的函数：Tab函数及Spc函数；功能是实现对窗体上的数据进行对齐输出。,（1）总结本节知识点； （2）预习下一节，要求
6、找出位置属性和字体属性都有哪些。,作业：,3. 使用位置属性和字体属性Private Sub Command1_Click()Dim x As Stringx = “轻轻松松学VB“FontSize = 20FontName = “黑体“ CurrentX = 2000 CurrentY = 1500 ShowPrint x End Sub,4. 清除方法ClsPrivate Sub Command2_Click()Cls End Sub,4.1.2 使用Label控件实现数据输出,Private Sub Command1_Click()Label1.Caption = “你是男是女呀？“ L
7、abel2.Caption = “女生“ Label2.Alignment = 2 Label2.BorderStyle = 0 End Sub,Label控件的常用属性：(1) Caption属性用来在标签中显示文本。在缺省情况下，Caption（标题）是Label控件中唯一的可见部分。(2) BorderStyle属性用来设置标签的边框。该属性可以取两个值，即0和1。默认情况下，该属性值为0，标签无边框。如果把BorderStyle（边框样式）属性设置成1，那么Label就有了一个边框。(3) 其他外观属性可以通过设置Label控件的BackColor、ForeColor和Font等属性来
8、改变Label的外观。,返回目录,4.2 常用基本语句,4.2.1 赋值语句 Let名称=表达式 实现两变量的交换。 Private Sub Command1_Click()t = Label3.CaptionLabel3.Caption = Label4.CaptionLabel4.Caption = t End Sub,4.2.2 卸载对象语句Unload,Unload 对象名 Private Sub Command2_Click()Unload Me Me表示按钮所在的窗体对象 End Sub,4.2.3 注释语句Rem,Rem 注释内容 注释内容例如：s = pi * r 2 计算圆的
9、面积v = 4 / 3 * pi * r 3 : Rem 计算球的体积,返回目录,4.3 利用文本框进行数据输入,4.3.1 TextBox控件的简单使用(1) Text属性：文本框中包含的文本内容。(2) Locked属性：控件是否可编辑。Locked属性值为 True时，文本框内容不可编辑；为False时可编辑。(3) PassWordChar属性：显示在文本框中的替代符，如一串“*”号等。主要用于口令的输入。(4) MaxLength属性：显示在文本框中的字符数，超出部分不接收，并同时发出嘟嘟声。,Private Sub Form_Load()Text1.Text = “ : Text2
10、.Text = “Text3.Text = “ : Text4.Text = “Text5.Text = “Text5.Locked = True End SubPrivate Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = Val(Text2.Text) b = Val(Text3.Text)c = Val(Text4.Text)Text5.Text = (a + b + c) / 3 End Sub,4.3.2 多行文本的输入,4.3.3 焦点与Tab键序,焦点就是光标，当对象具有“焦点”时才能响应用户输入。
11、当控件的Visible和Enabled属性值为True时，控件才能接收焦点。但是，某些控件不具有焦点，如标签、框架、计时器等。程序运行时，可以通过下列方法改变焦点：用鼠标单击对象。按Tab键或Shift+Tab在当前窗体的各对象之间巡回移动焦点。按热键选择对象。控制Tab键序的属性有： 1) TabIndex属性：决定控件接收焦点的顺序。 2) TabStop属性：决定焦点是否能够停在该控件上。,4.3.4 Frame控件,Private Sub Command1_Click()Dim h As Integer, m As Integer, s As Integer Dim x As Long
12、h = Val(Text1.Text) m = Val(Text2.Text) s = Val(Text3.Text) x = h * 3600 + m * 60 + s Label1.Caption = “共计秒数“ & Str(x) & “秒“ End Sub,返回目录,4.4 使用对话框实现数据输入输出,4.4.1 输入框（InputBox）InputBox函数显示一个能接受用户输入数据的对话框，并返回用户在对话框中输入的信息。 变量 = InputBox(信息内容,对话框标题,默认内容 ),Private Sub Command1_Click()Dim h As Integer, f
13、As Integerh = Val(InputBox(“鸡和兔的总头数“, “请输入“, 0)f = Val(InputBox(“鸡和兔的总脚数（偶数）“, “请输入“, 0)x = (4 * h f) / 2y = (f 2 * h) / 2Label2.Caption = “ 设笼中鸡和兔的总头数为“ & h & “, 总脚数为“ & f & “。“Label3.Caption = “ 则笼中鸡有“ & x & “只,兔有“ & y & “只。“ End Sub,4.4.2 消息框（MsgBox）,MsgBox函数在对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮。 MsgBox函数的语法格式为：变量 = MsgBox(消息内容,对话框类型,对话框标题 ),对话框类型有3个参数。,参数1出现按钮,参数2图标类型,参数3默认按钮,msg = MsgBox(“请确认输入的数据是否正确！“, 3 + 32 + 0, “数据检查“),若不需要返回值，则可以使用MsgBox的命令形式：MsgBox信息内容,对话框类型,对话框标题,返回目录,本章结束,返回目录,再见！,
