南京工业大学vb期末题库

1、精选优质文档-倾情为你奉上 2009年VB模拟考试一满分：100分姓名：_1、单项选择题(本题共计60分)1、_在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。 ( )A、方法B、属性C、事件D、工程2、一只白色的足球踢进球门，则白色、足球、踢、进球门是_。 ( )A、属性、对象、方法、事件B、属性、对象、事件、方法C、对象、属性、方法、事件D、对象、属性、事件、方法3、_是接收用户鼠标或键盘输入的能力。当对象具有_时，可接受用户的输入。 ( )A、事件B、属性C、焦点D、对象4、VisualBasic是一种面向_的程序设计语言。 ( )A、过程B、用户C、方法D、对象5、能被对象所识别

2、的动作与可执行的活动分别称为对象的_。 ( )A、方法、事件B、事件、方法C、事件、属性D、过程、方法6、VisualBasic是用于开发_环境下的应用程序的工具。 ( )A、DOSB、WindowsC、DOS和WindowsD、UNIX7、VisualBasic中的窗体文件的扩展名是_。 ( )A、.regB、.frmC、.basD、.vbp8、在程序中分别将变量Inta、Bl、St、D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行时会出错的是_。 ( )A、Inta=4.6B、Bl=#True#C、St=5 & 123.5D、D=#10/05/01#9、与数学表达式 (ab/3c

3、d) 对应，VB的不正确表达式是_。 ( )A、a*b/(3*c*d)B、a/3*b/c/dC、a*b/3/c/dD、a*b/3*c*d10、表达式16/4-25*8/4 MOD 5/2的值为_。 ( )A、14B、4C、20D、211、以下各项中，_不是一个合法的字符串。 ( )A、VisualB、C、#Basic#D、等级考试12、赋值语句：a=123+MID(,3,2)执行后，a变量中的值是_。 ( )A、12334B、123C、12334D、15713、要判断“月收入在2000元以上（含2000元）且5000元以下（不含5000元）”的职工，应该使用的逻辑表达式

4、是_。 ( )A、M2000 AND M2000 Or M=2000 AND M5000D、M>=2000 Or M<500014、语句Print 5*20 输出的结果是_。 ( )A、5*20B、出现错误信息C、5*20D、10015、设M=3，N=5，P=4.5，Q=2.5，表达式(M*N+2)/(P-Q)的计算结果为_。 ( )A、8B、9C、8.5D、8.016、下列语句中不能正常执行的是_。 ( )A、print +32758+10B、print 5+9=15C、print 65+12D、print 65&1217、假定变量Logic类型是Boolean，下面赋值语句_是

5、正确的。 ( )A、Logic = TrueB、Logic = .True.C、Logic = # True #D、Logic = 3418、以下哪个是合法的变量名_。 ( )A、LenB、TestqwC、6cost_1D、count2s19、下面程序的运行结果是_。Private Sub Command1 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 3520、VB也提供了结构化程序设计的三种基本结构，三种基本结构是_。 ( )A、递归结构、选择结构、循环结构B

6、、选择结构、过程结构、顺序结构C、过程结构、输入、输出结构、转向结构D、选择结构、循环结构、顺序结构21、下列程序运行后的输出结果是_。Private Sub Command1_Click()For i=1 TO 3For j=0 TO i-1k=k+1next jnext iprint kEnd Sub ( )A、6B、5C、4D、322、下列循环能正常结束循环的是_。 ( )A、i=5 Do i=i+1 Loop Until i<0B、i=1 Do i=i+2 Loop Until i=10C、i=10 Do i=i+1 Loop Until i>0D、i=6 Do i=i-2

7、 Loop Until i=123、下列程序的输出结果是_。Dim y As Integery=10Do While y<>0 y=y-1LoopPrint "y=" y ( )A、y=0B、y=1C、y=随机值D、y=–124、执行以下语句后，a的值为_。Dim a As Integera=1Do Until a=100 a=a+2 Loop ( )A、99B、100C、溢出D、10125、表达式X+1>X是_. ( )A、算术表达式B、非法表达式C、字符串表达式D、关系表达式26、计算机算法可以分为两大类：一类是_算法，另一类是_算法。 (

8、 )A、计算机辅助设计、财务B、数值计算、非数值计算C、步骤管理、通信D、排序、查找27、VisualBasic认为下面_组变量是同一个变量。 ( )A、A1和a1B、Sum 和SummaryC、Aver 和 AverageD、A1 和A_128、下面语句运行后的输出结果是_.Private Sub Command1_Click()x=0Do While x10x=x+1: x=x*xLoopPrint xEnd Sub ( )A、16B、19C、20D、2529、下面程序段运行后，显示的结果是_。Dim xIf x Then Print x Else Print x +1 ( )A、1B、0

