南京工业大学vb期末题库10

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/3cd) 对应，VB的

3、不正确表达式是_。 ( )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、"Visual"B、""C、#Basic#D、"等级考试"12、赋值语句：a=123+MID("123456",3,2)执行后，a变量中的值是_。 ( )A、"12334"B、123C、12334D、15713、要判断&ld

4、quo;月收入在2000元以上（含2000元）且5000元以下（不含5000元）&rdquo;的职工，应该使用的逻辑表达式是_。 ( )A、M>2000 AND M<=5000B、M>2000 Or M<=5000C、M>=2000 AND M<5000D、M&gt;=2000 Or M&lt;500014、语句Print "5*20" 输出的结果是_。 ( )A、"5*20"B、出现错误信息C、5*20D、10015、设M=3，N=5，P=4.5，Q=2.5，表达式(M*N+2)/(P-Q)的

5、计算结果为_。 ( )A、8B、9C、8.5D、8.016、下列语句中不能正常执行的是_。 ( )A、print +32758+10B、print 5+9=15C、print "65"+12D、print "65"&1217、假定变量Logic类型是Boolean，下面赋值语句_是正确的。 ( )A、Logic = TrueB、Logic = .True.C、Logic = # True #D、Logic = 3<418、以下哪个是合法的变量名_。 ( )A、LenB、TestqwC、6cost_1D、count2s19、下面程序的运行结果

6、是_。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、选择结构、过程结构、顺序结构C、过程结构、输入、输出结构、转向结构D、选择结构、循环结构、顺序结构21、下列程序运行后的输出结果是_。Private Sub Command1_Click()For i=1 TO 3For j=0 TO i-1k=k+1next

7、 jnext iprint kEnd Sub ( )A、6B、5C、4D、322、下列循环能正常结束循环的是_。 ( )A、i=5<BR /> Do<BR /> i=i+1<BR /> Loop Until i&lt;0B、i=1<BR /> Do<BR /> i=i+2 <BR /> Loop Until i=10C、i=10<BR /> Do<BR /> i=i+1<BR /> Loop Until i&gt;0D、i=6<BR /> Do<BR /

8、> i=i-2<BR /> Loop Until i=123、下列程序的输出结果是_。<br />Dim y As Integer<br />y=10<br />Do While y&lt;&gt;0<br /> y=y-1<br />Loop<br />Print &quot;y=&quot; y ( )A、y=0B、y=1C、y=随机值D、y=&ndash;124、执行以下语句后，a的值为_。<BR />Dim a As Integer<BR

9、/>a=1<BR />Do Until a=100 <BR /> a=a+2 <BR />Loop ( )A、99B、100C、溢出D、10125、表达式X+1&gt;X是_. ( )A、算术表达式B、非法表达式C、字符串表达式D、关系表达式26、计算机算法可以分为两大类：一类是_算法，另一类是_算法。 ( )A、计算机辅助设计、财务B、数值计算、非数值计算C、步骤管理、通信D、排序、查找27、VisualBasic认为下面_组变量是同一个变量。 ( )A、A1和a1B、Sum 和SummaryC、Aver 和 AverageD、A1 和A_1

10、28、下面语句运行后的输出结果是_.Private Sub Command1_Click()x=0Do While x<10x=x+1: x=x*xLoopPrint xEnd Sub ( )A、16B、19C、20D、2529、下面程序段运行后，显示的结果是_。Dim xIf x Then Print x Else Print x +1 ( )A、1B、0C、-1D、显示出错信息30、有如下程序：Private Sub Command1_Click( )score=65select Case scoreCase Is<60a$="F"Case 60 To 69

11、a$="D"Case 70 To 79a$="C"Case 80 To 89a$="B"Case elsea$="A"End SelectMsgBox a$End Sub程序运行后，消息对话框中显示的内容为_。 ( )A、AB、BC、CD、D31、在过程中有语句ForI=N1 To N2 Step N3，在该循环体内有下列四条语句，其中_会影响循环执行的次数。 N1=N1+I N2=N2+N3 I=I+N3 N3=2*N3 ( )A、B、C、D、32、下列程序Private Sub Command1_Click(

12、)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 IntegerPublic N As IntegerPub

