visual basic复习试卷.doc

试卷一一.填空题21.在VB中可以作为容器的是 。A.Form、TextBox、PictureBox B.Form、PictureBox、FrameC.Form、TextBoX、Label D.PictureBox、TextBox、ListBox22.VB中除窗体能显示图片外，下面列出的控件中可以显示图片的控件有 。1.PictureBox 2.Image 3.TextBox4.CommandButton 5.OptionButton 6.Label A.1、2、3、4、 B.1、2、5、6、 C.1、2、4、5 D.1、2、4、6、23.针对语句If I=1 Then J=1，下列说法正确的是 。A.I=1和J=1均为赋值语句B.I=1和J=1均为关系表达式C.I=1为关系表达式，J=1为赋值语句D.I=1为赋值语句，J=1为关系表达式24.在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下四组语句中，不能正常执行的是 。A.s=2*a+1 B.s=237&.11:a=s C.s=2*a3 D.a=2:s=16400*a25.下面所列四组数据中，全部是正确的VB常数是 。A.32768,1.34D2,ABCDE,&O1767B.3276,123.56,1.2E-2,#True#C.&HABCE,02-03-2002,False,D-3D.ABCDE,#02-02-2002#,E-226.下面有关数组处理的叙述中，不正确的是 。1、在过程中用ReDim语句定义的动态数组，其下标的上下界可为赋了值的变量。2、在过程中，可以使用Dim、Private和Static语句定义数组。3、用ReDim语句重新定义动态数组时，不得改变该数组的数据类型。4、可用Public语句在窗体模块的通用说明处定义一个全局数组。A.1、2、3、4、 B.1、3、4、 C.1、2、3、 D.2、4、27.第一次显示某窗体时，将引发一系列事件，正确的事件是 。A.Load - Initialize - Activate B.Initialize - Load - ActivateC.Load - Activate- Initialize D.Initialize - Activate - Load28.定义两个过程Private Sub1(St() As String)和Private Sub2(Ch() As String*6)，在调用过程中用Dim S(3) As String*6,A(3) As String定义了两个字符串数组。下面调用语句中正确的有 。1、Call Sub1(S) 2、Call Sub(A) 3、Call Sub2(A) 4、Call Sub2(S)A.1、2 B.1、3 C.2、3 D.2、429.运行下面程序，单击命令按钮Command1,则立即窗口上显示的结果是 。Private Sub Command1_Click() Dim A As Integer,B As Boolean,C As Integer,D As Integer A=20/3 : B=True : C=B : D=A+C Debug. Print A, D, A=A + CEnd SubA. 7 6 False B. 6.6 5.6 False C. 7 6 A=6 D. 7 8 A=830.以下控件中，不能作为数据绑定控件的是 。A. Label(标签) B. TextBox(文本框)C. OptionButton(单选按钮) D.ListBox(列表框)二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）1、正确表示命题“A是一个带小数的正数，且 B是一个带小数的负数”的逻辑表达式是 。2、运行下面的程序，当单击窗体时，文本框 Text1 中的内容是 ，文本框 Text2 中的内容是 。 Private Sub Form_Click()Dim St As StringDim St1 As String, St2 As StringSt = ASFRSDCFRSKXCall Change_String(St, St1, St2)Text1.Text = St1Text2.Text = St2End SubPrivate Sub Change_String(S As String, St1 As String, St2 As String)Dim tem As String, i As IntegerFor i = 1 To Len(S) tem = Mid(S, i, 1) If tem = S Then St1 = St1 St2 = St2 & atElseIf tem = R Then St1 = St1 & T Exit ForElse St1 = St1 & tem St2 = St2 & temEnd IfNext iEnd Sub3、执行下面程序，单击命令按钮Command1 ，则在窗体上显示的第一行是 ，第二行是 ，第三行是 。Private Sub Command1_Click( )Dim s_data As Integer, d_data As String, k As Integer, p As Strings_data = 29Do Until s_data = 5 p = s_data Mod 5 d_data = d_data & p s_data = s_data 5Loopd_data = d_data & s_dataPrint s_dataPrint d_datap = For k = Len(d_data) To 1 Step -1 p = p & Mid(d_data, k, 1)Next kPrint pEnd Sub4、执行下面程序，从键盘输入3，程序运行结束后，A( 1, 1)的值是 ，A( 2, 2) 的值是 ；A( 2, 3)的值是 。 Private Sub Form_Click()Dim I As Integer, J As Integer, K As IntegerDim A() As Integer, N As IntegerN = InputBox(输入N)ReDim A(N, N)For I = 1 To N For J = 1 To N K = K + 1 A(I, J) = K + 10 Next JNext ICall Sub1(A, N)End SubPrivate Sub Sub1(A() As Integer, N As Integer)Dim I As Integer, J As IntegerDim T As Integer, K As IntegerK = N + 1For I = 1 To Int(N / 2) For J = I To N - I T = A(I, J) A(I, J) = A(K - J, I) A(K - J, I) = A(K - I, K - J) A(K I, N + 1 - J) = A(J, K - I) A(J, K - I) = T Next JNext IEnd Sub5、执行下面程序，单击命令按钮Command1 ，则在窗体上第一行显示是 ， 第二行显示是 ，第三行显示是 。 Private Sub Command1_Click()Output_Count 4Output_Count 8Output_Count 4End SubPrivate Sub Output_Count(UpperLimit As Integer) Static LowerLimit As Integer Do While LowerLimit 1 Then Display = Display(S, L - 1) S = Left(S, L - 1) & Right(S, 1) & Mid(S, L, Len(S) - L) Display = S Print DisplayEnd Function7、由键盘输入一个正整数，找出大于或等于该数的第一个素数。 Private Sub Form_Click()Dim p As Integer , x As Integer, flag As Booleanflag = Falsex = InputBox(请输入一个正整数) Do While Not flag p = 2: flag= Do While flag And (p = 0 And Mid(s, i, 1) = 0 And Mid(s, i + 1, 1) = 9 And i 1 Then If p Then c(k) = p k = k + 1 End If End IfNext iReDim Preserve c(k)c(k) = pFor i = 1 To k Next iEnd Sub9、给定一个十进制正整数，找出小于它并与其互质的所有正整数（所谓互质数是指最大公约数为1的两个正整数，图2是程序执行画面）。 Option ExplicitPrivate Function gcd( ) As Integer Dim r As Integerr = m Mod n If r = 0 Then gcd = n Else m = n: n = r End IfEnd FunctionPrivate Sub Command1_Click() Dim n As Integer, p As Integer n = Val(Text1) For p = n - 1 To 2 Step -1 If Then List1.AddItem pNext pEnd Sub10.用（m)表示数m的所有因子（包括1和m在内）之和。如果mn，且（m)=（n)=m+n+1，则数对(m,n)是拟互满数。下列程序的功能是找出402000之间的所有拟互满数，并将运算结果按图3给出的格式 显示在文本框Text1中。Option ExplicitPrivate Sub Command1_Click() Dim N As Integer, I As Integer, j As Integer Dim Flg As Boolean, M As Integer For N = 40 To 2000 Flg = False Call Garcia(N, M, Flg) If Flg Then End IfNext NEnd SubPrivate Sub Garcia(N As Integer, M As Integer, Bool As Boolean) Dim G1 As Integer, G2 As Integer, K As Integer G1 = Factor(N) For K = 4 To N - 1 G2 = Factor(K) If Then Bool = True M = Exit For End If Next KEnd SubPrivate Function Factor(N As Integer) As Long Dim I As Integer For I = 1 To N If N Mod I = 0 Then End If Next IEnd Function试卷二一、 选择题(1)以下不能在工程资源管理器窗口中列出的文件类型是 A)basB)resC)fnnD)ocx (2)以下关于窗体的描述中，错误的是 A)执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中 B)窗体的Ioad事件在加载窗体时发生 C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 D)窗体的Height、width属性用于设置窗体的高和宽 (3)下列可作为V2sualBasic变量名的是 A)A#AB)4AC)?xYD)constA (4)设有如下的记录类型 TypeStudent numberAsstring nameAsString ageAsInteger EndType 则正确引用该记录类型变量的代码是 A)Studentname=张红B)DimAsStudent sname张红 C)DimsAsTypeStudentD)DimsAsType Sname=张红s.Dame张红 (5)函数String(n，str)的功能是 A)把数值型数据转换为字符串 B)返回由n个字符组成的字符串 C)从字符串中取出n个字符 D)从字符串中第n个字符的位置开始取子字符串 (6)将数学表达式Cos2(a+b)+5e2写成VisualBasic的表达式，其正确的形式是 A)Cos(a+b)A2十5。exp(2)B)Cos2(a+b)+5*exp(2) C)Cos(a+b)2十5*ln(2)D)Cos2(a+b)+5*ln(2) (7)在窗体上画一个命令按钮，名称为Commandl。单击命令按钮时，执行如下事件过 程： PrlVateSubCommandl-C1icko a$=softwareandhardware b$Right(a$,8) c$=Mid(a$,1，8) Msgboxa$,b$,c$,1 EndSub 则在弹出的信息框的标题栏中显示的信息是 A)softWareandhardwareB)softwareC)hardwafeD)1 (8)执行如下语句： ainutBox(Today，TomorroW，Yesterday,Daybeforeyesterday，5) 将显示一个输入对话框，在对话框的输入区中显示的信息是 A)TodayB)TomorrowC)YesterdayD)Daybeforeyesterday (9)表示滚动条控件取值范围最大值的属性是 A)MaxB)LargeChangeC)ValueD)Max-Min (10)在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示 若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是 A)PrivateSublistl_Click()B)PrivateSubListl_C1ick() LabellCaptionlist1.listlndexLabellNanleListllistindex EndSubEndSub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 A)空白B)错误提示C)北京D)上海 (15)假定有以下函数过程： FunctionFun(SAsString)AsString Dims1AsString Fori=1ToLen(S) s1UCase(Mid(S，i，1)十s1 Nexti Funs1 EndFunction 在窗体上画一个命令按钮，然后编写如下事件过程： PrlvateSubCommmldl_Click() DimStr1AsString，Str2AsString Strlinputbox(请输入一个字符串) Str2=Fun(Strl) PrintStr2 EndSub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串abcdefg，则单击确 定按钮后在窗体上的输出结果为 A)abcdefgB)ABCDEFGC)gfedcbaD)GFEDCBA (16)设有语句 openc：TestDatForOutPutAs#1 则以下错误的叙述是 A)该语句打开C盘根目录下一个己存在的文件TestDat B)该语句在C盘根目录下建立一个名为TestDat的文件 C)该语句建立的文件的文件号为1 D)执行该语句后，就可以通过Print#语句向文件TestDat中写入信息 (17)以下叙述中错误的是 A)用Shell函数可以调用能够在Windows下运行的应用程序 B)用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数 C)调用Shell函数的格式应为：Shell() D)用Shell函数不能执行DoS命令 (18)以下关于过程及过程参数的描述中，错误的是 A)过程的参数可以是控件名称 B)用数组作为过程的参数时，使用的是传地址方式 c)只有函数过程能够将过程中处理的信息传回到调用的程序中 D)窗体可以作为过程的参数 (19)在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： PrivateSubTxta_KeyPress(keyasciiasinteger) EndSub 若焦点位于文本框中，则能够触发KeyPress事件的操作是 A)单击鼠标B)双击文本框 C)鼠标滑过文本框D)按下键盘上的某个键 (20)目录列表框的Path属性的作用是 A)显示当前驱动器或指定驱动器上的路径 B)显示当前驱动器或指定驱动器上的某目录下的文件名 c)显示根目录下的文件名 D)只显示当前路径下的文件 (21)假定有如下事件过程： PriVateSubForm_MouseDown(buttonAsInteger,ShiftAsInteger,xAsSingle，YAs Single) IfButton2then PopupMenupopForm Endif EndSub 则以下描述中错误的是 A)该过程的功能是弹出一个菜单 B)popForm是在菜单编辑器中定义的弹出式菜单的名称 C)参数X、Y指明鼠标的当前位置 D)Button=2表示按下的是鼠标左键 (22)以下能够正确计算n!的程序是 二级VisualBasic语言程序设计试卷第5页(共15页) A)PrivateSubCommandl_ClicK() n5:x1 Do X=x*1 ii十1 LoopWhilein Printx EndSub B)PrivateSubCommandl_Click() n5:x1：i=1 Do XX*1 ii十1 LoopWhilein Printx EndSub C)PrivateSubCommandl_Click() n=5：x1：i1 Do X=X*1 ii十1 Loopwhilei、13和 14处将程序补充完整。 PrivateSubCombol_(KeyAsciiAsinteger) 1fKeyAscii13Then Fori0ToCombo1listCount-1 1fCombo1Text_13Ihen Label2Caption输入项己在组合框中 ExItSub Endlf Nexti Label2Caption已成功添加输入项 Combo1_14CombO1Text Endlf EndSub (10)设有如下程序 Privatesubsearch(a()Asvariant，ByValkeyAsVariant，index%) DimI ForILBound(a)ToUBound(a) Ifkeya(I)Then indexI ExitSub EndIf NextI Index-1 EndSub PrivateSubForm_Load() Show Dtmb()AsVariant DimnAsInteger bArray(1，3，5，7，9，11，13，15) Callsearch(b，11，n) Printtn EndSub 程序运行后，输出结果是_。 试卷三一、选择题：35题，2分/题，共70分 下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。 1.执行以下程序段后,变量c的值为() a=VisualBasicPrograming b=Quick c=b&UCase(Mid(a,7,6)&Right(a,11) A)VisualBASICPrograming B)QuickBasicPrograming C)QUICKBasicPrograming D)QuickBASICPrograming 分析: 2.不能正确表示条件“两个整型变量A和B之一为0，但不能同时为0”的布尔表达式是（） A)A*B=0andA+B0 B)(A=0orB=0)and(A0OrB0) C)not(A=0AndB=0)and(A=0orB=0) D)A*B=0and(A=0orB=0) 分析: 3.下面子过程语句说明合法的是（） A)Functionfl(ByValn%) B)Subfl(n%)AsInteger C)Functionfl%(fl%) D)Subfl(ByValn%() 分析: 4.对窗体编写如下代码： OptionBase1 PrivateSubForm_KeyPress(KeyAsciiAsInteger) a=Array(237,126,587,48,498) ml=a(1) m2=1 IfKeyAscii=13Then Fori=2To5 Ifa(i)mlThen ml=a(i) m2=i EndIf Nexti EndIf Printml; printm2 EndSub 程序运行后，按回车键，输出结果为（） A)484 B)2371 C)5873 D)4984 分析: 5.VisualBasic中没有提供下列（）事件 A)MouseDown B)MouseUp C)MouseMove D)MouseExit 分析: 6.执行下面对面的程序后，X的值为（） x=50 Foxi=1To20Step2 x=x+i5 Nexti A)66 B)67 C)68 D)69 分析: 7.为了防止用户随意将光标置于控件之上，需做的工作是（） A)将控件的Enabled属性设置为False B)将控件的TabStop属性设置为False C)将控件的TabStop属性设置为True D)将控件的TabIndex属性设置为0 分析: 8.表达式String(2,Shanghai)的值是（） A)Sh B)Shanghai C)ShanghaiShanghai D)SS 分析: 9.为了在按回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True,这个属性是（） A)value B)Defaul C)Cancel D)Enabed 分析: 10.visualBasic提供的缺省窗体包含（） A)标题栏 B)菜单栏 C)工具条 D)状态栏 分析: 11.假定有一个菜单项，名为MenuItem,为了在运行时该菜单项失效（变灰），应使用的语句为（） A)MenuItem.Enabled=False B)MenuItem.Enabled=True C)MenuItem.Visible=True D)MenuItem.Visible=False 分析: 12.下列不能打开菜单编辑器的操作是（） A)按Ctrl+E B)单击工具栏中的“菜单编辑器”按钮 C)执行“工具”菜单中的“菜单编辑器”命令 D)按Shift+Alt+M 分析: 13.列表框（如图2-6所示）经过下列操作后，剩余的项目是（） Listl.RemoveIteml Listl.RemoveItem2 Listl.RemoveIteml A)aa B)bb C)cc D)dd 分析: 14.要暂时关闭计时器，应把计时器的某个属性设置为False，这个属性是（） A)Visible B)Timer C)Enabled D)Interval 分析: 15.InputBox函数返回值的类型为（） A)数值 B)字符串 C)变体 D)数值或字符串（视输入的数据而定） 分析: 16.当窗体的AutoRedraw属性采用默认值时，若在窗体装入时使用绘图方法绘制图形，则应将程序放在（） A)Paint事件 B)Load事件 C)Initilize事件 D)Click事件 分析: 17.下列可以打开立即窗口的操作是（） A)Ctrl+D B)Ctrl+E C)Ctrl+F D)Ctrl+G 分析: 18.如是要向工具箱中加入控件和部件，可以利用“工程”的菜单中的（）命令 A)引用 B)部件 C)工程属性 D)添加窗体 分析: 19.若要清除列表框的所有内容，可用来实现的方法是（） A)Removeitem B)Cls C)Clear D)以上均不可以 分析: 20.假定有下面的过程： FunctionFunc(aAsInteger,bAsInteger)AsInteger StaticmAsInteger,iAsInteger m=0 i=2 i=i+m+1 m=i+a+b Func=m EndFunction 在窗体上画一个命令按钮，然后编写如下事件过程： PrivateSubCommandl_Click() DimkAsInteger,mAsInteger DimpAsInteger k=4 m=1 p=Func(k,m) Printp; p=Func(k,m) Printp EndSub 程序运行后，单击命令按钮，输出结果为（）。