第三章 数据输入输出实验

《第三章 数据输入输出实验》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第3章数据输入与输出实验一数据输入与输出通过实验掌握数据输入与输出的方法和函数。熟悉数据输出Print方法，学会如何使用InputBox函数，掌握MsgBox函数和MsgBox语句。一、实验案例求两个数的相加。在窗体上建立两个名称分别为C1和C2，标题分别为“输入”和“计算”的命令按钮，要求程序运行后，如果单击“输入”按钮，可通过输入对话框输入两个数(分别是64和96)，分别存入整形变量a，b中，如果单击“计算”按钮，则对a，b变量进行加法运算，并把计算结果在消息框中显示出来(该实验的工程文件保存为lab3-1.vbp，窗体

2、文件为lab3-1.frm)。图3-1输出结果图二、实验指导1．界面设计具体操作步骤如下：（1）打开VisualBasic集成开发环境窗口，选择“文件”菜单的“新建工程”选项，在弹出的对话框中，选择“标准EXE”，会自动生成一个默认的工程和一个默认的窗体，单击“文件”菜单的“保存Form1”在弹出的对话框中，保存该窗体名称为lab3-1.frm。单击“文件”菜单的“保存工程”在弹出的对话框中，保存该工程为名称为lab3-1.vbp。（2）在属性窗口中，单击“按钮”控件，并在窗体中插入两个按钮。如图3-2所示。图3-2窗体界面

3、设计图2．属性设置根据题目要求设置对象的相应属性。设置Command1和Command2的名称分别为C1和C2，Caption属性分别为“输入”和“计算”。3．编写代码在代码区域输入如下代码：DimaAsInteger,bAsIntegerPrivateSubC1_Click()′利用输入对话框输入数据a=Val(InputBox("请输入第一个数","输入"))Form1.Print"a=";ab=Val(InputBox("请输入第二个数","输入"))Form1.Print"b=";bEndSubPrivateSubC

4、2_Click()′利用消息框显示结果MsgBoxa+b,vbOKOnly,"显示a+b的结果"EndSub4．运行调试程序在“运行”菜单下，选择“启动”按钮，调试程序，如图3-1所示的界面。单击“输入”按钮，分别在输入框中输入“64”和“96”，如图3-3和图3-4所示。图3-3输入第一个数输入框图图3-4输入第二个数输入框图然后单击“计算”的按钮，得到输出框显示的结果。三、实验体验1．实验题目（1）.设计一个标题为“输入函数测试”的窗体，当单击该窗体时，弹出一个输入对话框，要求用户输入自己的姓名，该对话框的标题为“姓名录

5、入”，对话框的文本中默认值为“Tom”。用户输入并单击“确定”后，用MsgBox()函数将用户输入的姓名显示出来。（2）用InputBox函数显示一个输入对话框，要求用户输入要查询的编号，该对话框的标题为“数据查询”，用户输入后，用MsgBox函数将用户输入的值再次显示出来。思考：如果用Print方法打印在窗体上显示或用MsgBox语句显示，程序该如何修改？（3）用MsgBox函数显示“记录内容已更改，存盘吗”的消息框。要求消息框显示蓝色问号图标和“是”与“否”两个按钮。若用户选择了“是”按钮，则用MsgBox过程弹出另外一

6、个消息框，其内容为“记录内容已存盘”。2．实验要求（1）界面设计及属性设计，创建一个窗体；（2）提示：代码编写使用InputBox函数和MsgBox函数；