最新VB程序设计样题资料.doc

《最新VB程序设计样题资料.doc》由会员分享，可在线阅读，更多相关《最新VB程序设计样题资料.doc（40页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-dateVB程序设计样题资料VB期末考试题A卷 VB期末考试题A卷一、选择题 每题2分，共50分（1）以下叙述中错误的是 （） A）Visual Basic 是事件驱动型可视 化编程工具 B）Visual Basic 应用程序不具有明显的开始和结束语句 C）Visual Basic 工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 D）Visual Bas

2、ic 中控件的某些属性只能在运行时设置（2）下列可作为 Visual Basic 变量名的是（）A)A#A B)4A C)?xY D)constA（3）无论何控件，都具有一个共同属性。这个属性是（） A)Text B)Font C)Name 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#

3、D)time1 = Format(hh:mm:ss,Time)（6）在窗体上画一个名称为Command1的命令按钮，编写以列程序：Private Sub Command1_Click( )Dim a As IntegerStatic b As 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)控件、过程和模

4、块（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,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

5、(ListCount-1)（10）在窗体上画一个名称为Command1的命令按钮，编写如下程序：Private Sub Command1_Click()Print pl(3,7)End SubPublic Function pl(x As Single,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”

6、，”TomorroW，”Yesterday”,Day before yesterday ,5) 将显示一个输入对话框，在对话框的输入区中显示的信息是A)Today B)Tomorrow C)Yesterday D)Day before yesterday(12)设有语句open c：TestDat For OutPut则以下错误的叙述是 （）A)该语句打开C盘根目录下一个己存在的文件TestDa B)该语句在C盘根目录下建立一个名为TestDat的文 C)该语句建立的文件的文件号为1 D)执行该语句后，就可以通过Print#语句向文件TestDat中写入信息(13) Sub过程与Functio

7、n过程最根本的区别是（）A) Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以B) Function过程可以有形参，Sub过程不可以C) Sub过程不能返回值，而Function过程能返回值D) 两种过程参数的传递方式不同(14)下列关于过程叙述不正确的是（）A)过程的传值调用是将实参的具体值传值递给形参B)过程的传址调用是将实参在内存的地址传递给形参C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D)无论过程传值调用还是过程传址调用，参数传递都是双向的（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是（）A）Combo1.Re

8、moveItem TextB）Combo1.RemoveItem2 C）Combo1.RemoveItem 3D）Combo1.RemoveItemCombo1.Listcount（16）下列叙述中正确的是（）A) 在窗体的Form_Load事件过程中定义的变量是全局变量B) 局部变量的作用域可以超出所定义的过程C) 在某个Sub过程中定义的局部变量作用域只限于该过程可以与其它事件过程中定义的局部变量同名，但其D) 在调用过程时，所有局部变量被系统初始化为0或空字符串(17) 以下叙述中错误的是（）A) 在同一窗体的菜单项中，不允许出现标题相同的菜单项B) 在菜单的标题栏中，“&”所引导的字母

9、指明了访问该菜单项的访问键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) “中

10、国人民” C) “中共人民” D) “人民共和”(20) 在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是（） A) Load B) Show C) Hide D) Unload(21)以下能够正确计算n!的程序是 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)Pri

11、vate 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 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

12、 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) End 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

13、(xStr, strLen -i+1, 1) i=i+1LoopPat=tempStrEnd Function A) abcdef B) afbecd C) fedcba D) defabc（24）下面关于多重窗体的叙述中，正确的是（） A)作为启动对象的Main 子过程只能放在窗体模块内 B)如果启动对象是Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体 C)没有启动窗体，程序不能执行 D)以上都不对(25)在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的命令按钮。要求单击命令按钮时，打开一个保存文

14、件的通用对话框。该窗口的标题为Save，缺省文件名为“SaveFile ”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是 （）A) Private Sub Command_C1ick() CommondialoglFileName=“Savefile”Commondialogl.filterAll Files|*.*|(*.txt)|*.txt|(*.doc)|*.docCommonDialoglFilterindex=2 CommonDialoglDial0gtitleSave CommonDialoglAction2 End SubB) Private Sub Comman

15、dlClick() CommonDialoglFileNameSaveFile CommonDiaLoglFilterA11 Files|*.*|(*.txt)|*.txt|*doc|*docC0mmonDialoglFilterIndex1 CommonDialoglDialogTitleSaveCommonDialoglAction2 End Sub C) Private Sub Cmmandl_C1ick() COmmonDialoglFileNameSave CommonDialoglFiLterA11Files|*.*|(*.txt)|*.txt|(*.doc)|*.docCommo

16、nDialoglFilterindex2 C0mmonDialoglDialogTitleSaveFileCommonDialoglAction2 End SubD) Private Sub Commandl_C1ick() CommonDialoglFileNameSaveFile CommonDialoglFilterAll Files|*.*|(*.txt)|*.txt|(*.doc)|*.docCommonDialoglFilterIndex=1 CommonDialoglDialogTitle=“Save”CommonDialoglAction1 End Sub二、填空：每空2分，共

17、20分。（1）visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是【1】_; Visual Basic提供的对数据文件问的三种访问方式为随机访问方式【2】_ 和二进制访问方式;为了在运行时把d:pic文件夹下的图形文件a.jpg装入图片框Picturel，所使用的句为【3】_。 （2）VB 变量声明格式： Public | Dim 变量名 As 类型，用【4】_关键字声明的变量在整个应用程序中有效，用【5】_关键字声明的变量过程结束则消失。 （3）在刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对【6】_的【7】_属性进行设置。（4）执行下面的程序段

18、后，i的值为【8】_ ，s的值为【9】_ 。s = 2For i = 3.2 To 4.9 Step 0.8s = s + 1Next i（5）提供【10】_函数用于将字符型转换成数值。三、程序阅读题：每题5分，共10分。（1）下面是一个歌手大赛评分程序。10位评委，除去一个最高分和一个最低分，计算平均分(设满分为10分)。请在1、2、和3处填入适当的内容，将程序补充完整。Private Sub Form_Click()Max= 0Min= 10For i = 1 To 10x=Val(InputBox(请输入分数)If1_ Then Max=xIf2_ Then Min=xs =s + xN

19、ext i s =3_p = s/8Print 最高分；Max,最低分；MinPrint 最后得分；pEnd Sub （2）Dim As String a= 123456789For i 1 To 5 Print Space(6i)；Mid$3(a，6i，2*i1) Nexti End Sub 程序运行后，窗体上显示的输出结果为四、程序设计题：每题10分，共10分。程序要求如下：1、程序运行后，窗体初始化时，在左边列表框1(名称为List1)中列出当前屏幕对象（Screen）的所有字体，screen对象的fonts属性（fonts属性是一个数组）能够得到屏幕使用的所有字体，FontCount属性能够得到字体的数量，利用一个循环，将Screen对象的每个Fonts(i)添加到列表框1中； 2、窗体初始化时，在右边的列表框2(名称为List2)中列出8、10、12、1472的数字，表示字号。 3、当用户在列表框1中单击选中某种字体名时，或在列表框2中单击选中某一字号时，使窗体下半部的标签框（名称为Label1）中文字设置为相应字体与字号，实现字体字号预览。 -