VB试题库全国.doc

一、 选择题1以下叙述中错误的是_B_。 A.vbp文件是工程文件，一个工程可以包含.bas文件 B.frm文件是窗体文件，一个窗体可以包含.bas文件 C.vbp文件是工程文件，一个工程可以由多个.frm文件组成D.vbg文件是工程组文件，一个工程组可以由多个工程组成2以下合法的VB变量名是_C_。ACaseBt-nameCname10Dx*y3以下描述中错误的是_B_。A窗体的标题通过其Caption属性设置B窗体的名称(Name属性)可以在运行期间修改C窗体的背景图形通过其Picture属性设置D窗体最小化时的图标通过其Icon属性设置4在Visual Basic集成环境中，可以列出工程中所有模块名称的窗口是_A_。A工程资源管理器窗口B窗体设计窗口C属性窗口D代码窗口5在Visual Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是_A_。ABCD6在Visual Basic集成环境中，要结束一个正在运行的工程,可单击工具栏上的一个按钮,这个按钮是_D_。ABCD 7以下变量名中合法的是_C_。Ax2-1BprintCstr_nD2x8执行语句Dim X，Y As Integer后，_D_。AX和Y均被定义为整型变量BX和Y均被定义为变体类型变量CX被定义为整型变量，Y被定义为变体类型变量DX被定义为变体类型变量，Y被定义为整型变量9在设计窗体时双击窗体的任何地方，可以打开的窗口是_A_。A代码窗口 B属性窗口C工程资源管理器窗口D工具箱窗口10以下叙述中错误的是_D_。A标准模块文件的扩展名是.bas B标准模块文件是纯代码文件 C在标准模块中声明的全局变量可以在整个工程中使用D在标准模块中不能定义过程11以下叙述中错误的是_C_。A在Visual Basic的窗体中，一个命令按钮是一个对象B事件是能够被对象识别的状态变化或动作C事件都是由用户的键盘操作或鼠标操作触发的D不同的对象可以具有相同的方法12设x是小于10的非负数。对此陈述，以下正确的VB表达式是_C_。 A0x10 B0=x=0 And x=0 Or x0,-x,x)有相同结果的代数式是_B_。 A|x| B-|x| Cx D-x17把数学表达式表示为正确的VB表达式应该是_D_。A(5x3)/(2y6) Bx*53/2*y-6C(5*x3)(2*y-6) D(x*53)/(y*26)18以下关系表达式中，其值为True的是_B_。 Ascii码 A 65 a 97AXYZXYzBVisualBasicvisualbasicCthe=there DIntegerInt19若变量a未事先定义而直接使用(例如：a=0)，则变量a的类型是_D_。AIntegerBStringCBooleanDVariant20在Visual Basic中，表达式3*25 Mod 3的值是_A_。A1B0C3D出现错误提示21设x=3.3,y=4.5，表达式x-Int(x)+Fix(y)的值是_C_。Int(n):取0,x Mod 3,0)设x=10，则y的值是_B_。A0 B1C3D语句有错51以下叙述中正确的是_A_。A窗体及窗体上所有控件的事件过程代码都保存在窗体文件中B在工程中只有启动窗体可以建立菜单C窗体名称必须与窗体文件的名称相同D程序一定是从某个窗体开始执行的52设x=5，执行语句Print x=x+10，窗体上显示的是_D_。 A15 B5 CTrueDFalse53在窗体上面一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() MsgBox Str(123+321) End Sub程序运行后，单击命令按钮，则在信息框中显示的提示信息为_B_。A字符串123321B字符串444C数值444D空白54窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是_B_。APrint Cb1.SelectedBPrint Cb1.List(Cb1.ListIndex)CPrint Cb1.Selected.TextDPrint Cb1.List(ListIndex)55设a=5，b=6，c=7，d=8，执行语句xIIf(ab)And(cd),10,20)后，x的值是_B_。A10B20C30D20056窗体上有一个名称为Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程Private Sub Optionl_Click(Index As Integer)End Sub下面关于此过程的参数Index的叙述中正确的是_C_。AIndex为1表示单选按钮被选中,为0表示未选中BIndex的值可正可负CIndex的值用来区分哪个单选按钮被选中DIndex表示数组中单选按钮的数量57若看到程序中有以下事件过程，则可以肯定的是，当程序运行时_D_。Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single)Print VB ProgramEnd SubA用鼠标左键单击名称为Commandl的命令按钮时，执行此过程B用鼠标左键单击名称为MouseDown的命令按钮时，执行此过程C用鼠标右键单击名称为MouseDown的控件时，执行此过程D用鼠标左键或右键单击名称为Click的控件时，执行此过程58在窗体上画两个单选按钮(名称分别为Option1、Option2，标题分别为“宋体”和“黑体”)、 1个复选框(名称为Check1，标题为“粗体”)和1个文本框(名称为Textl，Text属性为“改变文字字体”)，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是_D_。AOption1.Value=False Check1.Value=TrueBOption1.Value=True Check1.Value=0COption2.Value=False Check1.Value=2DOption1.Value=True Check1.Value=l59窗体上有一个名称为Frame1的框架(如下图)，若要把框架上显示的“Frame1”修改为汉字“框架”，下面正确的语句是_B_。AFrame1.Name=框架BFrame1.Caption=框架CFrame1.Text=框架DFrame1.Value=框架60为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后把ScrollBars属性设置为_D_。A0B1C2D361窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：Private Sub Command1_Click() Static x As Variant n=0 x=Array(1,2,3,4,5,6,7,8,9,10) While n=5 x=a*b Print b;x a=a+b b=b+a LoopEnd Sub程序运行后，单击窗体，输出结果是_D_。A 11B11 C11D1123 24 38 3664为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是_D_。A把这2组单选按钮设置为名称不同的2个控件数组B使2组单选按钮的Index属性分别相同C使2组单选按钮的名称分别相同D把2组单选按钮分别画到2个不同的框架中65语句Print Sgn(-62)+Abs(-62)+Int(-62)的输出结果是_C_。A-36B1C-1D-7266设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发_B_。AText1的SetFocus事件BText1的GotFocus事件CText1的LostFocus事件D窗体的GotFocus事件67可以产生3050(含30和50)之间的随机整数的表达式是_A_。AInt(Rnd*2130)BInt(Rnd*2030)CInt(Rnd*50Rnd*30)DInt(Rnd*3050)68在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1=Trim(Str(c) For i=1 To 4 Print _ Next End Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1 12 123 1234则在横线处应填入的内容为_B_。ARight(c1,i)BLeft(c1,i)CMid(c1,i,1)DMid(c1,i,i)69以下叙述中错误的是_D_。A在通用过程中，多个形式参数之间可以用逗号作为分隔符B在Print方法中，多个输出项之间可以用逗号作为分隔符C在Dim语句中，所定义的多个变量可以用逗号作为分隔符D当一行中有多个语句时，可以用逗号作为分隔符 用冒号70文本框 Text1 的 KeyDown 事件过程如下：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)End Sub其中参数KeyCode的值表示的是发生此事件时_C_。A是否按下了Alt键或Ctrl键B按下的是哪个数字键C所按的键盘键的键码D按下的是哪个鼠标键71窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下：Private Sub Command1_Click() x=InputBox(输入x:,0) y=InputBox(输入y:,0) Label1.Caption=x+yEnd Sub运行程序，单击命令按钮，在输入对话框中分别输入2、3，运行的结果是_D_。 A程序运行有错误，数据类型不匹配B程序运行有错误，InputBox函数的格式不对C在Label1中显示5D在Label1中显示2372现有由多个单选按钮构成的控件数组，用于区别该控件数组中各控件的属性是_B_。 AName BIndex CCaption DValue73在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是_D_。AListl.RemoveItem Listl.TextBListl.RemoveItem List1.ClearCListl.RemoveItem List1.ListCountDListl.RemoveItem List1.ListIndex74如果一个直线控件在窗体上呈现为一条垂直线,则可以确定的是_B_。 A它的Y1、Y2属性的值相等B它的X1、X2属性的值相等C它的X1、Y1属性的值分别与X2、Y2属性的值相等D它的X1、X2属性的值分别与Y1、Y2属性的值相等75如果一个直线控件在窗体上呈现为一条水平线,则可以确定的是_A_。 A它的Y1、Y2属性的值相等B它的X1、X2属性的值相等C它的X1、Y1属性的值分别与X2、Y2属性的值相等D它的X1、X2 属性的值分别与Y1、Y2属性的值相等76VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母_A_。 A这3个事件都会触发B只触发KeyPress事件C只触发KeyDown、KeyUp事件D不触发其中任何一个事件77在程序运行时，下面的叙述中正确的是_C_。 A用鼠标右键单击窗体中无控件的部分，会执行窗体的Form_Load事件过程B用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程C只装入而不显示窗体，也会执行窗体的Form_Load事件过程D装入窗体后，每次显示该窗体时，都会执行窗体的Form_Click事件过程78假定有以下程序段： For i=1 To 3 For j=5 To 1 Step -1 Print i*j Next j Next i则语句Print i*j的执行次数是_A_。 A15B16C17D1879设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是_C_。 AList1.ListBList1.ListIndexCList1.TextDList1.Index80窗体上有一个名称为HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是_A_。 APrivate Sub HScroll1_Change() Print HScroll1.Value End SubBPrivate Sub HScroll1_Change() Print HScroll1.SmallChangeEnd SubCPrivate Sub HScroll1_Scroll() Print HScroll1.Value End SubDPrivate Sub HScroll1_Scroll() Print HScroll1.Sma11ChangeEnd Sub81窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称为cmdDraw的控件数组。窗体外观如图所示(从上到下的3个命令按钮的下标值分别为0、1、2)。有事件过程如下：Private Sub cmdDraw_Click(Index As Integer) Select Case Index Case 0 Shape1.Shape=0 Case 1 Shape1.Shape=1 Case 2 Shape1.Shape=3 End SelectEnd Sub当单击“画圆”命令按钮时，会执行cmdDraw_Click事件过程。以下叙述中正确的是_D_。 ACase 2分支有错，此Case后面表达式的值应该与赋给Shape1.Shape的值一致 B程序运行有错，控件数组的下标应该从1开始 CIndex是形状控件的参数D程序正常运行，形状控件被显示为圆形82设有分段函数：以下表示上述分段函数的语句序列中错误的是_A_。ASelect Case xCase Is0y=5Case Is0y=2*xCase Elsey=x*x+1BIf x0 Theny=5ElseIf x=5 Theny=2*xElsey=x*x+1End IfCy=IIf(x0,5,IIf(x=5,2*x,x*x+1)DIf x0 Then y=5 If x=0 Then y=2*x If x5 Then y=x*x+183列表框中的项目保存在一个数组中，这个数组的名字是_C_。AColumnBStyleCListDMultiSeleet84设a=2，b=3，c=4，d=5，则下面语句的输出是_A_。Print 32*b Or a=c And bc Or cd AFalse B1 CTrueD-185在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：Private Sub Command1_Click()a$=software and hardwareb$=Right(a$,8)c$=Mid(a$,1,8)MsgBox a$,b$,c$,1End Sub则在弹出的信息框标题栏中显示的标题是_B_。Asoftware and hardwareBhardwareCsoftwareD186下面关于标准模块的叙述中错误的是_B_。A标准模块中可以声明全局变量B标准模块中可以包含一个Sub Main过程,但此过程不能被设置为启动过程C标准模块中可以包含一些Public过程D一个工程中可以含有多个标准模块87窗体上有名称为Command1的命令按钮和名称为Text1的文本框Private Sub Command1_Click()Text1.Text=程序设计Text1.SetFocusEnd SubPrivate Sub Text1_GotFocus()Text1.Text=等级考试End Sub运行以上程序，单击命令按钮后_B_。A文本框中显示的是程序设计，且焦点在文本框中B文本框中显示的是等级考试，且焦点在文本框中C文本框中显示的是程序设计，且焦点在命令按钮上D文本框中显示的是等级考试，且焦点在命令按钮上88在窗体上画两个文本框(名称分别为Textl和Text2)和一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do While x50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为_B_。A1和0B2和72C3和50D4和16889设a=4，b=5，c=26，执行语句Print ab And bc后，窗体上显示的是_A_。ATrueBFalseC出错信息D090若已把一个命令按钮的 Default 属性设置为 True，则下面可导致按钮的Click事件过程被调用的操作是_C_。 A用鼠标右键单击此按钮 B按键盘上的Esc键 C按键盘上的回车键D用鼠标右键双击此按钮91如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如：9632是降序数，而8516则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。Private Sub Command1_Click() Dim n As Long Dim flag As Boolean n=InputBox(输入一个正整数) s=Trim(Str(n) For i=2 To Len(s) If Mid(s,i-1,1)10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是_B_。 A把x=0改为x=1B把Do While s=10000改为Do While s10000D交换x=x+1和s=s+x 2的位置94窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是_B_。 APrivate Sub Form1_Click().End SubBPrivate Sub Form_Click().End SubCPrivate Sub Command1_Click().End SubDPrivate Sub Command_Click().End Sub95在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是_A_。 APrivate Sub Text1_Change()Label1.Caption=Text1.TextEnd SubBPrivate Sub Label1_Change()Label1.Caption=Text1.TextEnd SubCPrivate Sub Text1_Click() Label1.Caption=Text1.Text End SubDPrivate Sub Label1_Click()Label1.Caption=Text1.TextEnd Sub96设窗体的名称为Form1,标题为Win,则窗体的MouseDown事件过程的过程名是_C_。 AForml_MouseDownBWin_MouseDownCForm_MouseDownDMouseDown_Form197设窗体上有名称为Option1的单选按钮，且程序中有语句：If Option1.Value=True Then下面语句中与该语句不等价的是_C_。 AIf Option1.Value Then BIf Option1=True ThenCIf Value=True Then DIf Option1 Then98阅读程序： Private Sub Form_Click() a=0 For j=1 To 15 a=aj Mod 3 Next j Print a End Sub 程序运行后，单击窗体，输出结果是_D_。 A105 B1C120 D1599执行下列语句：strInput=InputBox(请输入字符串,字符串对话框,字符串)将显示输入对话框。此时如果直接单击“确定”按钮，则变量strInput的内容是_C_。 A请输入字符串B字符串对话框C字符串 D空字符串100能够存放组合框的所有项目内容的属性是_C_。 ACaptionBTextCListDSelected101现有以下程序：Private Sub Command1_Click() c1=0 c2=0 For i=1 To 100 If i Mod 3=0 Then c1=c1+1 ElseIf i Mod 7=0 Then c2=c2+1 End If NextPrint c1+c2End Sub此程序运行后输出的是在1100范围内_B_。A同时能被3和7整除的整数个数B能被3或7整除的整数个数(同时被3和7整除的数只记一次)C能被3整除，而不能被7整除的整数个数D能被7整除，而不能被3整除的整数个数102现有如下一段程序：Option Base 1Private Sub Command1_Click()Dim aa=Array(3,5,7,9)x=1For i=4 To 1 Step-1s=s+a(i)*xx=x*10NextPrint sEnd Sub执行程序，单击Command1命令按钮，执行上述事件过程，输出结果是_C_。 A9753B35C3579 D79103设有如下程序： Private Sub Form_Click() Dim s As Long,f As Long Dim n As Integer,i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub程序运行后，单击窗体，输出结果是_D_。 A32B35C34D33104默认情况下，下面声明的数组的元素个数是_D_。6*5=30Dim a(5，-2 To 2)A20B24C25D30105以下说法中错误的是_C_。A如果把一个命令按钮的Default属性设置为True，则按回车键与单击该命令按钮的作用相同B可以用多个命令按钮组成命令按钮数组C命令按钮只能识别单击(Click)事件D通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用106下面正确使用动态数组的是_A_。ADim art()As Integer ReDim arr(3,5)BDim arr()As Integer ReDim arr(50) As StringCDim arr() ReDim arr(50) As IntegerDDim arr(50) As Integer ReDim arr(20)107设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是_A_。A程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加B程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少C由于滚动条的Max属性值小于Min属性值，程序会出错D由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动108以下说法中正确的是_A_。A当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程B因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程C若按下的键相同，