南京工业大学VB期末考试复习2012VB练习二.pdf

2012VB 练习二练习二 满分：100 分 姓名：_ 1、单项选择题(本题共计 40 分) 1、_是接收用户鼠标或键盘输入的能力。当对象具有_时，可接受用户的 输入。() A、事件 B、属性 C、焦点 D、对象 2、在过程中可以用_语句定义变量。() A、Dim、Private B、Dim、Static C、Dim、Public D、Dim、Static、Private 3、在以下有关对象属性的叙述中，不正确的是_。() A、一个对象的属性可分为外观、行为等若干类。 B、不同属性可能具有不同的数据类型。 C、一个对象的所有属性都可在属性窗口的列表中进行设置。 D、属性窗口中的属性列表既可按字母序也可按类别排列。 4、函数 Cint(3.5)，Int(3.5)，Fix(3.5)的值分别是_。() A、-3，4，3 B、-4，4，3 C、-3，4，4 D、-4，3，3 5、VB 表达式 Sqr(a+b)3*2 中优先进行运算的是_。() A、Sqr 函数 B、+ C、 D、* 6、为了给 x,y,z 三个变量赋初值 1，下面正确的赋值语句是_。() A、x=1：y=1：z=l B、x=1，y=1，z=1 C、x=y=z=1 D、xyz=1 7. 下列循环能正常结束循环的是_。 A. i=5 Do i=i+1 Loop Until i0 D. i=6 Do i=i-2 Loop Until i=1 8、语句 If x=1 Then y=1，下列说法正确的是_。() A、x=1 和 y=1 均为赋值语句 B、x=1 和 y=l 均为关系表达式 C、x=1 为关系表达式，y=1 为赋值语句 D、x=1 为赋值语句，y=l 为关系表达式 9、如下数组声明语句，则数组 a 包含元素的个数有_。 Dim a(3 , -2 to 2 , 5)() A、120 B、75 C、60 D、13 10. 在窗体的通用声明处有语句 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 A(3,3) As Integer D. ReDim A (3,3) ReDim Preserve A(3,4) 11、下列有关数组的说法中，不正确的是_。() A、在窗体模块中不可以定义全局数据组 B、可以使用 Erase 语句释放所有数组所占据的存储储空间 C、语句 Dim X(3.6+2)As Integer 定义了一个维上界是 6 的一维的整型数组 D、形参数组的类型可以是定长符串类型 12.有关过程的说法中错误的是有关过程的说法中错误的是_。 A.在在 Sub 或或 Function 过程中不能再定义其他过程中不能再定义其他 Sub 或或 Function 过程过程 B.在调用过程时，与使用在调用过程时，与使用 ByRef 说明的形参对应的实参只能按地址传递方式结合说明的形参对应的实参只能按地址传递方式结合 C.递归过程既可以是递归递归过程既可以是递归 Function 过程，也可以是递归过程，也可以是递归 Sub 过程过程 D.在调用过程时，形参为数组的参数对应的实参只能是数组在调用过程时，形参为数组的参数对应的实参只能是数组 13、在 VB 中，下列关于控件的属性或方法中，搭配错误的有_个。 Timer1.Interval List1.Cls Text1.Print List1.RemoveItem Vscroll1.Value Picture1.Print() A、0 B、1 C、2 D、3 14、 使用 Public Const 语句声明一个全局的符号常量时， 该语句应放在_。() A、过程中 B、窗体模块的通用声明段 C、标准模块的通用声明段 D、窗体模块或标准模块的通用声明段 15、对正实数 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) 16、下列说法不正确的是_。() A、VB 允许将一个数字字符赋值给一个数值型的变量 B、VB 允许使用未经说明的变量，其类型都是 Variant 类型 C、Cls 方法只清除运行时在窗体或图形框中显示的文本 D、事件过程既可建在窗体模块中，也可以建在标准模块中 17、执行语句Print format(5459.478,#,#0.00)，正确的输出结果是_。() A、5459.48 B、5,459.48 C、5,459.478 D、5,459.47 18、运行时，当用户向文本输入新的内容，或在程序代码中对文本框的 Text 属性进行赋值从 而改变了文本框的 Text 属性时，将触发文本框的_事件。() A、Click B、Dblclick C、Gotfocus D、Change 19、语句 x=x+1 的正确含义是_.() A、变量 X 的值与 X+1 的值相等 B、将变量 X 的值存在 X+1 中去 C、将变量 X 的值加 1 后赋给变量 X D、变量 X 的值为 1 20、下面语句错误的是_。() A、If a=1And b=2 Then c=3 End If B、If a=1 Then c=2 Else If a=2 Then c=3 End If C、If a=1 Then c=2 ElseIf a=2 Then c=3 End If D、If a=1 Then c=2 else c=3 21.若需要在同一窗口内安排两组相互独立的单选按钮（若需要在同一窗口内安排两组相互独立的单选按钮（OptionButton ），可使），可使 用用控件将它们分隔开。控件将它们分隔开。 TexBox Picture Image Frame A. B. C. D. 22、设有如下说明： Public Sub Fl(n%) n =3*n+4 End Sub Private Sub Commandl_Click() Dim n%, m% n=3 m =4 调用 F1 语句 End Sub 则在 Commandl_C1ick 事件中有效的地址传递的调用语句是 。() A、F1 n+m B、F1 m C、F1 5 D、F1 m+5 23、与数学表达式 (ab/3cd) 对应，VB 的不正确表达式是_。() A、a*b/(3*c*d) B、a/3*b/c/d C、a*b/3/c/d D、a*b/3*c*d 24、数学关系 3=x10 表示成正确的 VB 表达式为_。() A、3=x0 B、3=xAND x=3 OR x10 D、3=xAND = 20 Then Exit For Next i Print i, p End Sub 8、下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示1！+2！+3！+.+10！ 的和。完善下列程序。 Private Sub Form_Click( ) Dim s As Long,I As Integer s=0 For i=1 To 10 s=s+ _ Next i Print s End Sub Private Function fact(ByVal nAs Integer)As Long Dim i As Integer,fAs Long f=1 For i=2 To n f=f*i Next i _ End Function 9、用二分法求函数 f(x)=x3-6x-1=0 在 x=25 范围内的 x=2 附近的一个实根，其计算误差 为|xl-x2|10(-6)。完善下列程序。 Private Sub Command1_Click ( ) Dim V0As Singke, vAs Single, s As String Dim xAs Single, t As Single, x1As Single, x2 As Single x1=0: x2=5 Do While _ x = (x1+x2)/2 If Sgn(f1(x) = 1 Then x2 = x Else x1 = x End If Loop Print x = ; x End Sub Private Function f1(xAs Single) As Single f1 = x * x * x -6 * x-1 End Function 10、执行下面程序后，窗体上输出的第一行是 _ ，第二行是 _ 。 Option Explicit Private Sub Form_Click( ) Dim a As Integer a=2 Call Sub1(a) End Sub Private Sub Sub1(xAs Integer) x=x*2+1 If x10 Then Ca