13、lic St As StringPrivate b() As Integer ( )A、2B、3C、4D、135、在窗体的通用声明处有语句Dim A() As Single，以下在某事件过程中重定义此数组的一组正确语句是：_。 ( )A、ReDim A(3,3)<BR /> ReDim A(4,4) As IntegerB、ReDim A (3,3)<BR /> ReDim Preserve A (4,4)C、ReDim A(3)<BR /> ReDim A(3,3) As IntegerD、ReDim A (3,3)<BR /> ReDim P

14、reserve A(3,4)36、对窗体编写如下代码：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、语

15、句Dim X(3.6+2)As Integer定义了一个维上界是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

16、、3 6 6 12D、4 8 12 1639、当发生Command1_Clik事件后，下列程序的输出结果是_。<br />Dim i As Integer<br />Dim a(10) As Integer<br />For i=9 To 0 Step&ndash;1<br /> a(i)=10&ndash;i<br />Next i<br />Print a(2);a(5);a(8) ( )A、2 5 8B、7 4 1C、8 5 2D、3 6 940、在窗体模块的通用声明处用下面的语句声明变量、数组，正确

17、语句有_个。Public A(5) As IntegerPublic N As IntegerPublic St As StringPrivate b() As Integer ( )A、2B、3C、4D、141、以下有关数组的说明中，错误的是_。 ( )A、根据数组说明的方式，可将数组分为动态数组和静态数组。B、在过程中，不能用Private语句定义数组。C、利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型。D、数组重新定维后，原有的数组元素内容将不予保留。42、当发生Command1_Click事件后，程序输出结果是_。<br />Option Base 1&l

18、t;br />Private Sub Command1_Click()<br />Dim a(4, 4) As Integer,i As Integer,s As Integer<br />s=0<br />Fori=1 To 4<br /> For j=1 To 4<br /> a(i, j) = (i-1)*4+j*2<br /> Next j<br />Next i<br />For i = 1 To 4<br /> s=s+a(i, i)<br />Next i

19、<br />Print s<br />End 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、34D、123444、如下二维数组声明语句，_正确。 ( )

20、A、Dim a3，4 As IntegerB、Dim a(3，4) As IntegerC、Dim a(n，n) As IntegerD、Dim a(34) As Integer45、运行以下程序段，输出结果是<u> </u>。<br />Dim a(1 To 10)<br />Dim p(1 To 4)<br />k = 5<br />For i = 1 To 4<br />p(i) = i * 2<br />Next i<br />For i = 1 To 4<br />

21、k = k + p(i) * 2<br />Next i<br />Print k ( )A、48B、32C、30D、4546、当发生Command1_Clik事件后，下列程序的执行结果是_。<br />Private Sub Command1_Click()<br /> Dim a<br /> a = Array(1, 2, 3, 4, 5)<br /> For i = 1 To 4<br /> Print a(i) - a(i&ndash;1);<br /> Next i<br /

22、>End 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过程能返回值48、<font size="2"><strong><font face="Times New Roman">在语句Public

23、Sub Sort(i As Integer)中i是一个按_传递的参数。</font> </strong></font> ( )A、<strong><font size="2">地址</font></strong>B、<strong><font size="2">值</font></strong>C、<strong><font size="2">变量</font><

24、/strong>D、<strong><font size="2">常量</font></strong>49、<font face="宋体" size="2"><strong>如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身，这种参数传递方式称为<u>&#160;&#160;&#160;&#160;&#160;&#160;&#160; </u>传递。</s

25、trong></font> ( )A、<strong><font face="宋体" size="2">按值</font></strong>B、<strong><font face="宋体" size="2">按地址</font></strong>C、<strong><font face="宋体" size="2">ByRef</fo

26、nt></strong>D、<strong><font face="宋体" size="2">按形参</font></strong>50、下列定义Sub过程的语句中，正确的语句是_。 Private Sub Test(St As String * 8) Private Sub Test(Sarray( ) As String * 5) Private Sub Test(Sarray( ) As String) Private Sub Test(St As String) ( )A、B、C、

27、D、51、<font size="2"><strong>可以在窗体模块的通用声明段中声明的是_。</strong></font> ( )A、<strong><font size="2">全局变量</font></strong>B、<strong><font size="2">全局常量</font></strong>C、<strong><font size="2&qu

