《vb程序习题集(附答案)》由会员分享，可在线阅读，更多相关《vb程序习题集(附答案)（56页珍藏版）》请在金锄头文库上搜索。
1、1VB 简介简介1、在以下有关对象属性的叙述中，不正确的是_。 A、一个对象的属性可分为外观、行为若干类 B、不同属性可能具有不同的数据类型 C、一个对象的所有属性都可在属性窗口的列表中进行设置 D、属性窗口中的属性列表既可按字母排序也可按类别排序 2、Visual Basic 中最基本的对象是_，它是应用程序的基石，也是其他控件的容 器。 A、文本框 B、命令按钮 C、窗体 D、标签 3、有程序代码“Text1.Text=“Visual Basic“” ，其中的 Text1、Text 和“Visual Basic”分别 代表_。 A、对象、值、属性 B、对象、方法、属性 C、对象、属性、值
2、D、属性、对象、值 4、用窗体的_属性来设置窗体的标题。 A、Caption B、Style C、Text D、Name 5、窗体上有一个文本框控件 Text1，假设已存在三个整型变量 a、b、c，且变量 a 的值为 5，变量 b 的值为 7，变量 c 的值为 12。以下的_语句可以使文本框内显示的内 容为：5+7=12。 A、Text1.Text = a + b + c B、Text1.Text = “a+b=c“ C、Text1 = a A=B; B=T C、If A=B Then T=A A=B B=T D、If A=B Then T=A : A=B : B=T 8、关于语句 If x
3、= 1 Then y = 1，下列说法正确的是_。 A、x = 1 和 y = 1 均为赋值语句 B、x = 1 和 y = 1 均为关系表达式 C、x = 1 为关系表达式， y = 1 为赋值语句 D、x = 1 为赋值语句， y = 1 为关系表达式 9、下列说法中正确的是_。A、语句 Text1.Text = x 的含义是将变量 x 的值显示于文本框 Text1 中B、语句 Text1.Text = x 的含义是将文本框 Text1 中的内容赋值给变量 xC、语句 Text1.Text = x 的含义是将文本框 Text1 中的内容转换为数值型后赋值给变量 xD、以上说法都是错误的 1
4、0、下列语句正确的是_。A、If x y Then y = x 3 B、If x y Then y = x3C、If x y Then y = x 3D、If x y Then y = x * * 3 11、如果 X 的值小于或等于 Y 的平方，则打印“OK” ，表示这个功能的单行 If 语句是 _。 A、If x B、While 循环体 循环体Loop Wend C、Do D、Do Until 循环体 循环体Loop Until Loop 6、在窗体上画一个名称为 Command1 的命令按钮，并编写以下程序： Private Sub Command1_Click(） Dim n% ,b ,
5、t t = 1 : b = 1 : n = 2 Do b = b * n t = t + b n = n +1 Loop Until n9 Print t12End Sub 此程序计算并输出一个表达式的值，该表达式是_。 A、9！ B、10！ C、1！+2！+9！ D、1！+2！+10！13数组数组1、某过程的说明语句中，正确的数组说明语句是_。 Const n As Integer = 3 Dim L As Integer Dim x(L) As Integer Dim a(k) As Integer Const k As Integer = 3 Dim b(n) As Integer Di
6、m y(2000 to 2008) as Integer A、 B、 C、 D、 2、下列有关数组的说法中，错误的是_。 A、数组必须先定义后使用 B、数组形参可以是定长字符串类型 C、Erase 语句的作用是对已定义数组的值重新初始化 D、定义数组时，数组维界值可以不是整数 3、在窗体的通用声明处有语句“Dim a() As Single” ，以下在某事件过程中重定义此数组的 一组正确语句是_。 A、ReDim a(3, 3) ReDim a(4, 4) As Integer B、ReDim a(3, 3) ReDim preserve a(4, 4) C、ReDim a(3) ReDim
7、a(3, 3) as Integer D、ReDim a(3, 3) ReDim preserve a(3, 4) 4、以下_是 Visual Basic 合法的数组元素表示法。 A、x_9 B、x9 C、x9 D、x(9) 5、下面的数组声明语句中_是正确的。 A、Dim a3,4 As Integer B、Dim a(3, 4) As Integer C、Dim a(3;4) As Integer D、Dim a(3:4) As Integer 6、设有数组声明语句： Option Base 1 Dim b(-1 To 1, 2 ) As Integer 则数组 b 中共有_个元素。 A、
8、2 B、4 C、6 D、9 7、使用语句 Dim a(1 To 15) As String 声明数组 a 之后，以下说法正确的是_。 A、A 数组中的所有元素值为 014B、A 数组中的所有元素值不确定 C、A 数组中的所有元素值为空串 D、A 数组中的所有元素值为 True 8、关于 ReDim 语句，以下说法错误的是_。 A、ReDim 语句可以改变数组的维数 B、ReDim 语句既可以在过程中使用，也可以在模块的通用声明处使用 C、ReDim 语句可保留动态数组中原有的内容 D、在 ReDim 语句中，可使用变量说明动态数组的大小 9、设有数组声明语句： Option Base 1 Di
9、m a(-1 To 2，8) As Long 则，函数 LBound(a，2) 的值为_。 A、0 B、1 C、1 D、2 10、下列关于控件数组的说法错误的是_。 A、控件数组由一组具有共同名称和相同类型的控件组成 B、控件数组中的每一个控件共享同样的事件过程 C、控件数组中的每个元素的下标由控件的 Index 属性指定 D、同一控件数组中的元素只能有相同的属性值 11、设有命令按钮 Command1 单击事件过程，代码如下： Private Sub Command1_Click(） Dim a(30）As Integer For i=1 To 30 a(i）=Int(Rnd*100） Ne
10、xt For Each arrItem In a If arrItem Mod 7=0 Then Print arrItem； If arrItem90 Then Exit For Next End Sub 对于该事件过程，以下叙述中错误的是_。 A、a 数组中的数据是 30 个 100 以内的整数 B、语句 For Each arrItem In a 有语法错误 C、If arrItem Mod 7=0语句的功能是输出数组中能够被 7 整除的数 D、If arrItem90语句的作用是当数组元素的值大于 90 时退出 For 循环 12、有以下程序： Option Base 1 Dim a(
11、） As Integer Private Sub Form_Click(）Dim i As Integer, j As IntegerReDim a(3, 2）For i = 1 To 3For j = 1 To 2a(i, j） = i * 2 + jNext j15Next iReDim Preserve a(3, 4）For j = 3 To 4a(3, j） = j + 9Next jPrint a(3, 2）; a(3, 4） End Sub 程序运行后，单击窗体，输出结果是_。 A、 8 13 B、 0 13 C、 7 12 D、 0 0 13、下面的数组声明语句中_是正确的。 A
12、、Dim a3,4 as Integer B、Dim a(3, 4) As Integer C、Dim a3;4 as Integer D、Dim a(3:4) as Integer 14、设有数组声明语句： Option Base 1 Dim A(2) As Integer 则数组 A 的下界为_。A、0 B、1 C、2 D、不能确定 15、以下说法不正确的是_。A、使用 ReDim 语句可以改变动态数组的维数B、若用 Dim 语句定义了动态数组的类型，可以用 ReDim 更改为其它类型C、使用 ReDim 语句可以改变动态数组每一维的大小D、使用 ReDim 语句可以对动态数组中的所有元素
13、进行初始化 16、用 Array 函数给某 X 赋值时，X 必须是_。 A、已经声明的静态数组 B、已经声明的动态数组 C、Variant 类型的变量 D、整型变量 17、设有数组声明语句： Option Base 1 Dim A(-1 To 2) As Long 则函数 UBound(A)的值为_。A、0 B、1 C、1 D、2 18、设用复制、粘贴的方法建立了一个命令按钮数组 Command1，以下对该数组的说法中 错误的是_。A、命令按钮的 Caption 属性都是 Command1B、在代码中访问任意一个命令按钮只需使用名称 Command1C、命令按钮的大小都相同D、命令按钮共享相同
14、的事件过程 19、在窗体上画 1 个命令按钮，并编写如下事件过程： Private Sub Commandl Click() Dim a(3,3) For m=1 To 3 16For n=1 To 3 If n=m Or n=4-m Then a(m,n)=m+n Else a(m,n)=0 End If Print a(m,n); Next n Print Next m End Sub 运行程序，单击命令按钮，窗体上显示的内容为_。A、 B、 C、 D、60004000260404040260004303265054000220、下列程序段的执行结果为_。Dim A(3)For i = 1 To 3A(i) = i * iNext iPrint A(i - 1)A、16 B、9 C、4
