VB等级考试复习题

基本概念1.工程文件的扩展名是VBP，一个工程可以包含多个窗体，最多可以包含255个窗体。

2.窗体文件的扩展名是FRM，一个窗体对应一个窗体文件；窗体的默认名称为Form1，Form2，…，若窗体的Name属性设置为Myfrm，则保存的窗体文件名为Myfrm.frm3.标准模块文件的扩展名是.bas。

一个Visual Basic 应用程序可以含有多个标准模块文件，但是标准模块文件（.bas）不属于任何一个窗体文件。

4.Print方法在窗体上打印数据，Cls方法清除窗体上的显示内容。

End结束程序运行。

5.VB采用事件驱动的方式6.Enabled设置控件是否可用，是否处于激活状态7.Visible设置控件是否可见属性设置对象的名称，在程序运行时不能改变。

Name属性是所有控件都具有的属性。

9.Caption属性设置对象的标题10.Option Explicit表明程序中用到的变量都必须预先声明11.Option Base 1用来设置数组的下界从1开始，默认是从0开始12.程序运行时，最先加载的是Load事件，Unload用来从内存中清除窗体。

13.清空文本框采用的方法是：Text1.Text= “”；若要使文本框不接受键盘输入，但能输出信息，应设置Enabled属性为：Text1.Enabled=False；若要使文本框能输入或显示多行文本，应设置文本框的Multiline属性为True；若要使文本框的文本不可编辑，应设置Locked属性为True。

14.若要使计时器控件不可用，应设置其Interval属性为0；若要使计时器控件每隔0.5秒触发一次计时器事件，应设置：Timer1.Interval=50015.可以作为启动对象的是Sub Main过程或任何窗体16.命令按钮默认的名称为Command1…等，若命令按钮的Name为C1，则其Click事件过程名为C1_Click；17.对于InputBox函数，其返回值为字符串。

A=InputBox(“第一个”) ①B=InputBox(“第二个”) ②Print A+B运行时，第一个数为20，第二个数为50，则输出结果为：2050若将①处的代码改为：A = Val(InputBox("第一个"))，将②处的代码改为：B = Val(InputBox("第二个"))，再次输入相同的数据，则输出结果为：70。

若添加声明Dim A As Integer,B As Integer，再次输入相同的数据，则输出结果为：70。

18.IIf函数的使用：变量=IIf（条件，True部分，False部分）。

例如：设a=5，b=3，则X=IIf（a>b, a, b），则X的值为：5IIf函数可以转换为If…Then…Else结构：If a>b Then X=a Else X=b19.对于Select 。

Case语句的使用：●Case 2，5，8 正确●Case “a”，“b”正确●Case 10 To 20，50 To 60 正确●Case “a”To“abc”正确●Case 3，5，Is>10 正确●Case Is<10, Is>20正确，但是Case Is>10 And Is>20是错误的20.对于列表框ListBox：●ListCount：列表框中的列表项数，ListIndex：某个列表项的索引，从0开始，ListIndex的取值范围：0~ListCount-1●AddItem方法：添加项目到列表框，RemoveItem每次只删除一个列表项，若要一次清除所有的列表项，应使用Clear方法。

●清空列表框中的所有列表项采用的方法：List1.Clear21.循环结构：【例5-13】打印下面图案的源程序，【实验4-4】输出九九乘法表（包括下三角）22.数组：●默认下标从0开始，所以若有定义dim a(5)，则数组共有6个元素；若有dim b(2,3)，则数组第一个元素为b（0，0），最后一个元素为b（2，3），共有3×４=12个元素。

可以使用Option Base 1语句指定数组下标从1开始。

●引用数组元素，注意下标不能越界。

Option Base 1的作用是指定数组下标从1开始。

●使用数组处理Fibonacci数列。

1，1，2，3，5，8，13，21，34，55，89，…。

●●【习题六→13题】使用数组处理杨辉三角形（P120）。

23.过程：●编写过程求n！（习题七编程题第1小题，第4小题），判别n是否为素数（习题七编程题第2小题）(1) 编程打印100~200间的所有素数。

每行输出5个，判断素数用Function过程，是素数返回1，否，返回0。

