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

VisualBasic程序设计教程ptc.imust.cn内蒙古科技大学实践训练中心第四章数据输入输出4.1数据输入输出控件4.1.1用标签输出数据标签主要用于显示文本信息。它所显示的内容只能用Caption属性来设置或修改。例【4-1】利用两个标签显示具有浮雕效果的文字。解题思路：所谓浮雕效果就是使显示的文字利用黑色和白色的错位叠加来实现，第一个标签的背景必须为透明的，两个标签的文字、字体大小必须一致。4.1数据输入输出控件4.1.2用文本框输入输出数据文本框是一个文本编辑区域，常用于在程序运行时接收用户输入的数据。例【4-2】在一个文本框中输入字符，另一文本框输出其ASCII码值。解题思路：利用文本框的KeyPress事件输出字符的ASCII码值。Privatesubtext1_keypress(keyasciiasinteger)text2.text=keyasciiEndsub4.1数据输入输出控件4.1.2用文本框输入输出数据例【4-3】在利用文本框对输入的非数字数据进行字符串连接。解题思路：在文本框中输入数据，可通过回车表示输入结束，在KeyPress事件中对输入的键是否为回车符（ASCII码为13）进行判断；也可以通过按Tab键或单击其他对象不是输入结束，本题采用第二种方式表示输入结束。PrivateSubForm_Load()text1.tabindex=0EndSubPrivatesubText1_LostFocus()ifisnumeric(text1.text)thentext1.setfocustext1.text=“”endifEndSubPrivatesubText2_LostFocus()ifisnumeric(text2.text)thentext2.setfocustext2.text=“”endifEndSubPrivatesubText3_GotFocus()text3.text=text1.text+text2.textEndSub4.2数据输出方法4.2.1Print方法Print方法可以在窗体上显示文本字符串和表达式的值，也可在其他图形对象或打印机上输出信息。格式：[对象名.]Print[表达式表][,|;]说明：⑴“对象名”可以是窗体(Form)、立即窗口(Debug)、图片框(PictureBox)、打印机(Printer)，若省略，则在当前窗体上输出。例如：Print“GoodMorning”‘将字符串GoodMorning显示在窗体上Picture1.print“GoodMorning”‘把字符串GoodMorning显示在图片Picture1上Printer.Print“GoodMorning”‘将“GoodMorning”输出到打印机4.2数据输出方法4.2.1Print方法⑵“表达式表”是一个或多个表达式。对于数值表达式，先计算出表达式的值，再输出；而字符串则原样输出；若省略，则输出一个空行。例如：Print180/3’输出表达式的值60Print’输出一空行Print“X=180/3”’输出字符串”X=180/3”⑶表达式表中各表达式之间用分隔符（逗号或分号）隔开。①用逗号分隔：按标准输出格式显示数据项，以14个字符位置为单位将输出行分成若干个区域，每区段输出一个表达式的值。②用分号分隔：以紧凑格式输出。例如：a=10:b=15:c=30Printa,b,c,”ABCD”PrintPrint“X=“;a+b+c4.2数据输出方法4.2.1Print方法⑷Print方法具有计算和输出的双重功能，对于表达式，则先计算后输出；例：x=5:y=10Print(x+y)/3‘结果为5⑸分号或逗号为结尾符号。一般每执行一次Print方法要自动换行，而以逗号或分号作为结尾符号则不换行，仍按紧凑格式或标准格式显示下一个信息。例如：print1,2,print3;print4结果：□1□□□□□□□□□□□□2□□□□□□□□□□□□□3□□4□4.2数据输出方法4.2.2与Print方法有关的函数1、Tab函数格式：Tab[(n)]与Print方法一起使用，在参数n指定的位置输出其后的表达式的值。例：PrintTab（25）；“ABC”‘将在第25个位置显示”ABC”说明：⑴参数n为一整数，用来指定表达式输出的起始列数；若省略，则Tab将输出点移动到下一个输出区的起点；⑵若n1，则Tab将输出位置移动到第1列，当n比行宽时，则显示位置为nMod行宽⑶当在一个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补齐，并左对齐显示该数据项。Printformat(19330,”＃＃＃＃＃＃＃＃”)‘结果为：19330Printformat(19330,”00000000”)‘结果为：000193304.2数据输出方法4.2.2与Print方法有关的函数③小数点：小数点与＃或0结合，可以放在格式字符串的任何位置，根据格式字符串的位置，小数部分多于的数字按四舍五入处理。Printformat(897.12,”＃＃＃.＃＃“)‘结果为：897.12Printformat(7.887,”000.00“)‘结果为：007.89④逗号：在格式字符串中插入逗号，起到”分位“作用。Printformat(12345.67,”＃＃，＃＃.＃＃“)‘结果为：12，345.67⑤％：通常放在格式字符串的尾部，用来输出百分号；⑥$：通常放在格式字符串的首部，用来输出美元符号，输出的数字前面街上$符号；⑦＋、－：放在格式字符串首部，为输出的数据添加正、负号；⑧E＋、E－：表示用指数形式显示数值；4.2数据输出方法4.2.2与Print方法有关的函数⑵日期和时间格式化日期和时间格式化是将日期类型的值或数值表达式的值以日期、时间的序数值按”格式字符串“指定的格式输出。具体格式见教材。①时间分钟的格式说明符m，mm与月份的说明相同，区分的方法：跟在h，hh后的为分钟，否则为月份。例【4-4】：利用Format函数显示有关的日期和时间。PrivateSubForm_Click()fontsize=12mytime=#9:21:30PM#mydate=#7/21/1997#printtab(2);format(mydate,”m/d/yy”)printtab(2);format(mydate,”mmmm-yy”)printtab(2);format(mytime,”h-m-sAM/PM”)printtab(2);format(mytime,”hh:mm:ssA/P”)Endsub4.2数据输出方法4.2.2与Print方法有关的函数例【4-5】：试验数值的格式化输出。privatesubform_click()printformat(12345.6,”000,000.00”)printformat(12345.6,”###,###.##”)printformat(12345.678,”###,###.##”)printformat(12345.6,”$##,##0.00”)printformat(0.123,”0.00”)printformat(12345.6,”0.00E+00”)endsub4.3数据输入输出函数和过程4.3.1InputBox函数InputBox()函数产生一个对话框，该对话框可作为输入数据的界面，等待用户输入数据或按下按钮，并返回所输入的内容。格式：InputBox[$](prompt，[title]，[default]，[xpos，ypos])参数说明：(1)prompt：是作为对话框提示信息出现的字符串表达式，不可省略。(2)title：作为对话框的标题，显示在对话框顶部的标题区。(3)default：为一字符串，用来作为对话框用户输入区域的默认值。(4)xpos，ypos：是两个整数值，作为对话框左上角在屏幕上的点坐标返回值：String类型（每执行一次InputBox，只能输入一个数据）4.3数据输入输出函数和过程4.3.1InputBox函数例【4-6】设计一个程序，由用户输入一个华氏温度F，程序可将其转换为摄氏温度C。转换公式：C=5/9*(F－32)解题思路：利用InputBox输入华氏温度，再利用公式转化为摄氏温度并显示Privatecommand1_click()Dimfaslong,caslongf=inputbox(“请输入华氏温度：”,”华氏温度转化为摄氏温度”)c=5/9*(f-32)text1.text=ftext2.text=cEndsub4.3数据输入输出函数和过程4.3.2MsgBox（）函数格式：MsgBox(msg[，[type][，title]]))参数说明：(1)Msg：提示信息，不可省略。(2)type：指定显示按钮的数目及形式，默认按钮是什么以及消息框的强制返回等级。该参数为一数值表达式，是各种选择值的总和，默认为0type参数的设置值可参考教材列表。(3)title：信息框的标题。返回值：返回一个整数。可根据其返回值，确定下一步操作。4.3数据输入输出函数和过程4.3.2MsgBox函数MsgBox函数的返回值符号常量值描述vbOkvbCancelvbAbortvbRetryvbIgnorevbYesvbNo1234567确定取消终止重试忽略是否4.3数据输入输出函数和过程4.3.2MsgBox函数例【4-7】Msg函数应用－1privatesubcommand1_click()msg1$=“要继续吗？”msg2$=“[例]提示信息”r=msgbox(msg1$,34,msg2$)endsub注：34＝2＋32＋0；决定了对话框有“终止”、“重试”和“忽略”三个按钮，图标为”？”，默认为低格按钮。4.3数据输入输出函数和过程4.3.2MsgBox函数例【4-8】Msg函数应用－2privatesubcommand1_click()msg=“请确认此数据是否正确？”style=vbYesNo+vbCritical+vbDefaultButton2response=msgbox(msg,style,”[例]提示信息”)ifresponse=vbYesthenmystring=“结果正确”elsemystring=“结果错误”endifmsgboxmystringendsub注：也可写成style=4+16+2564.3数据输入输出函数和过程4.3.3MsgBox过程格式：MsgBoxMsg$[，[type][，title]]无返回值，常用于简单的信息显示。type、title的含义同MsgBox函数。Privatesubcommand1_click()msg=“请保存文件！系统即将关闭！”msgboxmsg,0,”[例]title”Endsub4.4字体、字形和颜色4.4.1属性列表的Font属性从“属性”列表中选择“Fo