VB程序设计第四章数据输入输出.ppt

Visual Basic 程序设计教程,,内蒙古科技大学实践训练中心,第四章 数据输入输出,4.1 数据输入输出控件,4.1.1 用标签输出数据 标签主要用于显示文本信息。它所显示的内容只能用Caption属性来设置或修改。 例【4-1】利用两个标签显示具有浮雕效果的文字。 解题思路：所谓浮雕效果就是使显示的文字利用黑色和白色的错位叠加来实 现，第一个标签的背景必须为透明的，两个标签的文字、字体大小必须一致。,4.1 数据输入输出控件,4.1.2 用文本框输入输出数据 文本框是一个文本编辑区域，常用于在程序运行时接收用户输入的数据。 例【4-2】在一个文本框中输入字符，另一文本框输出其ASCII码值。 解题思路：利用文本框的KeyPress事件输出字符的ASCII码值。,Private sub text1_keypress(keyascii as integer) text2.text=keyascii End sub,4.1 数据输入输出控件,4.1.2 用文本框输入输出数据 例【4-3】在利用文本框对输入的非数字数据进行字符串连接。 解题思路：在文本框中输入数据，可通过回车表示输入结束，在KeyPress事 件中对输入的键是否为回车符（ASCII码为13）进行判断；也可以通过按Tab 键或单击其他对象不是输入结束，本题采用第二种方式表示输入结束。,4.2 数据输出方法,4.2.1 Print方法 Print方法可以在窗体上显示文本字符串和表达式的值，也可在其他图形对象或打印机上输出信息。 格式：对象名.Print表达式表,|; 说明： “对象名”可以是窗体(Form)、立即窗口(Debug)、图片框(PictureBox)、 打印机(Printer)，若省略，则在当前窗体上输出。 例如： Print “Good Morning” 将字符串Good Morning显示在窗体上 Picture1.print “Good Morning” 把字符串Good Morning显示在图 片Picture1上 Printer.Print “Good Morning” 将“Good Morning”输出到打印机,4.2 数据输出方法,4.2.1 Print方法 “表达式表”是一个或多个表达式。对于数值表达式，先计算出表达式的 值，再输出；而字符串则原样输出；若省略，则输出一个空行。 例如： Print 180/3 输出表达式的值60 Print 输出一空行 Print “X=180/3” 输出字符串”X=180/3” 表达式表中各表达式之间用分隔符（逗号或分号）隔开。 用逗号分隔：按标准输出格式显示数据项，以14个字符位置为单位将输 出行分成若干个区域，每区段输出一个表达式的值。 用分号分隔：以紧凑格式输出。 例如： a=10:b=15:c=30 Print a,b,c,”ABCD” Print Print “X=“;a+b+c,4.2 数据输出方法,4.2.1 Print方法 Print方法具有计算和输出的双重功能，对于表达式，则先计算后输出； 例：x=5:y=10 Print (x+y)/3 结果为5 分号或逗号为结尾符号。一般每执行一次Print方法要自动换行，而以逗号或分号作为结尾符号则不换行，仍按紧凑格式或标准格式显示下一个信息。 例如：print 1,2, print 3; print 4 结果： 1 234,4.2 数据输出方法,4.2.2 与Print方法有关的函数 1、Tab函数 格式：Tab(n) 与Print方法一起使用，在参数n指定的位置输出其后的表达式的值。 例： Print Tab（25）；“ABC” 将在第25个位置显示”ABC” 说明： 参数n为一整数，用来指定表达式输出的起始列数；若省略，则Tab将 输出点移动到下一个输出区的起点； 若n1，则Tab将输出位置移动到第1列，当n比行宽时，则显示位置为 n Mod 行宽 当在一个Print方法中有多个Tab函数时，每个Tab函数对应一个输出 项，各项之间用分号隔开；,4.2 数据输出方法,4.2.2 与Print方法有关的函数 2、Spc函数 格式：Spc(n) 与Print方法一起使用，使光标从当前位置跳过n个空格，对输出位进 行定位 说明： 与Tab函数不同的是，Tab函数的参数n是相对于屏幕最左列而言的列 号，而Spc函数中的n是相当于前一输出项的最后一个字符而言跳过的空 格数。 例： Print “Hello“；Tab(10)；”World“ 第二个字符串从第10列输出 Print ”Hello“；Spc(10)；”World“ 两个字符串之间相隔10个空格,4.2 数据输出方法,4.2.2 与Print方法有关的函数 3、Format函数 格式：Format$(数值表达式，格式字符串) 用Format函数可以使数值表达式的值按”格式字符串“指定的格式输出 数值格式化输出 ：表示一个数字位，其个数决定了显示串的长度；若要显示的数 据位数多于号个数，则原样输出，若少于个数，则在指定区域 段内左对齐显示数据项。 0 ：与功能相同，但当要显示的数据位数少于0的个数时，多于 的位在高位以0补齐，并左对齐显示该数据项。 Print format(19330,”) 结果为：19330 Print format(19330,”00000000”) 结果为：00019330,4.2 数据输出方法,4.2.2 与Print方法有关的函数 小数点：小数点与或0结合，可以放在格式字符串的任何位置，根据格 式字符串的位置，小数部分多于的数字按四舍五入处理。 Print format(897.12,”.“) 结果为：897.12 Print format(7.887,”000.00“) 结果为：007.89 逗号： 在格式字符串中插入逗号，起到”分位“作用。 Print format(12345.67,”，.“) 结果为：12，345.67 ：通常放在格式字符串的尾部，用来输出百分号； $：通常放在格式字符串的首部，用来输出美元符号，输出的数字前面街 上$符号； 、：放在格式字符串首部，为输出的数据添加正、负号； E、E：表示用指数形式显示数值；,4.2 数据输出方法,4.2.2 与Print方法有关的函数 日期和时间格式化 日期和时间格式化是将日期类型的值或数值表达式的值以日期、时间的序 数值按”格式字符串“指定的格式输出。具体格式见教材。 时间分钟的格式说明符m，mm与月份的说明相同，区分的方法：跟在h， hh后的为分钟，否则为月份。 例【4-4】：利用Format函数显示有关的日期和时间。,Private Sub Form_Click() fontsize=12 mytime=#9:21:30PM# mydate=#7/21/1997# print tab(2);format(mydate,”m/d/yy”) print tab(2);format(mydate,”mmmm-yy”) print tab(2);format(mytime,”h-m-s AM/PM”) print tab(2);format(mytime,”hh:mm:ss A/P”) End sub,4.2 数据输出方法,4.2.2 与Print方法有关的函数 例【4-5】：试验数值的格式化输出。 private sub form_click() print format(12345.6,”000,000.00”) print format(12345.6,”#,#.#”) print format(12345.678,”#,#.#”) print format(12345.6,”$#,#0.00”) print format(0.123,”0.00”) print format(12345.6,”0.00E+00”) end sub,4.3 数据输入输出函数和过程,4.3.1 InputBox函数 InputBox()函数产生一个对话框，该对话框可作为输入数据的界面，等待用户输入数据或按下按钮，并返回所输入的内容。 格式： InputBox$(prompt，title，default，xpos，ypos) 参数说明： (1) prompt：是作为对话框提示信息出现的字符串表达式，不可省略。 (2) title：作为对话框的标题，显示在对话框顶部的标题区。 (3) default：为一字符串，用来作为对话框用户输入区域的默认值。 (4) xpos，ypos：是两个整数值，作为对话框左上角在屏幕上的点坐标 返回值：String类型（每执行一次InputBox，只能输入一个数据）,4.3 数据输入输出函数和过程,4.3.1 InputBox函数 例【4-6】设计一个程序，由用户输入一个华氏温度F，程序可将其转换为摄 氏温度C。转换公式：C=5/9*(F32) 解题思路：利用InputBox输入华氏温度，再利用公式转化为摄氏温度并显示,Private command1_click() Dim f as long,c as long f=inputbox(“请输入华氏温度：”,”华氏温度转化为摄氏温度”) c=5/9*(f-32) text1.text=f text2.text=c End sub,4.3 数据输入输出函数和过程,4.3.2 MsgBox（）函数 格式：MsgBox(msg，type，title) 参数说明： (1) Msg：提示信息，不可省略。 (2) type：指定显示按钮的数目及形式，默认按钮是什么以及消息框的 强制返回等级。该参数为一数值表达式，是各种选择值的总和，默认为0 type参数的设置值可参考教材列表。 (3) title：信息框的标题。 返回值：返回一个整数。可根据其返回值，确定下一步操作。,4.3 数据输入输出函数和过程,4.3.2 MsgBox函数 MsgBox函数的返回值,4.3 数据输入输出函数和过程,4.3.2 MsgBox函数,例【4-7】Msg函数应用1 private sub command1_click() msg1$=“要继续吗？” msg2$=“例提示信息” r=msgbox(msg1$,34,msg2$) end sub 注：342320；决定了对话框有“终止”、“重试”和“忽略”三个按钮，图 标为”？”，默认为低格按钮。,4.3 数据输入输出函数和过程,4.3.2 MsgBox函数,例【4-8】 Msg函数应用2 private sub command1_click() msg=“请确认此数据是否正确？” style=vbYesNo+vbCritical+vbDefaultButton2 response=msgbox(msg,style,”例提示信息”) if response=vbYes then mystring=“结果正确” else mystring=“结果错误” end if msgbox mystring end sub 注：也可写成 style=4+16+256,4.3 数据输入输出函数和过程,4.3.3 MsgBox过程 格式：MsgBox Msg$，type，title 无返回值，常用于简单的信息显示。 type、title的含义同MsgBox函数。,Private sub command1_click() msg=“请保存文件！系统即将关闭！” msgbox msg,0,”例title” End sub,4.4 字体、字形和颜色,4.4.1 属性列表的Font属性 从“属性”列表中选择“Font“属性，然后单击”“的小按钮，在出现的字体 设置框中修改字体的属性。 Private sub form_click() form1.fontname=“隶书” form1.fontsize=20 form1.fontitalic=true 设置字体为斜体 form1.forecolor=&HFF& 字体颜色为红色 print “中国” End Sub,4.4 字体、字形和颜色,4.4.2 字体类型和大小 1、字体类型：由FontName属性表示 格式：对象.控件.FontName =“字体类型” 例【4-9】 改变窗体的字形输出 private sub command1_click() fontname=“宋体” print fontname;”我们走进信息时代” 输出字体名称及文字 print 输出一个空行 fontname=“隶书” print “隶书式样”；“信息娇子” print end sub,4.4 字体、字形和颜色,4.4.2 字体类型和大小 2、字体大小：用FontSize属性表示，可设置或显示字体大小 格式：FontSize 点数 当省略“点数”时，该属性以数值形式返回当前对象显示字体的大小; 系统默认为的字体点数为8（相当于小五号字体) 例【4-10】 改变窗体字体大小 Private Sub command1_click() Dim strx$ strx$=“Welcome to Beijing” fontsize=30 fontname=“system” print “System”;strx$ fontsize=18 fontname=“Terminal” print “Terminal”；strx$ end sub,4.4 字体、字形和颜色,4.4.3 其他属性 1、粗体字：由FontBold属性设置 格式：FontBold Boolean 省略选项时，FontBold属性返回其当前值。参数Boolean取值为True 时，FontBold属性为粗体，否则文本按正常字体输出，默认为False。 2、斜体字：由FontItalic属性设置 格式：FontItalicBoolean 3、加中划线：由FontStrikethru属性设置 格式：FontStrikethruBoolean 4、加下划线：由FontUnderLine属性设置 格式：FontUnderLineBoolean 5、重叠显示：当以图形或文本为背景显示新的信息时，有时需要保留原来 的背景，使新显示的信息与背景信息重合，可由FontTransparent属性 设置。 格式：FontTransparentBoolean,4.4 字体、字形和颜色,4.4.3 其他属性 注意： 除重叠显示属性（FontTrasparent）只适用于窗体和图片控件外，其 他属性适用于各种控件及打印机。默认对象名为窗体，否则应加对象 名： Printer.FontItalic=True 设置一种属性后，该属性即开始起作用，只有再次设置该属性，才会 改变其值。,4.4 字体、字形和颜色,4.4.3 其他属性 例【4-11】字体风格的设定 Private sub form_click() sample$=“VB程序设计” fontsize=20 字体大小为20 print sample$ fontbold=true 字体加粗 print sample$ fontitatlic=true 字体为斜体 print sample$ fontstrikethru=true 加中划线 print sample$ fontunderline=true 加下划线 print sample$ fonttransparent=true 设置变量重叠 print sample currentx=1000 设置当前光标的x、y坐标 currenty=1500 print “AAAAAAAAAA” 在(x,y)处输出 End Sub,4.4 字体、字形和颜色,4.4.4 颜色及颜色参数 1、调色板 从属性窗口中找到要设置的颜色属性； 从“视图”“调色板”中设置颜色属性； 2、颜色参数 使用RGB函数 格式：RGB(红色值，绿色值，蓝色值) 3个参数均为整数，取值范围：0255；0亮度最低，255亮度最高 例如，黄色RGB(255,255,0),其中0代表没有蓝色 白色RGB(255,255,255) Form1.Backcolor=RGB(0,128,0) 设定窗体背景色为绿色 Form1.ForecolorRGB(255,255,0) 设定窗体前景色为黄色,4.4 字体、字形和颜色,4.4.4 颜色及颜色参数 2、颜色参数 QBColor函数 格式：QBColor(颜色值) “颜色值”的取值范围为：015 例如：Forme1.BackColor=QBColor(3) 设置窗体背景色为青色 颜色常数 Visual Basic定义了8种常用颜色和Windows控制面板使用的系统颜色。 具体见教材列表。,4.4 字体、字形和颜色,4.4.4 颜色及颜色参数 常用颜色常量,4.4 字体、字形和颜色,4.4.4 颜色及颜色参数 2、颜色参数 直接使用颜色设置值 通常用十六进制表示颜色值： &HBBGGRR& 其中：BB：指定蓝颜色的值 GG：指定绿颜色的值 RR：指定红颜色的值 每个数段都是两位十六进制 数，从00到FF，中间值为80。 如：&H808080& 指定灰色,4.4 字体、字形和颜色,4.4.4 颜色及颜色参数 例【4-12】：用程序在窗体上设置窗体前景色和背景色，字号为24磅的字符 串“Welcome！” 解题思路：设置窗体的背景色的命令为“backcolor=”；设置窗体的前景色 的命令为“forecolor=” private sub command1_click() form1.backcolor=&HFFFF& 设置窗体背景色为黄色 form1.forecolor=&HFF& 设置窗体前景色为红色 form1.fontsize=24 设置窗体输出字号为24 form1.print “Welcome!” End sub,4.5 打印机输出,4.5.1 打印表达式结果值 格式：Printer.Print 例 打印机输出测试 Private Sub Form_Click() Printer.FontName=“黑体“ Printer.FontSize=24 Printer.Bold=True Printer.UnderLine=True Printer.Print ”打印机输出测试“ Printer.EndDoc 结束打印文件 End Sub,4.5 打印机输出,4.5.