VB经典试题2

Visual Basic模拟试题(2)一、选择题1．工程文件的扩展名是（）A．.vbg B．.vbp C．.vbw D．.vbl2．一个窗体中带图片框控件（已装入图像）的VB应用程序从文件上看，至少应该包括的文件有（）A．窗体文件（.frm）、项目文件（.vbp/vbw）B．窗体文件（.frm）、项目文件（.vbp/vbw）和代码文件（.bas）C．窗体文件（.frm）、项目文件（.vbp/vbw）和模块文件（.bas）D．窗体文件（.frm）、项目文件（.vbp/vbw）和窗体的二进制文件（.frx）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=1.2C=Len(Str$(A)+Space(10)Text1.text=CEnd Sub程序运行后，单击命令按钮，在文本框中显示（）A．3 B．8 C．14 D．107．在MsgBox函数中哪一个参数是必须的（）A．prompt B．buttons C．title D．context8．以下语句的输出结果是（）Print Format$(1234.5,”00,000.00”)A．1234.5 B．01,234.50 C．01,234.5 D．1,234.509．有如下语句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu.Name = "张红".Age = 22.Sex = "女"End With执行Print Stu.Age后的结果是（）A．张红B．22 C．“女”D．Age10．以下控件中可以作为容器控件的是（）A．Image图像框控件B．PictureBox图片框控件C．TextBox文本框控件D．ListBox列表框控件11．VB提供的选择框（CheckBox）可具有的功能是（）A．多重选择B．单一选择C．多项选择D．选择一次12．以下关于作用范围的描述正确的是（）A．所有变量（Public/Global/Static/Private）都可以放到窗体的通用部分定义B．所有变量（Public/Global/Static/Private）都可以放到标准模块中定义C．Public/Global类的变量只能放在标准模块中定义D．只有Global类的变量必须放在标准模块中定义13．建立一个图书资料管理输入界面，要求选择图书的借阅情况、语种（中文/英文/日文/其他）及分类（10类，存在重复分类，台一本图书属于1类，也同时属于2类）。

应如何在窗体中利用单选钮和选择框实现（）A．用一组16个选择框来实现B．将10种分类用一组10个选择框、借阅情况和语种用6个单选钮实现C．将10种分类用一组10个单选钮、借阅情况和语种用6个选择框实现D．将10种分类用一组10个选择框、借阅情况用2个单选钮、语种用4个单选钮实现14．有关列表框的属性和方法的正确描述是（）A．列表框的内容由属性Item Data来确定B．当多选属性（MultiSelect）为True时，可通过Text属性获得所有内容C．选中的内容应通过List属性来访问D．选中的内容应通过Text属性来访问，并且每次只能获得一条内容15．若要求在文本框中输入密码时文本框中只显示*号，则应在此文本框的属性窗口中设置（）A．Text属性值为* B．Caption属性值为*C．Password属性值为空D．PasswordChar属性值为*16．以下关于控件的叙述中，错误的是（）A．VB允许用户乱设计并使用控件B．主窗体中工具条中的工具不是工具箱中包含的常用控件C．若使用系统提供的OCX控件，应先将有关的控件添加到工具箱中D．使用系统提供的OCX控件进行程序调，其编程的方法与工具箱中常用控件的编程有所不同17．在菜单设计时，在某菜单项（Caption）中一个字母前加以“&”符号的含义是（）A．设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Ctrl+带下划线的字母选择该菜单项B．设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Alt+带下划线的字母选择该菜单项C．设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Shift+带下划线的字母选择该菜单项D．在此菜单项前加上选择标记18．VB为命令按钮提供的Cancel属性（）A．用来指定命令按钮是否为窗体的“取消”按钮B．用来指定命令按钮的功能是停止一个程序的运行C．用来指定命令按钮的功能是关闭一个运行程序D．用来指定命令按钮的功能是中断一个程序的运行19．有关多文档界面（Multiple document．nbspInterface）的不正确描述是（）A．多文档界面（MDI）是指在一个父窗口下面可以同时打开多个子窗口B．子窗口归属于父窗口C．如果父窗口关闭，则所有子窗口全部关闭D．如果所有子窗口全部关闭，则父窗口关闭20．文件的基本操作指的是文件的删除、拷贝、移动、改名等，对文件进行改名的操作是（）A．FileCopy B．Name C．ReName D．Kill21．在VB中，按下鼠标键触发事件，正确的程序段是（）A．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ……End SubB．Private Sub Form_MouseUP(Button As Integer, Shift As Integer, X As Single, Y As Single) ……End SubC．Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ……End SubD．Private Sub Form_Load()……End Sub22．以下能够正确计算1+2+3+…+10的程序是（）A．Private Sub Command1_Click() B．Private Sub Command1_Click()Sum = 0 Sum = 0,I=1For I = 1 To 10 Do While I<=10Sum = Sum + 1 Sum=Sum+INext I I=I+1Print Sum loop Print SumEnd Sub End SubC．Private Sub Command1_Click() D．Private Sub Command1_Click()Sum = 0;I=1 Sum = 0;I=1Do DoSum = Sum + 1 Sum=Sum+II=I+1 I=I+1Loop While I<10 Loop Until I<10Print Sum Print SumEnd Sub End Sub23．在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下程序：Private Sub Command1_Click()X = 0Do While X < 10X = (X + 1) * (X + 2)n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(X)End Sub程序运行后，单击命令按钮，在两个文本框Text1和Text2中分别显示的值是（）A．1和0 B．2和12 C．2和72 D．3和1224．在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click()a = UCase$(Text1.Text) + Left$(Text2.Text，2)Print aEnd SubPrivate Sub Form_Load()Text1.Text = "aB"Text2.Text = "123456"End Sub程序运行后，单击命令按钮，输出结果为（）A．ab12 B．AB12 C．AB56 D．ab5625．在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：Dim a As IntegerSub test()a = a + 1:b = b + 1:c = c + 1Print “Sub:”;a;b;cEnd SubPrivate Sub Command1_Click()a = 2:b = 3:c = 4Call testCall testEnd Sub程序运行后，单击命令按钮，窗体中将显示（）A．Sub：3，4，5 B．Sub：2，3，4Sub：4，5，6 Sub：2，3，4C．Sub：3，1，1 D．Sub：1，1，1Sub：4，1，1 Sub：1，1，126．在窗体中添加一个命令按钮Command1和一个文本框Text1，并有以下程序：Private Sub Command1_Click()Static a As Varianta = 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 5If Min < a(i) Then If Min < a(i) ThenMin = a(i) Min = a(i)End If End IfNext I Next IText1.Text = Min Text1.Text = MinA．Min = a(0) B．Min = a(0)For i = 1 To 5 For i = 1 To 5If Min < a(i) If Min < a(i) ThenMin = a(i) Min = a(i)End If Next INext I Text1.Text = MinText1.Text = Min27．设有如下程序：Private Static Function fac(n As Integer) As IntegerDim f As Integerf = f + nfac = fEnd FunctionPrivate Sub Form_Click()Dim i As IntegerFor i = 2 To 3Print "#"; i&"=" & fac(i)Next iEnd Sub程序运行后，单击窗体，在窗体上显示的是（）A．#2=2 B．#2=2 C．#；2=2 D．#；2=2#3=3 #3=5 #；3=3 #；3=528．在窗体中添加一个命令按钮Command1，并有以下程序：Function retnum()nl = Chr(13) + Chr(10)msg$ = "1．运行VB应用程序" + nl + "3．计算器"msg$= msg$ + nl + "请输入数字选择"retnum = InputBox(msg$, Title, Default)End FunctionPrivate Sub Command1_Click()r = retnumIf r = 1 Thenx = Shell("c:\vbp\vbexam.exe", 1)ElseIf r = 2 Thenz = Shell("calc.exe", 1)ElseMsgBox "请输入1-2的数"End IfEnd Sub程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示（）A．请输入1-2的数B．Windows的计算器C．调用C:\vbp\vbexam.exe程序并运行D．出错29．设在工程中有一个标准模块，其中定义了如下记录类型：Type Booksname As String * 10telnum As String * 20End Type在窗体中添加一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。