vb试题及答案.doc

一、选择题（1-30 题每小题1分，共30分，31-45题每小题2分,共30分，总计60分）1、( ) 要使窗体Form1的标题栏中显示“正在复制文件”，正确的语句是：aAForm1.Caption=“正在复制文件”BForm1.Title=“正在复制文件”CForm1.Text=“正在复制文件”DForm1.名称=“正在复制文件”2、( ) 如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于：aA1000B100C10D13、下列关于控件的基本操作中，错误的是 A)当控件处于活动状态时，可以对控件进行缩放 B) 在设计阶段不能移动控件 C) Visual Basic 6.0 允许对画好的控件进行复制和删除 D) 可以通过属性窗口改变控件的位置和大小4、用Visual Basic 开发应用程序的一般步骤有：设置窗体和控件的属性、编写代码、建立用户界面，其中正确的顺序是：A) B) C) D) 5、为使文本框只能显示不能输入，即只读，应设置文本框的属性是：cAMaxLength设置为0BCancel设置为TrueCLocked设置为TrueDRead设置为True6、InputBox函数返回值的类型为 。BA数值 B字符串C变体D数值或字符串（视输入的数据而定）7、为了把焦点移到某个指定的控件，所使用的方法是： AASetFocus BVisible CReFresh DGetFocus8、函数String(3,”str”)的功能是：bA把数值型数据转换成字符串B返回有3个字符串组成的字符串 C从字符串中第3个字符D从字符串中第3个字符的位置开始取字符串9、双击窗体中的对象后，Visual Basic将显示的窗口是： cA项目（工程）窗口 B工具箱 C代码窗口 D属性窗口10、用于获得字符串s最左边4个字符的函数是： aALeft(s,4) BLeft(1,4) CLeftStr(s) DLeftStr(3,4)11、以下程序段的输出结果是： da=Sqr(3)b=Sqr(2)c=abPrint cA-1 B0 CFalse DTrue12、用下面语句定义的数组的元素个数是：c Dim A (-4 to 6) As IntegerA6 B7 C11 D913、若x=-5，执行If x Then x=0 Else x=1的结果为：dA实时错误 B编译错误 Cx=1 Dx=014、 列程序段的循环结构执行后，i的输出值是：cFor i=1 To 10 Step 2y=y+iNext iPrint iA25 B10 C11 D因为y的初值不知道，所以不确定15、可以用作其他控件容器的控件有： cA窗体、列表框、图像框B窗体、文本框、框架C窗体、框架、图片框D窗体、标签、图片框16、以下不属于Visual Basic 支持的循环结构的是： dAFor Next BFor Each NextCDo Loop DWhile End17、下列可以打开立即窗口的操作是：DACtrl+D BCtrl+E CCtrl+F DCtrl+G18、下列可作为Visual Basic变量名的是 A）A_3 B）4A C）?xy D）Integer19、设a=8，b=5，执行语句Print ab后，窗体上显示的是A）True B）False C）1 D）出错信息20、 以下能够触发文本框Change事件的操作是A) 文本框失去焦点 B) 文本框获得焦点C) 设置文本框的焦点 D) 改变文本框的内容21、 列表框图标的英文名称是A)ListBox B)ComboBoxC)Frame D)CommonDialog22、下列类型说明符中表示整型的是A) % B) ! C) $ D) &23、执行下列语句a$ = abcdefg: Print Len(a$)后，在窗体上输出的结果是A) 1 B) 2 C) 7 D) 1424、文本框不具有的属性是A) Caption B)text C) left D)font25、 设a=6，则执行 x=IIf(a5,1,2)后，x 的值为： A)1 B)2 C)5 D)026、 语句Print 5/4*65 Mod 2的输出结果是 A) 0B) 1C) 2 D) 327、滚动条控件的largeChange属性所设置的是 A）滚动条所能表示的最小值B）滚动条所能表示的最大值C）单击滚动条中滚动框前面或后面的部位时，Value属性增加或减小的增量值 D）单击滚动条两端的箭头时，Value属性增加或减小的增量值28、按钮控件数组元素是：cA共享一个事件过程的B只共享一个Click事件过程的C共享该控件的所有事件过程D各自有自己的部分事件过程29、 有如下的记录类型 Type studentid As Stringname As Stringage As IntegerEnd Type则正确引用该记录类型变量的代码是：BA=”Sias”BDim s As students.mane=”Sias”CDim s As type =”Sias”DDim s As type =”Sias”30、 有如下语句：d str1=InputBox(“输入 ”,” ”,”联系 ”)从键盘上输入字符串“学生”后，str1的值为：A“输入” B“ ” C“联系” D“学生”31、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：C Private Sub Command1_Click() s = 2 For n = 1 To 6 If n Mod 3 0 Then s = s + 1 Next n Print sEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是 A）2B）5 C）7 D）6 32、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： B Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num 6 num = num + 2 Loop Print numEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是 A）6B）7C）8D）933、在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0Private Sub Command1_Click()Dim km As Variantkm = Array(音乐, 体育, 化学, 物理)Print km(2)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是 A）音乐B）体育C）化学D）物理34、以下程序代码正确的是：A) If a=1 Then b=0 Else c=0 End IfB) If a=1 Then :b=0:ElseIf c=0 End IfC) If a=1 Thenb=0Else c=0End IfD) If a=1 Then b=0ElseIf c=0 d=0End If35、在窗体中添加一个命令按钮Command1，并编写如下程序： Private Sub Command1_Click( ) dim x as integerx=InputBox(x)If x2=9 Then y=x If x29 Then y=x2+1 Print y End Sub 程序运行后，在输入对话框中输入3，单击命令按钮，程序的运行结果是 A3 B0.33 C17 D0.2536、以下关于过程及过程参数的描述中，错误的是 A）过程的参数可以是控件名称 B）用数组作为过程的参数时，使用的是“传地址”方式 C）只有函数过程能够将过程中处理的信息传回到调用的程序中 D）窗体可以作为过程的参数37、在窗体上添加一个命令按钮，名为command1，事件过程为：Private Sub command1_Click() x=0 Do Until c=-1 a= val(InputBox(“输入a的值”) b= val(InputBox(“输入b的值”) c= val(InputBox(“输入c的值”) Loop Print aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5，4，3，2，1，-1后，输出的结果是 aA2 B3 C4 D538、窗体有一个名为text1的文本框，执行如下语句后，文本框中的内容为： CFor j=1 To 3x=3For k=1 To 2x=x+3Next kNext jtext1.Text=Str(x)A3 B6 C9 D1239、 以下定义数组或给数组元素赋值的语句中，正确的是 A) Dim a As Variant a=Array(1,2,3,4,5) B) Dim a(10) As Integer a=Array(1,2,3,4,5) C) Dim a%(10) a(1)=ABCDE D) Dim a(3),b(3) As Integer a(0)=0 a(1)=1 a(2)=2 b=a40、在窗体上画一个命令按钮，名称为Command1，单击命令按钮时，执行如下事件过程： Private Sub Command1_Click() a$ = Microsoft Visual Basicb$ = Mid(a$, 1, 9)c$ = Right(a$, 5)MsgBox a$, , b$, c$, 1End Sub则在弹出的信息框的标题栏中显示的信息是 A）Visual B）Microsoft C）Basic D）141、 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：D Option Base 1Private Sub Command1_Click()Dim s As Integer Dim aa(3, 2) As Integer For i = 1 To 3 For j = 1 To 2 aa(i, j) = i + j Next j Next i s = aa(1, 2) + aa(2, 1) Print sEnd Sub 程序运行后，单击命令按钮，窗体上显示的值是 A) 4 B) 5 C)6 D) 742、 以下叙述中错误的是d A） 双击鼠标可以触发DblClick事件 B） 控件的名称可以由编程人员设定C） 文本框可以获得焦点D） 窗体或控件的事件过程的名称可以由编程人员确定43、设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是 A）List1.List B）List1.ListIndexC）List1. Text D）List1.Index44、Private Sub Command1_Click() dim I as integer dim x as integer x=0 For I=1 to 5 x=x+2 If x4 Then exit fornext Iprint xEnd Sub程序运行后，单击命令按钮，窗体上显示的是 A)1 B)6 C)5 D)745、有如下定义Sub test(a(),b() End Sub下列调用语句中正确的是：A)call test(a(),b() B)call test a(),b() C)call test a() D)test( a(),b()二、填空题（每空2分，共40分） （1）假定一个文本框的Name属性为Text1，为了在该文本框中显示“Hello!”，应使用什么语句【1】。（Text1.Text = Hello!）（2）哪两个属性确定一个控件的大小【2】(width height)（3）在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程：Private Sub Command1_Click() Text1.Text = siasText2.Text = Text1.Text Text1.Text = universityEnd Sub程序运行后，单击命令按钮，在文本框1中显示【3】（university），在文本框2中显示【4】（sias）。（4） 将此数学式子2a2(4+b)写成Visual Basic表达式【5】。(2 * a2 * (4 + b) )（5） 设a=2，b=3，c=4，d=5，表达式 a = c And b c Or c d的值【6】。（False）（6） 写出下列语句的输出结果Print st; u, d 【8】。（stu d）（7）为了在运行时把c:ucdos 文件夹下的图形文件arrow.ico装入图片框Picture1，所使用的语句为【9】。 Picture1.Picture = LoadPicture(c:ucdosarrow.ico) 或 Picture1 = LoadPicture(c:ucdosarrow.ico)（8）在编写程序时，Command1.enabled = False此语句的作用是【10】。（使命令按钮在运行时不可用）（9）为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【11】 interval属性设置为500。（10）执行下面的程序段后，i的值为 【12】【11】，s的值为 【13】【6】 。 s = 2 For i = 3 To 10 Step 2 s = s + 1 Next I（11）编写如下事件过程Sub Form_Click() Dim a As Integer, b As Integer a =20: b = 30 tryout a, b Print a=; a, b=; bEnd SubSub tryout(x As Integer, y As Integer) x = x + 10 y = y * 2End Sub单击窗体后，窗体上显示a 和b的值，分别是a=【15】(30)，b=【16】(60)(12) 设有如下程序：Option Base 0Private Sub Form_Click( ) Dim a Dim i As Integer a=array(1,2,3,4,5,6,7,8,9) For i =2 to 5 Print a(5-i); Next End Sub程序运行后，单击窗体，则在窗体上显示的是【18】(4 3 2 1 (13)程序段Static arr As Variantarr=Array(“a”,”b”,”c”,”d”,”e”,”f”)Print arr(4) 执行的结果是输出：e_ (7)_ _(14)执行以下语句后，输出的结果是：0（