2010年vb期中考试满分：110分姓名：________1、单项选择题(本题共计40分)1、函数Cint(–3.5)，Int(–3.5)，Fix(–3.5)的值分别是________。

( )A、-3，–4，–3B、-4，–4，–3C、-3，–4，–4D、-4，–3，–32、在VB中，下列关于控件的属性或方法中，搭配错误的有________个。

①Timer1.Interval②List1.Cls③Text1.Print④List1.RemoveItem⑤Vscroll1.Value⑥Picture1.Print ( )A、0B、1C、2D、33、若在一个应用程序窗体上，依次创建了CommandButton、TextBox、Label1等控件，则运行该程序显示窗体时，________会首先获得焦点。

( )A、窗体B、CommandButtonC、Label1D、TextBox4、下面的表达试的值为真的是________。

( )A、Mid(“Visual Basic”,1,12)=Right(“Programing Language Visual Basic”,12)B、“ABCRG”> ”abcde”C、Int(134.69) > Cint(134.69)D、78.9/32.77 < = 97.5/43.97 AND –45.4 > 4.985、执行语句"Print format(5459.478,"##,##0.00")"，正确的输出结果是________。

( )A、5459.48B、5,459.48C、5,459.478D、5,459.476、有如下程序代码：Private Sub Command1_Click( )s=Sin(3.1415926/2)MsgBox sEnd Sub程序运行后，消息对话框显示_________。

( )A、0B、1C、1.5708D、27、执行以下程序段后，变是c$的值为____________。

Private Sub Command1_Click( )A$ = "Viaual BASIC programming"B$ = B$& UCase(Mid$(A$, 7, 6) & Right$(A$, 12))Print B$End Sub ( )A、Viaual BASIC ProgrammingB、Basic ProgrammingC、basic programmingD、BASIC PROGRAMMING8、下列语句中不能正常执行的是________。

( )A、print +32758+10B、print 5+9=15C、print "65"+12D、print "65"&129、执行语句"Print Format(1234.567,"##,##0.00")",正确的输出结果是__________。

( )A、1234.57B、1,234.57C、1,234.56D、01,234.5710、下面是计算1~100奇数的和的程序，请补充完整，填空应为_______。

Private Sub Command1_Click()Dim s As Long, x As Integers = 0For x = ____________ Step -2s = s + xNext xPrint sEnd SubA、100 To 1B、1 To 100C、99 To 1D、1 To 9911、下列程序段的执行结果为____________。

x = Int((69 - 60) * Rnd + 60)Select Case xCase Is >= 90Print “优秀”Case 80 To 89Print “良好”Case 60 To 79Print “合格”Case ElsePrint “不合格”End SelectA、优秀B、良好C、合格D、不合格12、下列语句正确的是____________。

( )A、If K<3*N And K>N Then N=K^3B、If K<3*N And K>N Then N=K3C、If K<3*N ：K>N Then N=K^3D、If K<3*N And K>N Then N=K**313、要使文本框能显示多行文字，则需设定它的____________属性为True。

( )A、CaptionB、PasswordCharC、MultiLineD、Seleted14、下面语句错误的是________。

( )A、If a=1 And b=2 Thenc=3End IfB、If a=1 Thenc=2Else If a=2 Thenc=3End IfC、If a=1 Thenc=2ElseIf a=2 Thenc=3End IfD、If (a=1,2,3 ) Then c=215、下面程序的运行结果是________。

Private Sub Command1 Click ( )x=1: y=1For i=1 TO 3x=x+y: y=y+xNext iPrint x;yEnd Sub ( )A、6 6C、13 21D、34 3516、下面程序的内层循环次数是________。

For i=1 TO 3For j=1 TO iFor k=j TO 3...Next kNext jNext i ( )A、3B、14C、9D、2117、对于一个含有计时器控件的窗体，每经过一段由________属性指定的时间间隔，就会产生一个Timer事件。

( )A、NameB、EnabledC、CaptionD、Interval18、窗体从加载到显示出来，下列最先发生的事件是____________。

( )A、LoadB、ResizeC、ActivateD、Paint19、如果a是一个正实数，对x的第3位小数四舍五入的表达式是____________。

( )A、0.01*Int(a+0.005)B、0.01*Int(a+0.05)C、0.01*Int(100*(a+0.005)D、0.01*Int(100*(a+0.05))20、VisualBasic的一行可以写多条语句，语句之间用____________隔开。

( )A、逗号B、分号C、顿号D、冒号21、判断在文本框内是否按下了回车键，应通过____________事件过程。

( )A、ChangeB、KeyPressC、GotFocusD、Click22、下列循环能正常结束循环的是____________。

( )A、i=5DoLoop Until i<0B、i=1Doi=i+2Loop Until i=10C、i=10Doi=i+1Loop Until i>0D、i=6Doi=i-2Loop Until i=123、语句If x=1Then y=1，下列说法正确的是____________。

( )A、x=1和y=1均为赋值语句B、x=1和y=l均为关系表达式C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=l为关系表达式24、表达式Len("123程序设计ABC")的值是____________。

( )A、10B、14C、20D、1725、在过程中有语句ForI=N1 To N2 Step N3，在该循环体内有下列四条语句，其中________会影响循环执行的次数。

①N1=N1+I ②N2=N2+N3 ③I=I+N3 ④N3=2*N3 ( )A、①②B、①②③C、③D、①②③④26、执行下面的程序，单击窗体后在窗体上显示的结果是_______Private Sub Form_Click()Dim Str1 As String, Str2 As StringDim Str3 As String, I As IntegerStr1 = "e"For I = 1 To 2Str2 = UCase(Str1)Str1 = Str2 & Str1Str3 = Str3 & Str1Str1 = Chr(Asc(Str1) + I)Next IPrint Str3End Sub ( )A、EeFFC、EEFFD、eeFF27、下列说法正确的是________。

( )A、设i=1,x=2,y=2,则x<2 Or Not y>0 And (x-y)/i<>0的结果是TrueB、(7-3<=4) Xor (1>-1) Or (7=5)的结果是TrueC、(Not True Or True) And (True Or False) 的结果是FalseD、a$="Visual",b$="Basic",则a$ & b$ 和a$ + b$结果都是"VisualBasic"28、文本框(Textl)中有选定的文本，执行Textl.SelText="Hello"的结果是____________。

( )A、“Hello”将替换掉原来选定的文本B、“Hello”将插入到原来选定的文本之前C、Textl.SelLength为5D、文本框中只有“Hello”29、当一个CheckBox控件的Value属性为2时，表示该控件____________。

( )A、以被选中B、未选中C、当前不可用D、未知30、窗体Form1的名称属性是frm，它的Load事件过程名是_____。

( )A、Form-LoadB、Form_LoadC、frm_LoadD、Me_CmdOK31、在窗体上建立3个文本框：Text1、Text2、Text3，如果在Text1中输入200，在Text2中输入150，则执行下列程序段后，Text3的值为______。

Dim m As Integer, n As Integerm=Val(Text1)n=Val(Text2)If n*m=0 Then Exit SubIf m<n Thent=m: m=n: n=tEnd IfDor=m Mod nm=nn=rLoop While r<>0Text3=mA、200B、150C、100D、5032、Dim y As Integerm = 1Do While m >= 3m = m + 1Print m;LoopA、2B、2 3C、2 3 4D、2 3 4 533、以下程序的输出结果是____________。