VB顺序结构.pptVIP

第3章 顺序结构 本章内容： ? 数据输入 ? 数据输出 ? 标签 ? 文本框 ? 命令按钮 ? 程序举例 3.1 数据输入 3.2.2 输入框函数InputBox InputBox函数显示一个能接受用户输入的对话框，并返回用户在对话框中输入的信息。其语法格式为： 变量 = InputBox(〈信息内容〉[,〈对话框标题〉][,〈默认内容〉] ) 说明： 1) 〈信息内容〉指定在对话框中出现的文本。在〈信息内容〉中使用硬回车符（CHR(13)）可以使文本换行。对话框的高度和宽度随着〈信息内容〉而增加，最多可有1024个字符。 2) 〈对话框标题〉指定对话框的标题。 3.2.2 输入框函数InputBox 变量 = InputBox(〈信息内容〉[,〈对话框标题〉][,〈默认内容〉] ) 说明： 3) 〈默认内容〉可以指定输入框的文本框中显示的默认文本。如果用户单击“确定”按钮，文本框中的文本（字符串）将返回到变量中，若用户单击“取消”按钮，返回的将是一个零长度的字符串。 注意：如果省略了某些可选项，必须加入相应的逗号分隔符。 4) InputBox函数返回包含文本框内容的字符串（String类型）。 举例： Dim name As String, score As Integer name = InputBox(“请输入学生的姓名”, “姓名输入”) ’省略了默认值 score = Val(InputBox(请输入学生的成绩, , 80)) ’省略了标题 3.1 数据输入——文本框控件 用户可以在文本框控件中 输入数据，然后在程序中通 过赋值语句把它赋给某个变量。 一般形式： 变量=文本框对象.text 举例：Dim name As String, score As Integer name = Text1.text ’输入学生的姓名 score = Val(Text2.text)) ’输入学生的成绩 3.2 数据输出——标签控件 一般形式：标签对象.caption=表达式 Label1.caption = name ’输出学生的姓名 Label2.caption = Str(score) ’输出学生的成绩。 3.2 数据输出—— MsgBox函数 （1）参数Prompt是必选项，它是一个字符串，可以作为输出的数据。 （2）参数Buttons和参数Title均为可选项，前者是一个整型表达式，确定了消息对话框的类型；后者作为对话框的标题。 （3）MsgBox函数返回一个整数，该整数代表用户在对话框中选中的按钮。如果在函数调用时只给出第一个参数（Prompt）的值，就不必使用赋值语句；如果明确给出了其它参数的值，则必须用赋值语句把函数的返回值予以保存。 〈对话框类型〉指定对话框中出现的按钮和图标，一般有三个参数。其取值和含义见表3-3、表3-4、表3-5。 表3-3 参数1——出现按钮 表3-4 参数2——图标类型 表3-5 参数3——默认按钮 值 常量 说明 0 vbDefaultButton1 指定默认按钮为第一按钮 256 vbDefaultButton2 指定默认按钮为第二按钮 512 vbDefaultButton3 指定默认按钮为第三按钮 上述三种参数值可以相加以达到所需要的样式。 3) 〈对话框标题〉指定对话框的标题。下述代码将显示如图3-8所示的对话框： msg = MsgBox(请确认输入的数据是否正确！, 3 + 48 + 0, 数据检查) 图3-8 信息对话框 4) Msgbox( )返回的值指明了在对话框中选择哪一个按钮，见表3-6。 表3-6 函数的返回值 返回值 常量 按钮 1 vbOK 确定按钮 2 vbCancel 取消按钮 3 vbAbort 终止按钮 4 vbRetry 重试按钮 5 vbIgnore 忽略按钮 6 vbYes 是 7 vbNo 否 5) 代码中的值可以是数值，也可以是数值常量。 6) 如果省略了某些可选项，必须加入相应的逗号分隔符。 7) 若不需要返回值，则可以使用MsgBox的命令形式： MsgBox 〈信息内容〉[,〈对话框类型〉[,〈对话框标题〉]] 在程序运行的过程中，有时需要显示一些简单的信息如警告或错误等，此时可以利用“信息对话框”来显示这些内容。当用户接收到信息后，可以单击按钮来关闭对话框，并返回单击的按钮值。 举例：