09vb期末考试模拟题全部

上传人：s*** IP属地：天津上传时间：2021-11-10 格式：DOCX 页数：28 大小：49.05KB 积分：25 举报 版权申诉

已阅读5页，还剩23页未读，继续免费阅读

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、09vb 期末考试模拟题全部满分： 222 分姓名： 1、单项选择题 (本题共计 80 分)1、能被对象所识别的动作与可执行的活动分别称为对象的。 ( )A、方法、事件B、事件、方法C、事件、属性D、过程、方法2、一个应用程序窗体。 ( )A 、只许有一个B 、可以没有C、应该有两个D 、可包括多个3、 VisualBasic 中的工程文件的扩展名是。 ( )A、.regB、.frmC、.basD、.vbp4、所谓就是使某个对象进入活动状态 (又称激活) 的一种操作或动作。 ( )A 、事件B、属性C、方法D 、对象5、将调试通过的工程经“文件”菜单的“生成.exe 文件”编译成

2、 .exe 后，将该可执行文件到其他机器上不能运行的主要原因是。 ( )A 、运行的机器上无 VB 系统B 、缺少 .frm 窗体文件C、该可执行文件有病毒D、以上原因都不对6、一只白色的足球踢进球门，则白色、足球、踢、进球门是。 ( )A 、属性、对象、方法、事件B 、属性、对象、事件、方法C、对象、属性、方法、事件D、对象、属性、事件、方法7、下面语句，可以将列表框 List1 中当前选定的列表项的值替换成 “ABC”。( )A、List1.AddItem “ ABC ”， List1.ListIndexB 、 List1.Text= “ ABC ”C、 List1.List(Li

3、st1.ListIndex)=“ ABC ”D 、前三项均可8、在 VB 中，下列关于控件的属性或方法中，搭配错误的有个。 Timer1.Interval Listl.CIs Text1.Print Listl.Removeltem VscroIIl.Value Picturel.Pri nt()13、当对象失去焦点时，将会发生事件。A、GetFocusB、LostFocusC、FocusD、SetFocus14、以下不属于标签属性的是A、FontB 、 VaIueC、 CaptionD 、 lndex15、对于一个含有计时器控件的窗体，每经过一段由属性指定的时间间隔，就会产A 、 0B、

4、1C、 2D、 3在过程中可以用语句定义变量。A、 Dim 、 PrivateB 、 Dim 、 StaticC、 Dim 、 PubIicD、 Dim 、 Static、 PrivateVisuaIBasic 程序设计时常用的Print、A 、属性B 、打印字库C、方法D、事件只能由系统触发的是 _事件A、 ResizeB 、 DbICIickC、 TimerD、 Paint9、CIs 属于10 、11、1 2、关于窗体 Name 属性的叙述，正确的是。(A、窗体Name属性可以具有与别的公共对象相同的名字B、窗体Name属性和变量定义一样C、窗体Name属性最长可达 255个字符D、窗

5、体Name属性不能具有与别的公共对象相同的名字生一个 Timer 事件。 ( )A、NameB 、 EnabIedC、 CaptionD、 Interval16、在运行过程中要把某控件变灰，应把属性设置为 False。 ( )A、DefaultB、VisibleC、ActivateD、 Enabled17、如果在窗体上有命令按钮 OK ，在代码编辑窗口有与之对应的 CmdOK_Click ()事件，则命令按钮控件的名称属性和 Caption 属性分别为。 ( )A 、 OK,CmdB、Cmd,OKC、CmdOK,OKD、OK,CmdOK18、以下有关对象属性的说法中错误的是。 ( )A

6、、所有的对象都具有 Name(名称)属性B、只能在执行时设置或改变的属性为执行时属性C、对象的某些属性只能在设计时设定，不能使用代码改变D、Enabled 属性值设为 False 的控件对象在窗体上将不可见19、对正实数 X 的第四位小数四舍五入的 VB 表达式是。( )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)20、函数 Cint( - 3.5), lnt( - 3.5), Fix( - 3.5)的值分别是。()A、-3 ,-4,- 3B、-4

7、,-4,- 3C、-3,-4，-4D、-4，-3，-321、有如下程序代码：Private Sub Command1_Click( ) s=Sin(3.1415926/2)MsgBox sEnd Sub 程序运行后,消息对话框显示。( )A 、 0B、1C、1.5708D、222、有如下程序：Private Sub Command1_Click( )s = Fix(23.1)e = lnt(-23.1)Print Sgn(e+s)End Sub运行时输出的结果是。 ( )A、-1B、0C、1D、2323、执行语句 "Print Format(1234.567,"#,#0

