南京工业大学vb期末题库

1、09vb复习满分：70分姓名：_1、单项选择题(本题共计40分)1、下面_语句，可以将列表框List1中当前选定的列表项的值替换成“ABC”。 ( )A、List1.AddItem“ABC”，List1.ListIndexB、List1.Text=“ABC”C、List1.List(List1.ListIndex)=“ABC”D、前三项均可2、单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的_中安排适当的单选按钮，即可实现。 ( )A、框架控件(Frame)或图象控件(Image)B、组合框(ComboBox)或图象控件(Image)C、组合

2、框(ComboBox)或图片框(PictureBox)D、框架控件(Frame)或图片框(PictureBox)3、VisualBasic程序设计时常用的Print、Cls属于_。 ( )A、属性B、打印字库C、方法D、事件4、能被对象所识别的动作与可执行的活动分别称为对象的_。 ( )A、方法、事件B、事件、方法C、事件、属性D、过程、方法5、VisualBasic是用于开发_环境下的应用程序的工具。 ( )A、DOSB、WindowsC、DOS和WindowsD、UNIX6、VisualBasic中的窗体文件的扩展名是_。 ( )A、.regB、.frmC、.basD、.vbp7、要使文本

3、框能显示多行文字，则需设定它的_属性为True。 ( )A、CaptionB、PasswordCharC、MultiLineD、Seleted8、对于某对象的SetFocus与GotFocus描述正确的是_。 ( )A、SetFocus是方法，GotFocus是事件B、SetFocus是事件，GotFocus是事件C、SetFocus是方法，GotFocus是方法D、SetFocus是事件，GotFocus是方法9、对正实数X的第四位小数四舍五入的VB表达式是_。 ( )A、0.001*Int(x+0.0005)B、0.001*(1000*x+0.5)C、0.001*Int(1000*x+5)

