1、VB 笔试模拟试卷 202及答案与解析 1 以下不能在 “工程资源管理器 ”窗口中列出的文件类型是 ( )。 （ A） .bas （ B） .res （ C） .frm （ D） .ocx 2 在窗体上画三个单选按钮，组成一个名为 chkOption的控件数组。用于标识各个控件数组元素的参数是 ( )。 （ A） Tag （ B） Index （ C） Listlndex （ D） Name 3 设有数组定义语句： Dima(5)AsInteger， Listl为列表框控件。下列给数组元素赋值的语句错误的是 ( )。 （ A） a(3)=3 （ B） a(3)=inputbox(“inputd
2、ata“) （ C） a(3)=Listl.Listlndex （ D） a=Array(1， 2， 3， 4， 5， 6) 4 不能正确表示条件 “两个整型变量 A和 B之一为 0，但不能同时为 0”的布尔表达式是 ( )。 （ A） A*B=0 andA+B 0 （ B） (A=0 orB=0)and(A 0 Or B 0) （ C） not(A=0 And B=0)and(A=0 or B=0) （ D） A*B=0 and(A=0 or B=0) 5 下列关于过程的叙述不正确的是 ( ) （ A）过程的传值调用是将实参的具体值传递给形参 （ B）过程的传址调用是将实参在内存的地址传递给
3、形参 （ C）过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 （ D）无论过程传值调用还是过程传址调用，参数传递都是双向的 6 设置标签边框的属性是 ( )。 （ A） BorderStyle （ B） BackStyle （ C） AutoSize （ D） Alignment 7 如果 A为整数，且 |A| =100，则打印 “OK“，否则打印 “Error“，表示这个条件的单行 格式 If语句是 ( )。 （ A） If int(A)=AAnd Sqr(A) =10ThenPrint“OK“ElsePrint“Error“ （ B） IF Fix(A)=AAndAbs(A
4、) =100Then Print“OK“Else Print“Error“ （ C） IF Int(A)=AAnd(A =100,A =-100)ThenPrint“OK“ElsePrim“Error“ （ D） If Fix(A)=AAndA =100,AndA =-100ThenPrint“OK“ElsePrint“Error“ 8 下列叙述中正确的是 ( )。 （ A）在窗体的 Form_Load事件过程中定义的变量是全局变量 （ B）局部变量的作用域可以超出所定义的过程 （ C）在某个 Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程 （ D）在
5、调用过程时，所有局部变量被系统初始化为 0或空字符串 9 若要设置文本框中所显示的文本颜色，使用的属性是 ( )。 （ A） BackColor （ B） FillColor （ C） ForeColor （ D） BackStyle 10 在 VB中按文件的访问方式不同，可以将文件分为 ( )。 （ A）顺序文件、随机文件和二进制文件 （ B）文本文件和数据文件 （ C）数据文件和可执行文件 （ D） ASCII文件和二进制文件 11 在新建一个 VisualBasic工程时，将新建窗体的 Name属性 设置为 TheFirst，则默认的窗体文件名为 ( )。 （ A） Form1.frm
6、（ B）工程 1.frm （ C） TheFirst.frm （ D） Form1.vbp 12 要建立一个随机文件记录学生的信息，下列定义了学生的记录类型，由学号、姓名、五门课程成绩 (百分制 )组成，下列的定义正确的是 ( )。 （ A） Type stu no As Integer name As String score(1 To 5)As Single End Type （ B） Type stu no As Integer name As String*10 score()As Single End Type （ C） Type stu no As Integer name As
7、String*10 score(1 To 5)As Single End Type （ D） Type stu no As Integer name As String score()As Single End Type 13 设有变量声明为 “Dim aDate As Date”，则为变量 aDate正确赋值的表达方式是( )。 （ A） aDate=#8/2008# （ B） aDate=#“8/8/2008“# （ C） aDate=Date(“8/8/2008“) （ D） aDate=Format(“m/d/yy“， “8/8/2008“) 14 表达式 Str(Len(“123“)
8、+Str(77.7)的值是 ( )。 （ A） 377.7 （ B） 377.7 （ C） 80.7 （ D） 12377.7 15 已知代数式 eXSin(30)2x/(x+y)Lnx，则正确的 Visual Basic表达式为 ( )。 （ A） E*Sin(30*3.14/180)*2*X/X+Y*Log(X) （ B） Exp(X)*Sin(30)*2*X/(X+Y)*Ln(X) （ C） Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*Log(x) （ D） Exp(X)*Sin(30*3.14/180)*2*X/(X+Y)*Ln(X) 16 在使用打印直接输出信
9、息时，下列哪个属性或方法实现了使文件结束打印( )。 （ A） Print方法 （ B） Page属性 （ C） NewPage方法 （ D） EndDoc方法 17 窗体上添加一个文本框 Text1，编写下列代码： Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+5)i （ A） i=1 （ B） i=2 （ C） i=3 （ D） i=4 23 下列程序运行时输出的结果是 ( )。 Option Base 1 Const a=10 Private Sub Form_Click(
10、) Dim x(a)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub （ A） 1 3 5 7 9 10 （ B） -1-3-5-7-9 （ C） -1 2-3 4-5 6-7 8-9 10 （ D） 1-2 3-4 5-6 7-8 9-10 24 有下列程序段，其输出结果是 ( )。 a=0:b=0 For i=-1 To -2 Step -1 For j=1 To 2 b=b+1 Next j a=a+1 Next i Print a;b （ A） 2
11、3 （ B） -2 2 （ C） 4 2 （ D） 2 4 25 下列程序段错误的是 ( )。 （ A） Dim a As Integer a=array(1,2,3,4) （ B） Dim a(),b() a=array(1,2,3,4): b=a （ C） Dim a As Variant a=array(1,“aSd“,true) （ D） Dim a()As Variant a=array(1,2,3,4) 26 在窗体上画一个名称为 Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为 Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将
12、根据所选择的单选按钮切换，请选择空白处合适的语句( )。 Private Sub Option1_Click(Index AS Integer) Select Case_ Case 0 a=“宋体 “ Case 1 a=“黑体 “ （ A） Option Text （ B） Index Text （ C） Index Font （ D） Option Font 27 有下列函数过程： Function fun1(ByVal x As Integer,ByVal y As Integer)As Integer Do While y 0 reminder=x MOd y x=y y=reminde
13、r Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a （ A） 0 （ B） 25 （ C） 50 （ D） 100 28 下列程序的运行结果是 ( )。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,B) Print a,b End Sub Private Sub fun(x,y) x=y*y y=y+x End Sub （ A） 2.25 3.75 （ B） 1.5 2.25 （ C） 1.5 0.75
14、 （ D） 0.75 1.5 29 假定有一个菜单项，名为 MenuItem，为了在运行时使该菜单项不可见，应使用的语句为 ( )。 （ A） MenuItem.Enabled=False （ B） MenuItem.Enabled=Trme （ C） MenuItem.Visible=True （ D） MenuItem.Visible=Flase 30 下列 ( )事件过程可以将打开文件对话框的标题改变为 “new Caption”。 （ A） Private Sub Command1_Click() CommonDialog1.DialogTitle=“new Caption“ Comm
15、onDialog1.ShowFont End Sub （ B） Private Sub Command1_Click() CommonDialog1.DialogTitle=“new Caption“ CommonDialog1.ShowOpen End Sub （ C） Private Sub Command1_Click() CommonDialog1.DialogTitle=“new Caption“ CommonDialog1.ShowHelp End Sub （ D） Private Sub Command1_Click() CommonDialog1.DialogTitle=“ne
16、w Caption“ CommonDialog1.ShowColor End Sub 31 在窗体上画一个名称为 “Command1”，标题为 “计算 ”的命令按钮，再画 7个标签，其中 5个标签组成名称为 Label1的控件数组；名称为 Label2的标签用于显示计算结果，其 Caption属性的初始值为空；标签 Label3的标题为 “计算结果 ”。运行程序时会自动生成 5个随机数，分别显示在标签控件数组的各个标签中。单击 “计算 ”按钮，则将标签数组各元素的值累加，然后计算结果显示在 Label2。下列为 “计算 ”按钮的事件过程，请为横线处选择合适的语句 ( )。 Private Su
17、b Command1_Click （ A） Label1(i).Caption Label2.Caption （ B） Label1(i).Caption Label3.Caption （ C） Label1.Caption Label2.Caption （ D） Label1.Caption Label3.Caption 32 按文件的访问方式不同，可以将文件分为 ( )。 （ A）顺序文件、随机文件 （ B）文本文件和数据文件 （ C）数据文件和可执行文件 （ D） ASC 文件和二进制文件 33 在 C盘当前文件夹下建立一个名为 SDat.txt的顺序文件。要求用 InputBox函数输
18、入 5名学生的学号 (StuNo)、姓名 (StuName)和英语成绩 (SmEng)。则在下列横线处合适的语句是 ( )。 Private Sub Form_Click() Open“C： SDat.txt“For Output AS 1 For i=1 To 5 SmNo=InputBox(“请输入学号 “) StuName=InputBox(“请输入姓名 “) （ A） Input #1,StuNo,StuName,StuEndg （ B） Put #1,StuNo,StuName,StuEndg （ C） Write #1,StuNo,StuName,StuEndg （ D） Get
19、#1,StuNo,StuName,StuEndg 34 下列事件过程的功能是：建立一个名为 Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1， 2， 3， ， 90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Dim i As Integer Dim （ A） Data1.txtFor Random As #1 Len
20、=10 Put #1,i,Ksc （ B） Data1.txtFor Random As #1 Len=10 Put #1,Y,Ksc （ C） Data1.txtFor Random As #1 Put #1,i,Ksc （ D） Data1.txtFor Random As #1 Put #1,Y,Ksc 35 在程序中使用日期型数据时，必须用符号 _将日期型数据括起来。 36 将一般窗体转换为 MDI窗体的子窗体时要把 MDIChild属性设置为 _。 37 在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块 (桩模块 )。其中 _的作用是将测试数据传送给被测试的
21、模块，并显示被测试模块所产生的结果。 38 设有以下函数过程： Functiofun(m As Integer)As Integer Dimk As Integer,sum As Integer sum=0 Fork=m To 1 Step-2 sum=sum+k Nextk fun=sum End Function 若在程序中用语句 s=fun(10)调用此函数，则 s的值为 _。 39 多分支选择结构的 SelectCase测试表达式语句中，测试表达式可以是_。 40 在程序中动态地给图片框加载图像文件的函数为 _。 41 下列语句的输出结果是 _。 Print Format(Int(12
22、345.6789*100+0.5)/100,“00,000.00“) 42 下列程序段的运行结果是 _。 Sub sele() Dimn as Integer i=21:n=3 DoWhilei n i=i-n Loop Printi End Sub 43 下列程序段的运行结果是 _。 Dimt As Single， S As Single Dimn As Integer S=0:t=1 Forn=1 To 5 t=t*n s=s+1 Nextn Debug.Print S 44 “编辑 ”菜单中 “粘贴 ”命令所对应的快捷键是 _。 45 若已在窗体中加入一个通用对话框，要求在运行时，通过
23、ShowOpen打开对话框时只显示扩展名为 .doc的文件，则对通用对话框的 Filter属性正确的设置是_。 46 下列过程的功能是：在对多个文本框进行输入时，对第一个文本框 (text1)输入完毕后用回车键使焦点跳到第二个文本框 (text2)，而不是用 TAB键来切换。请填空。 Private Sub 11 KeyDown(KeyCode As Integer,Shift As Integer) If KeyCode 12 vbKeyRetum Then Text2.SetFocus End If End Sub VB 笔试模拟试卷 202答案与解析 1 【正确答案】 D 2 【正确答案
24、】 B 3 【正确答案】 D 4 【正 确答案】 D 5 【正确答案】 D 6 【正确答案】 A 7 【正确答案】 B 8 【正确答案】 C 9 【正确答案】 C 10 【正确答案】 A 11 【正确答案】 C 【试题解析】 设置 Name的属性其实就是给窗体重命名。窗体的文件名是由文件名和后缀名 (.frm)组成，即 “自定义名 .frm”。 12 【正确答案】 C 【试题解析】 可以用 Type语句创建用户定义的类型，注意该语句必须置于模块的声明部分。其格式如下： Type 数据类型名 数据类型元素名 As 类 型名 数据类型元素名 As 类型名 End Type 在记录数据类型中的元素可
25、以是变长字符串，也可以是定长字符串。当在随机文件中使用时，必须使用定长字符串，一般格式是： String*常量。另外，在记录类型中不能使用动态数组。 13 【正确答案】 A 【试题解析】 任何可辨认的文本日期都可以赋值给 Date变量。日期文字必须以数字符号 “#”扩起来，例如， #January 1、 1993#或 #1 Jan 93#。对于选项 D)是按照格式字符串的要求显示数值表达式， Format 函数的正确格式为： Format(数值表达式，格式字符串 )，所以选项 D)应该改为： aDme=Format(“8/8/2008“，“m/d/yy“)；选项 C)中 Date函数使用错误，
26、应为： aDate=Date。 14 【正确答案】 B 【试题解析】 解本题有两个关键点：一是运算的先后顺序，这里应该是 Len函数 Sir 函数 + 计算 (连接 )；二是 Len 函数和 Str函数的功能， Len 函数用来计算字符串的长度， “123”长度为 3(空格、小数点各算一个长度 )。 Str函数是将数字转为字符串，注意转换后数字前会保留一空位表示正负。这里 “3”转换后为 “_3”(“_”表示空格 )。 “+”运算符时有可能是做加法，也有可能是做字符串连接，其结果根据两个参与运算的表达式决定。如果两个表达式都是数值数据类型，进行相加运算；如果两个表达式都是字符，进行相连接运算。
27、 15 【正确答案】 C 【试题解析】 “Exp函数功能是计算 e(e2.71828)的某次方，其格式为是Exp(number)； “Sin函数指定参数的正弦值，它的参数是表示以弧度为单位的角的 Double型数据： “Log”函数得到某数的自然刘数值，正确的表达方式是Log(number)； “30”在计算机中应该写成 30*3.14/180；并且各个表达式之间的乘号不能省略。 16 【正确答案】 D 【试题解析】 每次应用程序结束时，它们会自动使用 EndDoc方法，将打印机对象中任何未确定的信息送到打印机，即通过 “Printer.EndDoc”方法用来结束文件打印。 17 【正确答案】
28、 A 【试题解析】 KeyDown 事件返回键盘上的键，如按下字母 “A”或者字母键 “a”，KeyCode码都为 65，所以按下小写字母 a和 b 后， KeyCode值分别为 65和 66，KeyCode+5的值分别为 70和 71，刘应的字母分别为 F和 G，所以打印输出 F65和 G66。 18 【正确答案】 A 【试题解析】 图片框的装载语句为： Picture1.Picture=LoadPicture(图片完整路进 )。 Print输出方法的功能是在指定的对象上输出文本信息，它的基本格式为：对象名 .Prim。 19 【正确答案】 B 【试题解析】 解答本题的关键是读懂程序。程序中
29、首先通过赋值语句定义一个有 5个元素的数组 (数组的下标从零开始 )；接下来通过 For循环来循环给变量 S赋值 (即对数组元素求和 )，这里循环中 k 从 1开始，因此 a(k)从 2开始取值，到 a(4)也就是 5结束，计算结果为 14。 20 【正确答案】 A 【试题解析】 Columns 属性返回或设置一个值，以决定控件是水平还是垂直滚动以及如何显示列中的项目。 Columns 属性值为 0时，控件为垂直滚动； Columns属性等于 1时，则列表框呈多行多列显示： Columns 属性值大于 1时，为水平滚动， Columns 属性值的数量决定在控件中的可见宽度内显示列的数量。 Co
30、lumns属性用来确定列表框的列数。 21 【正确答案 】 C 【试题解析】 计时器控件又称为时针控件，通过引发 Timer事件，可以有规律地隔一段时间执行一次代码。控件用于背景进程中，是不可见的。 Timer时间也是计时器控件的唯一事件。 22 【正确答案】 D 【试题解析】 程序执行过程为：程序首先给变量 a赋初值 75，然后执行第 2行if 语句，条件成立，因此执行 i=1赋值语句；接着执行第 3行 if 语句，条件成立，因此执行 i=2赋值语句；接着执行第 4行 if语句，条件不能成立，因此不执行 i=2赋值语句；接着执行第 5行 if语句，条件成立，因此执行 i=4 赋值语句，此时i
31、=4；最后执行 Print输出语句，输出 i。 23 【正确答案】 C 【试题解析】 本题中两个 For循环的作用分别为：为 x数组元素赋值，在窗体上依次输出 x数组元素的值。 其中，为 x数组元素赋值时，有 “x(i)=i*k”和 “k=(-1)*k”两条语句。 k的值每次都取自己的相反数，这样， x数组元素的符号每次都在变化，第 1个元素是 -1，第 2个元素是 2，第 3个元素是 -3，依此类推：最后输出 x元素的值为 -1 2-3 4-5 6-7 8-9 10。 24 【正确答案】 D 【试题解析】 这个双重 For循环中，外层的 For循环循环次数是两次，计算变量 a的值；内层 Fo
32、r循环每次执行循环次数也是 2次，计算变量 b 的值。执行过程为： 当 a=0； b=0时，语句 b=b+1执行两次，结果为 2， a+1=1。 当 a=1；b=2时，语句 b=b+1 执行两次，结果为 4， a+1=2。因此最后计算结果为 a=2，b=4。 25 【正确答案】 A 【试题解析】 本题是考查使用 Array函数为数组变量赋值。使用 Array函数给数组赋值时需要先定义数组变量，然后再使用 Array函数赋值。 26 【正确答案】 C 【试题解析】 控件数组中的控件共享同一个事件过程，相互间通过 Index属性区别，题中单选按钮数组的单击事件中，有一个 Index参数，单击不同的
33、单选按钮，它取不同的值，根据该值进行不同的操作，所以， Select Case语句的表达式应为 “Index”；题中要求改变文本框中的字体，所以应修改 Text1 的 Font属性。 27 【正确答案】 B 【试题解析】 可以通过两种方式来传递参数，即按值传递参数和按地址传递参数。按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所作变动只 影响副本而不会影响变量本身。用 ByVal 关键字指出参数是按值来传递的。按地址传递参数使过程用变量的内存地址去访问实际变量的内容，在将变量传递给过程时，通过过程可永远改变变量值。默认时是按地址传递参数。 28 【正确答案】 A 【试题解析】
34、分析程序，命令按钮中的调用函数语句执行过程为： Call fun(a，b)x=y*y=1.5*1.5=2.25 ， y=y+x=1.5+2.25=3.75。因为这里的参数是默认类型，即传地址形式传递参数，所以 a、 b 的值也改变为 2.25、 3.75。 29 【正确 答案】 D 【试题解析】 Enabled 属性用来设置一个窗体或控件是否能够刘用户产生的事件作出反应，设为 False时，菜单项在程序运行时失效，不响应用户的操作；设为True时，菜单项在程序运行有效，能响应用户的操作。 Visible属性用来设置窗体或控件是否可见，设为 False时，控件不可见：设为 True时，控件可见。
35、 30 【正确答案】 B 【试题解析】 可以通过 DialogTitle属性设置打开文件刘话框的标题，使用ShowOpen 方法设置通用刘话框的类型为打开文件对话框。 DialogTitle属性指定对话框中标题栏的名称。 “打开 ”对话框默认的标题是 “打开 ”； “另存为 ”对话框默认的标题是 “另存为 ”。 31 【正确答案】 A 【试题解析】 本题看似复杂，实际比较简单，只要读懂了题意就能很快地解答本题。题中要求单击 “计算 ”按钮后，累加标签数组各元素的值，那么 sum的值就应该是标签数组中各元素值的累加，用下标引用各数组元素 Label1(i).Caption；题目最后要求将和显示在
36、 Label2 中，因此第 2个空应该填写 Label2.Caption。 32 【正确答案】 A 【试题解析】 根据不同的分类标准，文件可分为不同的类型。根据数据性质，文件可分为程序文件和数据文件；根据数据的存取方式和结构，文件可分为顺序文件和随机文件；根据数据的编码方式，文件可分为 ASC 文件和二进制文件。 33 【正确答案】 C 【试题解析】 顺序文件的读操作使用 Input语句，写操作使用 Print或 Write语句。 Write语句的正确格式为： Write#文件号，表达式表。各表达式之间用逗号隔开。 随机文件的写操作使用 Put#语句，读操作使用 Get#语句。 34 【正确答
37、案】 A 【试题解析】 分析程序，程序要将角度值及这些角度的正弦函数值和余弦函数值存入 Datal文件中。因此，应先打开 Datal文件，应为 Datal 文件是随机文件，要新建并写入信息，所以应用 Random方式打开文件。这里给随机文件指定长度为 10，所以第 1个空白处应填： “Dam1.txt“For Random As#1 Len=10。要向随机文件中写入信息，应用 Put语句，因此第 2空应填： Put#1， i， Ksc。 35 【正确答案】 # 36 【正确答案】 True 37 【正确答案】 驱 动模块 38 【正确答案】 30 39 【正确答案】 数值表达式或字符表达式 40 【正确答案】 LoadPicture 41 【正确答案】 68 42 【正确答案】 3 43 【正确答案】 5 44 【正确答案】 Ctrl+V 45 【正确答案】 (*DOC)|*.DOC 46 【正确答案】 text1,=
