09秋理科VB考前辅导1.docx

1、09秋理科VB考前辅导1计算机等级考试二级考试说明考试内容 计算机文化基础 VB程序设计笔试内容（60%） VB程序设计语言上机考试内容（40%） WindowsXP操作或文件操作 Excel2003或PowerPoint2003操作 Outlook或IE操作 程序调试（两道题） 程序设计（两道题）第一章VB开发环境（略） 工程窗口、工具箱、窗体设计窗口、属性窗口的使用。VB采用的是面向对象、事件驱动的编程机制。（p11）（面向）对象：在VB中窗体，控件都是对象，在代码中用名称来表示对象form1,command1,label1属性对象名.属性名 = 属性值Label1.Caption = “

2、OK” : Caption = “OK”（省略对象名默认指当前窗体的属性。）方法对象名.方法名参数text1.setfocus : picture1.pset(100,100)Form1.Print 123Cls事件窗体的load,click,dblclick事件等文本框的change, keypress事件等事件驱动事件过程sub form_click()事件过程事件驱动的执行机制。窗体(p14)常用属性常用事件Click、dblClick事件Load事件常用方法：Print 输出格式很重要Cls方法Show方法(p19)Hide方法 与Visible属性相关联保存VB工程（复习上机考试时再

3、详细讲解） 一个工程文件(*.vbp) 若干个窗体文件(*.frm) 一个工程至少有一个窗体第二章基本数据类型(p35)掌握常用数据类型的关键字、字节数、取值范围不同类型常量的表示 数值常量12.4数值的其它表示方式&HA2 &o71 3.14E+2注意与val函数的结合(P50填7)例如：val(“&HAKKK123”) 逻辑常量True False 字符串常量“Yuan”, “2000”, ”True”符号常量 符号常量的定义和使用Const PI = 3.14r = val(text1.text) : s = r * r * PI 符号常量的值在程序中不能被改变变量变量的定义VB的两种变

4、量声明模式：显式声明和隐含声明Dim x as stringdim a as integer ,b as booleandim ydim c, d as integer隐含声明变量也可以不声明而直接使用。通过在变量名后加类型后缀字符来声明类型（P38）% ! $注意：如果代码模块最前面写有Option Explicit，则变量必须显式声明变量的初始值dim a as integer, b as boolean, c as stringa=a+3 : b=not b定长字符串dim s as string * 1print语句格式：.print ,|; 分隔符 输出项：数字带空格，字符串原样，逻

5、辑值true与falsePrint “hello”;”world”Print “hello”,”world”;Print 34Print 123;”OK”For k=1 to 10 If k mod 3=0 then print k else print k;Next k赋值语句a=b=c k%=1.3E9 b=ac 5=x+3 y+6=x 从右向左 左边只能是变量和属性 不能越出表示范围 把右边表达式的值转化为左边的类型k%=7.5 m%=6.7例：执行a=b : b=c : c=a后，将交换a和c的值?运算符 算术： / mod 优先级数位分解试题讲解：调试05Public Sub Arm

6、strongNumber() 该过程是用于求出1-999之间所有的Armstrong数，并输出。 所谓Armstrong数是指一个数等于它每位上数字的立方和。例如：371=33+73+13，那么371就是一个Armstrong数。 Dim armstrong As Integer Dim i As Integer Dim hundred As Integer 百位上的数字 Dim ten As Integer 十位上的数字 Dim one As Integer 个位上的数字 For i = 1 To 999 hundred = -1- ten = Int(i Mod 100) 10) one

7、= -2- If -3- Then Form1.Print i; is armstrong number End If Next iEnd Sub把数学表达式写成VB表达式（考点） 字符串：& +x=123 y = “xyz” + STR(x) y = “xyz” & x 关系：= （字符串也可以比较，字符串数组排序时，不需要转换成ASCII码） 逻辑：Not And Or判断整数n是否为正数的表达式(正数应该满足什么条件？)判断某一点(x,y)是否在x2+y2=9的上半圆内的表达式判断年份n是否为闰年的表达式常用内容函数 数学函数：三角函数(sin、cos)其它函数abs、sqr、int、f

8、ix、exp、log 字符串函数：trim、ltrim、rtrim、left、right、mid、len、space、instr、string统计字符串中有多少数字字符的例子程序调试04Option ExplicitPublic Sub same() 该过程找出1-1000之间所有的同构数 所谓同构数是指一个数出现在它的平方数的右端 如25在25平方625的右端，则25为同构数 利用数字转字符再取出右端字符的方法进行判断 Dim i As Long Dim x1 As String, x2 As String For i = 1 To 1000 x1 = -1- 将i转字符型 x2 = -2-

9、 将i2转字符型 If -3- Then Form1.Print i; 是同构数 End If Next iEnd Sub程序调试09Public Sub Findat() 该过程是用于在一个字符串变量中查找”at”，并用消息框给出查找结果的报告：没有找到或找到的个数。 Dim str1 As String Dim length As Integer 字符串长度 Dim sum As Integer 查到的个数 Dim i As Integer str1 = InputBox(请输入一个字符串) length = -1- i = 1 sum = 0 Do While i -2- If -3-

10、= at Then sum = sum + 1 End If i = i + 1 Loop If -4- Then MsgBox 没有找到！ Else MsgBox 找到了 & Str(sum) & 个 End IfEnd Sub程序调试11Public Sub Wrap()该过程用于判断一个字符串是否“回文”。所谓“回文”是指字符串顺读与倒读都是一样的，如“潮起潮落，落潮起潮”。 Dim length As Integer Dim str1 As String Dim strleft As String Dim strright As String Dim k As Integer str1

11、 = InputBox(请输入任意的字符串) 输入任意字符串 *错误1* length = Val(str1) k = 1 Do *错误2* strleft = Left(str1, k) 从左边起逐个取出一个字符 *错误3* strright = Right(str1, k) 从右边起逐个取出一个字符 *错误4* If strleft = strright Then Exit Do End If k = k + 1 Loop While k length / 2 Then Form1.Print str1 & 是回文 Else Form1.Print str1 & 不是回文 End IfEn

12、d Sub 日期函数：Date Time Year Month Day WeekDay Hour Minute Second 转换函数：Str和Val Chr和Asc 随机函数：Rndint(rnd * 90) + 10 : int(rnd * 90 + 10) Tab()函数（仅能与Print配合使用）Print Hello; Tab(10); WorldPrint Hello, Tab(10); World Inputbox函数的使用设s是字符串变量s = inputbox(“please input s”)设n是数值型变量n = val(inputbox(“please input n”

13、) Msgbox函数的使用Msgbox “提示信息”Msgbox “提示信息”, vbOkOnlyMsgbox “提示信息”,vbOkOnly,”标题”n = Msgbox(“真的需要退出系统吗？”,vbYesNo,”询问”)if n = vbYes then end行if结构：if then 语句1 else 语句2例如：if x3 then y=x+3 else y = x*x块IF结构：if then else end if例如:2if x=1 thenif x3 theny=x+3elsey = x*xend ifelse if x0 theny=sqr(x)elsey=0end ifend if注意:笔试中经常出现类似于P83练习2这样的题目