4、D、0.001*Int(1000*(x+0.0005)10、函数Cint(3.5)，Int(3.5)，Fix(3.5)的值分别是_。 ( )A、-3，4，3B、-4，4，3C、-3，4，4D、-4，3，311、下列表达式中，值为True的是_。 ( )A、UCase("ABCD")>="abcd"B、14/23>10 MOD 4C、Mid(“ABCD”,2,2)>Left(“ABCD”,2)D、not(Sqr(4)-3>= -2)12、用于除去字符串左侧的空格的函数是_。 ( )A、Rtrim( )B、Ltrim( )C、Left

5、Trim( )D、Trim( )13、函数Int(Rnd*11)+10的值的范围是_。 ( )A、10，20B、0，20C、10，10D、10，1114、满足“当a的值是偶数时为0，是奇数时为1”的要求的表达式是_。 ( )A、a Mod 2 = 0B、Not a Mod 2<>0C、Not (a Mod 2)D、(a2*2-a)=015、下列可以将变量A、B互换的语句是_。 ( )A、A=B: B=C: C=AB、A=C: C=AC、A=(A+B)/2: B=(A-B)/2D、A=A+B: B=A-B: A=A-B16、在文本框Text1中输入数字12，Text2

6、中输入数字34，执行以下语句，只有_。可使文本框Text3中显示46。 ( )A、Text3. Text=Text1. Text & Text2. TextB、Text3. Text=Val(Text1. Text)+Val(Text2.Text)C、Text3. Text=Text1. Text+Text2.TextD、Text3. Text=Val(Text1. Text) & Val(Text2.Text)17、下列程序：Private Sub Form_Click( )For j=1 To 15a=a+j Mod 3Next jPrint aEnd Su

7、b运行后输出的结果是_。 ( )A、1B、15C、90D、12018、当Form1_Click事件发生时，程序的输出结果是_。Private Sub Form_Click()Dim M As Integer,k As Integer,t As IntegerM=5 : k=7Select Case Mcase 1 To 10t=M: M=k: k=tCase ElseM=k Mod 3End SelectPrint M, k, tEnd Sub ( )A、5 5 7B、5 7 5C、7 5 5D、7 5 719、Dim y As Integer<br />m = 1<br /

8、>Do While m &lt;= 3<br /> m = m + 1<br /> Print m;<br />Loop ( )A、2B、2 3C、2 3 4D、2 3 4 520、下列语句正确的是_。 ( )A、If K<3*N And K>N Then N=K3B、If K<3*N And K>N Then N=K3C、If K<3*N ：K>N Then N=K3D、If K<3*N And K>N Then N=K*321、下面程序的运行结果是_。Private Sub Command1

9、Click ( )x=1: y=1For i=1 TO 3x=x+y: y=y+xNext iPrint x;yEnd Sub ( )A、6 6B、5 8C、13 21D、34 3522、下面程序的内层循环次数是_。For i=1 TO 3For j=1 TO iFor k=j TO 3.Next kNext jNext i ( )A、3B、14C、9D、2123、计算机算法可以分为两大类：一类是_算法，另一类是_算法。 ( )A、计算机辅助设计、财务B、数值计算、非数值计算C、步骤管理、通信D、排序、查找24、下面程序段运行后，显示的结果是_。Dim xIf x Then Print x E

10、lse Print x +1 ( )A、1B、0C、-1D、显示出错信息25、在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有_个。Public A(5) As IntegerPublic N As IntegerPublic St As StringPrivate b() As Integer ( )A、2B、3C、4D、126、以下程序的输出结果是_。Option Base 1Private Sub Command1_Click()Dim a(10) As Integer, p(3) As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 T

11、o 3p(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd Sub ( )A、33B、28C、35D、3727、下列程序段的执行结果是_。Dim A(3,3)For M=1 TO 3For N=1 TO 3If N=M Or N=3-M+1 ThenA(M,N)=1ElseA(M,N)=0End IfNext NNext MFor M=1 TO 3For N=1 TO 3Print A(M,N);Next NPrintNext M ( )A、1 0 00 1 00 0 1B、1 1 11 1 11 1 1C、0 0 00 0 00 0

12、0D、1 0 10 1 01 0 128、要分配存放如下方阵的数据，_数组声明语句能实现(不能浪费空间)。每行三个元素，第一行为：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 Integer29、下列循环能正常结束循环的是_。 ( )A、i=5Doi=i+1Loop Until i<0B、i=1Doi=i+2Loop Until i=

13、10C、i=10Doi=i+1Loop Until i>0D、i=6Doi=i-2Loop Until i=130、以下有关数组的说明中，错误的是_。 ( )A、根据数组说明的方式，可将数组分为动态数组和静态数组。B、在过程中，不能用Private语句定义数组。C、利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型。D、数组重新定维后，原有的数组元素内容将不予保留。31、如下数组声明语句，则数组a包含元素的个数有_。Dim a(3 , -2 to 2 , 5) ( )A、120B、75C、60D、1332、以下程序段的输出结果是_。 <br />Dim B(2,

14、 2) As Integer<br />Dim i, j, t As Integer<br />For i = 1 To 2<br /> For j = 0 To 2<br /> B(i, j) = j<br /> Next j<br />Next i<br />t = 1<br />For i = 0 To 2<br /> For j = 0 To 2<br /> t = t + B(i, B(j, j)<br /> Next j<br />Next

15、 i<br />Print t ( )A、3B、4C、1D、733、<font face="Times New Roman" size="2"><strong>在调用Sub或Function过程时，采用_传送相应过程的变量名、数组名、常数或表达式。</strong></font> ( )A、<strong><font size="2">形式参数</font></strong>B、<strong><font si

16、ze="2">实际参数 </font></strong>C、<strong><font size="2">对象参数</font></strong>D、<strong><font size="2">数组参数</font></strong>34、<font face="Times New Roman" size="2"><strong>Sub过程与Fu

17、nction过程的本质区别是_。</strong></font> ( )A、<strong><font size="2"><font face="Times New Roman">Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以</font> </font></strong>B、<strong><font face="Times New Roman" size="2"&g

18、t;Function过程可以有形参，Sub过程不能有形参</font></strong>C、<strong><font size="2">两种过程参数传递方式不同</font></strong>D、<strong><font face="Times New Roman" size="2">Sub过程没有返回值，Function过程能返回值</font></strong>35、<strong><fon

19、t size="2">要想在过程调用后返回两个结果，下面的过程定义语句合法的是_。</font></strong> ( )A、<strong><font size="2"><font face="Times New Roman">Sub Procl ( ByVal n , ByVal m)</font> </font></strong>B、<strong><font size="2"><

20、;font face="Times New Roman">Sub Procl ( n , ByVal m)</font> </font></strong>C、<strong><font size="2"><font face="Times New Roman">Sub Procl ( n , m)</font> </font></strong>D、<strong><font face="Time

21、s New Roman" size="2">Sub Procl ( ByVal n , m)</font></strong>36、给出下列程序代码，在单击三次命令按钮时的输出结果是_。Dim x, y, z As IntegerSub SS( )x=x+1y=y+1z=z+1Print x;y;zSub EndPrivate Sub Command1_Click ( )Dim x, y, zx=1: y=2: z=3Call SSPrint x; y; zEnd Sub ( )A、1 1 11 2 32 2 21 2 33 3 31

22、2 3B、1 1 11 1 12 2 22 2 23 3 33 3 3C、1 2 31 2 31 2 3D、1 1 12 2 23 3 337、窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为_。Private Sub fun( )Static a As Integera=a+2Print a;End SubPrivate Sub Command1_Click( )Dim m As IntegerFor m=1 To 3Call funNext mEnd Sub ( )A、2 2 2B、0 0 0C、2 4 8D、2 4 638、<font face="Times

23、 New Roman" size="2"><strong>设有下列程序代码，在单击命令按钮时的输出结果是_。<br/>Sub SS (ByVal x, ByRef y, z)<br/>&#160;&#160; x=x+1&#160;<br/>&#160;&#160;&#160;y=y+1<br/>&#160;&#160;&#160;z=z+1<br/>End Sub<br/>Private Sub Com

24、mand1_Click ( )<br/>&#160;&#160;&#160;A=1: B=2 :C=3<br/>&#160;&#160;&#160;Call SS (A,B,C)<br/>&#160;&#160;&#160;Print A,B,C<br/>End Sub</strong></font> ( )A、<span lang="EN-US"><font face="Times New Roman&

25、quot; size="2"><strong>1 2 3</strong></font></span>B、<strong><font face="Times New Roman" size="2">1 3 4</font></strong>C、<strong><font size="2"><font face="Times New Roman">2 2 4&l

26、t;/font></font></strong>D、<strong><font face="Times New Roman" size="2">1 3 3</font></strong>39、<font size="2"><strong>系统默认的参数传递方式是<u>&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160

27、;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; </u>。</strong></font> ( )A、<strong><span lang="

28、;EN-US">&#160;</span><font size="2"><span>按值</span></font></strong>B、<span><font size="2"><strong>按地址</strong></font></span>C、<span lang="EN-US"><font face="Times New Roman

29、" size="2"><strong>ByVal</strong></font> </span>D、<font size="2"><strong><font face="宋体"><span>按实参</span></font></strong></font>40、若在应用程序中用Private Sub Sub1(X as integer,Y as Single)定义了子程序Sub

30、1，调用程序中的变量I、J均为Integer型，则正确调用子程序Sub1的Call语句是_。Call Sub1(I,J)Call Sub1(3.1415,1)Call Sub1(3.14,234)Call Sub1(“245”, “231.5”) ( )A、B、C、D、无2、填空题(本题共计30分)1、InputBox函数返回值的类型为_字符串型_。2、若一个数的各因子之和正好等于该数本身，则该数称为完全数。如6的因子为1，2，3，其和为6，则6为完全数。编程找出1100之间的所有完全数。完善下列程序。Private Sub Command1_Click( )Dim a As Integer,

31、 b As Integer, c As Integer, i As IntegerFor a = 2 To 100_ c=1_For b = 2 To a-1If a Mod b = 0 Thenc = b+cEnd IfNext bIf_ c=a _ThenPrint aEnd IfNext aEnd Sub3、下面程序的功能是统计随机产生的10个三位正整数中偶数与奇数的个数，并求出该10个数的总和。请将程序补充完整。Option ExplicitPrivate Sub Form_Click()Dim x As Integer, s1 As IntegerDim n1 As Integer,

32、 i As IntegerRandomizeFor i = 1 To 10x= _ Int(Rnd*900)+100_Print x;If x Mod 2 = 0 Then_ n1=n1+1_elsen2 = n2 + 1End Ifs=s+xNext iPrintPrint"奇数个数："n1;"偶数个数为："n2;"和为"sEnd Sub4、打印如下图所示的杨辉三角形。11 11 2 11 3 3 11 4 6 4 1完善下列程序。Private Sub Command1_Click( )Dim P(5, 5) As Integer

33、, i As IntegerDim j As Integer, n As IntegerFor i = 1 To 5P(i, 1) = 1P(i, i) = 1Next iFor i = _3 To 5_For j = 2 To i - 1P(i, j) = _ P(i - 1, j - 1) + P(i - 1, j)_Next jNext iFor i = 1 To 5For j = 1 To is = Str(P(i, j)Print Space(4 - n); P(i, j);Next jPrintNext iEnd Sub5、VB提供了结构化程序设计的三种基本结构，它们是顺序结构、选择结构和_循环结构_。6、以下程序代码将整型动态数组X声明为具有20个元素的数组，并给数组的所有元素赋值._ dim x()_ as integerprivate sub command1_click()redim _ x(1 to 20)_for i=1 to 20x(i)=1print x(i)next i