1、一、选择题（1-30 题每小题 1 分，共 30 分，31-45 题每小题 2 分,共 30 分，总计 60 分）要使窗体 Form1 的标题栏中显示“正在复制文件” ，正确的语句是：aAForm1.Caption=“正在复制文件”BForm1.Title=“正在复制文件”C Form1.Text=“正在复制文件”DForm1.名称 =“正在复制文件”如果要求设置定时器时间间隔为 1 秒钟，那么它的 Interval 属性值应该等于：aA1000 B100 C10 D13、下列关于控件的基本操作中，错误的是A)当控件处于活动状态时，可以对控件进行缩放 B) 在设计阶段不能移动控件C) Visu
2、al Basic 6.0 允许对画好的控件进行复制和删除D) 可以通过属性窗口改变控件的位置和大小4、用 Visual Basic 开发应用程序的一般步骤有：设置窗体和控件的属性、编写代码、建立用户界面，其中正确的顺序是：A) B) C) D) 5、为使文本框只能显示不能输入，即只读，应设置文本框的属性是：cAMaxLength 设置为 0 BCancel 设置为 TrueC Locked 设置为 True DRead 设置为 True6、 InputBox 函数返回值的类型为 。BA数值 B字符串 C变体D数值或字符串（视输入的数据而定）7、为了把焦点移到某个指定的控件，所使用的方法是： A
3、ASetFocus 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)
4、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=0列程序段的循环结构执行后，i 的输出值是：cFor i=1 To 10 Step 2y=y+iNext iPrint iA25 B10 C11 D因为 y 的初值不知道，所以不确定15、可以用作其他控件容器的控件有： cA窗体、列表框、图像框B窗体、文本框、框架C窗体、框架、图片框D窗体、标签
5、、图片框16、以下不属于 Visual Basic 支持的循环结构的是： dAFor Next BFor Each NextC Do 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) 设置
6、文本框的焦点 D) 改变文本框的内容21、 列表框图标的英文名称是A)ListBox B)ComboBoxC)Frame D)CommonDialog22、下列类型说明符中表示整型的是A) % B) ! C) $ D) “u“, “d“ 【8 】 。 （stu d）（7 ）为了在运行时把 c:ucdos 文件夹下的图形文件 arrow.ico 装入图片框 Picture1，所使用的语句为【9】 。 Picture1.Picture = LoadPicture(“c:ucdosarrow.ico“) 或 Picture1 = LoadPicture(“c:ucdosarrow.ico“)（8 ）
7、在编写程序时，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 Integera =20
8、: b = 30tryout a, bPrint “a=“; a, “b=“; bEnd SubSub tryout(x As Integer, y As Integer)x = x + 10y = y * 2End Sub单击窗体后，窗体上显示 a 和 b 的值，分别是 a=【15】(30)，b=【16】(60)(12) 设有如下程序：Option Base 0Private Sub Form_Click( )Dim aDim i As Integera=array(1,2,3,4,5,6,7,8,9)For i =2 to 5Print a(5-i);NextEnd Sub程序运行后，单击
9、窗体，则在窗体上显示的是【18】(4 3 2 1 (13)程序段Static arr As Variantarr=Array(“a”,”b”,”c”,”d”,”e”,”f”)Print arr(4) 执行的结果是输出：e_ (7)_ _(14)执行以下语句后，输出的结果是：0 （14 ） s$=”student”Print Instr(s$,”DEN”)(15)下列循环语句，要求和数达到或超过 10 即停止累加，退出循环：For j=1 To 20 step 2s=s+jIf a10 Then Exit For(11)_Next j(16)下列程序段用来计算 2+4+6+20，请补充该程序Di
10、m i,s,k As Integers=0:k=0For i=20 To 2 Step -2k=k+1s=s+kNext iPrint s(17)执行下面程序段后，b 的值为 200 (22)_a=200b=40a=a+bb=a-ba=a-b(18)下列语句的输出结果是：12345.68_(28)_Print int(12345.6789*100+0.5)/100(19)命令按钮单击事件过程：Option Base 1Private Sub command1_Click()Dim aa=Array(1,2,3,4)j=1For i= 4 To 1 Step 1s=s+a(i)*jj=j*10N
11、ext iPrint sEnd Sub运行结果输出是：1234_(23)_(20)命令按钮单击事件过程：Private Sub command1_Click()a=InputBox(“enter the first Integer”)b=InputBox(“enter the second Integer”)Print b+aEnd Sub程序运行后，单击命令按钮，在两个输入对话框中分别输入 234 和 789，则输出的结果是：789234_(26)_三、判断题(判断下列正确与否，正确的打 ，错误的打 。)1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。( )2、图象框中的 Stre
12、tch 属性为 true 时，其作用是图形自动调整大小以适应图象控件。 ()3、在菜单编辑器中使用“索引 ”时，可有一组菜单项具有相同的 “名字” 。( )4、通过改变属性窗口中的 Name 属性，来改变窗体的标题。()5、创建 VB 应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3) 编写代码。()6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。( )7、已知 PMsgBox(“Howareyou?“，VbYesNo+VbQuestion， “Hello!”)，变量 P 是 Integer数据类型。()8、工程文件的扩展名是 .vbg 。()9、 V
13、B 允许设计和使用用户自己设计的控件。()10、 OptionButton 控件没有 DblCliek 事件。()11、同一条记录中的各数据具有相同的类型。()12、使用 Data 控件可以直接显示数据库中的数据。()13、 ImageList 是一个图像容器控件，可用作工具栏的图像库。 ()14、当用户单击工具栏按钮时，将触发工具栏按钮的 ButtonClick 事件。()15、在 VB 的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除） 。()16、如果列表框的 ListConut 的属性为 10，则列表框最后一项的 ListIndex 值为 10。( )17、要是某个命令按钮不起作用，应将该按钮的 Enabeld 属性设置为 False。()18、使用数组定义语句：Dim D$（10） ，则数组 D 中各元素的值为空。()19、如果在一行中输入多条语句，各语句之间用使用 ；分隔。 ()