9、C、-1D、显示出错信息30、有如下程序：Private Sub Command1_Click( )score=65select Case scoreCase Is60a$=FCase 60 To 69a$=DCase 70 To 79a$=CCase 80 To 89a$=BCase elsea$=AEnd SelectMsgBox a$End Sub程序运行后，消息对话框中显示的内容为_。 ( )A、AB、BC、CD、D31、在过程中有语句ForI=N1 To N2 Step N3，在该循环体内有下列四条语句，其中_会影响循环执行的次数。 N1=N1+I N2=N2+N3 I=I+N3 N

10、3=2*N3 ( )A、B、C、D、32、下列程序Private Sub Command1_Click( )a=InputBox(请输入)b=InputBox(请输入)Print a+bEnd Sub运行时输入3和4输出的结果是 _ 。 ( )A、7B、34C、3+4D、出错33、如下二维数组声明语句，_正确。 ( )A、Dim a3，4 As IntegerB、Dim a(3，4) As IntegerC、Dim a(n，n) As IntegerD、Dim a(34) As Integer34、在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有_个。Public A(5) As

11、IntegerPublic N As IntegerPublic St As StringPrivate b() As Integer ( )A、2B、3C、4D、135、在窗体的通用声明处有语句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)36、对窗

12、体编写如下代码：Option Base 1Private Sub Command1_Click( )a=Array(237,126,87,48,498)m1=a(1)m2=1For i=2 To 5If a(i)m1 Thenm1=a(i)m2=iEnd IfNext iPrint m1;m2End Sub程序运行后，按回车键，输出结果为_。 ( )A、48 4B、237 1C、498 5D、498 437、下列有关数组的说法中，不正确的是_。 ( )A、在窗体模块中不可以定义全局数据组B、可以使用Erase语句释放所有数组所占据的存储储空间C、语句Dim X(3.6+2)As Integer

13、定义了一个维上界是6的一维的整型数组D、形参数组的类型可以是定长符串类型38、在窗体上添加一个命令按钮，名为Command1，事件过程如下。执行结果是_。Sub pb(b( ) As Integer)For i=1 To 4B(i)=2*iNext iEnd SubPrivate Sub Command1_Click( )Dim a(1 To 4) As Integera(1)=5:a(2)=6: a(3)=7:a(4)=8pb aFor i=1 To 4Print a(i);Next iEnd Sub ( )A、2 4 6 8B、1 3 5 7C、3 6 6 12D、4 8 12 1639、

14、当发生Command1_Clik事件后，下列程序的输出结果是_。Dim i As IntegerDim a(10) As IntegerFor i=9 To 0 Step–1 a(i)=10–iNext iPrint a(2);a(5);a(8) ( )A、2 5 8B、7 4 1C、8 5 2D、3 6 940、在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有_个。Public A(5) As IntegerPublic N As IntegerPublic St As StringPrivate b() As Integer ( )A、2B、3C、4D、

15、141、以下有关数组的说明中，错误的是_。 ( )A、根据数组说明的方式，可将数组分为动态数组和静态数组。B、在过程中，不能用Private语句定义数组。C、利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型。D、数组重新定维后，原有的数组元素内容将不予保留。42、当发生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-

16、1)*4+j*2 Next jNext iFor i = 1 To 4 s=s+a(i, i)Next iPrint sEnd Sub ( )A、28B、32C、30D、4443、在窗体上画一个命令按钮，然后编写如下事件过程：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运行上面的程序，单击命令按钮，其输出结果是_。 ( )A、4321B、12C、3

17、4D、123444、如下二维数组声明语句，_正确。 ( )A、Dim a3，4 As IntegerB、Dim a(3，4) As IntegerC、Dim a(n，n) As IntegerD、Dim a(34) As Integer45、运行以下程序段，输出结果是 。Dim a(1 To 10)Dim p(1 To 4)k = 5For i = 1 To 4p(i) = i * 2Next iFor i = 1 To 4k = k + p(i) * 2Next iPrint k ( )A、48B、32C、30D、4546、当发生Command1_Clik事件后，下列程序的执行结果是_。Pr

