VB等级考试复习题.docx

1、VB等级考试复习题基本概念1. 工程文件的扩展名是VBP，一个工程可以包含多个窗体，最多可以包含255个窗体。2. 窗体文件的扩展名是FRM，一个窗体对应一个窗体文件；窗体的默认名称为Form1，Form2，若窗体的Name属性设置为Myfrm，则保存的窗体文件名为Myfrm.frm3. 标准模块文件的扩展名是.bas。一个Visual Basic 应用程序可以含有多个标准模块文件，但是标准模块文件（.bas）不属于任何一个窗体文件。4. Print方法在窗体上打印数据，Cls方法清除窗体上的显示内容。End结束程序运行。5. VB采用事件驱动的方式6. Enabled设置控件是否可用，是否处

2、于激活状态7. Visible设置控件是否可见8. Name属性设置对象的名称，在程序运行时不能改变。Name属性是所有控件都具有的属性。9. Caption属性设置对象的标题10. Option Explicit表明程序中用到的变量都必须预先声明11. Option Base 1用来设置数组的下界从1开始，默认是从0开始12. 程序运行时，最先加载的是Load事件，Unload用来从内存中清除窗体。13. 清空文本框采用的方法是：Text1.Text= “”；若要使文本框不接受键盘输入，但能输出信息，应设置Enabled属性为：Text1.Enabled=False；若要使文本框能输入或显示

3、多行文本，应设置文本框的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

4、运行时，第一个数为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（ab, a, b），则X的值为：5IIf函数可以转换为IfThenElse结构：If ab Then X=a Else X=b19. 对于Select

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

6、框中的所有列表项采用的方法：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题】使

7、用数组处理杨辉三角形（P120）。23. 过程： 编写过程求n！（习题七编程题第1小题，第4小题），判别n是否为素数（习题七编程题第2小题）(1) 编程打印100200间的所有素数。每行输出5个，判断素数用Function过程，是素数返回1，否，返回0。Private Sub Command1_Click() k = 0 For i = 100 To 200 f = prime(i) If f = 1 Then k = k + 1 If k Mod 5 = 0 Then Print i Else Print i; End If Next iEnd SubPrivate Function pri

8、me(n) prime = 1 For i = 2 To n - 1 If n Mod i = 0 Then prime = 0: Exit For Next iEnd Function(2) 编写Function过程计算n！。Private Function fact(n) fact = 1 For i = 1 To n fact = fact * i Next iEnd Function利用求n！的过程计算下面的和：计算Private Sub Command1_Click() s = 0 ：t = 0 For i = 1 To 19 Step 3 t = t + fact(i) s = s

9、 + 1 / t Next i Print s=; sEnd Sub 简单的递归过程：(1)利用递归求累加，连乘（如n！），Private Function fact(n) If n = 1 Then fact = 1 Else fact = n * fact(n - 1) End IfEnd Function(2)求Fibonacci数列【实验书 笔试模拟试题1 程序填空第2小题】。24. 文件： 顺序文件的打开、读写、关闭。LOF函数返回被打开文件的大小。EOF函数判断被打开文件是否到了文件末尾。 文件控件（驱动器列表框、目录列表框、文件列表框）的同步操作。常用算法1. 累加连乘：（1）1

10、+2+3+n，其中n用InputBox函数输入。【实验4-1】，以及引申：1*2*3*n（即n！），1+22+32+n2，（2）【实验书 笔试模拟试题2程序阅读第1题】（3）【例5-8】计算自然对数e的近似值，（4）计算分数序列前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 Int

