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

1、第5章 数据输入输出,计算机基础教学部,内容提要： 1数据输出Print方法 2 数据输入InputBox函数 3 MsgBox函数和MsgBox语句 4字形 重点： 数据输出Print方法 数据输入InputBox函数 MsgBox函数和MsgBox语句,计算机基础教学部,5.1 数据输出Print方法,5.1.1 Print方法 作用：在窗体上显示文本字符串和表达式的值，并可在其他图形对象或打印机上输出信息。 格式为：对象名称.Print表达式表，|； 说明： 1.“对象名称”可以是窗体（Form）、图片框（PictureBox）或打印机（Printer），也可以是立即窗口（Debug）

2、Picture1.Print “Visual Basic 6.0 ” 在图片框上输出 Debug.Print “Visual Basic 6.0 ” 在立即窗口上输出 Print “Visual Basic 6.0 ” 在窗体上输出 2.“表达式表”是一个或多个表达式，可以是数值表达式或字符串 Print 100 输出结果100 Print “Visual Basic 6.0 ” 输出结果Visual Basic 6.0,计算机基础教学部,5.1 数据输出Print方法,3.若输出的各表达式之间用逗号分隔，则按标准输出格式（分区输出格式）示数据项；如果各输出项之间用分号或空格作分隔符，则按紧凑

3、输出格式输出数据。 例如： x=5: y=10: z=15 Print x, y, z, ABCDEF Print x; y; z; “ABCDEF ”；GHIJK 输出结果： 5 10 15 ABCDEF 5 10 15 ABCDEFGHIJK 标准格式输出即分区格式输出，14个字符位置为一个分区 紧凑格式输出数值数据时，数字后面有一个空格。,计算机基础教学部,5.1 数据输出Print方法,4. 执行一次Print方法自动换行，尾部加逗号，分号或空格可在同一行显示 例如： Print 30+50= Print 30+50 Print 80+100= ; Print 80+100 输出结果：

4、 30+50= 80 80+100= 180,计算机基础教学部,5.1 数据输出Print方法,例：设计程序使用Print方法在窗体中显示学生信息。 Private Sub Form_Click() Dim score1 As Single Dim score2 As Single, score3 As Single score1 = 90: score2 = 87: score3 = 84 Print ; 李明; VB程序设计成绩 以紧凑格式显示各个字符串表达式 Print 省略分隔符，自动换行 Print 理论, 实验, 综合作业 以标准格式显示各个字符串表达式 Print score1,

5、 score2, score3 以标准格式显示各个数值表达式 Print Print “平均成绩：; (score1 + score2 + score3) / 3; 分 以紧凑格式显示，数值项后面有一个空格 End Sub,计算机基础教学部,5.1 数据输出Print方法,5.1.2 与Print方法有关的函数 1Tab函数 格式：Tab（n） 作用：把光标移到由参数n指定的位置 Print Tab(25); 800 在第25个位置输出800 2Spc函数 格式：Spc（n） 作用：跳过n个空格 Print “ABC”; Spc(8); “DEF“ 输出ABC ，跳过8个空格，再输出 DEF