18、ivate Sub Command1_Click() Dim a a = Array(1, 2, 3, 4, 5) For i = 1 To 4 Print a(i) - a(i–1); Next iEnd Sub ( )A、1 1 1 1 1B、1 1 1 1C、1 1 1D、2 2 247、以下有关Sub过程与Function过程的区别，正确的是_。 ( )A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以B、Function过程可以有形参，Sub过程不能有形参C、两种过程参数传递方式不同D、Sub过程没有返回值，Function过程能返回值4

19、8、在语句Public Sub Sort(i As Integer)中i是一个按_传递的参数。 ( )A、地址B、值C、变量D、常量49、如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身，这种参数传递方式称为        传递。 ( )A、按值B、按地址C、ByRefD、按形参50、下列定义Sub过程的语句中，正确的语句是_。 Private Sub Test(St As String * 8) Private Sub Test(Sarray( ) As String * 5) Private Sub

20、Test(Sarray( ) As String) Private Sub Test(St As String) ( )A、B、C、D、51、可以在窗体模块的通用声明段中声明的是_。 ( )A、全局变量B、全局常量C、全局数组D、全局用户自定义类型52、窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用Public K As Integer,Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用 _。 ( )A、Frm1.KB、Form.KC、Form1.KD、K53、假定已定义了一个过程Sub Add(a As Single,

21、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)54、在Cmdl_C1ick事件中有效的地址传递的调用语句是                   。Public Sub Fl(n%)    n =3*n+4  E

22、nd 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+555、在窗体上画一个名称Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：Private Sub Command1_Click()Dim x, y, z As Integerx = 5: y = 7: z = 0Text1.Text = Call p1(x, y, z)Text1.Text = S

23、tr(z)End SubPrivate Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)c = a + bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是_。 ( )A、0B、12C、Str(z)D、没有显示56、名为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 Int

24、eger)D、Private Sub sort(A( , )As Integer)57、在调用Sub过程或Function过程时，采用_传送相应过程的变量名、数组名、常数或表达式。 ( )A、形式参数B、实际参数C、对象参数D、数组参数58、要从自定义对话框Form2中退出，可以在该对话框的“退出”按钮的Click事件过程中使用的语句是                      。 (

25、)A、Unload Form2 B、Hide Form2C、Unload.Form2D、Form2.Unload59、下面子过程语句说明合法的是_。 ( )A、Sub f1(ByVal n%()B、Sub f1(n%)As IntegerC、Function f1%(f1%)D、Function f1(ByVal n%)60、在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句，单击该窗体，其中_一定可以将Hello显示在当前窗体上。 ( )A、Forml.PrintHelloB、Me.PrintHelloC、Debug.PrintHelloD、Form2.Print

26、Hello2、填空题(本题共计40分)1、已知A=7.5，B=2，C=-3.6，表达式 ab and ca or ab的值为_ false _.2、2Sinx+3Cosx+Tan2x+LnxLny的VB表达式为_2*sin(x)+3*cos(x)+tan(2*x)+log(x)*log(y)_3、下面程序的功能是判断100999之间的所有素数，所谓素数是指只能被1和它本身整除的数。完善下列程序。Private Sub Form_Click( )Dim i As IntegerDim k As integerFor i=100 To 999For k=2 To i-1If _ i Mod k=0

27、 _ThenExit For _End IfNext kIf _ k=I _ThenPrint iEnd IfNext iEnd Sub4、输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的ABCDEFG变换成GFEDCBA。Private Sub Command1_Click()Dim a$,i%,c$，d$a=inputBox$(输入字符串)n=_ Len(a) _For I=1 To _ n/2_c=Mid(a,I,1)Mid(a,I,1)=_ Mid(a,n-i+1)_ Mid(a,n-i+1)_=cNext iPrint aEnd Sub5、下列程序的运行结果为_2 2_。Pr

28、ivate Sub Command1_Click( )x = 1For k = 1 To 3If k = 1 Then a = x * xIf k= 3 Then a = x * x+2Print a;Next kEnd Sub6、已知数组A(4，4)，各个元素在运行程序时，被赋值并打印，形成四阶方阵。程序执行后，产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。请完善下列程序。例如：1 2 3 4 -1 1 1 11 2 3 4 -2 2 2 21 2 3 4 -3 3 3 31 2 3 4 -4 4 4 4Private Sub Command1_Click( )Dim a(4,

29、4)For k=1 To 4For j=1 To 4a(k,j)=jPrint a(k,j);Next jPrintNext kPrintFor k=2 To 4For j=1 To _ k _t=a(j,k)a(j,k)=_ a(k,j)_a(k,j)=tNext jNext kEnd Sub7、以下程序代码将整型动态数组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 sub8、下面的程序用冒泡法将数组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=_