2数据输入输出.pptVIP

Private Sub Command1_Click() c = Val(InputBox(请输入摄氏温度值：, 摄氏转华氏, 0)) f = 32 + 9 * c / 5 Label1.Caption = Format(f, ####.##) End Sub Private Sub Command2_Click() f = Val(InputBox(请输入华氏温度值：, 华氏转摄氏, 0)) c = 5 * (f - 32) / 9 Label1.Caption = Format(c, ####.##) End Sub 格式输出： 数字前不加0 例7：单位发工资，设某单位应发工资x元，试求各种票额总张数最少的付款方案。 设计用户界面如下： 增加框架控件：框架内的控件随控件一起移动， 美化界面 增加功能：当text1中内容为空时给出提示对话框。 2.6 信息框函数MsgBox 功能： 在对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮。 2.6 信息框函数MsgBox 语法格式： MsgBox 提示语句[, 按钮图标] [, 标题] 出现按钮说明 参数 常量 说明 0 vbOKOnly 确定按钮 1 vbOKCancel 确定和取消按钮 2 vbAbortRetryIgnore 终止、重试和忽略按钮 3 vbYesNoCancel 是、否和取消按钮 4 vbYesNo 是和否按钮 5 vbRetryCancel 重试和取消按钮 图标类型 参数 常量 图标 16 vbCritical 32 vbQuestion 48 vbExclamation 64 vbInformation 默认按钮说明 参数 常量 说明 0 vbDefaultButton1 指定第一按钮为默认按钮 256 vbDefaultButton2 指定第二按钮为默认按钮 512 vbDefaultButton3 指定第三按钮为默认按钮 2.6信息框函数MsgBox 例： MsgBox 请确认输入的数据是否正确！, 3 + 48 + 0, 数据检查 2.6 信息框函数MsgBox 例8：运行结果如图所示 当用户没有给出半径而单击“确定”时，弹出信息提示！ （2）变量= MsgBox（提示语句[, 按钮图标] [, 标题]） 函数返回值 返回值 常量 按钮 1 vbOK 确定按钮 2 vbCancel 取消按钮 3 vbAbort 终止按钮 4 vbRetry 重试按钮 5 vbIgnore 忽略按钮 6 vbYes 是 7 vbNo 否 2.6 信息框函数MsgBox 对无需返回值的消息框，我们可以采用过程调用，格式如下： MsgBox 提示信息[, 按钮图标] [, 标题] 参数意义与函数调用相同，但不需要将其赋值给某个变量 MsgBox举例 MsgBox(“提示信息”) MsgBox(“提示信息” Chr(13) “换行显示”) 练习：文本框的应用 在窗体上建立两个文本框，运行后在Text1中输入字符，单击Text2可显示Text1中的内容，单击Text则清除两个文本框的内容。 作业：初始界面如图1所示，运行界面如图2所示。程序运行后，输入成绩后，点击命令按钮“计算”，在Text4中给出平均分数，若用户没有在Text1~Text3中输入数据，则用消息框提醒用户输入成绩；点击命令按钮“清除”将清除Text1~Text4中字符，点击“退出”按钮将退出程序。 图1 图2 * 输入与输出 2 . 数据的输入输出 编写程序的目的是为了让计算机完成一项工作，因此就必须对它下达指令并将欲处理的数据输入给它，然后计算机把处理后的信息反馈回来，报告任务是否完成，即输出。 2 . 数据的输入输出 2.1 Print方法 2.2 格式输出Format 2.3