VB练习题报告.doc

202 单选。 表达式15Mod4+13\5*2的值是（C） A．0 B.2 C.4 D.7 2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1-Click() For I = 1 To 4 X = 4 For j = 1 To 3 X = 3 For k = 1 To 2 X = x + 6 Next k Next j Next i Print x End Sub 程序运行后，单击令按钮，输出结果是（15） 3.下列（A）属性可返回目录列表框的路径。 A.path B. drive C.pathroad D.initdir 4.下面关于随机文件的描述不正确的是（B） A.每条记录的长度必须相同 B．一个文件中记录号不必唯一 C．可通过编程对文件中的某条记录方便的修改 D．文件的组织结构比顺序文件复杂 5.要使标签能够显示所需要的文本则在程序中应设置（A）属性的值。 A.Caption B.Text C.Name D.AutoSize 6．下面程序输出的结果是（A） Private Sub Command1-Click() Dim a(1 To 3,4)As Tnteger Print LBound(a,1),UBound(a,2),UBound(a,2) End Sub A.1 3 0 4 B.0 3 1 4 C.1 3 1 4 D.0 3 0 4 7.VisualBasic 的编程机制是（D） A．可视化 B.面向对象 C.面向图形 D.事件驱动 8.用户自定义数据类型时，其成员不能是（B） A．定长字符串和数组 B.数组 C. 货币型和日期型 D.变长字符串和货币型 9. 下列窗体的属性中，（A）属性决定窗体在启动时的显示状态 A.WindowsState B.ShowInTaskbar C.StartUpPosition D.Moveable 10.如下程序： Private Sub Form-Click() A=20:b=20:c=120:d=120 Form.Line(a,b)-（c,d）,,BF End Sub 单击窗体后，窗体上显示的是（C） 一条直线 B。一个矩形空框 C。一个填充了颜色的矩形 D。无任何图形 11.计算如下程序的运行结果（10 10） Private Sub Form-Click() a=10 Print a Call pro(a) Print a End Sub Sub pro(ByVal a) a= 20 End Sub 12．使用三个ScrollBar控件来分别表示RGB，其Value属性值不可能是（D） A．128 B。245 C。254 D。257 13．语句Dim arr(-3 To 5,2 To 6)As Integer定义(数组元素有（A） A．45个 B.40个 C。11个 D。54个 14.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1-Click() A = Val(InputBox(“a=”)) Print fun(A) End Sub Private Function fun1(b) If b0 Then fun1 = 10 ElseIfb=0 Then Fun1 = 9 Else Fun1 = 8 End If End Function 程序运行后，单击命令按钮，从键盘数据3，则窗体上显示的内容是（D） A．3 B。8 C。9 D。10 15．在表示长整数时，可作为长整数尾部符号的是（C） A.# B.! C. D.$ 16.Integer类型的数据由（B）字节组成 。 A.1 B.2 C.3 D.4 17.在用2通用对话框，控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即.txt文件），则正确的描述格式是（A） A.text(.text)|(*.txt) B.文本文件（.txt）|(*.txt) C.text(.txt)FFFFF||(*.bct) D.text(txt)(*.text) 18.设在菜单编辑器中定义了一个菜单项，名为menu1.为了在运行时隐藏该菜单项，应使用的语句是（D） A.memu1.Enable=True B.memu1.Enable=False C.memu1.Visible =True D.memu1.Visible=False 19.用于获得字符串S从第四个字符开始的4个字符的函数是（A） A.Mid(S,4,4) B.Le