1、二级 VISUAL+BASIC 笔试-234 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：25，分数：75.00)1.用 Write 和 Print 语句向文件中写入多个数据的差别在于 _。（分数：3.00）A.Write 语句不会自动在数据项之间插入逗号B.Print 语句自动在数据项之间插入逗号C.write 语句写入字符串会自动给字符串加上双引号，写入的正数前面没有空格D.Print 语句写入字符串会自动给字符串加上双引号，写入的正数前面没有空格2.执行下面这段程序后，单击命令按钮，窗体中输出结果是 _。Private Sub Command1_Click(
2、)a=1 : b=4 : c = 9 : d = 5If a b ThenIf cd Thenx=TrueElseIf ac Thenx=FalseElsex=TrueEnd IfEnd IfEnd IfPrint Val(x)End Sub（分数：3.00）A.TrueB.FalseC.0D.13.在窗体上有一个计时器控件 Timer1 和一个标签控件 Label1，在程序运行时可通过每隔 30 毫秒让Lable1 左移 100 缇，从而产生文字移动动画效果。文字从右向左移动，当移动到接近窗体左边界时停止移动。空格处应填 _。Private Sub Form1_Load()Label1. L
3、eft=Form1. WidthTimer1. Interval=30_End SubPrivate Sub Timer1_Timer()Lable1.Left=Lable1. Left -100If Lablel. Left100 ThenTimer1. Enable=FalseEnd IfEnd Sub（分数：3.00）A.Timer1. Enable=TrueB.Label1.Enable=TrueC.Timer1. Enable=FalseD.Label1. Enable=False4.用下面的语句定义数组元素的个数为 _。Option Base 1Dim Arr6(-2 to 6，
4、-1 to 5)As Integer（分数：3.00）A.30B.48C.63D.725.在窗体上画一个命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim a As Integer, b As integerb = 1For a = 1 To 100If b 10 Then Exit ForIf b Mod 3 = 1 Thenb = b + 3End IfNext aPrint aEnd Sub在命令按钮上单击后，窗体上显示的结果是 _。（分数：3.00）A.101B.6C.5D.46.执行下面的程序，单击命令按钮后，窗体中的输出结果是 _。Priva
5、te Sub Cotomand1_Click()Ch$=“Welcome Home!“a=Len(ch$)For i= 1 To ab$ = Mid(ch$， i 1)If b$ = “m“ Then m = m + 1Next 1Print mEnd Sub（分数：3.00）A.2B.3C.1D.07.将同一窗体上的多个 Option Button 控件分为多个组，可以使用的控件是 _。（分数：3.00）A.PictureboxB.ShapeC.TextboxD.Frame8.当窗体为“模态型”(强制响应方式)时，窗体的模式值为 _。（分数：3.00）A.VbModaless 或者 0B.V
6、bModal 或者 0C.VbModaless 或者 1D.VbModal 或者 19.窗体上有一个列表框，编写下列程序：Private Sub Command1_Click()List1. RemoveItem3End SubPrivate Sub Form_Load()List1. AddItem “拉瓦锡“List1. AddItem “道尔顿“List1. AddItem “汤姆森“List1. AddItem “门捷列夫“End Sub程序执行时，单击 Commandd1，则在列表框中将不再出现 _。（分数：3.00）A.拉瓦锡B.道尔顿C.汤姆森D.门捷列夫10.要令图像的大小自动
7、适应图像框的大小，应将 _。（分数：3.00）A.其 Autosize 属性值设置为 TrueB.其 Stretch 属性值设置为 TrueC.其 Autosize 属性值设置为 FalseD.其 Stretch 属性值设置为 False11.下面可以打开立即窗口的操作是 _。（分数：3.00）A.Ctrl+CB.Ctrl+GC.Ctrl+SD.Ctrl+B12.Command1_Click()事件代码如下：Private Sub Command1_Click()Dim x As Integer, Y As Integerx = 6 : Y : 8Call ABC(X, Y)Print X;
8、YEnd SubPrivate Sub ABC(ByVal X As Integer，Y As Integer)X = X + 4Y = Y = 2End Sub事件发生后，X 和 Y 的值分别为 _。（分数：3.00）A.6, 8B.10, 10C.10, 8D.6, 1013.要随机产生一个两位数并赋值给 y，下面语句正确的是 _。（分数：3.00）A.y=10+Int(91*Rnd)B.y=Int(10+90*Rnd)C.y=10+Int(89*Rnd)D.y=10+Int(90*Rnd)14.代数式，|e 2Algy1 3+sin y2|对应的 Visual Basic 表达式是 _。
9、（分数：3.00）A.Abs(e2*a+Log(y13)+Sin(y2)B.Abs(Exp(2)*a+Log(y13)Log(10)+Sin(y2)C.Abs(e2*a+lg(y13)+Sin(y2)D.Abs(Exp(2)*a+Log(y13)+Sin(y2)15.下列类型中，不适用于数值常量类型的是 _。（分数：3.00）A.货币型B.单精度型C.整型D.长整型16.对于如下程序，单击 Co 皿 andl 事件发生后，窗体上显示的内容为 _。Private Sub Command1_Click()Dim i As Integer,a a As IntegerDo While i20Do W
10、hile TrueIf i Mod 10 = 0 ThenExit DoElsei=i-1End IfLoopi=i+11a=a+1LoopPrint aEnd Sub（分数：3.00）A.21B.32C.33D.1117.为了在运行时能显示窗体左上角的控制菜单框，必须 _。（分数：3.00）A.把窗体的 Visible 属性设置为 TrueB.把窗体的 Visible 属性设置为 FalseC.把窗体的 Conbolbox 属性设置为 FalseD.把窗体的 Contolbox 属性设置为 True18.在 Visual Basic 中，下列操作不能打开属性窗口的是 _。（分数：3.00）A
11、.按 Ctrl+TB.执行“视图”菜单中的“属性窗口”命令C.单击工具栏中的“属性窗口”D.按 F4 键19.运行下面的程序，单击命令按钮后，当输入分别为 123 和 456 时，输出结果为 _。Private Sub Command1_Click()a=InputBox(“请输入一个数字:“)b=Val(InputBox(“请再输入一个数字：“)PrInt a+bEnd Sub（分数：3.00）A.123B.456C.123123D.57920.有如下程序，运行时从键盘输入 3，输出结果是 _。Private Sub Command1_Click()a=InputBox(“请输入一个数字：“
12、)Select Case aCase Is2b=a+1Case Is3b=a+2Case Is4b=a3Case Is5ba4End SelectPrint a bEnd Sub（分数：3.00）A.8B.7C.6 p921.下列程序执行后，按住 Cbl 键并在文本框中输入 a，则在窗体上输出的结果为 _。Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)Print keyCode, ShiftEnd Sub（分数：3.00）A.a 2B.65 2C.97 1D.97 222.在窗体上画一个名称为 List1 的列表框，
13、为了对列表框中的每个项目都能进行处理，应使用的循环语句为 _。（分数：3.00）A.For i = 0 To List1.ListCount - 1NextB.For i = 0 To List1. Count- 1NextC.For i = 0 To List1. ListCountNextD.For i = 0 To List1.CountNext23.用八进制表示 Visual Basic 的整型常数时，需要在前面加上的符号是 _。（分数：3.00）A. YEnd SubPrivate Sub ABC(ByVal X As Integer，Y As Integer)X = X + 4Y
14、= Y = 2End Sub事件发生后，X 和 Y 的值分别为 _。（分数：3.00）A.6, 8B.10, 10C.10, 8D.6, 10 解析：解析 事件发生时，首先定义两个变量 X，Y 并给他们赋值 6 和 8。然后调用过程 ABC，在过程ABC 中有两个形参 X，Y。X 是按值传递，Y 是按地址传递，所以在 ABC 过程中，对形参 x 的修改并不影响对应的实参 x，但对形参 Y 的修改将影响到相应的实参 Y。所以过程调用后，输出的 X、Y 值分别为6、100。13.要随机产生一个两位数并赋值给 y，下面语句正确的是 _。（分数：3.00）A.y=10+Int(91*Rnd)B.y=I
15、nt(10+90*Rnd)C.y=10+Int(89*Rnd)D.y=10+Int(90*Rnd) 解析：解析 Rnd 的作用是产生一个 0 到 1 之间的随机数。通过它产生从 A 到 B 范围的随机整数可使用以下公式：Int(B-A+1)*Rnd)+A=Int(99-10+1)*Rnd)+10。14.代数式，|e 2Algy1 3+sin y2|对应的 Visual Basic 表达式是 _。（分数：3.00）A.Abs(e2*a+Log(y13)+Sin(y2)B.Abs(Exp(2)*a+Log(y13)Log(10)+Sin(y2) C.Abs(e2*a+lg(y13)+Sin(y2)
16、D.Abs(Exp(2)*a+Log(y13)+Sin(y2)解析：解析 e 在 Visual Basic 中不是常量，e 2可使用函数 Exp(2)来表示。在 Visual Basic 中没有常用对数 lg 只能通过自然对数函数 Log(x)来求常用对数，公式为 18x=In x/ln 10。正弦函数为 Sin，绝对值函数为 Abs。故选答案 B。15.下列类型中，不适用于数值常量类型的是 _。（分数：3.00）A.货币型B.单精度型 C.整型D.长整型解析：解析 Visual Basic 的常量分为字符串常量、符号常量和数值常量。其中数值常量又分为整数型、长整数型数、浮点数和货币型数等四种
17、表示方式。16.对于如下程序，单击 Co 皿 andl 事件发生后，窗体上显示的内容为 _。Private Sub Command1_Click()Dim i As Integer,a a As IntegerDo While i20Do While TrueIf i Mod 10 = 0 ThenExit DoElsei=i-1End IfLoopi=i+11a=a+1LoopPrint aEnd Sub（分数：3.00）A.21B.32 C.33D.11解析：解析 本题内层循环的条件始终为 True，因此内层循环体内的 Exit Do 语句为终止循环语句。首先，判断外层循环 Do Whil
18、e 后面的表达式“i20”为 True，接着执行内层循环的 If 语句。表达式“i Mode 10=0”的值为 True，执行 Exit Do，跳出内层循环，执行下面的语句，得 i=11， a=11。回到外层循环，判断 Do While 后面的表达式“i20”为 True，执行内层循环的 If 语句，表达式“i Mode 10=0”的值为 False，执行 i=i-1，i=10。跳出内层循环，执行下面的语句，得到 i=21，a=32。17.为了在运行时能显示窗体左上角的控制菜单框，必须 _。（分数：3.00）A.把窗体的 Visible 属性设置为 TrueB.把窗体的 Visible 属性设
19、置为 FalseC.把窗体的 Conbolbox 属性设置为 FalseD.把窗体的 Contolbox 属性设置为 True 解析：解析 把窗体的 Visible 属性设置为 False，窗体不可见：把窗体的 Visible 属性设置为 True，窗体可见；把窗体的 Controlbox 属性设置为 True 时显示窗体左上角的控制菜单框：把窗体的 Controlbox 属性设置为 False 时不显示窗体左上角的控制菜单框。18.在 Visual Basic 中，下列操作不能打开属性窗口的是 _。（分数：3.00）A.按 Ctrl+T B.执行“视图”菜单中的“属性窗口”命令C.单击工具栏
20、中的“属性窗口”D.按 F4 键解析：解析 属性窗口激活的方法主要有三种：执行“视图”菜单中的“属性窗口”命令、单击工具栏上的“属性窗口”按钮和按 F4 键。Ctrl+T 是打开部件窗口的快捷键。19.运行下面的程序，单击命令按钮后，当输入分别为 123 和 456 时，输出结果为 _。Private Sub Command1_Click()a=InputBox(“请输入一个数字:“)b=Val(InputBox(“请再输入一个数字：“)PrInt a+bEnd Sub（分数：3.00）A.123B.456C.123123D.579 解析：解析 InputBox 函数的默认返回值是字符类型。当
21、输入“123”后，a 的值是字符串“123”。当在第二个弹出的对话框内输入 456 后，经过 Val 函数的转换，b 值为数值 456，按照出具类型的自动结合原则，a 自动转换为数值型数据后与 b 进行相加，最终输出结果为 579。20.有如下程序，运行时从键盘输入 3，输出结果是 _。Private Sub Command1_Click()a=InputBox(“请输入一个数字：“)Select Case aCase Is2b=a+1Case Is3b=a+2Case Is4b=a3Case Is5ba4End SelectPrint a bEnd Sub（分数：3.00）A.8B.7 C.
22、6 p9解析：解析 当程序运行 SelectCase 语句时，先计算 SelectCase 后面表达式的值，然后将该值与从第一个 Case 子句后的值列表中的值或者表达式进行比较，如果满足条件则再往下比较：若符合某 Case 分支的条件表达式，则执行该分支中的程序段，执行完毕后不管下面的 case 分支是否同样符合而直接跳到End Select。所以答案选 B。21.下列程序执行后，按住 Cbl 键并在文本框中输入 a，则在窗体上输出的结果为 _。Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)Print keyCod
23、e, ShiftEnd Sub（分数：3.00）A.a 2B.65 2 C.97 1D.97 2解析：解析 文本框的 KeyDown 事件有两个参数：KeyCode 和 Shift。KeyCode 参数返回用户操作的那个键的扫描代码。a 的扫描代码为 65。Shift 参数用来表述用户按下了 Shift、Ctrl、Alt 键中的一个或多个。按下 Shift 键，Shift 参数的位 0 变为 1；按下 Ctrl 键，Shift 参数的位 1 变为 1；按下 Alt 键，Shift 参数的位 2 变为 1。因此当按下了 Ctrl 键时，Shift 键的参数的值变为 2。22.在窗体上画一个名称为
24、 List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 _。（分数：3.00）A.For i = 0 To List1.ListCount - 1NextB.For i = 0 To List1. Count- 1NextC.For i = 0 To List1. ListCountNextD.For i = 0 To List1.CountNext 解析：解析 滚动条的属性值代表滚动条当前的位置，Max 的属性值代表滚动条变化的最大值， Min 的属性值代表滚动条变化的最小值，LargeChange 的属性值代表单击滚动条滑块两边的空白，滚动条增大或减小的值，Sma
25、llChange 的属性值代表单击滚动条滑块两边的箭头，滚动条增大或减小的值。23.用八进制表示 Visual Basic 的整型常数时，需要在前面加上的符号是 _。（分数：3.00）A.&O B.&HC.OD.H解析：解析 在 Visual Basic 常量中，十六进制的常量需要冠以&h，八进制的常量需要冠以&o。24.要使文本框 Text1 不可用且文字居中，可以用以下语句 _。（分数：3.00）A.Text1. Enabled = FalseText1.Alignmem = 2 B.Text1. Enabled = FalseText1. Alignment = 0C.Text1. En
26、abled = TrueText1. Alignment = 0D.Text1. Enabled = TrueText1. Alignment = 1解析：解析 文本框的 Enable 属性为 True 时，文本框可用：为 False 时，文本框不可用。文本框的Alignmem 属性有 3 个值，0、1、2，分别对应文本框中内容的左、右、居中对齐。25.以下程序段的执行结果是 _。Dim a As Integer，b As IntegerFor a=4 To 1 Step-1b=b+aNext aPrint b， a（分数：3.00）A.100 B.9 1C.10 1D.90解析：解析 For
27、 循环的结束条件是循环变量的值在变化方向上超过终值，本题的循环变量 a 的初值为4，终值为 1，步长为-1，所以变化方向是从大到小，在 a 的值为 4，3，2，1 时分别执行一次循环，循环中把循环变量 a 的值分别加到变量 b 中。四次循环完成后，循环变量的值变为 0，循环结束，b 值为4+3+2+1=10。二、填空题(总题数：6，分数：25.00)26.设 a=1，b=2，c=3，d=4，表达式 Not b=a Or 4 * a+1=d And ca+b 的值为 【1】 。（分数：2.50）填空项 1:_ （正确答案：False）解析：解析 Visual Basic 的运算次序是先运算算术运
28、算符，其次是关系运算符，最后是逻辑运算符。逻辑运算符中，Not 优先级最高，其次是 And，最后算 Or。因此，不难算出本题表达式运算结果为False。27.运行下列程序，最后在窗体中输出 【2】 。Private Sub command1_Click()a=65 : b = 17a = a Mod b 2a = a / 4Print aEnd Sub（分数：2.50）填空项 1:_ （正确答案：16）解析：解析 首先给 a 和 b 赋值 65 和 17。然后，运算一个表达式。首先计算，然后计算取余运算符Mod，计算得出此时 a 值为“。最后计算 a/4 的值为 16。28.下列程序的功能是，
29、单击命令按钮时随机生成 15 个 100 以内的正整数，放到 35 的数组中，找出该数组中最大的元素，并指出该元素的行标和列标。请填空。Option Base 1Private Sub Command1_Click()Dim a(1 To 3, 1 To 5) As Integer, n As Integer, m As IntegerDim maximum As Integer, max n As Integer, max_m As IntegerRandomizeFor m=1 To 3For n = 1 To 5a(m, n)= 【3】 Next nNext mmaximuma(1, 1
30、)max n=1 : max m=1For i = 1 To 3For j=1 To 5If 【4】 Thenmaximum=a(i, j)max m=imax_n=jEnd IfNext jNext iPrint maximum, max m, max nEnd Sub（分数：5.00）填空项 1:_ （正确答案：Int(100*Rnd) a(i，0maximum）解析：解析 首先通过一个双循环结构，生成 15 个随机正整数，要求正整数在 100 以内。因此第一个空应该填 Int(100*Rnd)。第二个双循环结构用来寻找数组中的最大元素。从第一个元素 a(1，1)开始， 如果有元素比先前的
31、元素值大，则把该元素的值赋给 maximum 变量，并用 m，n 记录其下标。因第二个空的条件表达式应该填 a(i,j)maximum。29.下列程序段的作用是控制窗体的显示与隐藏。请填空。Private Sub Form_Click()Dim msg As IntegerMe. 【5】 MsgBox “单击 Ok 显示窗体“Form1. 【6】 End Sub（分数：5.00）填空项 1:_ （正确答案：Hide Show）解析：解析 隐藏窗体但不从内存中清除窗体的方法是 Hide。显示窗体的方法是 Show。30.在 Visual Basic 中，实参传递给形参有两种方式， 【7】 方式可
32、以通过改变过程中的相应的参数来改变实参变量的值；而 【8】 被调用过程中改变了这个形参的值，但对应的实参的值并不改变。（分数：5.00）填空项 1:_ （正确答案：引用 传值）解析：解析 变量(即实参)的值存放在内存的某个地址中，当通过引用来调用一个过程时，向该过程传送变量，实际上是把变量的地址传送给该过程，因此，变量的地址和被调用过程中相应参数的地址是相同的。如果通用过程中的操作修改了参数的值，则它同时也修改了传送给过程的变量的值。而传值方式即实参把值传递给对应的形参。这种数据传递方式的特点是：在被调用过程中改变了这个形参的值，但对应的实参的值并不改变。传值方式是通过使用 ByVal 关键字
33、来实现的。31.下列程序段的功能是，单击命令按钮后，将随机产生 10 个三位数，并将这些数写到 C 盘根目录下的data.txt 文件中。请填空。Private Sub Command1_Click()Dim a As IntegerOpen 【9】 For Output As #100RandomizeFor i =1 To 10a=100+Int(899*Rnd)【10】 Next iClose #100End Sub（分数：5.00）填空项 1:_ （正确答案：“d:/datalll.txt“ Write #100,a）解析：解析 首先打开顺序文件。第一个空填文件的路径与文件名。使用 Write 将数据写入文件内，格式为“Write #100，a”，即把变量 a 的值写入文件号为 100 的文件内。
