VB模拟试题一

VB模拟试题一VB模拟试题一一、选择题1．工程文件的扩展名是A．.vbg B．.vbp C．.vbw D．.vbl 2．一个窗体中带图片框控件的VB应用程序从文件上看，至少应该包括的文件有A．窗体文件、项目文件B．窗体文件、项目文件和代码文件C．窗体文件、项目文件和模块文件D．窗体文件、项目文件和窗体的二进制文件3．以下关于窗体描述正确的是A．只有用于启动的窗体可以有菜单B．窗体事件和其中所有控件事件的代码都放在窗体文件中C．窗体的名字和存盘的窗体文件名必须相同D．开始运行时窗体的位置只能是设计阶段时显示的位置4．VB中控件主要分为3类，下面哪一种不是VB中的控件类A．标准控件B．ActiveX C．可插入控件D．外部控件5．在VB的基本数据类型中，通用类型(Variant)可以表示任何类型的变量，如果有定义Dim a，则以下变量赋值中正确的是A．a=”OK” B．A$=OK C．a=04/01/2001 D．a$=”OK” 6．在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码：Private Sub Command1_Click( ) A= C=Len(Str$(A)+Space(10)) =C End Sub 程序运行后，单击命令按钮，在文本框中显示A．3 B．8 C．14 D．10 7．在MsgBox函数中哪一个参数是必须的A．prompt B．buttons C．title D．context 8．以下语句的输出结果是Print Format$(,”00,”) A．B．01, C．01, D．1, 9．有如下语句：Type Student Name As String Age As Integer Sex As String End Type Dim Stu As Student With Stu .Name = \张红\.Age = 22 .Sex = \女\End With 执行Print 后的结果是A．张红B．22 C．“女” D．Age 10．以下控件中可以作为容器控件的是A．Image图像框控件B．PictureBox图片框控件C．TextBox文本框控件D．ListBox列表框控件11．VB提供的选择框可具有的功能是A．多重选择B．单一选择C．多项选择D．选择一次12．以下关于作用范围的描述正确的是A．所有变量都可以放到窗体的通用部分定义B．所有变量都可以放到标准模块中定义C．Public/Global类的变量只能放在标准模块中定义D．只有Global类的变量必须放在标准模块中定义13．建立一个图书资料管理输入界面，要求选择图书的借阅情况、语种及分类。