8、.00")", 正确的输出结果是 A 、 1234.57B、1,234.57C、1,234.56D、 01,234.57的值为 24、己知 A$="12345678" ，则表达式 Val(Left$(A$ ， 4)+Mid$(A$,4,2) ( )A 、 123456B、123445C、8D、625、Int(198.555*100+0.5)/100 的值。 ( )A、198B、199.6C、 198.56D、20026、 x+y 小于 10 且 x-y 大于 0 的逻辑表达式是。 ( )A、x+y < 10 Or x-y>

9、0B 、(x+y)<10 : (x-y) > 0C、x+y < 10 And x-y >0D、x+y <10 . And. x-y >027、语句 Print “ Int(-13.2)= ”;Int(-13.2) 的输出结果为 .A 、 Int(-13.2)=-13.2B、Int(-13.2)=13.2C、Int(-13.2)=-13D、Int(-13.2)=-1428、执行下面的程序，单击窗体后在窗体上显示的结果是 Private Sub Form_Click()Dim Strl As String, Str

10、2 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、abfd29、有如下程序：Private Sub Command1_Click( ) score=65select Case scoreCase Is<60a$="F"Case 60 To 69a$="D"Case 70 To 79a$="C"C

11、ase 80 To 89a$="B"Case elsea$="A" End SelectMsgBox a$End Sub程序运行后，消息对话框中显示的内容为 A、AB、BC、CD、D30、下列程序：Private Sub Form_Click( )For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub运行后输出的结果是。 ( )A、B、115C、9012031、在窗体上添加一个命令按钮，名为过程后，文本框中的输出为。Private Sub Command1_Click( )D、Command1 ，一文本框，名为Te

12、xtl,则执行如下事件For i = 1 To 4For j = 1 To 3For k = 1 To 3 x = x+3Next kNext jNext iText1.Text=Str(x)End Sub ()A、6B 、12C、18D、3032、给出下面的程序Private Sub Command1_Click( )Dim Check ,CounterCheck = True: Counter = 0DoCounter = Counter + 1If Counter = 10 Then Check = False: Exit DoLoop Until Check = FalseMsgBox

13、 CounterEnd Sub 程序最后弹出的消息对话框的内容是。 ( )A、TrueB 、 FalseC、20D、1033、当 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 734、在窗体上建立 3 个

14、文本框： Text1 、 Text2、 Text3 ，如果在 Text1 中输入 200，在 Text2 中输入 150，则执行下列程序段后，Text3 的值为。 Dim m As Integer, n As Integervbr/>m=Val(Text1) n=Val(Text2) If n*m=0 Then Exit Sub If m<n Then t=m: m=n: n=t End If Do

15、;r=m Mod n m=n n=r Loop While r<>0 Text3=m ()A、200B、150C、100D、5035、Dim y As Integer m = 1 Do While m <= 3 m = m + 1 Print m; Loop ( )A、2B、2 3C、2 3 4D、2 3 4 536、下面语句错误的是。 ( )A、If

16、 a=1 And b=2 Then c=3End IfB 、If a=1 Then c=2Else If a=2 Then c=3 End IfC、If a=1 Then c=2ElseIf a=2 Then c=3 End IfD、If (a=1,2,3 ) Then c=237、下列程序运行后的输出结果是。Private Sub Command1_Click()For i=1 TO 3 For j=0 TO i-1 k=k+1 next j next i print kEnd Sub ( )A、6B、5C、4D、338、在过程中有语句 ForI=N1 To N2 Step N3 ，在该循

17、环体内有下列四条语句，其中会影响循环执行的次数。N仁N1+IN2=N2+N3 l=l+N3 N3=2*N3()A、B、C、D、39、下列循环能正常结束循环的是 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&

18、lt;BR /> Do i=i-2 Loop Until i=140、表达式( 73+1 )*(185-1)的值是 . ( )A 、 8.67B、7.8C、6D、6.67 41、以下不合法的常量是 . ( )A、10A2B、100C、100.0D、10E+0142、对窗体编写如下代码：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 Then m1=a(i) m2=i End

19、If Next iPrint m1;m2End Sub程序运行后，按回车键，输出结果为。 ( )A、48 4B、237 1C、498 5D、498 443、在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1Private Sub Command1_Click( )Dim a As Variant a = Array(1,2,3,4) j = 1For i = 4 To 1 Step -1 s = s + a(i)*j j = j * 10 Next i Print sEnd Sub 运行上面的程序，单击命令按钮，其输出结果是。 ( )A 、 4321B、12C、34

20、D、 123444、程序代码如下，当单击窗体上Command1 控件时，窗体上显示的结果是 Option Base 1Private Sub Command1_Click( )Dim i As IntegerDim x(3,3)As IntegerFor i = 1 To 3For j = 1 To 3 x(i,j) = (i-1) * 3+j Next 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 945、以下程序的输出结果是 Option Base 1Private Sub Co

21、mmand1_Click()Dim a(10) As Integer, p(3) As Integer k=5For i=1 To 10 a(i)=iNext iFor i=1 To 3 p(i)=a(i*i) Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd Sub (A、33B、28C、35D、3746、当发生 Command1_Click 事件后，程序输出结果是。 Option Base 1 Private Sub Command1_Click() Dim a(4, 4) As I

22、nteger,i As Integer,s As Integer s=0 Fori=1 To 4 For j=1 To 4 a(i, j) = (i-1)*4+j*2 Next j Next i For i = 1 To 4 s=s+a(i, i) Next i Print s End Sub( )A 、 28B 、 32C、 30D、 4447、下

23、列程序段的输出结果是。 Dim i As Integer Dim a(8) As Integer y = 18: i = 0 Do a(i) = y Mod 2 i = i + 1 y = y 2 Loop Until y < 1 For j = i - 1 To 0 Step -1 Print a(j); Next j( )A、

24、1 0 0 0B、 1 0 0 1 0C、 0 0 1 1 0D、 1 0 1 0 048、当发生 Command1_Clik 事件后，下列程序的输出结果是。 Dim i AsInteger Dim a(10) As Integer For i=9 To 0 Step–1 a(i)=10–i Next i Print a(2);a(5);a(8)( )A、2 5 8B、7 4 1C、8 5 2D、3 6 949、当发生

25、Command1_Clik事件后，下列程序的执行结果是。 Private SubCommand1_Click() Dim a a = Array(1, 2, 3, 4, 5) For i = 1 To 4 Print a(i) - a(i–1); Next i End Sub ()A 、 1 1 1 1 1B 、 1 1 1 1C、 1 1 1D、2 2 250、下列程序段的执行结果是 Dim A(3,3)For

26、 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 0D、1 0 10 1 01 0 151、下列程序段的输出结果是。Dim A(5)For I=0 TO 4A(I)=I+1M=I+1If M=3 ThenA(M-1)=A(I-1)ElseA(M)=A(I)End IfI

27、f I=3 Then A(I+1)=A(M-4)Print A(I);Next I ( )A、1 1 1 2 2B、2 1 1 4 4C、1 2 2 4 5D、2 2 1 4 152、如下数组声明语句，则数组a 包含元素的个数有 Dim a(3 , -2 to 2 , 5) ( )A、120B、75C、60D、1353、如下二维数组声明语句，正确。 ( )A、Dim a3 ，4 As IntegerB、Dim a(3 ， 4) As IntegerC、Dim a(n ，n) As IntegerD、Dim a(34) As Integer54、要分配存放如下方阵的数据，数组声明语句能实现

28、( 不能浪费空间 )。每行三个元素，第一行为： 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 Integer55、在窗体的通用声明处有语句Dim A() As Single ，以下在某事件过程中重定义此数组的一组正确语句是：。 ( )A 、 ReDim A(3,3) ReDim A(4,4) As

29、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)56、 单击按钮 ,输出为。 Private Sub fun( )  &

30、amp;#160; Static a As Integer    a=a+2    Print a; End Sub Private SubCommand1_Click( )    Dim m As Integer    For m=1 To 3    &

31、;#160;   Call fun    Next m End Sub ( )A 、 2  2  2 </

32、span>B 、0  0  0 C、 <str

33、ong>2  4  8D、 2  4  657、<font face="Times New Roman"

34、size="2"> 在单击命令按钮时的输出结果是。 Private Sub Command1_Click ( )  Dim x%, y%  x=1:y=1  For n=1 to 3    z=First (x, y)    Print n, z  Next

35、 n End Sub Private Function First% (x%, y%)  Dim n%  Do While n <= 4    x=x+y    n=n+1  Loop  First=x End Function&l

36、t;/font> ( )A 、 1 6 2 11 3 16B 、2 6 1 3 11 16C、 <font face="Tim

37、es New Roman" size="2">1 2 3 4 5 6 D、2 1 3 1 3 358、程序运行后，如果单击命令按钮，则在文本

38、框中显示的内容是。 Private Sub Command1_Click( )    dim x, y, z As Integer    x=5: y=7: z=0    text1= “”      call p1(x,y,z)

39、text1=str(z) End Sub Private Sub p1(ByVal a%, ByVal b%, c%)    c=a+b End Sub ( )A 、 0B 、<font face="

40、;Times New Roman" size="2">12C、 Str(z) D、

41、; 没有显示 59、当在 Cmd1 按钮上单击时，程序的输出是          &

42、#160; . Public Function Func(a%,b%)As Integer   Static m As Integer : Dim i As Integer   m=0 : i=2:  i=i+m+1 : m=i+a+b : Func=m End Function Private Sub Cmd1_Click( )   Dim k%,m%,n%<

43、br/>  k=4 : m=1 :n=Func(k,m)   Print n, Func(k, m) End Sub ( )A 、 8  8B 、<f

44、ont face="Times New Roman" size="2">8  20C、 8  16D、<font face=&qu

45、ot;Times New Roman" size="2">8  1760、在 Cmdl_C1ick 事件中有效的地址传递的调用语句是         &a

46、mp;#160;          。 Public Sub Fl(n%)  </>  n=3* n+4   E nd Sub Private Sub Cmdl_Click()   Dim n%, m%<br

47、/>  n=3 :m  =4     vfont color="#006633">' 调用 F1 语句 End Sub ()A、F1 n+m </strong&

48、gt;B、F1 m C、F1 5 D、<font face="Times New Roman" size="2&

49、quot;>F1 m+561、 调用由语句 Private Sub Convert(Y AsInteger)定义的Sub过程时，以下不是按值传递的语句是           &

50、#160;              。 ( )A 、Call Convert (X)</fo

51、nt>B 、Call Convert(X*1)C、 Convert (X)

52、D、Convert X62、程序中用“ Private Function Fun(X AsInteger,Y As Single) ”定义了函数 Fun

53、。调用函数 Fun的过程中的变量 i、j均定义为Integer型, 能正确引用函数 Fun 的是               。     Fun(i,j)    CallFun(i,3.65)&am

54、p;#160;    Fun(3.14,234)   Fun("245","231.5")( )     A、<font fac

55、e="Times New Roman" size="2">B、C、D、<font face="Times New Roman" size="2&quo

56、t;>63、vfont face="Times New Roman" size="2">设变量 D 为 Date 型、A 为 Integer 型、S 为 String 型、 L 为 Long 型,下面赋值语句中不能执行的是             </stron

57、g> ()        A、D=#12:30:00 PM# B、<font face="Times New Roman" size="2&quo

58、t;>A=” 3277e 1” C、S=NowD、L=” 4276D3” 64、 <font size=&q

59、uot;2"> 以下关于方法的叙述中,错误的是               v/u> 。 v/strong>v/font> ()A、B、<

60、;strong>C、方法是构成对象实体的一个部分 v/strong>v/font> 方法是一种特殊的过程或函数 v/font>v/strong> 调用方法的一般格式是：对象名称方法名称参数在调用方法时，对象名称是不可缺少的 v/font>v/strong>D、

61、;65、vfont face="Times New Roman" size="2">在调用 Sub 或 Function 过程时，采用传送相应过程的变量名、数组名、常数或表达式。 ( )A、B、C、形

62、式参数实际参数对象参数数组参数D、 66、 Sub 过程与 Function 过程的本质区别是 。 v/strong>

63、v/font> ()A、vstrong>vfont size="2">vfont face="Times New Roman">Sub 过程可以使用 Call 语句或直接使用过程名调用，而 Function 过程不可以 B 、Function过程可以有形参， Sub 过程不能有形参 </f

64、ont>C、 两种过程参数传递方式不同 D、 Sub 过程没有返回值， Function 过程能返回值 67、

65、有关过程的说法中错误的是。 ( )A 、 在 Sub 或 Function 过程中不能再定义其他 Sub 或 Function 过程 B 、 在调用过程时，与使用 By

66、Ref 说明的形参对应的实参只能按地址传递方式结合 C、 递归过程既可以是递归 Function 过程，也可以是递归 Sub 过程 在调用过程时，形参为数组的参数对D 、

67、; 应的实参只能是数组 68、 在过程中定义的变量，如果希望在离开该过程后，还能保持过程中局部变量的值，则应该使用关键字在过程中定义局部变量。 ( )A 、 Dim<

68、;/font>B 、PrivateC、 PublicD、 <font face="Times N

69、ew Roman" size="2">Static69、 以下有关变量作用域的说明中，错误的是

70、        。 ( )A 、 只有在标准模块中用 Public&l

71、t;span> 语句说明的变量才是全局变量 B 、 在过程中不能使用 Public 语句说明全局变量 C、 在标准模

72、块的通用声明处可用语句说明模块级变量 D、 在窗体的通用声明处可用 Private 语句说明窗体级变量 &l

73、t;/font>70、 要想在过程调用后返回两个结果，下面的过程定义语句合法的是。 ( )A 、 Sub Procl ( ByVal n , ByVal m) B 、Sub Procl ( n , ByVal m)

人人文库> 全部分类> 行业资料 > 信息产业

温馨提示

1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

09vb期末考试模拟题全部

文档简介

温馨提示

最新文档

评论

09vb期末考试模拟题全部

文档简介

温馨提示

最新文档

评论

相关文档