2010年vb期中考试试卷及答案

i=i+1 Loop Until i<0 B、i=1 Do i=i+2

Loop Until i=10 C、i=10 Do i=i+1 Loop Until i>0 D、i=6 Do i=i-2

Loop Until i=1

23、语句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(\程序设计ABC\的值是____________。 ( )

A、10 B、14 C、20 D、17

25、在过程中有语句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 String Dim Str3 As String, I As Integer Str1 = \For I = 1 To 2 Str2 = UCase(Str1) Str1 = Str2 & Str1 Str3 = Str3 & Str1 Str1 = Chr(Asc(Str1) + I) Next I Print Str3 End Sub ( )

A、EeFF

B、eEfF C、EEFF D、eeFF

27、下列说法正确的是________。 ( )

A、设i=1,x=2,y=2,则x<2 Or Not y>0 And (x-y)/i<>0的结果是True B、(7-3<=4) Xor (1>-1) Or (7=5)的结果是True

C、(Not True Or True) And (True Or False) 的结果是False

D、a$=\则a$ & b$ 和a$ + b$结果都是\

28、文本框(Textl)中有选定的文本，执行Textl.SelText=\的结果是____________。 ( )

A、“Hello”将替换掉原来选定的文本 B、“Hello”将插入到原来选定的文本之前 C、Textl.SelLength为5 D、文本框中只有“Hello”

29、当一个CheckBox控件的Value属性为2时，表示该控件____________。 ( )

A、以被选中 B、未选中 C、当前不可用 D、未知

30、窗体Form1的名称属性是frm，它的Load事件过程名是_____。 ( )

A、Form-Load B、Form_Load C、frm_Load D、Me_CmdOK

31、在窗体上建立3个文本框：Text1、Text2、Text3，如果在Text1中输入200，在Text2中输入150，则执行下列程序段后，Text3的值为______。

Dim m As Integer, n As Integer m=Val(Text1) n=Val(Text2)

If n*m=0 Then Exit Sub If m

Loop While r<>0 Text3=m

A、200 B、150 C、100 D、50

32、Dim y As Integer m = 1

Do While m >= 3 m = m + 1 Print m; Loop

A、2 B、2 3 C、2 3 4 D、2 3 4 5

33、以下程序的输出结果是____________。 Dim i As Integer,a As Integer Do While i<20 Do While True If i Mod 10=0 Then

Exit Do Else i=i-1 End If Loop i=i+11 a=a+i Loop Print a

A、21 B、32 C、33 D、11

34、下列符号常量的声明中，______________是不合法的。 A、Const a as single=1.1 B、Const a as integer=\C、Const a as double=sin(1) D、Const a =”OK”

35、表达式X+1>X是_____________. ( )

A、算术表达式 B、非法表达式 C、字符串表达式 D、关系表达式

36、VisualBasic程序设计时常用的Print、Cls属于________。A、属性 B、打印字库 C、方法 D、事件

37、只能由系统触发的是___________事件。 ( )

A、Resize B、DblClick

( )

( )

C、Timer D、Paint

38、用于除去字符串左侧的空格的函数是__________。 ( )

A、Rtrim( ) B、Ltrim( ) C、LeftTrim( ) D、Trim( )

39、下列____________是合法的VB变量名。 ( )

A、_5a B、我_AB C、5name

D、Use&DASF

40、下面4个方法中，可以返回字符串的高度值的是____________。 ( )

A、TextHeight B、TextWidth C、ScaleWidth D、ScaleHeight

2、填空题(本题共计40分)

1、执行下面的程序段后，s的值为_____ 。 s=5

For i=2.6 To 4.9 Step 0.6 s=s+i Next i print s

2、A的绝对值大于等于B同时不等于C的表达式是____(1)____.

3、下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是_____。 Dim a As Integer,b As Integer a=InputBox(\请输入第一个整数\b=InputBox(\请输入第二个整数\Print a+b

4、若一个数的各因子之和正好等于该数本身，则该数称为完全数。如6的因子为1，2，3，其和为6，则6为完全数。编程找出1～100之间的所有完全数。完善下列程序。

Private Sub Command1_Click( )

Dim a As Integer, b As Integer, c As Integer, i As Integer For a = 2 To 100 ____(1)_____ For b = 2 To a-1 If a Mod b = 0 Then c = b+c End If Next b

If___(2)___Then Print a End If