《Visual Basic程序设计基础》课程教学资源：期末考试题A卷

ⅤB期末考试题A卷 选择题每题2分,共50分 (1)以下叙述中错误的是O A) Visual basic是事件驱动型可视化编程工具 B)Visual Basic应用程序不具有明显的开始和结束语句 C)Visual Basic工具箱中的所有控件都具有宽度(Widh)和高度( Height)属性 D)Visual Basic中控件的某些属性只能在运行时设置 (2)下列可作为 sual Basic变量名的是O A)A#A B)4A C)xY D)constA (3)无论何控件都具有一个共同属性这个属性是O A)Text B)Font C)Name D)Caption (4)表达式3∧2*2+3MOD104的值是O B)I C)19 (5)设有如下变量声明 Dim timel As date,为变量time正确赋值的表达式是O A) timel=#11:34:04 B)timel= Format(Time, yy: mm: dd") C)timel=#"11:34:04"# D)timel= Format("hh mm: ss",Time (6)在窗体上画一个名称为 Command l的命令按钮,编写以列程序 Private Sub Commandl Click) Dim a as integer Static b As Integer a=a+b b=b+4 End Sub 程序运行后,单击该命令按钮三次屏幕上显示的值是O B)04 C48 D812 (7) Visual basic是一种面向对象的程序设计语言,构成对象的三要素是O A)属性控件和方法 B)属性,事件和方法 C)窗体控件和过程 D)控件,过程和模块 (8)下列程序段错误的是O A)Dim a As Integer

VB 期末考试题 A 卷 一,选择题 每题 2 分,共 50 分 (1)以下叙述中错误的是 () A)Visual Basic 是事件驱动型可视 化编程工具 B)Visual Basic 应用程序不具有明显的开始和结束语句 C)Visual Basic 工具箱中的所有控件都具有宽度(Width)和高度(Height)属性 D)Visual Basic 中控件的某些属性只能在运行时设置 (2)下列可作为 Visual Basic 变量名的是() A)A#A B)4A C) xY D)constA (3)无论何控件,都具有一个共同属性.这个属性是() A)Text B)Font C)Name D)Caption (4)表达式 3∧2*2+3 MOD 10\4 的值是() A)18 B)1 C)19 D)0 (5)设有如下变量声明 Dim time1 As Date ,为变量 time1 正确赋值的表达式是() A)time1 = #11:34:04 # B)time1 = Format(Time,"yy:mm:dd") C)time1 = #"11:34:04"# D)time1 = Format("hh:mm:ss",Time) (6)在窗体上画一个名称为 Command1 的命令按钮,编写以列程序: Private Sub Command1_Click( ) Dim a As Integer Static b As Integer a = a + b b = b + 4 Print a,b End Sub 程序运行后,单击该命令按钮三次,屏幕上显示的值是() A)4 12 B)0 4 C)4 8 D)8 12 (7)Visual Basic 是一种面向对象的程序设计语言,构成对象的三要素是() A)属性,控件和方法 B)属性,事件和方法 C)窗体,控件和过程 D)控件,过程和模块 (8)下列程序段错误的是() A)Dim a As Integer

a=aray(1,2,3,4) B)Dim ao, bo a=aray(1,2,3,4)b=a C)Dim a As Variant a=array (l, "asd", true) D)Dim a(As variant a=aray(1,2,3,4) (9)引用列表框(Lst)最后一个数据项应使用的表达式是() A)Listl List( Listl List Count) B)Listl, List(ListI List Count-1) C)Listl List(List Count) D)Listl List(List Count-1) (10)在窗体上画一个名称为 Command1的命令按钮编写如下程序: Private Sub Command1 Click Print pl(3, 7) End Sub Public Function pl(x As Single, n As Integer )As Single If n=0 Then pl=I Else If n mod 2=1 then =XX+n Pl=x'x-n End if End If End Function 程序运行后,单击该命令按钮,屏幕上显示的结果是 B)I C)0 D)16 (11)执行如下语句a= Finut Box(" Today"," Tomorrow," Yesterday"," Day before yesterday",5) 将显示一个输入对话框,在对话框的输入区中显示的信息是 A)Today B)Tomorrow C)Yesterday D)Day before yesterday (12)设有语句open"c: \Test dat" For Out Put则以下错误的叙述是O A)该语句打开C盘根目录下一个己存在的文件 Test Da B)该语句在C盘根目录下建立一个名为 Test. Dat的文 C)该语句建立的文件的文件号为1 D)执行该语句后就可以通过 Print语句向文件 Test. Dat中写入信息 (13)Sub过程与 Function过程最根本的区别是O A)Sub过程可以用Cal语句直接使用过程名调用,而 Function过程不可以 B) Function过程可以有形参,Sub过程不可以 C)Sub过程不能返回值,而 Function过程能返回值

