计算机VB介绍.ppt

练习 编写一个自定义函数过程用于判断某个年份是否闰年，然后调用此函数判断工作表Sheet3中的各年份是否闰年 循环结构 当程序中有规律地重复执行某些操作时，可以用循环结构实现 例如：如何求s = 1 + 2 + 3 + …… + 100 ? s = 0s = s + 1s = s + 2s = s + 3…… s = s + 100 实际上重复了同一个操作：s = s + i，只是 i 每次都增加 1 For…Next语句 功能：以指定的次数重复执行循环体 格式： For 变量=初值 To 终值 [Step 步长] 语句块 [Exit For] 语句块 Next [变量] 变量又称循环控制变量、计数器变量，初值为循环起始值，终值为循环的结束值 步长为循环控制变量的每次改变增量，缺省为1 Exit For为强制退出循环语句 循环体 实例4 编写一个子过程，用于计算下式的值： s = 1*2 + 2*3 + 3*4 + 4*5 + … + 19*20 For Each...Next 语句 For Each…Next 语句主要针对一个数组或集合中的每个元素，重复执行一组语句。其语法如下： For Each element In group [statements] [Exit For] [statements] Next [element] For Each...Next 语句 Sub IsSuchSheet() Dim mySheet As Worksheet, counter As Integer counter = 0 For Each mySheet In Worksheets If mySheet.Name = Sheet2 Then counter = counter + 1 End If Next mySheet If counter 0 Then MsgBox This workbook contains Sheet2. Else MsgBox Sheet2 was not found. End If End Sub For Each...Next 语句 在对集合进行循环时，使用For Each 循环要比For 循环快1/3 以上，因此，尽量对集合对象使用For Each 循环，因为一方面，For Each 循环不需要设置循环变量，不容易出错，而且循环速度又比For 循环快 对于数组，For Each 循环的速度优势不大，不过还是可以快10%左右 练习 编写一个自定义函数过程用于计算某个整数的阶乘，然后调用此函数计算工作表Sheet4中的各数的阶乘 常用函数 数值函数 Int(x)：返回不大于x的整数 Rnd()：返回一个[0, 1)之间的数 产生[m, n]之间的随机整数的公式： Int(Rnd() * (n - m + 1)) + m Sqr(x)：返回x的平方根 字符串函数 Len(s)：返回字符串s的长度，即字符的个数 Mid(s, i, n)：从字符串s的第i个字符起向右取n个字符出来并返回 常用函数 输入函数 语法：InputBox(Prompt) 使用：s = InputBox(“提示信息”) 输出函数 语法：MsgBox(Prompt) 使用：MsgBox “输出信息” 练习 编写一个自定义函数过程用于从一个身份证号码中取出此证持有人的生日，并把生日显示为“年-月-日”格式，如：1988-08-18，然后调用此函数填充工作表Sheet5中各教师的生日 * * VBA基础知识 宏 IDE VBA VBA，即Visual Basic For Application，是Microsoft Office中的一种编程语言，是基于Visual Basic 发展而来的，它们具有相似的语言结构 宏 宏（Macro）是一组VBA语句，可以理解为一个程序段，或一个子程序。在Office中，宏可以直接编写，也可以通过录制形成 宏的安全性 VBA的功能强大，甚至被用来编写病毒，因此微软限制了VBA的使用，第一次使用VBA的时候，应做如下工作： 打开Excel应用程序 选择“工具” | “宏” | “安全性”菜单命令，设置宏的安全级为“低” 录制宏 任务：将eg1.xls的Sheet1中的标题行文字设置为：楷体，蓝色，字号18，加粗；行高设置为：25 录制方法： 选择“工具” | “宏” | “录制新宏”菜单命令 指定宏保存的位置 当前工作簿 只有该工作簿打开时，相应的宏才可以用 新