↸
例如： 例如：
☺ InputBox(“请输入字母”，“输入对话框”，“wuxi”) 请输入字母” 输入对话框” 请输入字母
例 4-3
输入圆的半径，计算其周长和面积。（P64 .4-2）
↸
3、消息框函数（Msgbox）
在windows中，如果操作有误，通常会在屏幕上显示一个 对话框，提示用户进行选择，然后系统根据选择确定其后的 操作。例如：
1、使用文本框输入数据 使用文本框输入数据
利用文本框接收用户通过键盘输入的内容， 利用文本框接收用户通过键盘输入的内容，而用 户输入的内容是保存在文本框的Text文本属性中，要 文本属性中， 户输入的内容是保存在文本框的 文本属性中 获取Text文本属性的值即用户输入的内容，可通过赋 文本属性的值即用户输入的内容， 获取 文本属性的值即用户输入的内容 值语句实现： 值语句实现：A = Text1.Text
说明:
格式:<变量>=MsgBox(<提示信息>[,<对话框类型>][,<对话框标题>])
↸
•<提示信息>：字符串表达式，用于指定显示在对话框中 的信息，要在提示信息中对文本信息进行换行，可以使用 回车符Chr(13)、换行符Chr(10)或是回车与换行符的组合 Chr(13)&Chr(10)。 • <对话框类型>：数值型数据，是可选项，用来指定对话 框中出现的按钮和图标的种类及数量，该参数的值由三类 数值相加产生，这三类数值分别表示按钮的类型、显示图 标的种类及默认按钮的位置 • <对话框标题>：字符串表达式，是可选项，它显示在对 话框的标题栏中，如果省略，则在标题栏中显示应用程序 名。
↸
显示“终止” 显示“终止”、“重试”、“忽略”按 重试” 忽略” 钮 显示“ 显示“是”、“否”、“取消”按钮 取消” 显示“ 显示“是”、“否”按钮 显示“重试”、“取消”按钮 显示“重试” 取消” 显示停止图标 x 显示询问图标 ? 显示警告图标 ！ 显示信息图标i 显示信息图标 第一个按钮是默认按钮 第二个按钮是默认按钮 第三个按钮是默认按钮
2、注释语句
↸
通常在程序代码中的适当位置加上必要的文字说明， 通常在程序代码中的适当位置加上必要的文字说明， 以提高程序的可读性 格式1： 格式 ：Rem 注释内容 格式2： 注释内容 格式 ：'注释内容 注释语句是非执行语句， 注释语句是非执行语句，仅仅对相应位置上的代码 起到注释作用 格式1中的关键字 中的关键字Rem和注释内容之间必须用空格隔 格式 中的关键字 和注释内容之间必须用空格隔 注释内容中可以包含任意字符(西文 中文等)， 西文、 开；注释内容中可以包含任意字符 西文、中文等 ， 在使用时，遵循语句书写的规范；格式2的注释语句 在使用时，遵循语句书写的规范；格式 的注释语句 在使用时较格式1更加灵活 更加灵活， 在使用时较格式 更加灵活，可以不用加语句间的分 隔符， 隔符，直接出现在某行语句后面进行注释
二、数据输入
↸
不管多么复杂的问题，一般在解决时， 不管多么复杂的问题，一般在解决时，都可分为 三个步骤： 输入数据、 数据处理、 三个步骤：①输入数据、②数据处理、③输出结果
VB的输入输出有着十分丰富的内容和形式，它提供 了多种手段，并可通过各种控件实现输入输出操作，使输 入输出更加灵活、多样、方便、直观。
一、几个常用语句 1、赋值语句Let 赋值语句Let
↸
赋值语句的一般形式是 [Let]<变量名 对象名 属性名> [Let]<变量名>|<对象名.属性名> = 表达式 变量名>|<对象名. 变量名为任何合法的VB变量名 变量名， 变量名为任何合法的 变量名，而表达式可以为任何类 型的表达式， 表示赋值 通常省略. 表示赋值， 型的表达式，Let表示赋值，通常省略 赋值语句的执行步骤和作用是先计算赋值号 赋值号(=)右边表达式 赋值语句的执行步骤和作用是先计算赋值号 右边表达式 的值，然后将表达式的值赋给左边的 变量名>. 赋给左边的< 的值，然后将表达式的值赋给左边的<变量名>. 使用赋值语句可给变量或属性赋值。 使用赋值语句可给变量或属性赋值。对变量进行赋值就是 将数据放入指定变量的内存空间。 将数据放入指定变量的内存空间。而对属性进行赋值就是 设置或改变对象的属性值 ☺ StudentNum = 30 number% = StudentNum * 4 + 20 Form1.Caption = "Input data" Label1.BackColor = RGB(255,0,0)
例题4 例题4-2
由用户输入两个数， 由用户输入两个数，实现两数的求和程序
↸
分析： 分析： 文本框接收用户的输入 相加”按钮的Click事件过程中编写主要功能代码： 事件过程中编写主要功能代码： 在“相加”按钮的 事件过程中编写主要功能代码 (1)利用赋值语句从文本框的 利用赋值语句从文本框的Text属性取得数据；(2)求和； 属性取得数据； 求和 求和； 利用赋值语句从文本框的 属性取得数据 (3)通过给标签的 通过给标签的Caption属性赋值实现结果的显示 通过给标签的 属性赋值实现结果的显示 Private Sub CmdAdd_Click() Dim a As String, b As String, c As Single a = Text1.Text : b = Text2.Text c = Val(a) + Val(b) '利用 函数实现字符串到数值的转换 利用Val函数 函数实现字符串到数值的转换 利用 Label1.Caption = Label1.Caption & a & "+" & b & "=" & CStr(c) '通过标签显示两数求和结果 通过标签显示两数求和结果 End Sub
3)变量名或对象属性名的类型应与表达式的类型相容.
↸
即变量名或对象属性名能够正确存取赋值号右边的表达式 的值. 的值 例如
Dim A As Integer, B As Single, C As Double, S As String A = 100 S = "123.45 " A= S S=A B = 12345.67 A= B C = 123456.789 B=C S = "abc” A= S ‘B=123456.8 单精度有效数字为 位 单精度有效数字为7位 ‘A=12346 四舍五入后取整 ‘A=123 ‘S=“123”
2、输入框函数（Inputbox） 输入框函数（Inputbox）
↸
InputBox函数产生一个对话框，作为输入数据的界面， 等待用户输入正文或按下按钮，并返回所输入的内容。 格式:<变量>=InputBox(<提示信息>[,<对话框标题>][,<默认值>])
说明: • <提示信息>：字符串表达式。在对话框内显示提示信息，提示用户输入 的数据的范围、作用等。如果要显示多行信息，则可在各行行末用回车符 Chr(13)、换行符Chr(10)、回车换行符的组合Chr(13)&Chr(10)或系统常量 vbCrLf来换行。 • <对话框标题>：字符串表达式，可选项。运行时该参数显示在对话框的 标题栏中。如果省略，则在标题栏中显示当前的应用程序名。 • <默认值>：字符串表达式，可选项。显示在对话框上的文本框中，在没 有其他输入时作为缺省值。如果省略，则文本框为空。
VB提供的MsgBox函数可以实现此功能，它可以向用户传送 信息，并可以接收用户在对话框上的选择，以此作为程序继 续执行的依据。
↸
功能：在对话框中显示消息，等待用户单击按钮，并返回一个 整数告诉用户单击了哪个按钮。
格式:<变量>=MsgBox(<提示信息>[,<对话框类型>][,<对话框标题>])
4.1 顺序结构
↸
在VB中，采用 中 采用OOP，程序的执行是事件驱动的， ，程序的执行是事件驱动的 但就某个过程而言， 但就某个过程而言，过程本身代码的执行仍采用顺 序结构， 序结构，即按照语句代码出现的先后次序执行
顺序结构的语句主要是赋值语句、 顺序结构的语句主要是赋值语句、输入输出语句等 在VB中有赋值语句，没有输入输出语句 中有赋值语句， 中输入输出功能可以通过文本框等控件和 在VB中输入输出功能可以通过文本框等控件和 中输入输出功能可以通过 Print方法来实现， VB提供了专门用于用户交互的 方法来实现 提供了专门用于用户交互的 方法来实现， 提供了专门用于 函数和过程来实现此功能 函数和过程来实现此功能
4、卸载对象语句 Unload
从内存中卸载窗体或控件 格式： <对象名 对象名> 格式：Unload <对象名> Unload Form1 ‘卸载窗体 卸载窗体Form1 卸载窗体 Unload Me ‘卸载当前窗体 卸载当前窗体
5、结束语句 End
↸
该语句用来结束一个应用程序的执行， 该语句用来结束一个应用程序的执行，即强迫中止 应用程序，卸载该程序中的所有窗体，凡是由Open 应用程序，卸载该程序中的所有窗体，凡是由 语句打开的文件被关闭， 语句打开的文件被关闭，并且释放程序所占用的内 存 格式： 格式：End End语句不调用 语句不调用Unload、QueryUnload或任何其 语句不调用 、 或任何其 代码， 它Visual Basic代码，只是生硬地终止代码执行。在 代码 只是生硬地终止代码执行。 执行时， 语句会重置所有模块级别 执行时，End语句会重置所有模块级别变量和所有 语句会重置所有模块级别变量和所有 模块的静态局部变量 若要保留这些变量的值， 的静态局部变量。 模块的静态局部变量。若要保留这些变量的值，改 为使用Stop语句，则可以在保留这些变量值的基础 语句， 为使用 语句 上恢复执行