第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（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 Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。
安全土木化工化学vb练习题21、单项选择题(本题共计50分)1、执行下面的程序，单击窗体后在窗体上显示的结果是________。
Private Sub Form_Click()Dim Strl As String, Str2 As String,I As IntegerStr1=”ab”For I=Len(Str1)To 1 Step-1Str1=Str1&Chr(Asc(Mid(Str1,I,1))+I)Next IPrint Str1End Sub ( )A、abceB、abcdC、abdbD、abfd2、在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click( )Dim a As Integer,b As IntegerDo While b <100b=b+5a=a+bIf b>20 Then Exit DoLoopPrint a,bEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_________。
( )A、50 20B、75 25C、50 25D、75 204、下列程序：Private Sub Form_Click( )For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub运行后输出的结果是__________。
( )A、1B、15C、90D、1206、下列程序Private Sub Command1_Click( )a=InputBox("请输入")b=InputBox("请输入")Print a+bEnd Sub运行时输入3和4输出的结果是________ 。
( )A、7B、34C、3+4D、出错7、在窗体画一个命令按钮，然后编写如下事件过程Private Sub Command1_Click( )x = 10Print IIf(x>5,1,5)End Sub运行后的输出结果________。
31、以下所列的过程首部的定义中，正确的定义是(C)。
（1分）A、Void play(Var a:Integer,Var b:Integer)B、Sub play(Int a,b)C、Void play(Int a,Int b)D、Sub play(a As Integer,b As Integer)31、下面有关过程定义的语句中，正确的语句是(C)。
（1分）A、Function f1(f1)B、Sub f1(ByVal a())C、Function f1(ByVal x)D、Sub f1(n)As Integer20、阅读如下程序，a=1:b=2:plus S,a,b:Print S:不能使其输出结果为3的plus过程为(B)。
（1分）A、Sub plus(sum,a,b):sum=a+b:End SubB、Sub plus(ByVal sum,a,b):sum=a+ b:End SubC、Sub plus(sum,ByVal a,ByVal b):sum=a+b:End SubD、Sub plus(sum,ByRef a, ByRef b):sum=a+b:End Sub34、下列Pro函数过程的定义语句，错误的定义语句是(B)。
（1分）A、Static Function Pro(a)B、Private Public Pro(a)As IntegerC、Private Function Pro(a As String)D、Function Pro(a As Integer)As Integer20、有如下两个过程S1和S2：Sub S1(ByVal x,ByVal y)：t=x:x=y:y=t：End Sub：Sub S2(x,y)：t=x:x=y:y=t：End Sub,下列关于S1和S2的说法，正确的是(A)。
（1分）A、调用过程S1可以实现交换两个变量值，而S2不能B、调用过程S2可以实现交换两个变量值，而S1不能C、调用过程S1和S2都可以实现交换两个变量值D、调用过程S1和S2都不能实现交换两个变量值45、下列关于文件叙述错误的是(B)。
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