a = array(1,2,3,4) B)Dim a(),b() a = array(1,2,3,4):b = a C)Dim a As Variant a = array(1,"asd",true) D)Dim a() As Variant a = array(1,2,3,4) (9)引用列表框(List1)最后一个数据项应使用的表达式是() A)List1.List(List1.ListCount) B)List1.List(List1.ListCount-1) C)List1.List(ListCount) D)List1.List(ListCount-1) (10)在窗体上画一个名称为 Command1 的命令按钮,编写如下程序: Private Sub Command1_Click() Print pl(3,7) End Sub Public Function pl(x As Single,n As Integer) As Single If n=0 Then pl=1 Else If n Mod 2=1 Then pl=x*x+n Else P1=x*x-n End If End If End Function 程序运行后,单击该命令按钮,屏幕上显示的结果是() A)2 B)1 C)0 D)16 (11)执行如下语句:a=inutBox("Today","TomorroW,"Yesterday","Day before yesterday" ,5) 将显示一个输入对话框,在对话框的输入区中显示的信息是 A)Today B)Tomorrow C)Yesterday D)Day before yesterday (12)设有语句 open "c:\Test.Dat" For OutPut 则以下错误的叙述是 () A)该语句打开 C 盘根目录下一个己存在的文件 Test.Da B)该语句在 C 盘根目录下建立一个名为 Test.Dat 的文 C)该语句建立的文件的文件号为 1 D)执行该语句后,就可以通过 Print#语句向文件 Test.Dat 中写入信息 (13) Sub 过程与 Function 过程最根本的区别是() A) Sub 过程可以用 Call 语句直接使用过程名调用,而 Function 过程不可以 B) Function 过程可以有形参,Sub 过程不可以 C) Sub 过程不能返回值,而 Function 过程能返回值

D)两种过程参数的传递方式不同 (14)下列关于过程叙述不正确的是O A)过程的传值调用是将实参的具体值传值递给形参 B)过程的传址调用是将实参在内存的地址传递给形参 C)过程的传值调用参数是单向传递的,过程的传址调用参数是双向传递的 D)无论过程传值调用还是过程传址调用,参数传递都是双向的 (15)设组合框 Combo中有3个项目,则以下能删除最后一项的语句是O A)Combo. Removeltem Text B)Combol. Removeltem C)Combol. Removeltem 3 D)Combol RemoveltemCombol Listcount (16)下列叙述中正确的是O A)在窗体的 Form load事件过程中定义的变量是全局变量 B)局部变量的作用域可以超出所定义的过程 C)在某个Sub过程中定义的局部变量作用域只限于该过程可以与其它事件过程中定义的局 部变量同名,但其 D)在调用过程时所有局部变量被系统初始化为0或空字符串 (17)以下叙述中错误的是O A)在同一窗体的菜单项中不允许出现标题相同的菜单项 B)在菜单的标题栏中,"&"所引导的字母指明了访问该菜单项的访问键 C)程序运行过程中可以重新设置菜单的 Visible属性 D)弹出式菜单也在菜单编辑器中定义 (18)以下叙述中错误的是O A)在程序运行时,通用对话框控件是不可见的 B)在同一个程序中,用不同的方法(不同的作用如 ShowOpen或 ShowSave等)打开的通用对 话框具有 C)调用通用对话框控件的 ShowOpen方法,可以直接打开在该通用对话框中指定的文件 D)调用通用对话框控件的 ShowColor方法可以打开颜色对话框 (19)设S=中华人民共和国”,表达式Le(S,1)+Righ(S,1)+MdS,32)的值为O A)"中华民国 B)中国人民” C)"中共人民” D)"人民共和 (20)在Ⅴ isual basic中,要将一个窗体加载到内存进行预处理但不显示,应使用的语句是O ide D) UNload (21)以下能够正确计算n!的程序是 A)Private Sub Commandl ClicK n-X X=x*1

