《数据输入输出》PPT课件.ppt

基本语句,程序语句 程序中的一行代码称为语句，语句是执行具体操作的指令，每个语句行以回车键结束。 示例：Label.Caption=Time 语句的书写规则 一行中的多条语句之间用冒号隔开 示例： Text1.Text=“Hello”:Red=255:Text1.Backcolor=Red 当一条语句很长时，可以使用续行符“”续行，在续行符前至少要加一个空格，并且续行符只能出现在行尾 示例：strMyStr=“当前用户为：”& strUsername,命令格式中的符号约定,基本语句,基本语句,赋值语句LET 赋值语句的一般格式为： Let = 注： “Let”是可选项，完成赋值功能只需“=”（赋值号） “名称”是变量或属性的名称 “表达式”可以是算术表达式、字符串表达式、关系型表达式或逻辑型表达式，并且赋值号两边的数据类型必须一致 赋值语句先计算，然后再赋值,基本语句,例如： x=123：name= “张小华“ 给变量赋值 Text1.Text= “赋值语句的使用实例“ 给对象的属性赋值 n=a:a=b:b=n 两个变量（a和b）数值的互换 sum=sum+n 累加 sum=sum*n 累积，变量sum的初值不可以为0,基本语句,示例：交换两个变量中的数据，如下图 设计步骤如下： 建立应用程序用户界面 设置对象的属性 编写代码（ Command1_Click() 的事件代码） Private Sub Command1_Click() t=Label3.Caption Label3.Caption= Label4.Caption Label4.Caption=t End Sub,教材示例3-1,基本语句,注释与暂停 注释语句 语法格式为： Rem 或 注： Rem 与注释内容之间应加一个空格 在语句行使用Rem，语句与 Rem之间用冒号分隔 。 示例：s=Pi*r*2 计算圆的面积 v=4/3*pi*r3 :Rem 计算球的体积 暂停语句 语法格式为： Stop 注： Stop 与End 不同，不关闭任何文件或清除变量，只是设置断点，以便检查程序 。,数据输出,VB输出操作包括文本信息的输出和图形图像的输出 直接输出到窗体 使用Print方法 在窗体上输出文本字符串或表达式的值，语法格式为： .Print，|； 注： 可以是窗体(Form)、图片框(PictureBox)或打印机(Printer),省略则为窗体 可以是数值或字符串,输出多个表达式时，用逗号（,）分隔各项表示按标准输出格式显示，用（;）分隔各项表示按紧凑格式显示 语句行尾使用（,）后继输出语句在下一个分区显示； 语句行尾使用（;）后继输出语句紧接其尾显示； 语句行尾省略分隔符，后继输出语句自动换行。 Print语句有计算和输出双重功能,数据输出,示例1： 使用Print方法在窗体中直接输出字符串或数值表达式的值，如右图所示,示例1,数据输出,设计步骤如下 建立用户程序界面（如图所示） 设置对象属性 设计代码 Private Sub Command1_Click() Print Print “2*3+4=“; 2 * 3 + 4 Print Print “欢迎学习“ Print , “Visual“ Print , , “Basic“ Print Print “ 欢迎学习“, Print “Visual“; “ Basic“ End Sub,数据输出,与Print方法有关的函数 Tab函数 在Print方法中对输出进行定位，格式为： Tab（） 其中n的值为一整数 示例：Print Tab(10);”姓名”;Tab(30)”年龄” Spc函数 Spc（） 其中n的值为一整数 示例： Print “ABC”;Spc(5);”DEF” 注： Tab函数从对象的左端开始计数，Spc函数表示两个输出项之间的间隔,数据输出,示例2：用Tab函数和Spc函数改写示例1 Private Sub Command1_Click() Print Print Tab(5); “2*3+4=“; 2 * 3 + 4 Print Print Tab(6); “欢迎学习“; Tab(17); “Visual Basic“ Print Print Tab(7); “欢迎学习“; Spc(3); “Visual“; Spc(2); “Basic“ End Sub,示例2,教材示例3-2,数据输出,设计步骤如下： 建立应用程序用户界面（Command1和Picture1) 设置对象属性 设计代码 Private Sub Command1_Click() Picture1.Print Picture1.Print Tab(5); “2*3+4=“; 2 * 3 + 4 Picture1.Print Picture1.Print Tab(6); “欢迎学习“; Tab(17); “Visual Basic“ Picture1.Print Picture1.Print Tab(7); “欢迎学习“; Spc(3); “Visual“; Spc(2);“Basic“ End Sub,格式输出函数 用格式输出函数可以使数值、日期或字符型数据按指定的格式输出。 语法格式为：Format(,) 注：可以是数值型、日期型或字符型的表达式； 是一个字符串常量或变量，由专门的格式说明字符组成。这些说明字符决定了数据项的显示格式和长度； 当是字符串常量的时候，必须放在双引号中； 格式输出函数Format()返回一个Variant类型的值。 见下三页表,数据输出,常用的数值型格式说明字符,数据输出,常用的时间日期型格式说明字符,数据输出,常用的字符型格式说明字符,教材示例3-3,数据输出,使用位置属性 利用位置属性CurrentX、CurrentY（横坐标、竖坐标）可将输出文本精确定位到窗体、图片框、打印页上,数据输出,坐标原点(0, 0)在窗体的左上角 坐标轴刻度单位为缇(Twip,567缇为1厘米) 当前位置的横坐标(CurrentX)和纵坐标(CurrentY),Y,X, (CurrentX, CurrentY) 当前位置,窗体坐标系统,数据输出,补充例题 显示唐诗“静夜思” 设置以下3个命令按钮： “显示”按钮：用于显示唐诗“静夜思” “清除”按钮：用于清除所生成的文本 “结束”按钮：结束程序的运行 设计步骤如下： (1)创建应用程序的用户界面和设置对象的属性,数据输出,(2)编写程序代码。编写的三个按钮的Click事件过程代码： Private Sub CmdPrt_Click() BackColor = RGB(255, 255, 255) ForeColor = RGB(0, 0, 255) FontName = “楷体_GB2312“ FontSize = 20 FontBold = True 粗体 CurrentX = 1200:CurrentY = 350 显示位置 Print “静夜思(唐诗)“ FontName = “幼圆“ Print FontSize = 13 Print Spc(6); “床前明月光，疑是地上霜“ Print Print Spc(6); “举头望明月，低头思故乡“ End Sub,Private Sub CmdCls_Click() Cls End Sub Private Sub CmdEnd_Click() End End Sub 程序运行后，单击“显示”按钮，输出结果,方法2(2)编写程序代码。编写的三个按钮的Click事件过程代码： Private Sub CmdPrt_Click() ForeColor = RGB(0, 0, 255) FontName = “楷体_GB2312“ FontSize = 20 FontBold = True 粗体 a = “静夜思(唐诗)“ b = “床前明月光，疑是地上霜“ c = “举头望明月，低头思故乡“ Form1.CurrentX = Form1.ScaleWidth / 2 - TextWidth(a) / 2 Form1.CurrentY = Form1.ScaleHeight / 2 - TextHeight(a) / 2 - TextHeight(b) - TextHeight(c) Print a FontName = “幼圆“ Print FontSize = 13 Form1.CurrentX = Form1.ScaleWidth / 2 - TextWidth(b) / 2 Print b Print Form1.CurrentX = Form1.ScaleWidth / 2 - TextWidth(c) / 2 Print c End Sub,输入框（InputBox） InputBox函数显示一个能接收用户输入的对话框，并返回用户在对话框中输入的信息。语法格式为： 变量= InputBox （, ） 注： 指定对话框中出现的文本 指定对话框标题 指定输入框的文本框中显示的默认文本 省略可选项，应加相应的逗号分隔符（,）,数据输入,教材示例3-4,示例7：编制华氏温度和摄氏温度的相互转换程序，利用输入框输入温度，如下图所示： 设计步骤如下： 建立应用程序用户界面并设置对象属性，如下图,数据输入,示例7, 编写事件代码 Private Sub Command1_Click() c = Val(InputBox(“请输入摄氏温度值：“, “摄氏转华氏“, 0) f = 32 + 9 * c / 5 Label1.Caption = “摄氏” & c & “度=华氏” & _ Format(f, “#.#“) & “度“ End Sub Private Sub Command2_Click() f = Val(InputBox(“请输华氏温度值：“, “华氏转摄氏“, 0) c = 5 * (f - 32) / 9 Label1.Caption = “华氏” & f & “度=摄氏” & _ Format(c, “#.#“) & “度“ End Sub,数据输入,示例8：“鸡兔同笼”问题。鸡有2只脚，兔有4只脚，如果已知鸡和兔的总头数为h，总脚数为f。问笼中鸡和兔各有多少只？ 设计步骤如下： 建立应用程序用户界面并设置对象属性，如下图,数据输入,示例8, 编写事件代码 Private Sub Command1_Click() Dim h As Integer, f As Integer h = Val(InputBox(“鸡和兔的总头数“, “请输入“, 0) f = Val(InputBox(“鸡和兔的总脚数（偶数）“, “请输入“, 0) x = (4 * h - f) / 2 y = (f - 2 * h) / 2 Label2.Caption = “ 设笼中鸡和兔的总头数为“ & h & _ “，总脚数为“ & f & “。“ Label3.Caption = “ 则笼中鸡“ & x & “只，兔有“ & y & _ “只。“ End Sub,数据输入,信息对话框（MsgBox） MsgBox函数在对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮，语法格式为： 变量=MsgBox（ ， ， ） 注： 指定对话框中出现的文本 指定对话框中出现的按钮和图标，一般有三个参数,三个参数相加可以得到所需样式，其取值和含义如表,参数1出现按钮,数据输入,参数2图标类型,参数3默认按钮,数据输入, 指定对话框的标题 MsgBox返回的值指明了在对话框中选择哪一个按钮，如下表 代码中的值可以是数值，也可以是数值常量 如果省略了某些可选项，必须加入相应的逗号分隔符 若不需要返回值，则可以使用MsgBox的命令形式： MsgBox ， ， ,函数的返回值,数据输入,示例： a=MsgBox(“请确认输入数据是否正确!”,3+32+0,“数据检查”) 运行结果如下图：,数据输入,示例9或例3-6：使用信息对话框输出各种票额钞票张数的付款方案 设计步骤如下： 建立应用程序用户界面（如下图左）,数据输入,示例9,Private Sub Command1_Click() x = Val(Text1.Text) Y1 = x 100 : x = x Mod 100 Y2 = x 50 : x = x Mod 50 Y3 = x 10 : x = x Mod 10 Y4 = x 5 : x = x Mod 5 Y5 = x 2 : x = x Mod 2 Text1.SelStart = 0 : Text1.SelLength = Len(Text1.Text) : Text1.SetFocus a = “=“ & Chr(13) a = a & Format(Y1 & “张 百元票,“, “) & _ Format(Y2 & “张 50元票“, “) & Chr(13) a = a & Format(Y3 & “张 10元票,“, “) a = a & Format(Y4 & “张 5元票“, “) & Chr(13) a = a & Format(Y5 & “张 2元票,“, “) a = a & Format(x & “张 1元票“, “) & Chr(13) a = a & “=“ & Chr(13) a = a & “共计“ & Text1.Text & “元“ C = MsgBox(a, 0, “应发工资“) End Sub,数据输入,图片框（PictureBox）和图像框（Image）都用于显示图形，它们可以显示.bmp(位图)，.ico(图标)，.wmf(图元)，.gif和.jpg等类型的图形文件 图片框（PictureBox）可以作为其他控件的容器 常用属性 与窗体属性相同的属性：Enabled，Name，Visible，FontBold，FontName，FontSize，AutoRedraw，Height，Left，Top，Width等 Picture属性 该属性用于设置控件要显示的图形。该属性无论是在属性窗口中设置还是在运行时由程序代码设置，均需要完整的路径和文件名。 AutoSize属性 返回或设置控件大小是否自动调整大小，以完整显示图形。如果设置为True，图片框根据图形大小自动调整。如果设置为False，保持原尺寸，当图形比图片框大时，则超出部分会自动被截去。,图片框, CurrentX和CurrentY属性 用来返回或设置下一个输出的水平（CurrentX）或垂直（CurrentY）坐标。这两个属性只能在运行时使用，语法格式： 对象名称.CurrentX= x 对象名称.CurrentY= y “对象”可以是窗体、图片框或打印机。如果省略“对象”，则指当前窗体；如果省略“=x”、“=y”，则返回当前的坐标值。 Align属性 设置图片框在窗体中的显示方式。如表3-6所示。 图片框常用事件及方法 图片框控件与窗体一样，支持Click和DblClick等事件。支持图形方法和Print方法。图形方法有Circle（画圆）、Line（画直线）和Point（画点）等。,图片框,数据输出,图片框的使用 设置Picture属性可以显示和消除图形；用Print方法可以向图片框输出文本；用图形方法可以在图片框中画图形 输出文本到图片框（PictureBox） 图片框控件可以输出图形、图像、文本，还可以像窗体一样作容器包含其他控件。 示例5：使用Print方法在图片框中输出字符串或表达式的值，如下图,示例5,图形文件的装入 在设计阶段装入图形文件 设计阶段装入图形有以