计算机VB考试试题精选

1、1 编写程序，计算并输出下面级数前 n 项(n=50)中偶数项的和。 (要求用循环做，非循环不 给分。) 1*2+2*3+3*4+4*5+n*(n+1)+ Private Sub Form_Activate() s = 0 For I = 2 To 50 Step 2 s = s + I * (I + 1) Next I Print s End Sub 2 勾股定理中三个数的关系是：a2 + b2 =c2 编写程序，输出 100 以内满足上述关系的整 数组合，例如 3，4，5 就是一个整数组合。 Private Sub Form_Activate() For a = 1 To 100 For

2、b = a + 1 To 100 For c = b + 1 To 100 If a 2 + b 2 = c 2 Then Print a, b, c Next c, b, a End Sub 3 编写程序，随机生成 100 个两位整数，并统计出其中小于等于 40、大于 40 小于等于 70 及大于 70 的数据个数。 Private Sub Form_Activate() Randomize a = 0: b = 0: c = 0 For I = 1 To 100 Next Ix = Int(Rnd * 90 + 10) Select Case x Case Is = 40 a = a +

3、1 Case Is = 70 b = b + 1 Case Else c = c + 1 End Select Print a, b, c End Sub 4 编写程序，单击窗体时在窗体上输出如下所示的图形。 * * * * * * * * * 要求：用循环做，非循环不给分。 Private Sub Form_Activate() For I = 1 To 5 Print Tab(20 - I); String(2 * I - 1, *): Print Next I For I = 4 To 1 Step -1 Print Tab(20 - I); String(2 * I - 1, *):

4、Print Next I End Sub 5 编写程序，计算并输出下面级数前 n 项中(n=50)偶数项的和。 (要求用循环做，非循环不 给分。) 1*2*3+2*3*4+3*4*5+n*(n+1)*(n+2)+ Private Sub Form_Activate() s = 0 For i = 1 To 50 If i Mod 2 = 0 Then s = s + i * (i + 1) * (i + 2) End If Next i Print s End Sub 6 输入一串数字，求其中偶数数字的个数及其和。 （输入：123456789） ，运算得：420 Private Sub For

5、m_Activate() x = InputBox(输入一串数字) s = 0: t = 0 For i = 1 To Len(x) a = Mid(x, i, 1) If a Mod 2 = 0 Then s = s + 1: t = t + a Next i Print s, t End Sub 7 编写程序，用普通迭代法求方程 f(x)=x+lnx-2.5=0 的近似实根 r，迭代初值为 1.5，精确到 0.0001。 提示：必须把方程 f(x)=0 化成其等价形式 x=g(x) 。 （允许使用其他迭代法） x=1.87264704036406 Private Sub Form_Acti

6、vate() Dim x0, x1, fx0, f1x0 x1 = 1.5 Do x0 = x1 fx0 = x0 + log(x0) - 2.5 f1x0 = 1 + 1 / x0 x1 = x0 - fx0 / f1x0 Loop Until Abs(x1 - x0) = 0.0001 Print x=; x1 End Sub 8 编写程序，给出行 3，6，9，12 的值和列 15，16，17，18 的值，得到如下的乘积表： (要 求用循环做，非循环不给分。) *36912 154590135180 164896144192 1751102153204 1854108162216 Priv

7、ate Sub Form_Activate() a = ! For i = 0 To 12 Step 3 If i = 0 Then Print Format(*, a); Else Print Format(i, a); End If Next i Print For i = 15 To 18 Print Format(i, a); For j = 3 To 12 Step 3 Print Format(i * j, a); 9 把一百元钱人民币全兑换成硬币(一元的、五角的、一角的)，有多少种兑换方法？（15 分） 顶 2 2009-01-04 18:04 回复 RedBlack_m 2 位

8、粉丝 2 楼 Private Sub Form_Activate() s = 0 For i = 0 To 100 For j = 0 To 200 For k = 0 To 1000 If i + j * 0.5 + k * 0.1 = 100 Then s = s + 1 Next k, j, i Print s End Sub 10 编写程序，计算下面级数前 n 项(n=20)的部分和，并输出该级数最后两项之差的绝对值。 (要求用循环做，非循环不给分。) 1*2*3+2*3*4+3*4*5+n*(n+1)*(n+2)+（15 分） Private Sub Form_Activate()

