1、07VB程序设计期末考试07VB程序设计期末考试满分：60分姓名：_1、单项选择题(本题共计40分)1、滚动条的坐标系统与它当前的_无关。 ( )A、数字刻度B、位置C、尺寸大小D、属性2、设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时让该菜单项变灰，应使用的语句是_。 ( )A、menu1.Enabled=TrueB、menu1.Enabled=FalseC、menu1.Visible=TrueD、menu1. Visible = False3、窗体有一个方法可以使窗体隐藏但不从内存中卸载，该方法是_。 ( )A、ShowB、ReleaseC、HideD、Unload4、假定
2、时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，则1秒钟的时候窗体上将输出_个字母“a”。Private Sub Timer1_Timer()For i = 1 To 10Print aNext iEnd Sub ( )A、1 000次B、10000次C、10次D、以上都不对5、在Form_Click事件中执行如下语句的正确结果是_。 Print Format(1236.54,+ # , # 0.0%) ( )A、123456B、+123,654.0%C、+123,6.54%D、+123,6546、对正实数X的第四位小数四舍五入的VB表达式是_。
3、( )A、0.001*Int(x+0.0005)B、0.001*(1000*x+0.5)C、0.001*Int(1000*x+5)D、0.001*Int(1000*(x+0.0005)7、若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用_关键字在该过程中定义局部变量。 ( )A、DimB、PrivateC、PublicD、Static8、下面的表达试的值为真的是_。 ( )A、Mid(“Visual Basic”,1,12)=Right(“Programing Language Visual Basic”,12)B、“ABCRG” ”abcde”C、Int(134.69) Cint
4、(134.69)D、78.9/32.77 4.989、用于字符串连接的运算符是_。 ( )A、&B、+C、AndD、A、B都可以10、语句Print 5*20 输出的结果是_。 ( )A、5*20B、出现错误信息C、5*20D、10011、有如下程序代码：Private Sub Command1_Click( )s=Sin(3.1415926/2)MsgBox sEnd Sub程序运行后，消息对话框显示_。 ( )A、0B、1C、1.5708D、212、在一个语句内写多条语句时，每个语句之间用_符号分隔。 ( )A、，B、：C、D、；13、语句Print 5*20 输出的结果是_。 ( )A、
5、5*20B、出现错误信息C、5*20D、10014、VisualBasic认为下面_组变量是同一个变量。 ( )A、A1和a1B、Sum 和SummaryC、Aver 和 AverageD、A1 和A_115、如果a是一个正实数，对x的第3位小数四舍五入的表达式是_。 ( )A、0.01*Int(a+0.005)B、0.01*Int(a+0.05)C、0.01*Int(100*(a+0.005)D、0.01*Int(100*(a+0.05)16、i被j整除的逻辑表达式是_。 ( )A、i/j = 0B、ij = 0C、i0D、i mod j = 017、在一个语句内写多条语句时，每个语句之间用
6、_符号分隔。 ( )A、，B、：C、D、；18、在Form_Click事件中执行如下语句的正确结果是_。 Print Format(1236.54,+ # , # 0.0%) ( )A、123456B、+123,654.0%C、+123,6.54%D、+123,65419、在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有_。可使文本框Text3中显示46。 ( )A、Text3. Text=Text1. Text & Text2. TextB、Text3. Text=Val(Text1. Text)+Val(Text2.Text)C、Text3. Text
7、=Text1. Text+Text2.TextD、Text3. Text=Val(Text1. Text) & Val(Text2.Text)20、下面_是合法的单精度型变量。 ( )A、num!B、sum%C、xinte$D、mm21、以下程序输出的结果是_。Option Base 1Private Sub Command1_ClickDim a, B(3, 3)a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)For I = 1 To 3For j = 1 To 3B(I, j) = a(I * j)If (I >= j) ThenPrint Tab(j
8、 * 3); Format(B(I, j), #);Next jPrintNext IEnd Sub ( )A、1 2 34 5 67 8 9B、l4 57 8 9C、1 4 72 4 63 6 9D、12 43 6 922、在窗体上画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click( )Dim a As Varianta = Array(1,2,3,4)j = 1For i = 4 To 1 Step -1s = s + a(i)*jj = j * 10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输
9、出结果是_。 ( )A、4321B、12C、34D、123423、当发生Command1_Click事件后，程序输出结果是_。Option Base 1Private Sub Command1_Click()Dim a(4, 4) As Integer,i As Integer,s As Integers=0Fori=1 To 4 For j=1 To 4 a(i, j) = (i-1)*4+j*2 Next jNext iFor i = 1 To 4 s=s+a(i, i)Next iPrint sEnd Sub ( )A、28B、32C、30D、4424、要分配存放如下方阵的数据，_数组声
10、明语句能实现(不能浪费空间)。每行三个元素，第一行为：1.1 2.2 3.3第二行为：4.4 5.5 6.6第三行为：7.7 8.8 9.9 ( )A、Dim a(9) As SingleB、Dim a(3，3) As SingleC、Dim a(-1 To l，-5 To -3) As SingleD、Dim a(-3 To -1，5 To 7) As Integer25、以下程序输出的结果是_。Dim aa=Array(1,2,3,4,5,6,7)For i=Lbound(a)To Ubound(a)a(i)= a(i)*a(i)Next iPrint a(i) ( )A、49B、0C、不
11、确定D、程序出错26、下列程序段的输出结果是_。Dim i As IntegerDim a(8) As Integery = 18: i = 0Do a(i) = y Mod 2 i = i + 1 y = y 2Loop Until y < 1For j = i - 1 To 0 Step -1 Print a(j);Next j ( )A、1 0 0 0B、1 0 0 1 0C、0 0 1 1 0D、1 0 1 0 027、假如用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是_。 ( )A、命令按钮的所有Caption属性都是Command1B、在
12、代码中访问命令按钮只需使用名称Command1C、命令按钮的大小都相同D、命令按钮共享相同的事件过程28、程序代码如下，当单击窗体上Command1控件时，窗体上显示的结果是_。Option Base 1Private Sub Command1_Click( )Dim i As IntegerDim x(3,3)As IntegerFor i = 1 To 3For j = 1 To 3x(i,j) = (i-1) * 3+jNext jNext iFor i = 1 To 3Print x(i,4-i)Next iEnd Sub ( )A、1 5 9B、1 4 7C、3 5 7D、3 6 9
13、29、文件号最大可取的值为_。 ( )A、255B、511C、512D、25630、可以在_中，使用语句Public PubStr As String*20定义一个定长字符串。 ( )A、窗体模块B、标准模块C、类模块D、三者均可31、调用由语句Private Sub Convert(Y As Integer)定义的Sub过程时，以下不是按值传递的语句是 &#
14、160; 。 ( )A、Call Convert (X)B、Call Convert(X*1)C、Convert (X)D、Convert X32、窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用Public K As Integer,Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用 _。 ( )A、Frm1.KB、Form.KC、Form1.KD、K33、在调用Sub过程或Function过程时，采用_传送相应过程的变量名、数组名、常数或表达式。 ( )A、形式参数B、实际参数C、对象
15、参数D、数组参数34、在VisualBasic中文件访问的类型有_。 ( )A、顺序、随机、二进制B、顺序、随机、字符C、顺序、十六进制、随机D、顺序、记录、字符35、以下有关变量作用域的说明中，错误的是 。 ( )A、只有在标准模块中用Public语句说明的变量才是全局变量B、在过程中不能使用Public语句说明全局变量C、在标准模
16、块的通用声明处可用语句说明模块级变量D、在窗体的通用声明处可用Private语句说明窗体级变量36、以下说法正确的是 。 ( )A、在VB中，过程可以嵌套定义也可以嵌套调用 B、在VB中，过程可以嵌套定义但不可以嵌套调用C、在VB中，过程不可以嵌套定义但可以嵌套调用D、在VB中，过程不可以嵌套定义也不可以嵌套调用
17、 37、如果想使直线或形状的线型为点线，应将_属性设置为3-Dot。 ( )A、BorderColorB、BorderStyleC、BackStyleD、Shape38、要在形状控件Shape1中填充一种图案，可设置它的_属性. ( )A、BorderColorB、BorderStyleC、FillStyleD、FillColor39、当使用Line方法时，参数B与F可组合使用，下列组合中_不允许。 ( )A、BFB、FC、BD、不使用B与F40、根据控件具有下列_属性，就能判断该控件是否可以和数据控件绑定。RecordSourceDataSourceDataFieldDatabaseName
18、 ( )A、B、C、D、2、填空题(本题共计20分)1、界面上没有调试工具栏，可通过选中视图菜单中的 _调试把它显示出来。2、要把Label控件中显示的文字设置成左对齐，应设置Label控件的-_(1)_ 属性。3、X是小于100的非负数，对应的表达式是_(1)_.4、_(1)_的功能是显示当前过程所有局部变量的当前值。5、Visual Basic程序在运行时中，用户可通过按 _键进入中断状态。6、输入一个正整数 k，求各位数字之和。请将下列程序补充完整。 程序代码如下：Option ExplicitPrivate Sub Command1_Click( )Dim Sum As Integer
19、, k As Longk = Val(Text1.Text)Do While K0Sum = Sum + _(1)_k = k10LoopText2.Text = Str(Sum)End Sub7、添加按钮Command1和文本框Text1,并编写下列代码。执行程序单击命令按钮后,Text1中是_；将A、B语句交换位置,执行程序单击命令按钮后,Text1中是_。Option ExplicitSub abc(k,x)Dim i As Integerx=1For i=1 To kx=x*iNext iEnd SubPrivate Sub Command1_Click()Dim n As Integ
20、er,i As Integer,x As Integern=0:x=0For i=1 To 3Call abc(i,x) A语句n=n+x B语句Next iText1.Text=n= & nEnd Sub8、一个窗体上有一个命令按钮Command1，下列程序执行后，输出的结果为_。Private Sub Command1_Click( )Dim x As Integerx = 1Call sort(x)Print x;call sort(x)Print x;End SubPrivate Sub sort(y As Integer)y = y+1End Sub9、用二分法求函数f(x)=x3-
21、6x-1=0 在x=25 范围内的x=2附近的一个实根，其计算误差为|xl-x2|10(-6)。完善下列程序。Private Sub Command1_Click ( )Dim V0 As Singke, v As Single, s As StringDim x As Single, t As Single, x1 As Single, x2 As Singlex1=0: x2=5Do While _x = (x1+x2)/2If Sgn(f1(x) = 1 Thenx2 = xElsex1 = xEnd IfLoopPrint x = ; xEnd SubPrivate Function
22、f1(x As Single) As Singlef1 = x * x * x -6 * x-1End Function参考答案1.c,2.b,3.c,4.c,5.b,6.d,7.d,8.a,9.d,10.c,11.b,12.b,13.c,14.a,15.c,16.d,17.b,18.b,19.b,20.a,21.d,22.d,23.d,24.c,25.d,26.b,27.b,28.c,29.b,30.b,31.d,32.a,33.b,34.a,35.a,36.c,37.b,38.c,39.b,40.b1.工具栏,2.Alignment,3.x=0,4.本地窗口,5.Ctrl+Break,6.k mod 10,7.n=9,n=3,8.2 2,9.Abs(x1-x2)0.000001
