VB上机实验四.docVIP

《Visual Basic语言》上机实验四 实验名称：数据的输入输出（2学时） 一、实验目的 1.掌握Visual Basic中数据输入方法。 2.掌握Visual Basic中数据输出方法。 二、背景知识 1．InputBox函数 该函数产生一个对话框，在对话框中显示提示信息，等待用户输入正文或按下按钮，此时返回包含文本框内容的字符串。 2．MsgBox函数 MsgBox函数也产生一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个Integer数，告诉用户单击了哪一个按钮。MsgBox函数根据所选定参数的不同，可以弹出不同形式的消息框供用户使用。 如果不需要返回值，只是用于显示一个简单的提示信息，采用MsgBox语句即可。 3．Print方法 Print方法用于在对象上输出表达式的值。这里的对象可以是Form（窗体）、Debug（立即窗口）、Picture（图片框）、Printer（打印机）。在窗体上Print方法的对象名可以省略。 与该方法经常搭配使用的两个函数是Spc(n)和Tab(n)，其中Spc(n)用来在输出中插入空白字符（n为要插入的空白字符数），Tab(n)用来将插入点定位在绝对列号上（n为列号）。 Print方法后面的多个输出项之间采用“，”或“；”来分隔。用“；”分隔时表示各项按紧凑格式输出，用“，”分隔时表示各项分区段输出。如果在Print语句行末尾无分隔符，表示输出完本语句内容后换行。 三、实验举例 实例1 InputBox函数的不同用法。 Private Sub Form_Click() Dim strName As String, strTitle As String Dim strDefault As String, strMyValue As String 设置提示信息 strName = 请输入数据 设置标题 strTitle = InputBox函数使用举例 设置缺省值 strDefault = 2 第一种：显示提示信息、标题及缺省值 strMyValue = InputBox(strName, strTitle, strDefault) 第二种：指定坐标：在1000，1000的位置显示对话框 strMyValue = InputBox(strName, strTitle, strDefault, 1000, 1000) 第三种：显示“帮助”按钮，使用帮助文件 strMyValue = InputBox(strName, strTitle, , , , DEMO.HLP, 10) End Sub 观察运行结果。 说明：InputBox函数InputBox函数Private Sub Command1_Click() Dim r As Integer MsgBox 最简单的MsgBox r = MsgBox(复杂的MsgBox, vbYesNo + vbCritical + vbDefaultButton2, 你看到了么?) Print 你按的值为; r End Sub 观察运行结果。 实例2完成后，要求将窗体文件保存为Syjl42.frm，工程文件保存为Syjl42.vbp。 实例3 Print方法的使用。 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Print 12345678901234567890 Print Tab(3);10;Spc(3);20,Space$(3); abc Print Print cde; Print 30;Tab(5); efg End Sub 提示：Space$(n)函数的功能是返回n个空格。 程序运行后，单击命令按钮，写出在窗体上显示的内容。请先自己填写下面横线中的内容，然后与计算机的输出结果进行比较，看是否一致，如果不一致找出其中的原因，记录下正确的结果。 （1）数值10显示在第 行的第 列和 列。 （2）数值20显示在第 行的第 列和 列。 （3）字符串abc显示在第 行的第 列、 列和 列。 （4）字符串cde显示在第 行的第 列、 列和 列。 （5）数值30显示在第 行的第 列和 列。 （6）efg显示在第 行的第 列、 列和 列。 实例3完成后，要求将窗