2022年2022年计算机二级vb考试复习题 .pdf

1 VB 复习题一、选择题1、在窗体Form1 的 Click 事件过程中有以下语句：Label1.Caption = Visual Basic 若本语句执行之前，标签控件Label1 的 Caption 属性为默认值，则标签控件的Name属性和 Caption 属性在执行本语句之前的值分别为：(A) Label 、Label (B) Label 、Caption (C) Label1 、Label1 (D) Caption、Label 2、文本框对象的默认属性是：(A) Name (B) Text (C) Visible (D) Enabled 3、下列数据类型中，占用内存最小的是：(A) Boolean (B) Byte (C) Integer (D) Single 4、下面哪一个不是字符串常量：(A) 你好 (B) (C) True (D) #False# 5、下列哪一个是日期型常量：(A) 2/1/99 (B) 2/1/99 (C) #2/1/99# (D) 2/1/99 6、已知变量A、B、C 中 C 值最小，下列表达式中，可以判断A、B、C 的值可否构成三角形三条边长的是：(A) A=B And B=C And C0 (B) A+CB And B+CA And C0 (C) (A+B=C Or A-B0 (D) A+BC And A-B0 7、下列运算符中，优先级最高的是：(A) Not (B) Is (C) Like (D) & 8、当 VB 执行下面语句后，A 的值为 _ A=1 If A0 Then A=A+1 If A1 Then A=0 (A)0 (B)1 (C)2 (D)3 9、程序在运行循环“For i=1 to 14 step 3”结束后， i 的值等于 _。(A)16 (B)13 (C)14 (D)15 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 12 页 - - - - - - - - - 2 10、以下 _语句可以跳出Do Until ,Loop 循环(A)End (B)Exit Loop (C)Exit Do (D)Exit For 11、窗体上放置一个命令按钮Commmand1，单击按钮后，X 的值是 _。Private Sub Command1_Click() x = 5 For i = 1 To 20 Step 2 x = x + i 5 Next i End Sub (A)21 (B)22 (C)23 (D)24 12、在窗体上画1 个命令按钮和1 个标签，其名称分别为Command1 和 Label1，然后编写如下事件过程：Private Sub Command1_Click() Counter = 0 For i = 1 To 4 For j = 6 To 1 Step -2 Counter = Counter + 1 Next j Next i Label1.Caption = Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是(A)11 (B)12 (C)16 (D)20 13、阅读下面的程序段：For i=1 to 3 For j=1 to i a = a+1 next j next i 执行上面的两重循环后，a 的值为(A)3 (B)9 (C)6 (D)21 14、用下面的语句所定义的数组的元素个数是Dim A(-3 to 5) As Interger (A)6 (B)7 (C)8 (D)9 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 12 页 - - - - - - - - - 3 15、Sub 过程与 Function 过程最根本的区别是：(A) 前者可以使用Call 或直接使用过程名调用，后者不可以(B) 后者可以有参数，前者不可以(C) 两种过程参数的传递方式不同(D) 前者无返回值，但后者有返回值16、在定义函数过程时，不可能用到的关键字是：(A) Exit (B) As (C) Sub (D) End 17、3在定义通用过程时，下列关键字中不能用来修饰形参的是：(A) ByVal (B) ByRef (C) Optional (D) Static 18、执行以下程序段：a$ = abbacddcba For i = 6 To 2 Step -2 X = Mid(a, i, i) Y = Left(a, i) Z = Right(a, i) Z = UCase(X & Y & Z) Next i Print Z (A)ABA (B)AABAAB (C)ABBABA (D)BBABBA 19、用下面的语句所定义的数组的元素个数是_。Dim arr(3 To 5，-2 To 2) (A)20 (B)12 (C)15 (D)24 20、以下程序段的执行结果是_。Dim A(1 To 10) For i = 1 To 10 A(i) = 2 * i Next i Print A(A(3) (A) 12 (B)6 (C)8 (D)16 二、填充题21、下列数据类型的变量各占多少字节的内存：Byte： （1） ；Integer： （2） ；Long： （3） ；Single： （4） ；Double： （5） 。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 12 页 - - - - - - - - - 4 22、刚被定义尚未赋值的日期型变量的值为（6） ；逻辑型变量的值为（7）；对象型变量的值为（8）；变体变量的值为（9）。23、如果int1 是整型变量，则执行int1=2+3语句之后， int1 的值为（10）；执行int1=2+3 语句之后， int1 的值为（11）。24、表达式(-3) Mod 8 的值为（12）。25、判断变量X 是不是能被5 整除的偶数，逻辑表达式可写为(13) 26、已知 a、b、c 都是整型变量，使用Visual Basic 逻辑表达式描述下列条件：a小于 b 或小于 c：（14）；a和 b 都大于 c：（15）；a和 b 中至少有一个大于c：（16）；a和 b 中只有一个大于c：（17）；a是非正数：（18）；a不能被 b 整除：（19）。27、阅读下面的事件过程。单击窗体后，在文本框Text1 和 Text2 中显示的内容分别是（20）和（21）；若将程序中A 语句与 B 语句的位置互换，再次执行程序，单击窗体后在Text1 和 Text2 中显示的内容分别是（22）和（23）。 1 Private Sub Form_Click() 2 Dim x As Integer, y As Integer 3 x=1 : y=0 4 Do While x3 5 y=y+x A语句 6 x=x+1 B语句 7 Loop 8 Text1.Text=x 9 Text2.Text=y 10 End Sub 28、本程序根据下式计算x1sin的值（通项的值小于10-6时停止计算） ，请完善之。.764253154231321sin7531xxxxx 1 Private Sub Command1_Click() 2 Dim x As Single, y As Single, t As Single 3 Dim a As Single, b As Single, n As Single 4 x = CSng(Text1.Text) 5 y = （24 ） 6 b = 1 7 n = 2 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 12 页 - - - - - - - - - 5 8 Do 9 a = x (2 * n - 1) / (2 * n - 1) 10 b = （25 ）11 t = a * b 12 y = y + t 13 n = n + 1 14 Loop While （26 ）15 Text2.Text = y 16 End Sub 29、在过程调用中，参数的传递方式可分为按值传递和按地址传递两种，其中（27）是默认方式。使用（28）关键字来修饰形式参数，可以使之按值传递。30、运行下面程序，当单击窗体时，窗体上显示在内容是（29）；如果把 A 语句替换为x = 64，B 语句替换为r = 8，则输出结果为（30）。分析一下这个程序的功能是什么。 1 Dim n As Integer, k As Integer, x As Integer, r As Integer 模块级变量 2 Dim a(8) As Integer 模块级数组 3 Private Sub conv(d As Integer, r, i) 4 i = 0 5 Do While d 0 6 i = i + 1 7 a(i) = d Mod r: d = d r 8 Loop 9 End Sub 10 11 Private Sub Form_click() 12 x = 12 A 语句13 r = 2 B 语句14 Print CStr(x); (; CStr(r); )=; 15 If x = 0 Then 16 Print 0 17 Else 18 Call conv(x, r, n) 19 For k = n To 1 Step -1 20 Print a(k); 21 Next k 22 Print 23 End If 24 End Sub 三、编程题31、若一头小母牛从第四个年头开始每年生一头母牛，按此规律，求第n 年时共有多少头母牛。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 12 页 - - - - - - - - - 6 32、编程显示如图1 所示的星号三角形，三角形的行数可由文本框指定。图 1 星号三角形33、编程计算11541431321211nn.的值，其中n=20。34、编写程序，实现矩阵转置，即将1 个 nm的矩阵的行和列互换。例如，a 矩阵为654321a转置后的矩阵b 为635241a35、编写程序，把下面的数据输入1 个二维数组中：25 36 78 13 12 26 88 93 75 18 22 32 56 44 36 58 然后执行以下操作：（1）输出矩阵2 个对角线上的数（2）分别输出各行和各列的和（3）交换第1 行和第 3 行的位置（4）交换第2 列和第 4 列的位置（5）输出处理后的数组36、编写程序完成下列要求：（1）随机产生1 个 NN二维数组，二维数组中的数字为0100 之间的整数， N由文本框输入（ N不大于 8） 。（2）找出数组中的最大数。（3）输出随机产生的二维数组，最大数和最大数的行号及列号。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 12 页 - - - - - - - - - 7 答案一、选择题1、C 2、B 3、 B 4、D 5、C 6、B 7、D 8、C 9、A 10、C 11、A 12、B 13、C 14、D 15、D 16、C 17、D 18、D 19、C 20、A 二、填充题21、 （ 1）1 （2）2 （3）4 （4）4 （5）8 22、 （ 6）#0:00:00# （7）Fasle （8）Nothing （9）Empty 23、 （ 10）5 （11）23 24、 （ 12） -3 25、 （ 13） (X Mod 5)=0 And (X Mod 2)=0或 X Mod 10=0 26、 （ 14） ab Or ac And bc （16） ac Or bc （17） ac Xor bc （18） a=0 （19） a Mod b0 27、 （ 20）3 （21）3 （22）3 （23）5 28、 （ 24）x （25）b * (2 * n - 3) / (2 * n - 2) （26）Abs(t) = 0.000001 29、 （ 27）按地址传递（28）ByVal 30、 （ 1）12(2)=1 1 0 0 （2）64(8)=1 0 0 三、编程题31、 （提示：从第4年起，第 n 年牛数等于第n-1 年和第 n-3 年牛数的和。）1 Private Sub Command1_Click() 2 Dim a1 As Integer, a2 As Integer, a3 As Integer, a As Integer 3 Dim int1 As Integer, n As Integer 4 n = Cint(Text1.Text) 5 For int1 = 1 To n 6 If int1 a(i, j) Then min = a(i, j) p = i q = j End If Next j Next i Print 数组中的最小数为： & min Print 最小数的行号为 & p & ，最小数的列号为 & q End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 12 页 - - - - - - - - -