Private Sub Command1_Click()k = 0For i = 100 To 200f = prime(i)If f = 1 Thenk = k + 1If k Mod 5 = 0 Then Print i Else Print i;End IfNext iEnd SubPrivate Function prime(n)prime = 1For i = 2 To n - 1If n Mod i = 0 Then prime = 0: Exit For Next iEnd Function(2) 编写Function过程计算n！。

Private Function fact(n)fact = 1For i = 1 To nfact = fact * iNext iEnd Function利用求n！的过程计算下面的和：计算Private Sub Command1_Click()s = 0 ：t = 0For i = 1 To 19 Step 3t = t + fact(i)s = s + 1 / tNext iPrint " s="; sEnd Sub简单的递归过程：(1)利用递归求累加，连乘（如n！），Private Function fact(n)If n = 1 Thenfact = 1Elsefact = n * fact(n - 1)End IfEnd Function(2)求Fibonacci 数列【实验书 笔试模拟试题1 程序填空第2小题】。

24. 文件：● 顺序文件的打开、读写、关闭。

LOF 函数返回被打开文件的大小。

EOF 函数判断被打开文件是否到了文件末尾。

● 文件控件（驱动器列表框、目录列表框、文件列表框）的同步操作。

常用算法1. 累加连乘：（1）1+2+3+…+n ，其中n 用InputBox 函数输入。

【实验4-1】，以及引申：1*2*3*…*n （即n ！），1+22+32+…+n 2，1111...23n++++， （2）【实验书 笔试模拟试题2程序阅读第1题】（3）【例5-8】计算自然对数e 的近似值，（4）计算分数序列23581321,,,,,, (1235813)前20项之和。

【实验书 笔试模拟试题5 程序填空第一题】 （5） 【例5-3】1！+2！+3！+…+n ！，以及2！+4！+6！+8！，或3！+5！+7！+9！2. 求最大值和最小值：产生一定范围的随机数，存入数组，找出其最大值及其所在的位置、最小值及其所在的位置Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerFontSize = 18For i = 1 To 10a(i) = Int(Rnd * 100 + 1)Print a(i);Next iPrintMax = a(1): Min = a(1)For i = 2 To UBound(a)If Max < a(i) ThenMax = a(i)Max_i = iEnd IfIf Min > a(i) ThenMin = a(i)Min_j = iEnd IfNext iPrint "最大值为："; Max; "第" & Max_i & "个数"Print "最小值为："; Min; "第" & Min_j & "个数" End Sub3.闰年的算法：【例4-6】P66x = Val(InputBox("输入年份"))Print x & "是闰年"End If4.最大公约数和最小公倍数（P89）【例5-18】5.判别n是否素数的两种方法：●法一：n = Val(InputBox(""))For i = 2 To n - 1If n Mod i = 0 Then Exit ForNext iIf i > n - 1 Then Print "Yes"●法二：n = Val(InputBox(""))flag = TrueFor i = 2 To n - 1If n Mod i = 0 Thenflag = FalseExit ForEnd IfNext iIf flag = True Then Print "Yes"6.对存放在数组中的数据进行排序：（比较交换法【例6-9】、选择法【例6-10】、冒泡法【例6-11】）、【实验书：笔试模拟试题2：程序填空题第2题】、【实验书：笔试模拟试题4：程序填空题第3题】、【实验书：笔试模拟试题6：程序填空题第2题】、●利用Rnd函数产生随机数：产生的X范围在1~100（含1和100），X=Int(Rnd*100+1)。

一般地，若要产生区间【a，b】（含a和b）的方法是：Int(Rnd*(b-a+1) + a)●产生一批随机数存入数组，并在列表框显示●对数组进行排序，排序结果在列表框显示【实验书笔试模拟试题2程序填空第2题】●将排序结果存入文件7.查找（顺序、折半）【例6-13】【例6-14】8.矩阵转置【习题五编程题第5小题】、对称矩阵【实验书笔试模拟试题2程序填空第4题】9.进制转换（十进制→二进制）【实验书笔试模拟试题4程序填空第2题】【习题六编程题第10小题】Private Sub Command1_Click()n = Val(Text1.Text)s = ""Do While n <> 0s = (n Mod 2) & sn = n \ 2LoopText2.Text = sEnd Sub一些练习题第一章VB概述练习题1. 以下叙述中错误的是_________。