D) 两种过程参数的传递方式不同 (14)下列关于过程叙述不正确的是() A)过程的传值调用是将实参的具体值传值递给形参 B)过程的传址调用是将实参在内存的地址传递给形参 C)过程的传值调用参数是单向传递的,过程的传址调用参数是双向传递的 D)无论过程传值调用还是过程传址调用,参数传递都是双向的 (15)设组合框 Combo1 中有 3 个项目,则以下能删除最后一项的语句是() A)Combo1.RemoveItem Text B)Combo1.RemoveItem2 C)Combo1.RemoveItem 3 D)Combo1.RemoveItemCombo1.Listcount (16)下列叙述中正确的是() A) 在窗体的 Form_Load 事件过程中定义的变量是全局变量 B) 局部变量的作用域可以超出所定义的过程 C) 在某个 Sub 过程中定义的局部变量作用域只限于该过程可以与其它事件过程中定义的局 部变量同名,但其 D) 在调用过程时,所有局部变量被系统初始化为 0 或空字符串 (17) 以下叙述中错误的是() A) 在同一窗体的菜单项中,不允许出现标题相同的菜单项 B) 在菜单的标题栏中,"&"所引导的字母指明了访问该菜单项的访问键 C) 程序运行过程中,可以重新设置菜单的 Visible 属性 D) 弹出式菜单也在菜单编辑器中定义 (18) 以下叙述中错误的是() A) 在程序运行时,通用对话框控件是不可见的 B) 在同一个程序中,用不同的方法(不同的作用如 ShowOpen 或 ShowSave 等)打开的通用对 话框具有 C) 调用通用对话框控件的 ShowOpen 方法,可以直接打开在该通用对话框中指定的文件 D) 调用通用对话框控件的 ShowColor 方法,可以打开颜色对话框 (19)设 S="中华人民共和国",表达式 Left(S,1)+Right(S,1)+Mid(S,3,2)的值为() A) "中华民国" B) "中国人民" C) "中共人民" D) "人民共和" (20) 在 Visual Basic 中,要将一个窗体加载到内存进行预处理但不显示,应使用的语句是() A) Load B) Show C) Hide D) Unload (21)以下能够正确计算 n!的程序是 A) Private Sub Commandl_ClicK() n=5:x=1 Do X=x*1 i=i 十 1

Loop while i Print x End Sub B)Private Sub Commandl Click n=5:X=1:1 十1 Loop while i<N Print End Sub C)Private Sub Commandl Click n=5:x=1:= Loop while i<=n Print End sub D)Private Sub Commandl ClickOn Pr End Sub (22)执行了下面程序后组合框中数据项的值是O Private Sub Form Click For i=l to 6 Combol AddItem i For i=1 to 3 Combol. Removeltem i Next i A)156 B)l35 C D)246 (23)下列程序的执行结果为 Private Sub Command1 Click Dim FirStr As string Print Pat( FirStr) End Sub Private Function Pat(xStr As String)As String Dim tempStr As String, strLen As Integer

Loop While i Print x End Sub B) Private Sub Commandl_Click() n=5: x=1:i=1 Do X=X*1 i=i 十 1 Loop While i<N Print x End Sub C)Private Sub Commandl_Click() n=5:x=1:i=1 Do X=X*1 i=i 十 1 Loop while i<=n Print x End Sub D)Private Sub Commandl_C1ick()n Print x End Sub (22)执行了下面程序后,组合框中数据项的值是() Private Sub Form_Click() For i=1 to 6 Combo1.AddItem i Next i For i= 1 to 3 Combo1.RemoveItem i Next i End Sub A)1 5 6 B)1 3 5 C)4 5 6 D)2 4 6 (23) 下列程序的执行结果为 Private Sub Command1_Click() Dim FirStr As String FirSt="abcdef" Print Pat(FirStr) End Sub Private Function Pat(xStr As String) As String Dim tempStr As String, strLen As Integer tempStr=

