VB期末考试题B卷.doc

VB期末考试题B卷一、选择题 每题2分，共50分（1）以下关于窗体的描述中，错误的是 A)执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中B)窗体的Ioad事件在加载窗体时发生C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D)窗体的Height、width属性用于设置窗体的高和宽（2）下列可作为V2sualBasic变量名的是（）A)A#A B)4A C)?xY D)constA（3）函数String(n，“str”)的功能是（）A)把数值型数据转换为字符串B)返回由n个字符组成的字符串C)从字符串中取出n个字符D)从字符串中第n个字符的位置开始取子字符串（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 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,"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 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”，”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过程与Function过程最根本的区别是（）A) Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以B) Function过程可以有形参，Sub过程不可以C) Sub过程不能返回值，而Function过程能返回值D) 两种过程参数的传递方式不同(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事件过程中定义的变量是全局变量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() 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 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="abcdef"Print 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(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的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为"Save"，缺省文件名为“SaveFile ”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是 （）A) Private Sub Command_C1ick() CommondialoglFileName=“Savefile”Commondialogl.filter"All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialoglFilterindex=2 CommonDialoglDial0gtitle"Save" CommonDialoglAction2 End SubB) Private Sub Commandl_Click() CommonDialoglFileName"SaveFile" CommonDiaLoglFilter"A11 Files|*.*|(*.txt)|*.txt|*doc|*doc"C0mmonDialoglFilterIndex1 CommonDialoglDialogTitle"Save"CommonDialoglAction2 End Sub C) Private Sub Cmmandl_C1ick() COmmonDialoglFileName"Save" CommonDialoglFiLter"A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialoglFilterindex2 C0mmonDialoglDialogTitle"SaveFile"CommonDialoglAction2 End SubD) Private Sub Commandl_C1ick() CommonDialoglFileName"SaveFile" CommonDialoglFilter"All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialoglFilterIndex=1 CommonDialoglDialogTitle=“Save”CommonDialoglAction1 End Sub二、填空：每空2分，共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）执行下面的程序段后，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 + xNext i s =3_p = s/8Print "最高分"；Max,"最低分"；MinPrint "最后得分"；pEnd Sub （2）Dim As String a= "123456789"For i 1 To 5 Print Space(6i)；Mid$3(a，6i，2*i1) Nexti End Sub 程序运行后，窗体上显示的输出结果为四、程序设计题：每题10分，共10分。应用说明 本应用程序的运行窗口及其功能说明如下：程序事先设定密码为”abc”，要求用户在文本框中输入密码，然后单击“校验密码”命令按钮，程序将核对用户输入的密码与事先设定的密码是否一致。如果一致，则通过MsgBox语句弹出消息框提示“密码正确，欢迎进入！”；否则弹出消息框提示“密码不正确，谢绝进入！”。当用户单击“重新输入”命令按钮，则清空文本框中内容，且将光标定位到文本框中。当单击“退出”命令按钮时，退出应用程序属性设置 对象 对象名 属性名 属性值设置 窗体 frmMain 命令按钮 Commandl Caption 重新输入 命令按钮 Command2 Caption 核对密码 命令按钮 Command3 Caption 退出 文本框 Text1 Text (置空)