Visual Basic程序设计实用教程 教学课件 作者 匡松 缪春池 VB第4章.pptVIP

VB程序设计与数据库应用 数据输入 数据输出 Inputbox函数 Msgbox函数和语句 打印机输出 4 .1数据输入 4.1.1 InputBox函数 InputBox函数用于接收用户输入的数据 【格式】InputBox(提示信息[,对话框标题][,输入区的默认值][,对话框坐标]) 【说明】该函数的返回值默认为字符串。如果要把返回值进行其他类型的处理，需事先声明返回值的类型或对返回的字符串进行类型转换。注意，一个InputBox函数只接受一个值的输入。 4.1.2 例题代码如下 Private Sub Form_Click() choice = MsgBox(数据已经修改，是否保存？, _ vbYesNoCancel + vbQuestion + vbDefaultButton1, 提示) If choice = vbYes Then MsgBox 正在保存… Else If choice = vbNo Then MsgBox 不保存退出 End If End If End Sub MsgBox函数的应用 习题1 设计一个窗体，输入四个字母，将其反向输出。例如输入ABCD，输出DCBA，执行界面如下： 提示： 使用right函数可得到结果串的首字符 使用left函数可得到结果串的尾字符 使用mid函数可得到结果串的中间两个字符 将得到的各字符用连接起来形成结果串 习题2 设计程序计算你至今生活了多少天？ 提示： 使用DATE函数获取当前日期 使用datevalue函数将日期字符串转换成日期值 将当前日期减去生日得到存活天数 习题3  设计一个窗体，单击窗体后可以通过Input函数输入两个数字，并将其显示在窗体上，同时显示两数之和，以及平均值。 * * 第四章 数据的输入输出 4.1.1 输入函数InputBox 【举例】“鸡兔同笼”问题。鸡有2只脚，兔有4只脚，如果已知鸡和兔的总只数h，总脚数为f。问鸡和兔各有多少只？ 【分析】设笼中鸡有X只，兔有Y只，则 X+Y=H 2X+4Y=F 即 X=(4*H-F)/2 Y=(F-2*H)/2 【要求】总的只数和脚数用InputBox函数输入 [ 【设计步骤】 1、界面设计 2、代码设计 Private Sub Command1_Click() Dim h As Integer, f As Integer h = Val(InputBox(鸡和兔的总只数, 请输入, 0)) f = Val(InputBox(鸡和兔的总脚数（偶）, 请输入, 0)) x = (4 * h - f) / 2 y = (f - 2 * h) / 2 Label1.Caption = 笼中鸡兔总只数为 h 总脚数为 f Label2.Caption = 笼中鸡为 x 兔为 y End Sub 4.1.2 MsgBox函数 【格式】MsgBox(提示信息 [, 对话框类型] [, 对话框标题]) 【功能】用于在用户操作有误时，显示一个消息提示对话框。 【说明】消息对话框用于提示用户进行后面操作的选择项，作为继续执行程序的依据。 提示信息：必选项，消息提示对话框所显示的信息，长度不能超过1024个字节。 【例】　显示如图所示的消息框，提示信息“数据已经修改，是否保存？”，有“是(Y)”、“否(N)”和“取消”3个命令按钮，缺省按钮为“是(Y)”按钮。单击“是(Y)”按钮，显示如图（b）所示的消息框，显示“正在保存”；单击“否(N)”按钮，显示如图（c）所示的消息框，显示“不保存退出”；单击“取消”，则直接退出。 A b c 4.1.3 MsgBox语句 如果MsgBox函数不需要返回值，可以省略圆括号，则变形为MsgBox语句。在例4-2中，后两个消息框的输出采用的是MsgBox语句。MsgBox语句与MsgBox函数的作用相似，各参数的含义与MsgBox函数相同。 【格式】MsgBox 提示信息 [ , 对话框类型][ , 对话框标题 ] 【说明】执行MsgBox语句后，打开一个对话框，用户必须按下回车键或单击对话框中的某个按钮，才能继续进行后面的操作。与MsgBox函数不同的是，MsgBo