vb第7章输入输出技术

第7章输入输出技术本章要点:

•数据输入

•数据输出17.1数据输入输入框(InputBox)；文本框(TextBox)7.1.1用输入框(InputBox)输入数据1.格式

InputBox(<提示信息>[,<对话框标题>][,<默认值>])2.功能提示一对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。<提示信息>:字符串表达式。用Chr(13)、Chr(10)、

Chr(13)&Chr(10)、vbCrLf可换行。<对话框标题>:字符串表达式。<默认值>:字符串表达式。如果省略，则默认为空。函数返回值:字符串(在对话框中单击取消则返回"")2单击“确定”，返回文本框中的文本到变量R中单击“取消”，返回一个零长度的字符串例:PrivateSubForm_Activate()DimRAsString,AREAAsSingle

R=InputBox("请输入半径","计算面积","1")

AREA=3.14*Val(R)^2PrintVal(R),AREAEndSub37.1.2用文本框(TextBox)输入数据【例题】设计如下图所示的界面，运行时，输入某同学三门课的成绩，计算平均成绩。按要求编程。Text4(设Locked为True)Text1Text2Text3Command1Command2Command34①单击“计算”按钮求平均成绩PrivateSubCommand1_Click()A=Val(Text1.Text)B=Val(Text2.Text)C=Val(Text3.Text)Text4.Text=(A+B+C)/3EndSub5②当输入成绩的文本框获得焦点时，选中其中的文本PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength

=Len(Text1.Text)EndSubPrivateSubText2_GotFocus()Text2.SelStart=0Text2.SelLength=Len(Text2.Text)EndSubPrivateSubText3_GotFocus()Text3.SelStart=0Text3.SelLength=Len(Text3.Text)EndSub6③当输入成绩的文本框内容发生变化时，清除平均值PrivateSubText1_Change()Text4.Text=""EndSubPrivateSubText2_Change()Text4.Text=""EndSubPrivateSubText3_Change()Text4.Text=""EndSub7④单击“清除”按钮清除所有文本框的内容，并将焦点定位在文本框Text1中。PrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""

Text1.SetFocus

EndSub⑤单击“退出”按钮结束程序的运行。PrivateSubCommand3_Click()EndEndSub87.2数据输出Print方法、消息框(MsgBox)

、文本框、标签7.2.1用Print方法输出数据1.Print方法格式:[<对象名>.]Print[<表达式表>][{;|,}]<对象名>:窗体如Form1.Print"Hello"

图片框如Picture1.Print"Hello"

打印机如Printer.Print"Hello"

立即窗口如Debug.Print"Hello"

省略:默认为当前窗体。

<表达式表>:多个表达式使用逗号或分号隔开。逗号:以14个字符位置为单位把一个输出行分成若干区段。分号:后一项紧跟前一项输出。9输出时，数值型数据前有一个符号位(正号不显)，后面留一个空格位；字符串原样输出，前后无空格。例:PrivateSubForm_Activate()Print"12345678901234567890"Print"2+4=";2+4Print"2-4=",2-4EndSub例:PrivateSubForm_Activate()Print"12345678901234567890"Print"2+4=";2+4,Print"2-4=";Print2-4EndSub10例:PrivateSubForm_Load()

Form1.ShowPrint"12345678901234567890"Print'产生空行

Print"2+4=";2+4,Print'取消上面一句末尾逗号的作用

Print"2-4=";Print2-4EndSub输入Print时可用?代替，VB将其自动转换成Print112.与Print方法有关的函数(1)Tab函数格式:Tab[(n)]

功能:在指定的第n个位置上输出数据。参数n:n<当前位置:打印位置为下一行的第n列

n<1:打印位置为第1列n>输出行宽度:打印位置为nMod行宽省略:打印位置为下一个打印区的起点(每14个字符为一个打印区)12例:PrivateSubForm_Activate()Print"12345678901234567890"Print"Hello";Tab(10);"World"Print"Hello";Tab;"World"Print"Hello";Tab(4);"World"PrintTab(-5);"Hello"EndSub13(2)Spc函数格式:Spc(n)

功能:跳过n个空格。例:Print"HOW";Spc(3);"ABOUT"

结果:HOW∪∪∪ABOUT147.2.2用消息框(MsgBox)输出数据格式:MsgBox(<提示信息>[,<按钮类型>][,<对话框标题>])功能:在对话框中显示消息，等待用户单击按钮，并返回一个整数告诉用户单击了哪个按钮。<提示信息>:字符串表达式。用Chr(13)、Chr(10)、

Chr(13)&Chr(10)、vbCrLf可换行。<按钮类型>:数值型数据。按钮类型+图标类型+默认按钮。<对话框标题>:字符串表达式。返回值:由在对话框中按下哪种按钮决定。15例:<提示信息>PrivateSubCommand1_Click()A=MsgBox("提示信息")EndSub例:<提示信息>换行PrivateSubCommand1_Click()A=MsgBox("第一行"&

Chr(13)&"第二行")EndSub16例:<对话框标题>

PrivateSubCommand1_Click()A=MsgBox("提示信息",,"标题内容")

EndSub例:按钮类型—0到5或符号常量

PrivateSubCommand1_Click()A=MsgBox("提示信息",1,"标题内容")

EndSub17例:图标类型—16、32、48、64或符号常量

PrivateSubCommand1_Click()A=MsgBox("提示信息",16,"标题内容")

EndSub例:默认按钮—0，256，512

PrivateSubCommand1_Click()a=MsgBox("提示信息",2+256,"标题内容")

PrintaEndSub按回车打印4187.2.3用文本框(TextBox)输出数据【例题】在Text1中输入任一英文字母，在Text2中显示该英文字母及其ASCII码值。要求在文本框Text2中显示出所有输入的英文字母及其ASCII码值Text1Text2Command119PrivateSubCommand1_Click()DimCharAsString*1Char=Trim(Text1.Text)Text2.Text=Text2.Text&Space(5)&Char&_Space(10)&Str(Asc(Char))&vbCrLf

Text1.SetFocus

Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSubChr(13)&Chr(10)207.2.4用标签(Label)输出数据【例题】测试标签的边框样式和透明样式。在窗体上放置一标签，显示“VisualBasic程序设计教程”，放置四个命令按钮，Command1放在Command2上，Command3放在Command4上。运行时，单击相应按钮，界面发生相应变化。Label1Command2Command1Command3Command421PrivateSubCommand2_Click()Label1.BorderStyle=0Command1.Visible=TrueCommand2.Visible=FalseEndSubPrivateSubCommand1_Click()Label1.BorderStyle=1Command1.Visible=FalseCommand2.Visible=TrueEndSub22PrivateSubCommand3_Click()Label1.BackStyle=1Command3.Visible=FalseCommand4.Visible=True