南京工业大学vb期末题库.doc

09vb模拟测试卷满分：70分姓名：_1、单项选择题(本题共计40分)1、VisualBasic是用于开发_环境下的应用程序的工具。 ( )A、DOSB、WindowsC、DOS和WindowsD、UNIX2、对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做 _过程。 ( )A、方法B、事件C、调动D、编译3、VisualBasic中的窗体文件的扩展名是_。 ( )A、.regB、.frmC、.basD、.vbp4、一只白色的足球踢进球门，则白色、足球、踢、进球门是_。 ( )A、属性、对象、方法、事件B、属性、对象、事件、方法C、对象、属性、方法、事件D、对象、属性、事件、方法5、下面_语句，可以将列表框List1中当前选定的列表项的值替换成“ABC”。 ( )A、List1.AddItem“ABC”，List1.ListIndexB、List1.Text=“ABC”C、List1.List(List1.ListIndex)=“ABC”D、前三项均可6、在VB中，下列关于控件的属性或方法中，搭配错误的有_个。Timer1.IntervalList1.ClsText1.PrintList1.RemoveItemVscroll1.ValuePicture1.Print ( )A、0B、1C、2D、37、当对象失去焦点时，将会发生_事件。 ( )A、GetFocusB、LostFocusC、FocusD、SetFocus8、对于一个含有计时器控件的窗体，每经过一段由_属性指定的时间间隔，就会产生一个Timer事件。 ( )A、NameB、EnabledC、CaptionD、Interval9、在设计列表框时，若实现输入多行文字的目的，应使用_键实现文本的换行。 ( )A、EnterB、Alt+EnterC、Ctrl+Shift+EnterD、Ctrl+Enter10、将数据项“China”添加到列表框(Listl)中成为第一项应使用_语句。 ( )A、Listl.Addltem China,0B、Listl.Addltem China,1C、Listl.Addltem 0,ChinaD、Listl.Addltem 1,China11、函数Cint(3.5)，Int(3.5)，Fix(3.5)的值分别是_。 ( )A、-3，4，3B、-4，4，3C、-3，4，4D、-4，3，312、假定变量Logic类型是Boolean，下面赋值语句_是正确的。 ( )A、Logic = TrueB、Logic = .True.C、Logic = # True #D、Logic = 3413、下列语句中不能正常执行的是_。 ( )A、print +32758+10B、print 5+9=15C、print 65+12D、print 65&1214、在窗体Form1上画两个文本框（Name属性分别为Fext1和Text2）和一个命令按钮（Name属性为Command1），程序如下。执行后结果为_。Private Sub Command1_Click()a=Text1.Text+Text2.TextPrint aEnd SubPrivate Sub Form_load()Text1.Text=123Text2.Text=321End Sub ( )A、444B、321123C、123321D、13223115、语句Print 4 + 56*7/8 Mod 9的值是_。 ( )A、4B、5C、6D、716、不能正确表示条件“两个整型变量X和Y之一为0，但不能同时为0”的布尔表达式是_。 ( )A、X*Y=0 And (X0 Or Y0)B、( X=0 Or Y=0 ) And (X0 Or Y0)C、Not ( (X=0 Or Y=0) And (X0 Or Y0) )D、X*Y=0 And X+Y017、i被j整除的逻辑表达式是_。 ( )A、i/j = 0B、ij = 0C、i0D、i mod j = 018、如果文本框的Enable属性被设置为False,则运行时_ . ( )A、文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上B、文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C、文本框中的文本将变成灰色，用户仍能改变文本框中的内容D、文本框中文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容19、下列表达式中，值为True的是_。 ( )A、UCase(ABCD)=abcdB、14/2310 MOD 4C、Mid(“ABCD”,2,2)Left(“ABCD”,2)D、not(Sqr(4)-3= -2)20、执行下面的程序，单击窗体后在窗体上显示的结果是_。Private Sub Form_Click()Dim Strl As String, Str2 As String,I As IntegerStr1=”ab”For I=Len(Str1)To 1 Step-1Str1=Str1&Chr(Asc(Mid(Str1,I,1)+I)Next IPrint Str1End Sub ( )A、abceB、abcdC、abdbD、abfd21、设有如下语句： strl=InputBox(输入,练习)从键盘上输入字符串示例后，strl的值是_。 ( )A、“输入”B、“”C、“练习”D、“示例”22、假设X的值是5，则执行以下语句时，可得到的输出结果是 ABCDEF 的 SelectCase 语句是_。 ( )A、Select Case XCase 10 TO 1Print “ABCDEF”End SelectB、Select Case XCase Is15, Is5, 1, 3, TO 10Print “ABCDEF”End SelectD、Select Case XCase 1, 3, Is5Print “ABCDEF”End Select23、下面程序的内层循环次数是_。For i=1 TO 3For j=1 TO iFor k=j TO 3.Next kNext jNext i ( )A、3B、14C、9D、2124、下面程序段运行后，显示的结果是_。Dim xIf x Then Print x Else Print x +1 ( )A、1B、0C、-1D、显示出错信息25、在过程中有语句ForI=N1 To N2 Step N3，在该循环体内有下列四条语句，其中_会影响循环执行的次数。 N1=N1+I N2=N2+N3 I=I+N3 N3=2*N3 ( )A、B、C、D、26、以下语句中，不能正确执行的是_。 ( )A、If Optionl.Value ThenB、If Optionl.Value=True ThenC、Check1.Value=0D、Check1.Value=True27、以下程序段的输出结果是_。 Dim B(2, 2) As IntegerDim i, j, t As IntegerFor i = 1 To 2 For j = 0 To 2 B(i, j) = j Next jNext it = 1For i = 0 To 2 For j = 0 To 2 t = t + B(i, B(j, j) Next jNext iPrint t ( )A、3B、4C、1D、728、以下程序输出的结果是_。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、不确定D、程序出错29、Option Base 1Private Sub Command1_Click()Dim a%(3, 3)For i = 1 To 3For j = 1 To 3If j 1 And i 1 Thena(i, j) = a(a(i - 1, j - 1), a(i, j - 1) + 1Elsea(i, j) = i * jEnd IfPrint a(i, j); ;Next jPrintNext iEnd Sub ( )A、1 2 32 3 13 2 3B、1 2 31 2 31 2 3C、1 2 32 4 63 6 9D、1 1 12 2 23 3 330、在窗体的通用声明处有语句Dim A() As Single，以下在某事件过程中重定义此数组的一组正确语句是：_。 ( )A、ReDim A(3,3) ReDim A(4,4) As IntegerB、ReDim A (3,3) ReDim Preserve A (4,4)C、ReDim A(3) ReDim A(3,3) As IntegerD、ReDim A (3,3) ReDim Preserve A(3,4)31、下列有关数组的说法中，不正确的是_。 ( )A、在窗体模块中不可以定义全局数据组B、可以使用Erase语句释放所有数组所占据的存储储空间C、语句Dim X(3.6+2)As Integer定义了一个维上界是6的一维的整型数组D、形参数组的类型可以是定长符串类型32、在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有_个。Public A(5) As IntegerPublic N As IntegerPublic St As StringPrivate b() As Integer ( )A、2B、3C、4D、133、在单击命令按钮时的输出结果是_。Private Sub Command1_Click ( ) Dim x%, y% x=1:y=1 For n=1 to 3   z=First (x, y)   Print n, z Next nEnd SubPrivate Function First% (x%, y%) Dim n% Do While n <= 4   x=x+y   n=n+1 Loop First=xEnd Function ( )A、1 6 2 11 3 16B、2 6 1 3 11 16C、1 2 3 4 5 6 D、2 1 3 1 3 334、在Cmdl_C1ick事件中有效的地址传递的调用语句是                   。Public Sub Fl(n%)    n =3*n+4  End SubPrivate Sub Cmdl_Click()  Dim n%, m%   n=3 :m  =4     调用F1语句End Sub ( )A、F1 n+m B、F1 m C、F1 5 D、F1 m+535、要想在过程调用后返回两个结果，下面的过程定义语句合法的是_。 ( )A、Sub Procl ( ByVal n , ByVal m) B、Sub Procl ( n , ByVal m) C、Sub Procl ( n , m) D、Sub Procl ( ByVal n , m)36、如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身，这种参数传递方式称为        传递。 ( )A、按值B、按地址C、ByRefD、按形参37、一般来说，当变量名称相同而作用域不同时，局限性_的变量总会用阴影遮住局限性不太大的变量。 ( )A、大B、小C、更小D、比较小38、名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是_。 ( )A、Private Sub sort(A( )As Integer)B、Private Sub sort(A(10)As Integer)C、Private Sub sort(By Val A( ) As Integer)D、Private Sub sort(A( , )As Integer)39、下面子过程语句说明合法的是_。 ( )A、Sub f1(ByVal n%()B、Sub f1(n%)As IntegerC、Function f1%(f1%)D、Function f1(ByVal n%)40、以下有关由多个窗体和标准模块组成的应用程序设计方法的叙述中，错误的是                。 ( )A、在缺少情况下，设计时的一个窗体被指定为启动窗体B、通过人为设置，可指定任一窗体为启动窗体 C、通过人为设置，可指定标准模块中的Main()过程为启动过程D、通过人为设置，可指定窗体模块中的Main()过程为启动过程2、填空题(本题共计30分)1、2Sinx+3Cosx+Tan2x+LnxLny的VB表达式为_2*sin(x)+3*cos(x)+tan(2*x)+log(x)*log(y)_2、以下程序可计算自然数e的值，要求精确到10(-15)请将程序补充完整。已知e的计算公式为e=1+1/1!+1/2!+.+1/n!。Private Sub Command1_Click()_ Dim t as Double_n=0:term=1:t=1Don=n+1t=t/n_ term=term+t _Loop While t1.0E-15Text1.Text=termEnd Sub3、执行下面的程序，单击窗体后在窗体上显示的第一行结果是_ Bb_；第三行结果是_ BbCcEe _。Private Sub Form_Click( )Dim Mystr As String, Mystr1 As String, Mystr2 As StringMystr1 =Bfor i = 1 To 3Mystr2 = Lcase(Mystr1)Mystr1 = Mystr1 + Mystr2Mystr = Mystr + Mystr1Print MystrMystr1 = Chr(Asc(Mystr1) + I)Next iEnd Sub4、下面的程序用冒泡法将数组a中的10个整数按升序排列，请将程序补充完整。Option Base 1Private Sub Command1_Click( )Dim a,i,j,k As Integera=Array(678,45,324,528,439,387,87,875,273,823)For i=_1 to 9_For j=_ i+1 to 10_If a(i)_ =_a(j) Thena1=a(j):a(j)=a(i):a(i)=a1End IfNext jNext ifor k=1 To 10Print a(k);Next kEnd Sub5、以下程序代码将整型动态数组X声明为具有20个元素的数组，并给数组的所有元素赋值._ dim x()_ as integerprivate sub command1_click()redim _ x(1 to 20)_for i=1 to 20x(i)=1print x(i)next iend sub6、下程序的功能是找出此数各位数字的阶乘相加之和等于该数，并在列表框List1中显示。阶乘由Function计算。在(1)、(2)处填上正确内容。Private Sub Command1_Click( )For k=1 To 1000a=LTrim(Str(k)n=0For i=1 To Len(a)p=Val(Mid(a,i,1)n=n+fact(p)Next iIf n=k Then_ List1.AddItem k_Next kEnd SubPrivate Func