9、s = 0 For i = 1 To 20 t = i * (i + 1) * (i + 2) s = s + t If i = 19 Then k = t If i = 20 Then k =Abs(t - k) Next i Print s, k End Sub 11 编写程序，用普通迭代法求方程 f(x)=x+lnx-2.5=0 的近似实根 r，迭代初值为 1.5，精确到 0.0001。 提示：必须把方程 f(x)=0 化成其等价形式 x=g(x) 。 （允许使用其他迭代法） （15 分） x=1.87264704036406 Private Sub Form_Activate() Di

10、m x0, x1, fx0, f1x0 x1 = 1.5 Do x0 = x1 fx0 = x0 + log(x0) - 2.5 f1x0 = 1 + 1 / x0 x1 = x0 - fx0 / f1x0 Loop Until Abs(x1 - x0) = 0.0001 Print x=; x1 End Sub 求公式：e=1/1!+1/2!+1/3!+1/n! 直到最后一项小于 10(-6)时 e 的值。(保留小数点后 9 位) (注：程序代码写在命令按钮 Command1 的 Click 事件中。) 程序： Private Sub Command1_Click() s = 0: t =

11、1 i = 1 Do t = t * i s = s + 1 / t i = i + 1 Loop Until 1 / t = 0.000001 Print Format(s, 0.#) End Sub 求公式：e=1/1!+1/2!+1/3!+1/n!直到 n=50 时的 e 值。(保留小数点后 9 位) 程序： Private Sub Command1_Click() s = 0: t = 1 For i = 1 To 50 t = t * i s = s + 1 / t Next i Print Round(s, 9) End Sub 有一分数序列: 1 ,1/2 ,2/3 ,3/5 ,

12、5/8 ,8/13 ,13/21 求出这个数列的前 20 项之和。 程序： Private Sub Form_Activate() f1 = 1: f2 = 1: s = 0 For i = 1 To 20 s = s + f1 / f2 f = f1 + f2 f1 = f2 f2 = f Next i Print s End Sub 输入一串数字，求其中偶数位数字之和。例如输入 234567，则求 357。 程序： Private Sub Form_Click() s = 0 x = InputBox(x=) If IsNumeric(x) Then For i = 1 To Len(x)

13、 If i Mod 2 = 0 Then s = s + Mid(x, i, 1) Next i Print x, s End If End Sub 编程求函数 SUMX(X)，当-1X1 或 X-1 时,函数值为 0。X 由键盘输入。 程序： Private Sub Form_Click() x = Val(InputBox(x=) If -1 x And x 1 Then s = 1 For i = 3 To 21 Step 2 t = 1 For j = 1 To i t = t * j Next j s = s + x * i / t Next i End If If x 1 Then

14、 s = 0 Print s End Sub 编写程序，用牛顿切线法求方程 f(x)= x+lgx-1.7=0 的近似实根 r，迭代初值自选，精确到 0.0001。 提示:计算公式为 x=x-f(x)/f(x) 注意： Private Sub Form_Activate() x1 = 2 Do x0 = x1 f = x0 + Log(x0) / Log(10) - 1.7 f1 = 1 + 1 / (x0 * Log(10) x1 = x0 - f / f1 Loop Until Abs(x1 - x0) = 0.0001 Print x=; x1 End Sub 编写程序，用牛顿切线法求方

15、程 f(x)= x+lnx-1.7=0 的近似实根 r，迭代初值自选，精确到 0.0001。 提示:计算公式为 x=x-f(x)/f(x) 程序： Private Sub Form_Activate() Dim x0, x1, fx0, f1x0 x1 = 1.5 Do x0 = x1 f = x0 + Log(x0) - 1.7 f1 = 1 + 1 / x0 x1 = x0 - f / f1 Loop Until Abs(x1 - x0) = 0.0001 Print x=; x1 End Sub Private Sub Form_Activate() For i = 1 To 5 Pri

16、nt Tab(20 - 2 * i); String(2 * i - 1, *) Next i For i = 4 To 1 Step -1 Print Tab(20 - 2 * i); String(2 * i - 1, *) Next i End Sub 牛顿：三要素：迭代初值，原方程，导数方程 X1=a 初始化迭代初值 Do X0=X1 为下一次迭代做准备 F (x)= 原方程在 X 处的值 F (x)= 原方程在 X 处的导数值 X1=X0-F(x)/F(x) 计算下一次的迭代值 Loop Until Abs(X1-X0)5,Is5,1,3 to 10 : Print OK : End

17、 selectD、Select Case x : case 1,3 Is5 : Print OK : End select 7、下列说法正确的是(D )（1 分） A、VB 中的所说的对象是指窗体 B、Do -Loop 语句是循环结构的一种特殊形式，如果循环体中没有 Exit Do 语句，程序运 行就一定会进入死循环并关闭窗体 C、触发 Form_Unload 事件，但此时窗还在内存中 D、对象的属性既可在属性窗口中设定又可在程序代码中设定 8、下列数组声明正确的是(D )（1 分） A、n=6 : Dim a (1 to n) as integer B、Dim a(10) as intege

18、r : ReDim a(1 to 12) C、Dim a() as single : ReDim a(3,6) as integer D、Dim a() as integer : n=6 : ReDim a(1 to n) as integer 9、假设有以下程序段 For I=1 to 3:For j=7 to 1 Step -1:Print I*j:Next j:Next I 则语句 Print I*j 的执行次数以及 I、j 的值分别是(B )（1 分） A、21 3 0 B、21 4 0 C、20 3 0 D、20 4 0 10、如果要在程序代码中为图片框动态加载和清除图像，可以利用(

19、 C)函数（1 分） A、InputBox B、Input C、LoadPicture D、PaintPicture 11、以下控件中可以入选为容器控件的是( B)（1 分） A、Image 图像框控件 B、PictureBox 图片框控件 C、TextBox 文本框控件 D、ListBox 列表框控件 12、假设变量 booly 是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是(C )（1 分） A、booly=True B、booly=.True. C、booly=True D、booly=#True 13、以下能够正确计算 n!的程序是( C)（1 分） A、n=5 : x=1 :

20、Do : x=x*i : i=i+1 : Loop While in B、n=5 : x=1 : i=1 : Do : x=x*i : i=i+1 : Loop While ic D、a$b$+c+10 16、表达式 INT(4*RND+2)*(INT(4*RND2)值的范围是( C)（1 分） A、-10，8 B、-4，8 C、-10，5 D、4，8 17、要把字符串河南农业大学 右边所包含的空格去掉应使用下列( D)函数（1 分） A、RINSTR B、RSTR C、LTRIM D、RTRIM 18、表达式 253 mod 3.2*int(2.5)的值为( B)（1 分） 2009-01-

21、05 15:14 回复 RedBlack_m 2 位粉丝 4 楼 A、1 B、2 C、3 D、5 19、要声明一个长度为 256 个字符的定长字符串变量 str，以下哪个语句是正确的(D )（1 分） A、Dim str as String B、Dim str as String(256) C、Dim str as String256 D、Dim str as String*256 20、下列可作为 VB 合法变量名的是(D )（1 分） A、4*Delta B、A-lpha C、4ABC D、AB 21、下列属于 VB 允许数据形式的是(bcd )（1 分） A、2.5E B、3.457E-

22、100 C、.368 D、1.87E+50 22、设 c=6,d=9,则以下表达式值为真的是(B )（1 分） A、(c=d) and (d10) B、(c0 ) C、(c0 ) D、(3-5 )c and (d0 ) 23、将数学式 Cos2(a+b)+5e2 写成 VB 表达式,其正确的形式是(C )（1 分） A、Cos2(a+b)+5*exp(2) B、Cos(a+b)2+5*ln(2) C、Cos(a+b)2+5*exp(2) D、Cos2(a+b)+5*ln(2) 24、为了暂时关闭计时器，应把该计时器的某个属性设置为 False,这个属性是(B )（1 分） A、Visible

23、B、Enabled C、Timer D、Interval 25、当运行程序时，系统自动执行启动窗体的某个事件过程,这个事件过程是(B )（1 分） A、Click B、Load C、Chang D、GotFocus 1、以下叙述中错误的是(A)（1 分） A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B、控件的 名称可以由编程人员设定 C、窗体文件包含该窗体及其控件的属性 D、Visual Basic 中控件的某些属性只能在运行时设置 2、VB 是一种面向对象的程序设计语言，构成对象的三要素是(B )（1 分） A、属性、控件和方法 B、属性、事件和方法 C、窗体、控件和

24、过程 D、控件、过程和模块 3、用 Dim A(-3 To 5)As Integer 语句所定义的数组的元素个数是(D )（1 分） A、6 B、7 C、8 D、9 4、 执行下面的程序 x=30 :For i=1 To 20 Step ( ):x=x+i5:Next i 后， X 的值为 64,则 Step 为(A ) （1 分） A、1 B、2 C、3 D、4 5、关于语句 If x=1 Then y=1 下列正确的说法是(C )（1 分） A、x=1 和 y=1 均为赋值语句 B、x=1 和 y=1 均为关系表达式 C、x=1 为关系表达式，y=1 为赋值语句 D、y=1 为关系表达式，

25、x=1 为赋值语句 6、假设 x 的值为 5，则在执行以下语句时，其输出结果为OK的 Select Case 的语句是( C) （1 分） A、Select Case x : case 10 to 1 : Print OK : End selectB、Select Case x : case Is5,Is5,1,3 to 10 : Print OK : End selectD、Select Case x : case 1,3 Is5 : Print OK : End select 7、如下程序 Do while i a C、That Thank D、1212.1 23、函数 String(n,

26、str)的功能是(B )（1 分） A、把数值型数据转换为字符串 B、返回由 n 个字符组成的字符串 C、从字符串中取出 n 个字符 D、从字符串中第 n 个字符的位置开始取子字符串 24、下列关于属性设置的叙述正确的是( D)（1 分） A、所有的对象都有同样的属性 B、控件的属性只能在设计时修改，运行时无法改变 C、控件的属性都有同样的默认值 D、引用对象属性的格式为：对象名称.属性 25、窗体能响应的事件是(C )（1 分） A、ActiveForm B、Drive C、Load D、Change 1、以下叙述中错误的是(A)（1 分） A、在工程资源管理器窗口中只能包含一个工程文件及属

27、于该工程的其他文件B、控件的 名称可以由编程人员设定 C、窗体文件包含该窗体及其控件的属性 D、Visual Basic 中控件的某些属性只能在运行时设置 2、VB 是一种面向对象的程序设计语言，构成对象的三要素是(B )（1 分） A、属性、控件和方法 B、属性、事件和方法 C、窗体、控件和过程 D、控件、过程和模块 3、用 Static S (100 to 120)As Integer 语句定义的数组的元素个数是(C )（1 分） A、100 B、20 C、21 D、120 4、如果整型变量 a、b 的值分别为 3 和 1，则下列语句中 For I=a to b : Print I : N

28、ext I 循环体 的执行次数是( D)（1 分） A、3 B、2 C、1 D、0 5、不能正确表示条件两个整型变量 E 和 F 之一为 0，但不能同时为 0的布尔表达式是(D ) （1 分） A、E*F=0 and E+F0 B、(E=0 or F=0)and (E0 Or F0) C、not(E=0 And F=0) and (E=0 or F=0) D、E*F=0 and (E=0 or F=0) 6、设有如下程序 a =( ):For i = 1 To 3:Select Case i:Case 1, 3:a = a + 1:Case 2, 4:a = a + 2:End Select:

29、Next i 程序运行后，a 的值为 6，则 a 的初始值为( C)（1 分） A、5 B、3 C、2 D、1 7、建立新窗体的方法是(B )（1 分） A、利用标准工具箱中的窗体控件建立的 B、利用工程下拉菜单中的命令建立的 C、由系统自动生成的 D、利用 VB 的命令建立的 8、下列数组声明正确的是( D)（1 分） 2009-01-05 15:14 回复 RedBlack_m 2 位粉丝 6 楼 A、r=8 : Dim a (1 to r) as integer B、Dim a(10) as integer : ReDim a(1 to x) C、Dim a(x) as single :

30、 ReDim a(3,6) as integer D、Dim a() as integer : x=8 : ReDim a(1 to x) as integer 9、假设有以下程序段 For I=1 to 2:For j=8 to 1 Step -1:Print I*j:Next j:Next I 则语句 Print I*j 的执行次数以及 I、j 的值分别是( C)（1 分） A、15 3 0 B、15 3 1 C、16 3 0 D、16 3 1 10、在程序代码中清除图片框 Picture1 中的图形的正确语句是( B)（1 分） A、Picture1.Picture B、Picture1

31、.Picture=LoadPicture() C、Picture1.Image= D、Picture1.Picture=null 11、若使用文本框 Text1，为对用户输入内容进行立即检查，应对 Text1 的哪个事件编程(A ) （1 分） A、Change B、Interval C、Left D、Top 12、在 VB 中关于逻辑型数据的描述错误的是( B)（1 分） A、该数据类型只有两个值 True 和 False B、该数据类型以 4 个字节存储 C、当把逻辑值转换为数值时，False 成为 0 D、当把逻辑值转换为数值时，True 成为-1 13、 下列程序段If (2 * 2

32、= 4) =d) and (d10) B、(c0 ) C、(c0 ) D、(3-5 )c and (d0 ) 23、将数学式 Cos2(a+b)+5e2 写成 VB 表达式,其正确的形式是(C )（1 分） A、Cos2(a+b)+5*exp(2) B、Cos(a+b)2+5*ln(2) C、Cos(a+b)2+5*exp(2) D、Cos2(a+b)+5*ln(2) 24、为了暂时关闭计时器，应把该计时器的某个属性设置为 False,这个属性是( B)（1 分） A、Visible B、Enabled C、Timer D、Interval 25、窗体能响应的事件是(C )（1 分） A、Ac

33、tiveForm B、Drive C、Load D、Change 2009-01-05 15:14 回复 RedBlack_m 2 位粉丝 7 楼 1、以下叙述中错误的是(B )（1 分） A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用 Private 定义的通用过程能被其他窗体调用 C、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体D、事件可以由用 户引发，也可以由系统引发 2、下列可以打开立即窗口的操作是(D )（1 分） A、Ctrl+D B、Ctrl+E C、Ctrl+F D、Ctrl+G 3、用 Dim A(-3 To 6)As Integer 语句定义的数组

34、的元素个数是( D)（1 分） A、7 B、8 C、9 D、10 4、 执行下面的程序 x=30 :For i=1 To 20 Step ( ):x=x+i5:Next i 后， X 的值为 64,则 Step 为(A ) （1 分） A、1 B、2 C、3 D、4 5、不能正确表示条件两个整型变量 E 和 F 之一为 0，但不能同时为 0的布尔表达式是(D ) （1 分） A、E*F=0 and E+F0 B、(E=0 or F=0)and (E0 Or F0) C、not(E=0 And F=0) and (E=0 or F=0) D、E*F=0 and (E=0 or F=0) 6、假设

35、 x 的值为 5，则在执行以下语句时，其输出结果为OK的 Select Case 的语句是( C) （1 分） A、Select Case x : case 10 to 1 : Print OK : End selectB、Select Case x : case Is5,Is5,1,3 to 10 : Print OK : End selectD、Select Case x : case 1,3 Is5 : Print OK : End select 7、下列说法正确的是(D )（1 分） A、VB 中的所说的对象是指窗体 B、Do -Loop 语句是循环结构的一种特殊形式，如果循环体中没有

36、 Exit Do 语句，程序运 行就一定会进入死循环并关闭窗体 C、触发 Form_Unload 事件，但此时窗还在内存中 D、对象的属性既可在属性窗口中设定又可在程序代码中设定 8、下列数组声明正确的是(D )（1 分） A、n=6 : Dim a (1 to n) as integer B、Dim a(10) as integer : ReDim a(1 to 12) C、Dim a() as single : ReDim a(3,6) as integer D、Dim a() as integer : n=6 : ReDim a(1 to n) as integer 9、假设有以下程序段

37、 For I=1 to 3:For j=7 to 1 Step -1:Print I*j:Next j:Next I 则语句 Print I*j 的执行次数以及 I、j 的值分别是(B )（1 分） A、21 3 0 B、21 4 0 C、20 3 0 D、20 4 0 10、如果要在程序代码中为图片框动态加载和清除图像，可以利用( C)函数（1 分） A、InputBox B、Input C、LoadPicture D、PaintPicture 11、以下控件中可以入选为容器控件的是( B)（1 分） A、Image 图像框控件 B、PictureBox 图片框控件 C、TextBox 文本

38、框控件 D、ListBox 列表框控件 12、假设变量 booly 是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是(C )（1 分） A、booly=True B、booly=.True. C、booly=True D、booly=#True 13、以下能够正确计算 n!的程序是( C)（1 分） A、n=5 : x=1 : Do : x=x*i : i=i+1 : Loop While in B、n=5 : x=1 : i=1 : Do : x=x*i : i=i+1 : Loop While ic D、a$b$+c+10 16、表达式 INT(4*RND+2)*(INT(4*RND2

39、)值的范围是( C)（1 分） A、-10，8 B、-4，8 C、-10，5 D、4，8 17、要把字符串河南农业大学 右边所包含的空格去掉应使用下列( D)函数（1 分） A、RINSTR B、RSTR C、LTRIM D、RTRIM 18、表达式 253 mod 3.2*int(2.5)的值为( B)（1 分） 2009-01-05 15:14 回复 RedBlack_m 2 位粉丝 8 楼 A、1 B、2 C、3 D、5 19、要声明一个长度为 256 个字符的定长字符串变量 str，以下哪个语句是正确的(D )（1 分） A、Dim str as String B、Dim str as

40、 String(256) C、Dim str as String256 D、Dim str as String*256 20、下列可作为 VB 合法变量名的是(D )（1 分） A、4*Delta B、A-lpha C、4ABC D、AB 21、下列属于 VB 允许数据形式的是(bcd )（1 分） A、2.5E B、3.457E-100 C、.368 D、1.87E+50 22、设 c=6,d=9,则以下表达式值为真的是(B )（1 分） A、(c=d) and (d10) B、(c0 ) C、(c0 ) D、(3-5 )c and (d0 ) 23、将数学式 Cos2(a+b)+5e2 写

41、成 VB 表达式,其正确的形式是(C )（1 分） A、Cos2(a+b)+5*exp(2) B、Cos(a+b)2+5*ln(2) C、Cos(a+b)2+5*exp(2) D、Cos2(a+b)+5*ln(2) 24、为了暂时关闭计时器，应把该计时器的某个属性设置为 False,这个属性是(B )（1 分） A、Visible B、Enabled C、Timer D、Interval 25、当运行程序时，系统自动执行启动窗体的某个事件过程,这个事件过程是(B )（1 分） A、Click B、Load C、Chang D、GotFocus 1、以下叙述中错误的是(A)（1 分） A、在工程

42、资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B、控件的 名称可以由编程人员设定 C、窗体文件包含该窗体及其控件的属性 D、Visual Basic 中控件的某些属性只能在运行时设置 2、VB 是一种面向对象的程序设计语言，构成对象的三要素是(B )（1 分） A、属性、控件和方法 B、属性、事件和方法 C、窗体、控件和过程 D、控件、过程和模块 3、用 Dim A(-3 To 5)As Integer 语句所定义的数组的元素个数是(D )（1 分） A、6 B、7 C、8 D、9 4、 执行下面的程序 x=30 :For i=1 To 20 Step ( ):x=x+i5:Nex

43、t i 后， X 的值为 64,则 Step 为(A ) （1 分） A、1 B、2 C、3 D、4 5、关于语句 If x=1 Then y=1 下列正确的说法是(C )（1 分） A、x=1 和 y=1 均为赋值语句 B、x=1 和 y=1 均为关系表达式 C、x=1 为关系表达式，y=1 为赋值语句 D、y=1 为关系表达式，x=1 为赋值语句 6、假设 x 的值为 5，则在执行以下语句时，其输出结果为OK的 Select Case 的语句是( C) （1 分） A、Select Case x : case 10 to 1 : Print OK : End selectB、Select

44、Case x : case Is5,Is5,1,3 to 10 : Print OK : End selectD、Select Case x : case 1,3 Is5 : Print OK : End select 7、如下程序 Do while i a C、That Thank D、1212.1 23、函数 String(n,str)的功能是(B )（1 分） A、把数值型数据转换为字符串 B、返回由 n 个字符组成的字符串 C、从字符串中取出 n 个字符 D、从字符串中第 n 个字符的位置开始取子字符串 24、下列关于属性设置的叙述正确的是( D)（1 分） A、所有的对象都有同样的属

45、性 B、控件的属性只能在设计时修改，运行时无法改变 C、控件的属性都有同样的默认值 D、引用对象属性的格式为：对象名称.属性 25、窗体能响应的事件是(C )（1 分） A、ActiveForm B、Drive C、Load D、Change 1、以下叙述中错误的是(A)（1 分） A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B、控件的 名称可以由编程人员设定 C、窗体文件包含该窗体及其控件的属性 D、Visual Basic 中控件的某些属性只能在运行时设置 2、VB 是一种面向对象的程序设计语言，构成对象的三要素是(B )（1 分） A、属性、控件和方法 B、属性、事件和方法 C、窗体、控件和过程 D、控件、过程和模块 3、用 Static S (100 to 120)As Integer 语句定义的数组的元素个数是(C )（1 分） A、100 B、20 C、21 D、120 4、如果整型变量 a、b 的值分别为 3 和 1，则下列语句中 For I=a to b : Print I : Next I 循环体 的执行次数是( D)（1 分） A、3 B、2 C、1 D、0 5、不能正确表示条件两个整型变量 E 和 F 之一为 0，但不能同时为 0的布尔表达式是(D ) （1 分）