应如何在窗体中利用单选钮和选择框实现A．用一组16个选择框来实现B．将10种分类用一组10个选择框、借阅情况和语种用6个单选钮实现C．将10种分类用一组10个单选钮、借阅情况和语种用6个选择框实现D．将10种分类用一组10个选择框、借阅情况用2个单选钮、语种用4个单选钮实现14．有关列表框的属性和方法的正确描述是A．列表框的内容属性Item Data来确定B．当多选属性为True时，可通过Text属性获得所有内容C．选中的内容应通过List属性来访问D．选中的内容应通过Text 属性来访问，并且每次只能获得一条内容15．若要求在文本框中输入密码时文本框中只显示*号，则应在此文本框的属性窗口中设置A．Text属性值为* B．Caption属性值为* C．Password属性值为空D．PasswordChar属性值为* 16．以下关于控件的叙述中，错误的是A．VB允许用户乱设计并使用控件B．主窗体中工具条中的工具不是工具箱中包含的常用控件C．若使用系统提供的OCX控件，应先将有关的控件添加到工具箱中D．使用系统提供的OCX 控件进行程序调，其编程的方法与工具箱中常用控件的编程有所不同17．在菜单设计时，在某菜单项中一个字母前加以“&”符号的含义是A．设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Ctrl+带下划线的字母选择该菜单项B．设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Alt+带下划线的字母选择该菜单项C．设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Shift+带下划线的字母选择该菜单项D．在此菜单项前加上选择标记18．VB为命令按钮提供的Cancel属性A．用来指定命令按钮是否为窗体的“取消”按钮B．用来指定命令按钮的功能是停止一个程序的运行C．用来指定命令按钮的功能是关闭一个运行程序D．用来指定命令按钮的功能是中断一个程序的运行19．有关多文档界面的不正确描述是A．多文档界面是指在一个父窗口下面可以同时打开多个子窗口B．子窗口归属于父窗口C．如果父窗口关闭，则所有子窗口全部关闭D．如果所有子窗口全部关闭，则父窗口关闭20．文件的基本操作指的是文件的删除、拷贝、移动、改名等，对文件进行改名的操作是A．FileCopy B．Name C．ReName D．Kill 21．在VB中，按下鼠标键触发事件，正确的程序段是A．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ?? End Sub B．Private Sub Form_MouseUP(Button As Integer, Shift As Integer, X As Single, Y As Single) ?? End Sub C．Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ?? End Sub D．Private Sub Form_Load() ?? End Sub 22．以下能够正确计算1+2+3+?+10的程序是A．Private Sub Command1_Click() B．Private Sub Command1_Click() Sum = 0Sum = 0,I=1 For I = 1 To 10 Do While I C．Private Sub Command1_Click()D．Private Sub Command1_Click() Sum = 0;I=1 Sum = 0;I=1 Do DoSum = Sum +1Sum=Sum+I I=I+1I=I+1 Loop While I23．在窗体中添加两个文本框和一个命令按钮，然后编写如下程序：Private Sub Command1_Click() X = 0 Do While X = Str(n) = Str(X) End Sub 程序运行后，单击命令按钮，在两个文本框Text1和Text2中分别显示的值是A．1和0 B．2和12 C．2和72 D．3和12 24．在窗体中添加两个文本框和一个命令按钮，然后编写如下两个事件过程：Private Sub Command1_Click() a = UCase$() + Left$(，2) Print a End Sub Private Sub Form_Load() = \ = \End Sub 程序运行后，单击命令按钮，输出结果为A．ab12 B．AB12 C．AB56 D．ab56 25．在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：Dim a As Integer Sub test() a = a + 1: b = b + 1: c = c + 1 Print “Sub:”;a;b;c End Sub Private SubCommand1_Click() a = 2: b = 3: c = 4 Call test Call test End Sub 程序运行后，单击命令按钮，窗体中将显示A．Sub：3，4，5 B．Sub：2，3，4 Sub：4，5，6 Sub：2，3，4 C．Sub：3，1，1 D．Sub：1，1，1 Sub：4，1，1 Sub：1，1，1 26．在窗体中添加一个命令按钮Command1和一个文本框Text1，并有以下程序：Private Sub Command1_Click() Static a As Variant a = Array(20, 13, 45, -10, 50, 25) ?? End Sub 此程序的功能是求数组a的最小元素值，并把最小值放在文本框中。

为实现程序的功能，省略号处的程序段应该是A．Min = a(1) B．Min = a(0) For i = 2 To 6 For i = 1 To 5 If Min = Min = Min A．Min = a(0) B．Min = a(0) For i = 1 To 5 For i = 1 To 5 If Min Next I = Min = Min 27．设有如下程序：Private Static Function fac(n As Integer) As Integer Dim f As Integer f = f + n fac = f End Function Private Sub Form_Click()Dim i As Integer For i = 2 To 3 Print \Next i End Sub 程序运行后，单击窗体，在窗体上显示的是A．#2=2 B．#2=2 C．#；2=2 D．#；2=2 #3=3 #3=5 #；3=3 #；3=5 28．在窗体中添加一个命令按钮Command1，并有以下程序：Function retnum() nl = Chr(13) + Chr(10) msg$ = \．运行VB应用程序\．计算器\msg$= msg$ + nl + \请输入数字选择\retnum = InputBox(msg$, Title, Default) End Function Private Sub Command1_Click() r = retnum If r = 1 Then x = Shell(\ElseIf r = 2 Then z = Shell(\Else MsgBox \请输入1-2的数\End If End Sub 程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示A．请输入1-2的数B．Windows的计算器C．调用C:\\vbp\\程序并运行D．出错29．设在工程中有一个标准模块，其中定义了如下记录类型：Type Books name As String * 10 telnum As String * 20 End Type 在窗体中添加一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件中写入一条记录。