basic程序设计复习资料
《Visual Basic程序设计》复习资料 一、选择题 (1) 以下叙述中错误的是 A) 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B) 以.BAS为扩展名的文件是标准模块文件 C) 窗体文件包含该窗体及其控件的属性 D) 一个工程中可以含有多个标准模块文件 (4) 以下不属于Visual Basic系统的文件类型是 A) .frm B) .bat C) .vbg D) .vbp (5) 以下叙述中错误的是 A) 打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件 B) 保存Visual Basic程序时,应分别保存窗体文件及工程文件 C) Visual Basic应用程序只能以解释方式执行 D) 事件可以由用户引发,也可以由系统引发 (7)设窗体上有一个列表框控件Listl,且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是 A) Listl.List B) Listl.ListindexC) List 1.IndexD) Listl. Text (9) 设a=10, b=5, c=l,执行语句Print a > b > c后,窗体上显示的是 A) True B) False C) 1 D)出错信息 (10) 如果要改变窗体的标题,则需要设置的属性是 A) Caption B) Name C) BackColor D) BorderStyle (12)如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是 A) 如果工程中含有Sub Main过程,则程序一定首先执行该过程 B) 不能把标准模块设置为启动模块 C) 用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体 D) 任何时刻最多只有一个窗体是活动窗体 (14)设组合框Combo 1中有3个项目,则以下能删除最后一项的语句是 A) Combol.Removeitem Text B) Combol.Removeitem 2 C) Combol.Removeitem 3 D ) Combo 1 .Removeitem Combo 1.Listcount C) 当文本框的Enabled属性为False时,其Tab顺序不起作用 D) 可以用Tab Index属性改变Tab顺序 (16)如果要在菜单中添加一个分隔线,则应将其Caption属性设置为 A) = B) * C) num = num + 2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 A) 1 3.4 5.8B) 1 35 C) 147D)无数据输出 (22)设有如下通用过程: Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command 1 _Click() Static x As Integer x= 10 y=5 y = f(x) Print x; y End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是 A) 10 5 B) 20 5 C) 20 40 D) 10 40 (23)设有如下通用过程: Public Sub Fun(a(), By Vai x As Integer) For i = 1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Textl的文本框和一个名称为Command 1的命令按钮,然后编写如下的事件过程: Private Sub Command l_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n= 10 Call Fun(arr(), n) Textl. Text = n End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是 A) 10 B) 15 C) 25 D) 24 (25) 在窗体上画两个滚动条,名称分别为Hscrolll、Hscroll2;六个标签,名称分别为Labell、Label2、Label3、Label4、 Label5> Label6,其中标签Label 4- Label6分别显示“A“, “B \ “A*B“等文字信息,标签LabelE Label2分别显示其右侧的 滚动条的数值,Label3显示A*B的计算结果。如图所示。当移动滚动框时,在相应的标签中显示滚动条的值。当单击命 令按钮“计算 时,对标签Labell、Label2中显示的两个值求积,并将结果显示在Label3中。以下不能实现上述功能的事件 过程是 A) Private Sub Commandl_Click() Label3.Caption = Str(Val(Labell.Caption )*Val( Label2.Caption)) End Sub B ) Private Sub Command 1 _Click() Label3.Caption = HScrolll.Value * HScroll2.Value End Sub C) Private Sub Commandl_Click() Label3.Caption = HScrolll * HScroll2 End Sub D) Private Sub Commandl_Click() Label3.Caption = HScrolll. Text * HScroll2.Text End Sub (26) 在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command 1 _Click() For n = 1 To 20 If n Mod 3 0 Then m = m + n \ 3 Next n Prin