实验3数据的输入与输出

《实验3数据的输入与输出》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、卖验三数据的输入与输出一、实验目的1.掌握Print方法的使用，尤其是各种输出格式的设置。2.掌握InputBox函数的使用。3.掌握MsgBox两数和MsgBox语句的使用。二、实验内容1.实验准备在练习文件夹中建立vb3・l、vb3・2、vb3・3、vb3・4、vb3・5、vb3・6、vb3-7文件夹。2.Print方法实验例1：设计一个简单的VB程序。程序运行时，单击窗体，分别用紧凑格式、标准格式和自定义格式，在窗体上输出打印项。界面如下：图3.1打印格式实验窗体界面设计(1)创建工程。(2)建立用户界面在窗体下方画5个命令按钮，自左至右，名称依次为Command

2、1~Command5，如图3」所示。(3)设置各对彖的屈性。各控件主要屈性的设置参见表3.1。表3.1属性设置对象属性属性值说明Command1Caption紧凑格式标题Command?Caption标准格式Command3Caption自定义格式Command4Caption换行CommandsCaption消除(4)编写命令按钮的事件代码。双击“紧凑格式”按钮，进入代码编写窗口，编写如下代码:PrivateSubCommandl—ClickQaPnnt”紧凑格式，用分号分隔各个输岀项目，输出项可以是数值型表达式、或者字符串表达式：*PrintsPrint100;20

3、0;300^EndSub*-1在输入以上代码吋要注意区分中英文双引号。中文标点只能作为字符串的-部分或出现在注释文字Z屮。IPrivateSubCommand2_Click()dPnnt“标准格式'用逗号分隔各个输岀项目，各项占14(或14的整数倍)个字符：3PrintsPrint100,200,300-PEndSub*-1PrivateSubCortunandS^EckO^Pnnt“自定义格式「用T曲(it)函数，可以指定从第ri位开始输出内容：VPrintsPrintTab(20);100;Tab(40);200;Tab(60);300^EndSub®Private

4、SubCommand4_Click()3Print"空Print语1句，或者句末没有标点符号，输出后换行"卩PrintsPrint102PrintsPrint202EndSubQPrivateSubCommand5_Click()^C1S3EndSub^(5)调试运行程序。单击菜单［运行］—［启动］,或者单击工具栏的“启动”按钮」，单击各个按钮，查看效果。如单击“标准格式”和“自定义格式”按钮后，效果如图3.2所示。图3.2Print输出效果保存结果到练习文件夹中的vb3-l文件夹。3.InputBox函数实验例2：设计一个简单的VB程序，界面如下:图3.3InputB

5、ox函数实验界面设计（1）创建工程。（2）建立用户界面。各控件主要属性的设置参见表3.2。表3.2属性设置对象属性属性值说明FormlCaption3.2InputBox函数实验标题Label1Caption串相加标题Label2Caption数相加标题TextlText清空Text2Text清空Command1Caption计算并输出标题（3）双击按钮控件，切换到代码设计窗口，添加程序代码如下:PrivateSubCommandl_Click()3Dima,匕3a=InputBox("iffi输入第一个数")ab=InputBoX"®输入第二个数"WTextl.Tex

6、t=a+baa=W)'转换为数值心b=w)■转换为数值aText2.Text=a+baEndSub^(1)调试运行程序。单击“计算输出”按钮，弹出InputBox对话框，输入数据，如图3.4所示，然后单击“确定”按钮或者直接回车。两个数据都输入Z后，返回到窗体，在两个文木框中可见到串相加和数相加的结果，如图3.5所示。图3.4InputBox函数实验数据输入图3.5InpulBox函数实验运行结果保存结果到练习文件夹中的vb3-2文件夹。4・MsgBox实验例3：设计一个简单的VB程序。输入一个字符，判断它是大写字母、小写字母、数字,还是其他符号。程序代码如下：(1)创

7、建工程。(2)双击窗体控件，切换到代码设计窗口，输入代码：PrivateSubForm_ClickQ^DimCAsStringsC=InputBoxC'iM输入一个字符,:■测试字符值IfC>="0"AndC<="9"Them」MsgBoxC+"字符是一个数字"，，"测试字符值忖ElselfC>-"a"AndC<-"z"ThenaMsgBoxC+哼符是一个小写宇母J"测试宇符值。ElselfC>-"A"AndC<-"Z"Then"MsgBoxC+"字符是一个大写字即，「测试字符值。ElswMsgBoxC+”字符是一个其他字符驚「测试字符值