VBA上机实验一.docVIP

上机实验一 1.顺序结构，定义变量a、b、c，并对其赋值。 Private Sub C1_Click() Dim a As Integer Dim b As Integer 定义了整型变量b,其初始值为0 Dim c As Integer a = 5 b = 6 c = a + b a = c - a b = c - b MsgBox a Chr(10) b 换行显示变量b的内容，Chr(10) 是换行，Chr(13) 是回车，搭配使用时也是换行操作 End Sub 2.变量的作用范围（观察三次单击命令按钮后变量的输出结果。） 1）Private Sub C1_Click() Dim a As Integer 定义了整型变量a,其初始值为0，作用范围为局部范围，即单击命令按钮就会重新运行本行语句 a = a + 1 MsgBox a 返回1 End Sub 2） Option Compare Database Dim a As Integer 在声明区域定义了整型变量a,其初始值为0，作用范围为模块范围 Private Sub C1_Click() a = a + 1 MsgBox a 返回3 End Sub 3） Option Compare Database Private a As Integer 在声明区域定义了整型变量a,其初始值为0，作用范围为模块范围 Private Sub C1_Click() a = a + 1 MsgBox a 返回3 End Sub 4）Private Sub C1_Click() Static a As Integer 定义了静态整型变量a,其初始值为0，作用范围为局部范围，但因其定义的变量是静态变量，即只要窗体没有关闭过其值都会保留。 a = a + 1 MsgBox a 返回3 End Sub 3.InPutBox()返回字符型数据P248，得到如下消息框，并把返回的数据输出的语句为： Private Sub C1_Click() Dim a As String a = InputBox(AAA, BBB, CCC) 输入框消息为AAA，标题为BBB，文本框中默认值为CCC。 MsgBox a 将输入框的值赋给a End Sub 功能介绍： InPutBox函数用于产生一个对话框，以作为输入数据的界面，等待用户输入数据，并返回输入的内容。 在这个对话框中，包括一个以供用户输入文本的文本区域（即文本框），还有一个确定按钮和取消按钮。 其格式为： InPutBox(内容[,标题][,默认值]) 如： InPutBox(请输入您的姓名,输入消息,张三) 得到的输入消息框效果如下图 上机要求： 1.通过输入消息框动态获取姓名、姓名、年龄。 编辑代码如下： Private Sub Command0_Click() Dim a As String Dim b As String Dim c As String a = InputBox(请输入姓名) b = InputBox(请输入性别) c = InputBox(请输入年龄) MsgBox a b 现年 c 岁, , 输出消息 End Sub 在第一个输入消息框输入：张三 在第二个输入消息框输入：女 在第三个输入消息框输入：35 最终输出效果 4.MsgBox输出框的两个用法P249 1）得到如下消息框 语句如下： Private Sub C1_Click() MsgBox BBB, vbCritical + vbOKCancel, 欢迎使用 消息为BBB，消息框类型为重要，命令按钮为取消和确定按钮,标题为欢迎使用 End Sub 2）作为函数的使用方法： Private Sub C1_Click() Dim a As Integer a = MsgBox(BBB, vbCritical + vbOKCancel, 欢迎使用) 按下确定按扭后将对应值1赋给变量a MsgBox a End Sub 5.IF结构 1）简单IF结构，非A即B的情况。 Private Sub C1_Click() Dim today As String 定义了字符型变量today today = InputBox(请输入天气值) 弹出输入消息框，提示用户输入值 If today = 晴天 Then 输入框中输入“晴天”并按下确定按扭即执行下面一行语句 MsgBox