strLen=Len(xStr) Do While i<=Len (xStr)-3 tempStr=tempStr+Mid(xStr, i, 1)+Mid(xStr, strLen-i+1, 1) Pat=tempStr End function A)abcdef C)fedcba D)defabc (24)下面关于多重窗体的叙述中,正确的是O A)作为启动对象的Main子过程只能放在窗体模块内 B)如果启动对象是Main子过程,则程序启动时不加载任何窗体,以后由该过程根据不同情况 决定是否加载窗体或加载哪一个窗体 C)没有启动窗体程序不能执行 D)以上都不对 (25)在窗体上画一个名称为 Common Dialog的通用对话框,一个名称为 Commandl的命令按 钮要求单击命令按钮时打开一个保存文件的通用对话框该窗口的标题为"Save",缺省文件 名为 SaveFile",在"文件类型"栏中显示*txt则能够满足上述要求的程序是O A)Private Sub Command Click Commondialogl. FileName="Savefile Commondialogl. filter="All Files**I(*. txt)*. txtI(*. doc). *. doc Common Dialog. Filterindex=2 Common Dialogl DialOg title="Save Common Dialog. Action=2 End Sub B) Private Sub Comman CommonDialogl. fileName="Savefile" Common DiaLog Filter="All Files". *I(. txt)*. txt*.doc"" doc COmmon Dialog. FilterIndex1 CommonDialogl. Dialog Title="Save CommonDialogl.Action=2 End sub C)Private Sub Cmmandl Click Common Dialog FiLter="All Files**I(.txt)*.txt)(" doc)*. doc COmmon Dialogl Dialog Title="SaveFile Common Dialog. Action=2 End Sub D)Private Sub Commandl Click Common Dialogl. file Name="Save File

strLen=Len(xStr) i=1 Do While i<=Len(xStr) -3 tempStr=tempStr+Mid(xStr, i, 1) +Mid(xStr, strLen -i+1, 1) i=i+1 Loop Pat=tempStr End Function A) abcdef B) afbecd C) fedcba D) defabc (24)下面关于多重窗体的叙述中,正确的是() A)作为启动对象的 Main 子过程只能放在窗体模块内 B)如果启动对象是 Main 子过程,则程序启动时不加载任何窗体,以后由该过程根据不同情况 决定是否加载窗体或加载哪一个窗体 C)没有启动窗体,程序不能执行 D)以上都不对 (25)在窗体上画一个名称为 CommonDialogl 的通用对话框,一个名称为 Commandl 的命令按 钮.要求单击命令按钮时,打开一个保存文件的通用对话框.该窗口的标题为"Save",缺省文件 名为"SaveFile ",在"文件类型"栏中显示*.txt.则能够满足上述要求的程序是 () A) Private Sub Command_C1ick() Commondialogl.FileName="Savefile" Commondialogl.filter="All Files|*.*|(*.txt)|*.txt|(*.doc).|*.doc" CommonDialogl.Filterindex=2 CommonDialogl.Dial0g.title="Save" CommonDialogl.Action=2 End Sub B) Private Sub Commandl—Click() CommonDialogl.FileName="SaveFile" CommonDiaLogl.Filter="A11 Files|*.*|(*.txt)|*.txt|*.doc|*.doc" C0mmonDialogl.FilterIndex=1 CommonDialogl.DialogTitle="Save" CommonDialogl.Action=2 End Sub C) Private Sub Cmmandl_C1ick() COmmonDialogl.FileName="Save" CommonDialogl.FiLter="A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc" CommonDialogl.Filterindex=2 C0mmonDialogl.DialogTitle="SaveFile" CommonDialogl.Action=2 End Sub D) Private Sub Commandl_C1ick() CommonDialogl.FileName="SaveFile