11、eger FontSize = 18 For i = 1 To 10 a(i) = Int(Rnd * 100 + 1) Print a(i); Next i Print Max = a(1): Min = a(1) For i = 2 To UBound(a) If Max a(i) Then Min = a(i) Min_j = i End If Next i Print 最大值为：; Max; 第 & Max_i & 个数 Print 最小值为：; Min; 第 & Min_j & 个数End Sub3. 闰年的算法：【例4-6】P66x = Val(InputBox(输入年份)If x

12、 Mod 4 = 0 And x Mod 100 0 Or x Mod 400 = 0 Then 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 = True For i = 2 To n - 1 If n Mod i = 0 Then flag = False Exit

13、 For End If Next i If flag = True Then Print Yes6. 对存放在数组中的数据进行排序：（比较交换法【例6-9】、选择法【例6-10】、冒泡法【例6-11】）、【实验书：笔试模拟试题2：程序填空题第2题】、【实验书：笔试模拟试题4：程序填空题第3题】、【实验书：笔试模拟试题6：程序填空题第2题】、 利用Rnd函数产生随机数：产生的X范围在1100（含1和100），X=Int(Rnd*100+1)。一般地，若要产生区间【a，b】（含a和b）的方法是：Int(Rnd*(b-a+1) + a) 产生一批随机数存入数组，并在列表框显示 对数组进行排序，排序结

14、果在列表框显示【实验书 笔试模拟试题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 0 s = (n Mod 2) & s n = n 2 Loop Text2.Text = sEnd Sub一些练习题第一章 VB概述练习题1. 以下叙述中错误的

15、是_。（A）一个工程可以包括多种类型的文件（B）Visual Basic应用程序既能以编译方式执行，也能以解释方式执行（C）程序运行后，在内存中只能驻留一个窗体（错误：内存中可以驻留多个窗体，当前窗体只能有一个。）（D）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样2. Visual Basic的窗体设计器主要是用来（建立用户界面）3. Visual Basic是一种结构化高级程序设计语言，它采用的是（事件）驱动方式。4. Visual Basic程序设计语言属于（面向对象的语言）。5. 假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下

16、正确的操作是。（分别保存窗体模块、标准模块和工程文件）。原因：一个工程中可包含多个文件，当打开一个工程文件时会自动加载工程内所有文件。对程序保存需分别保存工程文件及窗体文件。参考答案为B。第二章 VB基础练习题1.可以正确定义2个整形变量和1个字符串变量的语句的是：Dim x% , y AS Integer , z AS String2. 设有如下语句：Dim a , b As Integer 则： a 被定义为Integer 类型变量（错误） b 被定义为Integer 类型变量（正确）3. 执行以下程序后输出的是（FG）。Private Sub Command1_Click()Ch$=”A

17、ABCDEFGH”Print Mid(Right(ch$,6),Len(left(ch$,4),2)End Sub4. 设a = 4 , b = 3 , c = 2 , d = l，表达式 a b+1 Or c d And b Mod c 的值是（0）。5. 表达式32*2+3 MOD 104的值是（19）6. 以下能从字符串”VisualBasic”中直接取出子字符串”Basi”的函数是（Mid）。7.变量名k_name（合法）、k ame（不合法）、name （不合法）、k-name（不合法）8设s$= “BeijingChina”，则语句Mid(Text1.Text , 8)的执行结果是

18、（China）。 9. 设a$ = VisualBasic，则语句 Print String(3, a$)在窗体上显示的内容是（VVV）。10. 执行语句s = Len(Mid(VisualBasic, 1, 6)后，s的值是（6）。11. 设a$=“abcdef”，则语句Right(Trim(Text1.Text), 3)的执行结果是（def）。12. 设a=2，b=3，c=4，表达式Not a=c Or 4*a=b2 And ba+c的值是（False）。13. 执行以下程序段后，变量c$的值为（Quick BASIC Programming）。 a$ = Visual Basic Pro

19、gramming b$ = Quick c$ = b$ & UCase(Mid$(a$, 7, 6) & Right$(a$, 12)14描述“X是小于100的非负整数”的Visual Basic表达式是x% = 015a$ = LCase(Hello)，a$的值是（hello），b$ = UCase(Hello)，b$的值是（HELLO）。16. 代数式|y| + e-3xln3x的Visual Basic表达式为(abs(y) + exp(-3 * x) * log(3 * x)。17. 改正表达式(1) ts+cos(300) ts+cos(30*3.141593/180)(2) (x+

20、y)(25s) (x+y)(25/s)(3) (X1+X2)*(X1-3)-6*7 (X1+X2)*(X1-3)-6)*7(4) (X-2)+sin(1.2+) (X/(-2)+sin(1.2+3.141593)18、数学公式转化为VB表达式(1) sin(a)cos(b)+1.5 sin(a)*(cos(b)+1.5)(2) (X1+4)5(e2-a) (X1+4)5*(exp(2)-a)(3) 36(X1+)(X13.3)-B 36*(X1+3.141593)*(X1/3.3)-B)(4) X-2+5.8sin(3.5) X2+5.8*sin(3.5*3.141593)第三章 顺序结构练习

21、题1. 设在名称为Myform的窗体上只有1个名称为C1的命令按钮,则命令按钮的Click事件过程名是（C1_Click）2. 在Visual Basic工程中，可以作为启动对象的程序是（Sub Main过程或任何窗体）3. 新建一个工程将其窗体的Name属性设置为Myfrm，则默认的窗体文件名为（Myfrm.frm ）。4. 将窗体的（Enabled）属性设置为False后，运行时窗体上的按钮、文本框就不会对用户的操作做出响应。5. 一个窗体对应一个窗体文件，窗体文件的扩展名为 .frm，VB中的一个工程可以包括多个窗体，最多可以包含255个窗体文件。6. 当运行程序时，系统自动执行启动窗体

22、的某个事件过程。这个事件过程是（Load ）。 7. 无论何控件，都具有一个共同属性。这个属性是（Name）。8. Print方法可以在（窗体和图片框）对象上输出数据。9. 能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是：Form1.Caption=VisualBasic窗体10. 语句a=InputBox(Today,Tomorrow,Yesterday,Day before yesterday,5)将显示一个对话框，在对话框的输入区中显示的信息是（Yesterday）。 11. 设窗体上有一个文本框，名称为text1，程序运行后，要求该文本框不能接受键盘输入，但能输

23、出信息，则设置正确的是：text1.Enabled = False 12. 在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则设置语句是：Timer1.Interval=50013. 将文本框的（Multiline）属性设置为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的宽度时自动换行。14. 在窗体上画一个文本框，其名称为Text1。为了在程序运行后Text1中的文本不可编辑，应当使用的语句是： Text1.Locked=True 或Text1.Enabled=False15编写程序，在文本框中输入英文字符，单击“大写”按钮把英文字符

24、转换为大写，单击“小写”按钮把英文字符转换为小写。Private Sub Command1_Click() Text1.Text = UCase$(Text1.Text)End SubPrivate Sub Command2_Click() Text1.Text = LCase$(Text1.Text)End Sub第四章、第五章（要考）的 goto、ongoto不要求第六章 数组 练习题（自定义数据类型不要求）1. 九九乘法表Option Base 1Dim a(9, 9) As IntegerPrivate Sub Form_Click() FontSize = 10 Print Prin

25、t Tab(26); 乘法九九表 For i = 1 To 9 For j = 1 To 9 a(i, j) = i * j Print Tab(6 * j); a(i, j); ; Next j PrintNext i思考：如何打印下三角形状的九九乘法表？5. 矩阵转置：Option Base 1Dim a(3, 3) As Integer, b(3, 3) As IntegerPrivate Sub Form_Click() FontSize = 15 Print 矩阵a为： For i = 1 To 3 For j = 1 To 3 a(i, j) = Int(Rnd * 9 + 1)

26、Print Tab(6 * j); a(i, j); Next j Next i Print Print 矩阵b为： For i = 1 To 3 For j = 1 To 3 b(i, j) = a(j, i) Print Tab(6 * j); b(i, j); Next j Next iEnd Sub9. 打印杨辉三角形Dim a() As IntegerPrivate Sub Form_Click() n = Val(InputBox(输入n值:) ReDim a(n, n) As Integer FontSize = 10: FontBold = True For i = 1 To

27、n a(i, 1) = 1 a(i, i) = 1 Next i For i = 2 To n For j = 2 To i a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j Next i Print 输出杨辉三角形： For i = 1 To n For j = 1 To i Print a(i, j); Next j Print Next iEnd Sub第七章过程（注意：机电专业不要求）第八章 文件练习题1、根据数据的存取方式和结构，文件可以分为（顺序文件和随机文件）。2、能判断是否到达文件尾的函数是（ EOF ）。3、能对顺序文件进行输出操作

28、的语句是（ write和print ）。4、目录列表框的Path属性的作用是（ 返回或设置当前的工作目录 ）。5、文件号最大可取的值为（ 511 ）。6、PRINT #1,STR1 $中的PRINT是（ 文件的写语句 ）。7、要在一个顺序文件的末尾增加数据，则该文件的打开方式应为（append）。8、在Visual Basic中，用来返回用Open语句打开的文件的大小的函数是（LOF）。9、文件操作的一般步骤是打开(或建立)文件、进行读写操作和（关闭）。10、如果要在文件列表框中只显示后缀为rar和zip的压缩文件，则应该将文件列表框的某属性设置为*.rar;*.zip，这个属性是（patte

29、rn）。11、在窗体上建立一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form_Click()Open d:testsmtext1.txt For Input As #1Do While Not Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)LoopText1.Text = whole$Close #1Open d:testdmtext2.txt For Output As #1Print #1, Close #1End Sub 上述程序的功能是：把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt，请填空。：EOF(1) ：Text1.Text或Text1或whole或whole$12、以下代码建立文件名为“c:stud1.txt”的顺序文件，内容来自文本框，每按一次回车键写入一条记录，然后清除文本框的内容，直到文本框内输入“END”字符串。（：UCase(Text1.Text)=”END” ：Print #1,Text1.Text）Private Sub Form_Load() Openc:stud1.tx