《VB程序设计样题资料》由会员分享，可在线阅读，更多相关《VB程序设计样题资料（8页珍藏版）》请在金锄头文库上搜索。
1、精选优质文档-倾情为你奉上 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
2、D)Caption（4）表达式 32*2+3 MOD 104 的值是（） 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 IntegerStatic b As
3、 Integera = a + bb = b + 4Print a,bEnd 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 Integera = array(1,2,3,4) B)Dim a(),b()a = array(1,2,3,4):b = a C)Dim a As Varianta = array(1,
4、asd,true) D)Dim a() As Varianta = 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 SubPublic Function pl(x As S
5、ingle,n As Integer) As SingleIf n=0 Thenpl=1ElseIf n Mod 2=1 Thenpl=x*x+nElseP1=x*x-n End IfEnd IfEnd Function程序运行后，单击该命令按钮，屏幕上显示的结果是（） A)2 B)1 C)0 D)16（11）执行如下语句：ainutBox(”Today”，”TomorroW，”Yesterday”,Day before yesterday ,5) 将显示一个输入对话框，在对话框的输入区中显示的信息是A)Today B)Tomorrow C)Yesterday D)Day before yes
6、terday(12)设有语句open c：TestDat For OutPut则以下错误的叙述是 （）A)该语句打开C盘根目录下一个己存在的文件TestDa B)该语句在C盘根目录下建立一个名为TestDat的文 C)该语句建立的文件的文件号为1 D)执行该语句后，就可以通过Print#语句向文件TestDat中写入信息(13) Sub过程与Function过程最根本的区别是（）A) Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以B) Function过程可以有形参，Sub过程不可以C) Sub过程不能返回值，而Function过程能返回值D) 两种过程参数的传递
7、方式不同(14)下列关于过程叙述不正确的是（）A)过程的传值调用是将实参的具体值传值递给形参B)过程的传址调用是将实参在内存的地址传递给形参C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D)无论过程传值调用还是过程传址调用，参数传递都是双向的（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是（）A）Combo1.RemoveItem TextB）Combo1.RemoveItem2 C）Combo1.RemoveItem 3D）Combo1.RemoveItemCombo1.Listcount（16）下列叙述中正确的是（）A) 在窗体的Form_Load
8、事件过程中定义的变量是全局变量B) 局部变量的作用域可以超出所定义的过程C) 在某个Sub过程中定义的局部变量作用域只限于该过程可以与其它事件过程中定义的局部变量同名，但其D) 在调用过程时，所有局部变量被系统初始化为0或空字符串(17) 以下叙述中错误的是（）A) 在同一窗体的菜单项中，不允许出现标题相同的菜单项B) 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C) 程序运行过程中，可以重新设置菜单的Visible属性D) 弹出式菜单也在菜单编辑器中定义(18) 以下叙述中错误的是（）A) 在程序运行时，通用对话框控件是不可见的B) 在同一个程序中，用不同的方法(不同的作用
9、如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
10、!的程序是 A) Private Sub Commandl_ClicK() n5:x1 Do X=x*1 ii十1 Loop While in Print x End Sub B) Private Sub Commandl_Click() n5: x1：i=1 Do XX*1 ii十1 Loop While in Print x End Sub C)Private Sub Commandl_Click() n=5：x1：i1 Do X=X*1 ii十1 Loop while i=n Print x End Sub D)Private Sub Commandl_C1ick() n5：x1：i=1
11、 Do X=X*l i=i十1 loop While in Print x End Sub（22）执行了下面程序后，组合框中数据项的值是（）Private Sub Form_Click()For i=1 to 6Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd 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 StringFirSt=abcdefPrint Pat(FirStr) E
12、nd SubPrivate Function Pat(xStr As String) As StringDim tempStr As String, strLen As IntegertempStr=strLen=Len(xStr) i=1Do While i=Len(xStr) -3tempStr=tempStr+Mid(xStr, i, 1) +Mid(xStr, strLen -i+1, 1) i=i+1LoopPat=tempStrEnd Function A) abcdef B) afbecd C) fedcba D) defabc（24）下面关于多重窗体的叙述中，正确的是（） A)
13、作为启动对象的Main 子过程只能放在窗体模块内 B)如果启动对象是Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体 C)没有启动窗体，程序不能执行 D)以上都不对(25)在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为Save，缺省文件名为“SaveFile ”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是 （）A) Private Sub Command_C1ick() CommondialoglFileName=“Savefile”Commondialogl.filterAll Files|*.*|(*.txt)|*.txt|(*.doc)|*.docCommonDialoglFilterindex=2 CommonDialoglDial0gtitleSave CommonDialoglAction2 End SubB) Private Sub CommandlClick() CommonDialoglFileNameSaveFile CommonDiaLoglFilterA11 Files|*.*|(*.txt)|*.txt|*doc|*docC0mmonDialoglFilter