28、ot;>全局数组</font></strong>D、<strong><font size="2">全局用户自定义类型</font></strong>52、窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用Public K As Integer,Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用 _。 ( )A、Frm1.KB、Form.KC、Form1.KD、K53、<font face="Times New Ro

29、man" size="2"><strong>假定已定义了一个过程Sub Add(a As Single, b As Single)，则正确的调用语句是_。</strong></font> ( )A、<font face="Times New Roman" size="2"><strong>Add (12 , 12)</strong></font>B、<strong><font face="Times New

30、Roman" size="2">Call Add( 2 * x , Sin(1.57) ) </font></strong>C、<strong><font face="Times New Roman" size="2">Call Add x , y </font></strong>D、<strong><font face="Times New Roman" size="2">Call

31、Add(12 ,12, x)</font></strong>54、<font face="Times New Roman" size="2"><strong>在Cmdl_C1ick事件中有效的地址传递的调用语句是<u>&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&

32、amp;#160;&#160;&#160; </u>&#160;。<br/>Public Sub Fl(n%)<br/>&#160; <br/>&#160; n =3*n+4<br/>&#160; <br/>End Sub<br/>Private Sub Cmdl_Click()<br/>&#160; Dim n%, m% <br/>&#160; n=3 :m &#160;=4<br/>&#160

33、; &#160;&#160; <font color="#006633">'调用F1语句</font><br/>End Sub</strong></font> ( )A、<strong><font face="Times New Roman" size="2">F1 n+m </font></strong>B、<strong><font face="Times New Roma

34、n" size="2">F1 m </font></strong>C、<strong><font face="Times New Roman" size="2">F1 5 </font></strong>D、<strong><font face="Times New Roman" size="2">F1 m+5</font></strong>55、在窗体上画一个

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

36、C、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 Integer)D、Private Sub sort(A( , )As Integer)57、在调用Sub过程或Function过程时，采用_传送相应过程的变量名、数组名、常数或表达式。 ( )A、形式参数B、实际参数C、对象参数D、数组参数58、<strong>&

37、lt;font face="Times New Roman" size="2">要从自定义对话框Form2中退出，可以在该对话框的“退出”按钮的Click事件过程中使用的语句是<u>&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;

38、&#160;&#160;&#160; </u>。</font></strong> ( )A、<span lang="EN-US"><font face="Times New Roman" size="2"><strong>Unload Form2</strong></font> </span>B、<span lang="EN-US"><font face="

39、Times New Roman" size="2"><strong>Hide Form2</strong></font></span>C、<span lang="EN-US"><font face="Times New Roman" size="2"><strong>Unload.Form2</strong></font></span>D、<span lang="E

40、N-US"><font face="Times New Roman" size="2"><strong>Form2.Unload</strong></font></span>59、下面子过程语句说明合法的是_。 ( )A、Sub f1(ByVal n%()B、Sub f1(n%)As IntegerC、Function f1%(f1%)D、Function f1(ByVal n%)60、在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句，单击该窗体，其

41、中_一定可以将Hello显示在当前窗体上。 ( )A、Forml.PrintHelloB、Me.PrintHelloC、Debug.PrintHelloD、Form2.PrintHello2、填空题(本题共计40分)1、已知A=7.5，B=2，C=-3.6，表达式 a>b and c>a or a<b and not c>b的值为_ false _.2、2Sinx+3Cosx+Tan2x+LnxLny的VB表达式为_2*sin(x)+3*cos(x)+tan(2*x)+log(x)*log(y)_3、下面程序的功能是判断100999之间的所有素数，所谓素数是指只能被1和

42、它本身整除的数。完善下列程序。Private Sub Form_Click( )Dim i As IntegerDim k As integerFor i=100 To 999For k=2 To i-1If _ i Mod k=0 _ThenExit For _End IfNext kIf _ k=I _ThenPrint iEnd IfNext iEnd Sub4、输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的"ABCDEFG"变换成"GFEDCBA"。Private Sub Command1_Click()Dim a$,i%,c$，d$a

43、=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_。Private Sub Command1_Click( )x = 1For k = 1 To 3If k = 1 Then a = x * xIf k<= 2 Then a = x * x+1If 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,4)For k=1 To 4For j=1 To 4a(k,j)=j