6、3空格函数 格式：Space$（n） 作用：返回n个空格,计算机基础教学部,5.1 数据输出Print方法,4Cls方法 格式：对象.Cls 作用：清除由Print方法显示的内容 5Move方法 格式：对象.Move左边距离，上边距离，宽度，高度 作用：移动窗体或控件，并改变大小,计算机基础教学部,5.1 数据输出Print方法,5.1.3格式输出 在VB中，用函数Format来实现格式输出。 格式：Format$（数值表达式，格式字符串） 功能：按照“格式字符串”指定的格式输出“数值表达式”的值 格式字符串有三类：数值格式、日期格式和字符串格式 如：Print Format(3.14159,

7、 “#.#”),计算机基础教学部,5.1 数据输出Print方法,数值格式 说明： 对于“#”、“0”符号，当数值整数位数多于格式字符串的位数时，按照实际数值显示；小数部分多于格式字符串的位数时，则按照四舍五入显示。“0”按照规定位数显示，不足位则用0补齐，而#不进行其他操作。,计算机基础教学部,5.1 数据输出Print方法,2. 字符串格式,计算机基础教学部,5.1 数据输出Print方法,3.日期和时间格式化,计算机基础教学部,5.2 数据输入InputBox函数,作用：InputBox函数产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。 格式： In

8、putBox（prompt，title，default，xpos，ypos，helpfile，context),计算机基础教学部,5.2 数据输入InputBox函数,参数说明：,计算机基础教学部,5.2 数据输入InputBox函数,例如：有下列语句如下: Dim x as Integer x= Val(InputBox(“请输入一个数”, “输入框”, 100) 语句执行后打开如下对话框。 说明： 默认情况下，InputBox函数返回一个字符串（不是变体类型），若希望输入的值参与运算时，要将其转化为数值型，Val函数转换为相应类型的数据。,计算机基础教学部,5.2 数据输入InputBox

9、函数,例：用InputBox函数输入圆柱体的半径和高，计算圆柱体表面积和圆柱体体积。 1 设计界面,计算机基础教学部,5.2 数据输入InputBox函数,2 编写程序代码。 Private Sub Command1_Click() Dim r As Single, h As Single, s As Single, v As Single Const pi = 3.1415926 r = Val(InputBox(输入圆柱体半径) h = Val(InputBox(输入圆柱体高) s = 2 * pi * r 2 + 2 * pi * r * h v = pi * r 2 * h Text1

10、.Text = s Text2.Text = v End Sub,计算机基础教学部,5.2 数据输入InputBox函数,说明： (1) 在默认情况下，InputBox的返回值是一个字符型数据，用val函数把它转换成数值型数据。 (2) 在InputBox函数对话框中有两个按钮，当在输入区输入数据后，单击“确定”按钮(或按回车键)，返回在输入区中输入的数据；若单击“取消”按钮(或按ESC键)，并返回一个空字符串。 (3) 每执行一次InputBox函数，只能输入一个数据。如果需要输入多个值，可以写多个调用InputBox函数的语句。,计算机基础教学部,5.3 MsgBox函数和MsgBox语句

11、,MsgBox函数 格式： MsgBox(msg,type,title,helpfile,context) MsgBox语句 格式： MsgBox Msg ,type,title,helpfile,context 说明： 1 MsgBox语句与MsgBox函数功能及各参数的意义相同。不同之处在于MsgBox语句是一条语句，可以独占一行，并且没有返回值； 2 msg、title 、helpfile和context与InputBox函数中对应的参数相同； 3 type是 “按钮图标 +缺省按钮+模式”是整型表达式，决定信息框按钮数目、出现在信息框上的图标类型及操作模式；由四类数值相加产生。,图标,

12、标题,提示信息,命令按钮,计算机基础教学部,5.3 MsgBox函数和MsgBox语句,按钮及图标值如下:,计算机基础教学部,5.3 MsgBox函数和MsgBox语句,MsgBox函数返回值:,计算机基础教学部,5.3 MsgBox函数和MsgBox语句,例如：MsgBox函数返回值的应用。 语句：X = MsgBox(输入数据是否正确?, vbYesNoCancel, 数据检查) 弹出如图所示对话框，选择“是”按钮，x=6；选择“否”按钮，x=7；选择“取消”按钮，x=,InputBox函数-输入框,作用： 打开一个对话框,等待用户输入内容。 单击确定，返回输入值（字符型数据） 格式： 变

13、量名 = InputBox ( 提示,标题,默认值,X,Y),例：设置一个输入框： 提示用户输入查询学号。,提示： 若提示内容中需要换行显示：在换行处加chr(13)和chr(10) 各项参数位置必须一一对应,Msgbox函数-信息框,1.语法,变量 = MsgBox(提示内容,按钮,标题) MsgBox 提示内容 , 按钮 , 标题,2.MsgBox 函数的常用参数的说明,提示内容：必要。字符表达式，即显示在对话框中的信息,= 1024 个字符， 如果文字超过一行，可用Chr(13) + Chr(10) 换行,按 钮： 可选。整型表达式，缺省值为 0 指定信息框中按钮数目、类型、图标类型，

14、缺省按钮等,标 题： 可选。在对话框标题栏中显示的内容。 省略此项，则将应用程序名放在标题栏中,Buttons参数的设置,1.按钮的类型和数目的设置 Buttons的和=按钮设置值 + 图标设置值 + 缺省按钮值,值 按钮的设置 对应按钮名称 0 vbOKOnly-确定 1 vbOKCancel-确定、取消 2 vbAbortRetryIgnore-终止、重试、忽略 3 vbYesNoCancel-是、否、取消 4 vbYesNo-是、否 5 vbRetryCancel-重试、取消,Buttons参数值= 1 或 vbOKCancel,Buttons参数的设置,2.图标的样式 Buttons的

15、和=按钮设置值+图标设置值+缺省按钮值,16 vbCritical -,32 vbQuestion -,48 vbExclamation -,64 vbInformation -,Buttons参数值= 1+64 或 vbOKCancel+ vbInformation,Buttons参数的设置,3.说明哪一个是缺省按钮 Buttons的和=按钮设置值+图标设置值+缺省按钮值,0 VbDefaultButton1,256 VbDefaultButton2,512 VbDefaultButton3,Buttons参数值=65 ( 1+64+0) 或 vbOKCancel+ vbInformatio

16、n+VbDefaultButton1,信息框的返回值：,4.Msgbox的函数返回值 用于确定用户选择对话框的哪一个按钮，以作出不同的响应。,符号常量 返回值 对应按钮,vbOK 1-确认,vbCancel 2-取消,vbAbort 3 -终止(A),vbRetry 4-重试(R),vbIgnore 5-忽略(I),vbYes 6 - 是(Y),vbNo 7 - 否(N),计算机基础教学部,5.3 MsgBox函数和MsgBox语句,例如：编写程序，用MsgBox函数判断是否继续执行。 Private Sub Form_Click() msg$ = 请确认此数是否正确 Title$ = 数据检

17、查对话框 x = MsgBox(msg$, 19, Title$) If x = 6 Then Print x * x ElseIf x = 7 Then Print 请重新输入 End If End Sub,计算机基础教学部,5.3 MsgBox函数和MsgBox语句,练习5-1 在窗体上布置一个文本框，单击窗体，则弹出输入框，要求输入你的姓名，并且在文本框中显示你所输入的姓名。然后弹出一信息框，询问是否男生，若是，按“是”按钮，否则，按“否”按钮，这时，文本框中显示你的姓名和性别。,计算机基础教学部,5.4 字形,5.4.1字体类型和大小 1 字体类型：通过FontName属性设置 格式：

18、窗体.控件.|Printer.FontName=“字体类型” 例如： FontName=System FontName=Times New Roman FontName=宋体 2 字体大小：通过Fontsize属性设置： 格式：Fontsize=点数 例如： Text1.FontSize = 12,计算机基础教学部,5.4 字形,5.4.2其他属性 1 FontBold属性（粗体字） 格式： FontBold =Boolean 2 FontItalic属性（斜体字） 格式： FontItalic =Boolean 3 Fontstrikethru属性（加删除线） 格式： Fontstriket

19、hru =Boolean 4 Fontunderline属性（加下划线） 格式： Fontunderline =Boolean 5 FontTransParent属性（重叠显示） 格式： FontTransParent =Boolean,计算机基础教学部,5.4 字形,例：编写程序在窗体上输出多种字体。 Private Sub Form_Click() sample1$ = Microsoft Visual Basic 6.0 sample2$ = 程序设计技巧 FontSize = 20 FontName = system Print system-; sample1$ FontName =

20、 modern Print modern-; sample1$ FontSize = 24 FontName = 宋体 FontBold = True Print 宋体-; sample2$ FontName = 隶书 FontItalic = True Print 隶书-; sample2$ FontName = 黑体 FontUnderline = True Print 黑体-; sample2$ End Sub,计算机基础教学部,5.6 应用举例,例：输入三角形的3条边长，计算三角形的面积，在窗体输出该三角形的面积。 分析： 变量定义： 三角形三条边a,b,c,面积area, s ：双精度 数据输入： a = Val(InputBox(请输入第一个边) b = Val(InputBox(请输入第二个边) c = Val(InputBox(请输入第三个边) 计算步骤： 计算s的值： 计算面积： 结果输出：Print area,计算机基础教学部,5.6 应用举例,Private Sub Command1_Click() Dim a As Double, b As Double, c