资源描述
Click to edit Master text styles,Second level,Third level,Fourth level,Fifth level,工程训练中心,*,Click to edit Master title style,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,第八讲 数据输入输出函数,Visual Basic,程序设计教程,内蒙古科技大学工程训练中心,韩 艳,主要内容,InputBox,函数的使用,MessageBox,函数的使用,MessageBox,方法的使用,2,工程训练中心,一、,数据输入输出函数和过程,1,、,InputBox,函数,InputBox,(),函数产生一个对话框，该对话框可作为输入数据的界面，等待用户输入数据或按下按钮，并返回所输入的内容。,格式,：,InputBox$(prompt,，,title,，,default,，,xpos,，,ypos,),参数说明：,(1)prompt,：是作为对话框提示信息出现的字符串表达式，不可省略。,(2)title,：作为对话框的标题，显示在对话框顶部的标题区。,(3)default,：为一字符串，用来作为对话框用户输入区域的默认值。,(4),xpos,，,ypos,：,是两个整数值，作为对话框左上角在屏幕上的点坐标,返回值：,String,类型,（每执行一次,InputBox,，只能输入一个数据）,3,工程训练中心,一、,数据输入输出函数和过程,1,、,InputBox,函数,例：,设计一个程序，由用户输入一个华氏温度,F,，程序可将其转换为摄,氏温度,C,。转换公式：,C=5/9*(F,32),解题思路,：,利用,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,工程训练中心,一、,数据输入输出函数和过程,2,、,MsgBox,（）函数,格式：,MsgBox(msg,，,type,，,title),参数说明：,(1),Msg,：提示信息，不可省略。,(2),type,：指定显示按钮的数目及形式，默认按钮是什么以及消息框的,强制返回等级。该参数为一数值表达式，是各种选择值的总和，默认为,0,type,参数的设置值可参考教材列表。,(3),title,：信息框的标题。,返回值：返回一个整数,17,。,可根据其返回值，确定下一步操作,。,5,工程训练中心,一、,数据输入输出函数和过程,2,、,MsgBox,函数,MsgBox,函数的返回值,符号常量,值,描述,vbOk,vbCancel,vbAbort,vbRetry,vbIgnore,vbYes,vbNo,1,2,3,4,5,6,7,确定,取消,终止,重试,忽略,是,否,6,工程训练中心,一、,数据输入输出函数和过程,2,、,MsgBox,函数,例：,Msg,函数应用,1,Private Sub Command1_Click(),msg1$=“,要继续吗？”,msg2$=“,例,提示信息”,r=msgbox(msg1$,34,msg2$),End Sub,注：,34,2,32,0,；决定了对话框有“终止”、“重试”和“忽略”三个按钮，图,标为,”,？,”,，默认为低格按钮。,7,工程训练中心,一、,数据输入输出函数和过程,2,、,MsgBox,函数,例：,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,8,工程训练中心,一、,数据输入输出函数和过程,3,、,MsgBox,过程,格式：,MsgBox,Msg,$,，,type,，,title,无返回值,，,常用于简单的信息显示。,type,、,title,的含义同,MsgBox,函数。,Private sub command1_click(),msg,=“,请保存文件！系统即将关闭！”,msgbox,msg,0,”,例,title”,End sub,9,工程训练中心,
展开阅读全文