PPT的基本交互技术.ppt

Computer 这个单词除了计算机之外还能翻译什么？_____________ 温故而知新 跟我一起做下练习 开始答题 作答区： 请输入正确题目前边的字母代码 最终得分： 分 * * If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = False And CheckBox4.Value = True Then ex = MsgBox(厉害，答对了!, vbOKOnly, 多项选择题) Else ex = MsgBox(没有答对哦！, vbOKOnly) CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False CheckBox4.Value = False End If * 定义： 标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常量、过程、函数、类等的引用。 命名规则： 字符长度小于40，（Excel2002以上中文版等，可以用汉字且长度可达254个字符） 不能与VB保留字重名，如public, private, dim, goto, next, with, integer, single等 字母打头，由字母、数字和下划线组成，如A987b_23Abc 顺序结构的程序就是严格按程序编制的顺序执行的。即是从上而下一行一行执行。 Dim a, b, c As Integer 设置三个变量a,b,c a = 5 给a赋值 b = 4 给b 赋值 c = 2 * a + 3 * b 定义C的表达式 MsgBox 计算C=2xa+3xb的值是: c 显示信息交互框窗口，并显示C的值 在编写程序时，有时可能将对不同的条件进行判断，根据条件判断的结束来执行相应的程序。 比如：由用户输入一个值，根据值的大小来决定用那个方程。 F(x)= A+1/B (B0) A+BxB (B=0) If 条件1 Then 表达式1 这种格式只有一行，符合条件1 则执行表达式1 否则执行这个语句下面一行的其它程序。 例1： if x10 then MsgBox X的值小于10 输入小于10的，要给出提示，大于10就没提示？怎么办呢？往下看 If 条件1 Then 表达式1 Else 表达式2 Eend if 如果条件1成立则执行表达式1 否则执行表达式2 If X = 10 Then ’条件判断开始，如果X10 则 MsgBox X的值在10范围 输出对话框， Else 其它条件（即X=10） MsgBox X的值超出10的范围 ’输出对话框， End If ’条件判断结束 If X = 10 Then ’条件判断开始，如果X10 则 MsgBox X的值在10范围“ 输出对话框， Else 其它条件（即X=10） MsgBox X的值超出10的范围 ’输出对话框， End If ’条件判断结束 刚才我们都是只根据一个值来判断。如果我们要判断一个小学生是不是优秀，怎么量化呢？ 首先：语文要大于90 其次：数学要大于90 再次：外语要大于90 这个要用到三个常用字符 Not and or If (yw90 And sx90 and wy90) Then MsgBox “优秀 Else MsgBox “不优秀 End if yw90 And sx90 and wy90 是一个联合条件，即三个条件都成立，才执行优秀,否则执行不优秀 表达式1 或表达式2 是指一系列的VBA 语句，可以是一句，也可以是多个语句。 输入一个学生的成绩 怎么去判断他该门课程是优秀，良好，及格还是不及格呢？ If 条件1 Then 表达式1 ElseIF 条件2 Then 表达式2 ... Else 表达式n End If 看下边的例子 Dim score As Integer 定义变量score score = InputBox(输入学生成绩(注意不要输入非数字。) 输入成绩对话框 If score = 90 Then 以下是判断语句，如果score = 90 MsgBox (该生成绩评为：优秀) 则显示“优秀”对话框 Else If score = 80 Then 如果score = 80 MsgBox (该生成绩评为：良好) 则显示“良好”对话框 Else If score = 60 Then 如果score = 60 MsgBox (该生成绩评为：及格) 则显示“及格”对话框 Else 其它条件 MsgBox (该生成绩：不及格) 则显示