VB期末考试题B卷

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）表达式3∧2*2+3 MOD 10\4的值是（）A)18B)1C)19D)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 12B)0 4C)4 8D)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 = aC)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 Single If n=0 Thenpl=1ElseIf n Mod 2=1 Thenpl=x*x+nElseP1=x*x-nEnd IfEnd IfEnd Function程序运行后，单击该命令按钮，屏幕上显示的结果是（）A)2B)1C)0D)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．DaB)该语句在C盘根目录下建立一个名为Test．Dat的文C)该语句建立的文件的文件号为1D)执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息(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.RemoveItem2C）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) LoadB) ShowC) HideD) Unload(21)以下能够正确计算n!的程序是A) Private Sub Commandl_ClicK()n＝5:x＝1DoX=x*1i＝i十1Loop While i＜nPrint xEnd SubB) Private Sub Commandl_Click()n＝5: x＝1：i=1DoX＝X*1i＝i十1Loop While i＜nPrint xEnd SubC)Private Sub Commandl_Click()n=5：x＝1：i＝1DoX=X*1i＝i十1Loop while i<=nPrint xEnd SubD)Private Sub Commandl_C1ick()<n＝5：x＝1：i=1DoX=X*li=i十1loop While i＞nPrint xEnd Sub（22）执行了下面程序后，组合框中数据项的值是（）Private Sub Form_Click()For i=1 to 6Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd SubA)1 5 6B)1 3 5C)4 5 6D)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 FunctionA) abcdefB) afbecdC) fedcbaD) 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=2CommonDialogl．Dial0g．title＝"Save"CommonDialogl．Action＝2End SubB) Private Sub Commandl_Click()CommonDialogl．FileName＝"SaveFile"CommonDiaLogl．Filter＝"A11 Files|*.*|(*.txt)|*.txt|*．doc|*．doc"C0mmonDialogl．FilterIndex＝1CommonDialogl．DialogTitle＝"Save"CommonDialogl．Action＝2End SubC) Private Sub Cmmandl_C1ick()COmmonDialogl．FileName＝"Save"CommonDialogl．FiLter＝"A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialogl．Filterindex＝2C0mmonDialogl．DialogTitle＝"SaveFile"CommonDialogl．Action＝2End SubD) Private Sub Commandl_C1ick()CommonDialogl．FileName＝"SaveFile"CommonDialogl．Filter＝"All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CommonDialogl．FilterIndex=1CommonDialogl．DialogTitle=“Save”CommonDialogl．Action＝1End Sub二、填空：每空2分，共20分。