1、VB 笔试模拟试卷 216及答案与解析 1 假定已经定义了一个过程 SubAdd(a As Single,b As Single)，则正确的调用语句是( )。 （ A） Add 12,12 （ B） Call Add(2*x,sin(1.57) （ C） Call Add x,y （ D） Call Add(12,12,x) 2 在窗体上添加一命令按钮，名为 Command，事件过程如下： option base 1 Private Sub Command1_Click() Dim a(4,4)As Variant For i=1 To 4 For j=1 To 4 a(i,j)=(i-1)*
2、3+j Next i For i=3 To 4 For j=3 To 4 Print a(i,j)； Next j Print Next i End Sub 该程序执行后，结果是 ( )。 （ A） 9 10 12 13 （ B） 7 10 12 13 （ C） 9 12 10 13 （ D） 8 11 9 12 3 下列语句都是在 Form中定义的， ( )是错的 （ A） Public Const A1=2u （ B） Private Const A2=8 （ C） Public a3 As Integer （ D） Private a4 As Integer 4 下列程序段的执行结果为
3、( )。 a=1 b=0 Select Case a Case 1 Select Case b Case 0 Print“*1*“ Case 1 Print“*1*“ End Select Case 2 Print“*2*“ End Select （ A） *0* （ B） *1* （ C） *2* （ D） 0 5 在窗体上画一个文本框 (其 Name属性为 Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text=“ “ Text1.SetFocus For i=1 To 9 Sum=Sum+i Next i Text1.Text=Sum
4、End Sub 上述程序的运行结果是 ( )。 （ A）在文本框 Text1中输出 45 （ B）在文本框 Text1中输出 0 （ C）出错 （ D）在文本框 Text1中输出不定值 6 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3 0 Then m=m+n3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ( )。 （ A） 15 （ B） 18 （ C） 21 （ D） 24 7 假定在窗体 (名称为 F
5、orm1)的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 a Color As String*10 End Type 在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Crick() Dim rec As animal Open“c:vbTest.dat“For Random As #1 Len=Len(rec) rec.animalName=“Cat“ rec.aColor=“White“ Put #1,rec Close #1 End Sub 则以下叙述
6、中正确的是 ( )。 （ A）记录类型 animal不能在 Form1中定义，必须在标准模块中定义 （ B）如果文件 c:vbTest.dat不存在，则 Open命令执行失败 （ C）由于 Put命令中没有指明记录号，因此每次都把记录写到文件的末尾 （ D）语句 “Put#l,rec”将 animal类型的两个数据元素写到文件中 8 在运行阶段，要在文本框 Text1获得焦点时选中文本框中的所有内容，则对应的事件过程是 ( )。 （ A） Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)
7、End Sub （ B） Prirate Sub Text1_LosFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub （ C） Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub （ D） Private Sub Text1_SetFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub 9 下列数组声明正确的是 ( )。 （ A
8、） n=5 Dim a(1 to n) As Integer （ B） Dim a(10) As Integer ReDim a(1 To 12) （ C） Dim a() As Single ReDim a(3,4) As Integer ReDim a(1 to n)As Integer （ D） Dim a() As Integer n=5 10 阅读程序： Option Base 1 Private Sub Form_Click() Dim art,Sum Sum=0 art=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)
9、/3=arr(i)3 Then Sum=Sum+art(i) End If Next i Pdnt Sum End Sub 程序运行后，单击窗体，输出结果为 ( )。 （ A） 13 （ B） 14 （ C） 27 （ D） 15 11 假定一个工程由一个窗体文件 Forml和两个标准模块文件 Model1及 Model2组成。 Model1代码如下： Public x As Integer Public y As Integer Sub S1() x=1 S2 End Sub Sub S20 y=10 Form1.Show End Sub Model2 的代码如下： Sub Main() S
10、1 End Sub 其中 Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是 ( )。 （ A） Form1MOdel1Model2 （ B） MOdel1Model2Form1 （ C） Model2M odel1Form1 （ D） Model2Form1Model1 12 如下程序： Private Sub Form_Click() a=20:b=20:c=120:d=120 Form1.Line(a,b)-(c,b),BF End Sub 单击窗体后，窗体上显示的是 ( )。 （ A）一条直线 （ B）一个矩形空框 （ C）一个填充了颜色的矩形 （ D）无任何图形 13
11、下列程序段的执行结果为 ( )。 a=75 If a 60 Then I=1 If a 70 Then I=2 If a 80 Then I=3 If a 90 Then I=4 Print“I=“:I （ A） I=1 （ B） I=2 （ C） I=3 （ D） I=4 14 当变量 x=2， y=5时，以下程序的输出结果为 ( )。 Do Until y 5 x=x*y y=y+1 Loop print x （ A） 2 （ B） 5 （ C） 10 （ D） 20 15 设有如下变量声明： Dim TestDate As Date 为变量 TestDate正确赋值的表达方式是 ( )
12、（ A） TestDate=#1/2002# （ B） TesDate=#“1/1/2002“# （ C） TesDate=date(“1/1,2002“) （ D） TesDate=Format(“m/d/yy“,“1/1/2002“) 16 在窗体上添加一个按钮，名为 Command1，然后编写如下的事件过程，输出结果为 ( )。 Prinvate Sub Comand1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+5 Next k Next j Next i Print x End Sub （ A） 13 （ B）
13、 26 （ C） 30 （ D） 40 17 执行以下程序段后，变量 c的值为 ( )。 a=“Visual Basic Programing“ b=“|Quick“ c=b&Ucase(Mid(a,7,6)&Right(a,11) （ A） Visual BASIC Programing （ B） Quick Basic Programing （ C） QUICK Basic Programing （ D） Quick BASIC Programing 18 下列符号（ ）是 Visual Basic中的合法变量名。 （ A） x23 （ B） 8xy （ C） END （ D） X8B 1
14、9 下列叙述不正确的是（ ）。 （ A）命令按钮的默认属性为 Caption （ B）标签的默认属性为 Caption （ C）复选框的默认属性为 Value （ D）滚动条的默认属性为 Value 20 两个或两个以上模块之间关联的紧密程度称为（ ）。 （ A）耦合度 （ B）内聚度 （ C）复杂度 （ D）数据传输特性 21 在 E-R图中，用来表示实体的图形是（ ）。 （ A）矩形 （ B）椭圆形 （ C）菱形 （ D）三角形 22 在程序运行期间，当滚运条的滑块被拖动时，则立即触发的滚动条事件是（ ）。 （ A） Click （ B） Chang （ C） Scroll （ D） Db
15、lClick 23 为了使列表框中的项目呈多列显示，需要设置的属性为（ ）。 （ A） Columns （ B） Style （ C） List （ D） MultiSelect 24 数据库技术的根本目标是要解决数据的（ ）。 （ A）存储问题 （ B）共享问题 （ C）安全问题 （ D）保护问题 25 Sub过程与 Function过程最根本的区别是（ ）。 （ A） Sub过程可以使用 Call语句或直接使用 过程名调用，而 Function过程不可以 （ B） Function过程可以有参数， Sub过程不可以 （ C）两种过程参数的传递方式不同 （ D） Sub过程的过程名不能返回值
16、，而 Function过程能通过过程名返回值 26 设置复选框或单选按钮的标题对齐方式的属性是（ ）。 （ A） Aligh （ B） Style （ C） Alignment （ D） Sorted 27 以下关于过程及过程参数的描述中，错误的是（ ）。 （ A）过程的参数可以是控件名称 （ B）用数组作为过程的参数时，使 用的是 “传地址 ”方式 （ C）只有函数过程能够将过程中处理的信息传回到调用的程序中 （ D）窗体可以作为过程的参数 28 目录列表框的 Path属性的作用是（ ）。 （ A）显示当前驱动器或指定驱动器上的路径 （ B）显示当前驱动器或指定驱动器上的某目录下的文件名 （
17、 C）显示根目录下的文件名 （ D）只显示当前路径下的文件 29 软件设计包括软件的结构、数据接口和过程设计，其中软件的过程设计是指（ ）。 （ A）模块间的关系 （ B）系统结构部件转换成软件的过程描述 （ C）软件层次 结构 （ D）软件开发过程 30 以下关于变量作用域的叙述中，正确的是（ ）。 （ A）窗体中凡被声明为 Private的变量只能在某个指定的过程中使用 （ B）全局变量必须在标准模块中声明 （ C）模块级变量只能用 Private关键字声明 （ D） Static类型变量的作用域是它所在的窗体或模块文件 31 对变量名说法不正确的是（ ）。 （ A）必须是字母开头，不能是
18、数字或其他字符 （ B）不能是 Visual Basic的保留字 （ C）可以包含字母、数字、下划线和标点符号 （ D） 不能超过 255个字符 32 下列表达式中，（ ）的值为 false。 （ A） BCD “BCE“ （ B） 12345 “12345“&“ABC“ （ C） Not2*5=10 （ D） 4=4and5 2+2 33 下列 4项对 InputBox 函数的使用说明，不正确的是（ ）。 （ A）每执行一次 InputBox函数，只能输入一个值 （ B）函数值必须赋给一个变量 （ C） InputBox函数的 Prompt参数不能缺省 （ D）若单击 InputBox函数产
19、生的对话框中的 “取消 ”按钮，将不会 返回函数值 34 假设变量 intVar是一个整型变量，则执行赋值语句 intVar=“2“+3 之后，变量intVar的值是（ ）。 （ A） 2 （ B） 3 （ C） 5 （ D） 23 35 函数 String(n,“str“)的功能是（ ）。 （ A）把数值型数据转换为字符串 （ B）返回由 n个字符组成的字符串 （ C）从字符串中取出 n个字符 （ D）从字符串中第 n个字符的位置开始取子字符串 36 在窗体上画一个文本框 (其 Name属性为 Text1)，编写如下事件过程，运行结果是 _。 Private Sub Form_Load( )
20、 Text1.Text=“ “ Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 37 下列程序的输出结果为 _。 num=2 While num =3 num=num+1 Print num Wend 38 设有如下程序 Private Sub Search(a()As Variant,By Val key As Variant,index%) Dim I% For I=LBound(a) To UBound(a) If key=a(I) Then Index=I Exit Sub End If Next
21、 I Index=-1 End Sub Private Sub Form_Load() Show Dim b() As Variant Dim n As Integer b=Array(1,3,5,7,9,11,13,15) Call Search(b,11,n) print n End Sub 程序运行后，输出结果是 _。 39 执行下列程序，输入数字 3，则输出结果为 _。 Private Sub Command1_Click() a=inputBox(“Input a Number“) If a 5 Then GoTo L5 Else If a 2 Then GoTo L2 Else G
22、oTo L3 End If Exit Sub L5: Print a Mod 5 Exit Sub L3: Print a Mod 3 Exit Sub L2： Print a Mod 2 End Sub 40 以下程序的功能是：把当前目录下的顺序文件 smtext1.txt的内容读入内存，并在文本框 Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text=“ Open“.smtext1. _ AS#1 Do While _ Input#1,inData Text1.Text=Text1.Text
23、&inData Loop Close#1 End Sub 41 窗体中有图片框 (Picturel)和计时器 (Timed)两个控件。运行程序时，将图片加载到图片框中，然后图片框以每 2秒钟一次的速度向窗体的右下角 移动，每次向下、向右移动 100twip。请填空。 Private Sub Form_Load() Prcture1_Picture=LoadPicture(“cpicmouth.ico“) _.Interva=2000 End Sub Prinvate Sub Timer1_Timer() Static x,y As Integer x=x+100 y=y+100 Pictuer
24、1.Movex， y End Sub 42 有时候 需要暂时关闭计时器，这可以通过 _属性来实现。 43 _的任务是诊断和改正程序中的错误。 44 控件被拖动时显示的图标是由控件的 _属性决定的。 45 将变量 SUM1、 SUM2定义为单精度型，写出相的定义语句 _。 46 当用户建立窗体文件时，都会产生 _。 47 计时器控件能有规律的以一定时间间隔触发 _事件，并执行该事件过程中的程序代码。 48 语句 Print“Int(-13.2)=“； Int(-13.2)的输出结果为 _。 VB 笔试模拟试卷 216答案与解析 1 【正确答案】 B 2 【正确答案】 A 3 【正确答案】 A 4
25、 【正确答案】 A 5 【正确答案】 C 6 【正确答案】 C 7 【正确答案】 D 8 【正确答案】 C 9 【正确答案】 D 10 【正确答案】 C 11 【正确答案】 C 12 【正确答案】 A 13 【正确答案】 D 14 【正确答案】 C 15 【正确答案】 A 16 【正确答案】 A 17 【正确答案】 D 18 【正 确答案】 A 19 【正确答案】 A 20 【正确答案】 A 21 【正确答案】 A 22 【正确答案】 C 23 【正确答案】 A 24 【正确答案】 B 25 【正确答案】 D 26 【正确答案】 C 27 【正确答案】 C 28 【正确答案】 A 29 【正确
26、答案】 B 30 【正确答案】 B 31 【正确答案】 C 32 【正确答案】 C 33 【正确答案】 D 34 【正确答案】 C 35 【正确答案】 B 36 【正确答案】 出错 37 【正确答案】 3 4 38 【正确答案】 5 39 【正确答案】 1 40 【正确答案】 For Input NotEOF(1) 41 【正确答案】 Timer1 42 【正确答案】 Enabled 43 【正确答案】 调试 (阶段 )或程序调试 (阶段 )或软件调试 (阶段 )或 Debug(阶段 ) 44 【正确答案】 DragIcon 45 【正确答案】 DimSum1AsSingle,Sum2Assingle 46 【正确答案】 相应的工程文件 47 【正 确答案】 Timer 48 【正确答案】 Int(-13.2)=-14
