VB期末练习题含答案.docVIP

练习题一 一、选择题 1、假设变量bool_flag是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（ ） A）bool_flag=False B） bool_flag= .False. C）bool_flag=#False# D） bool_flag=False 2、限制文本框输入的字符不超过15个，应设置文本框的（　　　）属性。 A） maxlength B） visible C） caption D） name 3、表达式Len(123程序设计ABC)的值是（　　　）。 A） 10 B） 14 C） 20 D） 17 4、设有数组声明语句： Option Base 0 Dim B(-1 To 1,2 To 4,2) As Integer 则数组B中共有（　　　）个元素。 A）27 B）36 C）12 D）24 5、清除列表框中的所有内容用（　　　）方法。 A）Clear B）RemoveItem C） Print D）AddItem 6、表达式 5 Mod 3+7\2的值是（　　　）。 A）2 B）4 C）5 D）6 7、设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（ ） A）“中华民国” B）“中国人民” C）“中共人民” D）“人民共和” 8、下列表达式的值为2123的是（ ） A）Val(123asd) 2000 B） Val(123asd) + 2000 C）Str(123) 2000 D）Str(123)+2000 9、如下数组声明语句，（　　　）是正确的。 A）Dim a[3,4] As Integer B）Dim a(3,4) As Integer C）Dim a(n,n) As Integer D）Dim a(3 4) As Integer 10、下列叙述不正确的是（ ）。 A）InputBox函数返回值为字符型 B）MsgBox函数返回值为所单击按钮的键值 C）MsgBox语句返回值为所单击按钮的键值 D）Shell函数返回值为所执行文件的工作代码 11、下列各程序段中，语法正确的是（ ） A） If a 10 Then a=a+10 B） If a 10 Then a= a+1 Else a= a+ 5 End If C） If a =10 Then a=a + 1 Else End If D）If a =10 Then a=a + 1 Else If a =20 Then a=a + 10 End If 12、假设X的值为5，则在执行以下语句时，其输出结果为“OK”的Select Case语句是（ ） A） B． D） 13、有如下程序 Private Sub From_Activate() Dim a a=Array(1 ,2 ,3, 4, 5) For i=LBound(a) To UBound(a) a(i)=i*a(i) Next i Print i,LBound(a),UBound(a),a(i) End Sub A）4 0 4 25 B）5 0 4 25 C）不确定 D）出现下标越界的错误 14、下面程序运行后，窗体Form1中输出的结果是Private?Sub?Form_Load( )Form1.AutoRedraw=Truex= -17.8Print?Sgn(x)*Int(Abs(x)) End?Sub A）-17 B）17 C）-18 D）18 15、在窗体上画一个命令按钮，然后编写如下事件过程：Private?Sub?Command1_Click( )A=″12