VB程序设计语言模拟试卷二

VisualBasic程序设计语言模拟试卷二一、单选题（15分，每小题1分）1.类是对象的抽象，对象则是类的具体化。VisualBasic集成开发环境中的工具箱中各类图标对应的是，而在窗体上建立的控件对应的是。A.对象，类B.对象，实体C.类，对象D.实体，类2.VisualBasic程序设计语言中，响应对象的外部动作称为，而对象可以执行的动作或对象本身的行为则称为。A.过程，事件B.属性，方法C.方法，事件D.事件，方法3.表达式123+100+100的值是。A.123200B.323C.123100100D.1231001004.设CurrentX=400，CurrentY=200，执行指令“Line－(300,500),,BF”后，CurrentY=。A.500B.700C.400D.3005.按照VisualBasic默认规定，数组声明Dimc(3,4,2to5)共有个元素。A.36B.80C.60D.486.声明一个长度为256个字节的字符串变量mstr，应使用。A.DimmstrB.Dimmstr(256)AsStringC.DimmstrAsString*256D.DimmstrAsString[256]7.数据类型中的数值数据类型可以包括：Integer、、Currency和Byte。A.Double、Long、SingleB.Double、Long、DataC.Double、Single、ObjectD.Double、Long、Variant8.从子过程退出，并返回到主调过程，可使用语句。A.ExitB.ReturnC.ExitSubD.StopSub9.下列命令中可实现对随机文件的读操作。A.WriteB.GetC.InputD.Put10.在VisualBasic中将一个窗体从内存中释放时，允许用户进行控制，一般应该在事件中编程处理。A.LostFocusB.QueryUnloadC.ClickD.UnLoad11.设置窗体标题栏上的图标可通过属性来实现。A.IconB.ImageC.MouseIconD.Picture12.引用组合框ComBo1最后一个数据项应使用。A.Combo1.List(Combo1.ListCount)B.Combo1.List(Combo1.ListCount-1)C.Combo1.List(ListCount)D.Combo1.List(ListCount-1)13.Timer控件可用于后台进程中，可在Timer事件内编程，要触发Timer事件，必须通过以下属性。A.Enabled、IntervalB.Visible、IntervalC.Enabled、VisibleD.Tag、Interval14.下列说法正确的是。A.Move属性用于移动窗体或控件，并可改变其大小B.Move属性用于移动窗体或控件，但不可改变其大小C.Move方法用于移动窗体或控件，但不可改变其大小D.Move方法用于移动窗体或控件，并可改变其大小15.代数式yxyxe223.2所对应的VisualBasic表达式是。A.Exp(-2.3)+Sqr(x*x+y*y)/Abs(x+y)B.Exp^(-2.3)+Sqr(x*x+y*y)/Abs(x+y)C.Exp(-2.3)+Sqr(x*2+y*2)/Abs(x+y)D.Exp(-2.3)+Sqr(x^2+y^2/Abs(x+y))二、填空题（20分，每小题2分）1.窗体上放置了若干个文本框和命令按钮，当窗体装入后，要将焦点自动定位到命令按钮Command1上，则在设计时需要将Command1控件的属性设置为。2.当单击垂直滚动条的箭头时，要使滑块的移动量为15，则需通过属性来控制。3.当焦点进入文本框Text1时，要自动选定文本框第1到第6个位置上的6个字符，则需要通过代码和Text1.SelLength=来实现。4.对通用对话框选择方法，可显示“打开”对话框。5.对于窗体上的命令按钮，如果不允许进行操作，应通过属性进行设置。6.对于正在使用的动态数组C()，要增加1个单元，则应使用语句。7.格式输出函数Format(1234.56,##,##0.000)的显示结果为。8.为了使一个Picture控件能自动根据装入的图片调整大小，应设置该控件的属性为True。9.要使装入到列表框中的数据项能自动排序，应设置该控件的属性为True。10.在VisualBasic中要为对象变量赋值的关键字是。三、程序填空（20分，每小格2分）1.本程序随机产生N(15)个A到J的大写字母，按字母降序排序后，将连续出现的字母用压缩形式显示。例如，连续5个H字母显示为5*H，参见图1。数组a()用于存放随机产生的字母。图1PrivateSubCommand1_Click()ConstN=15Dima(1ToN)AsString*1,cDimcount%,i%,j%,k%Fori=1ToNa(i)=Chr(Int((1)))Printa(i);NextiPrintFori=1ToN-1′选择法排序k=iForj=(2)Ifa(j)a(k)Then(3)Nextjc=a(i):a(i)=a(k):a(k)=cNextiFori=1ToN′输出排序结果Printa(i);;NextiPrinti=1DoWhilei=N′压缩显示相同元素count=1IfiNThenj=i+1DoWhilea(i)=a(j)count=(4)IfjNThenj=j+1ElseExitDoLoopIfcount=1ThenPrinta(i);;ElsePrintcount;*;a(i);;i=(5)LoopEndSub2.HTOD函数是将十六进制整数字符串转换成十进制整数，参数Hsr为要转换的十六进制整数字符串。PublicFunctionHTOD(ByValHsrAsString)AsIntegerDimthsrAsString,iAsInteger,dAsInteger,fAsString,cAsStringthsr=UCase(Trim(Hsr))d=0IfLeft(thsr,1)=-Thenf=-thsr=Mid(thsr,2)EndIfFori=(1)c=Mid(thsr,i,1)′字母i与数字1Ifc=AThend=(2)-Asc(A)+10Elsed=d*16+Val(c)EndIfNextiIff=-Thend=(3)(4)EndFunctionCommand1_Click事件用于调用HTOD函数，将输入到文本框Text1中的十六进制字符串转换成十进制整数，并显示转换结果。例如，Text1中的值为“-ab”，转换结果显示(-ab)16=(-171)10。PrivateSubCommand1_Click()DimxAsIntegerx=(5)Print(&Text1&)&16=(&x&)10EndSub四、编程题（45分）1.打开软盘根目录上的c1.vbp工程，补充程序，当单击命令按钮时，可在文本框显示出十位数为5且能被5整除的四位数的个数，并将统计结果以随机文件形式存入A:＼c1.dat文件中。（10分）2.编一个完整程序，要求如下（35分）：（1）参见图2、图3，在Form1窗体上放置一个列表框，并用你的姓名和准考证号在窗体上建立两项菜单，在准考证号菜单下有名为“应用”与“结束”的两个子菜单；在Form2窗体上放置一个图形框，建立可通过鼠标右键弹出的菜单（快捷菜单），含有“画图”和“返回”两个菜单项，Form2窗体的标题为你的准考证号。（8分）图2图3（2）当单击“姓名”菜单，利用随机函数自动在列表框产生10个长度在2～10之间小写字母的字符串，每个字符串的组成字母左右对称。（10分）（3）单击“准考证”菜单的“应用”菜单项，打开Form2窗体；单击“结束”菜单项时，停止程序的运行。（5分）（4）单击Form2窗体上的“画图”菜单，用Pset方法绘制参数方程x=rCos4αCosα，y=rCos4αSinα在0～2π之间的图形，其中r为半径，取图形框的高度（或宽度）的一半；当单击“返回”按钮，回到Form1窗体。（7分）（5）Form1窗体、Form2窗体以及工程文件名分别设置为C21.FRM、C22.FRM和C2.VBP，保存在软盘根目录下，并且通过“文件|生成...exe”命令将工程生成C2.exe文件保存在软盘根目录下。（5分）VisualBasic程序设计模拟试卷二参考答案一、单选题1.C2.D3.A4.A5.B6.C7.A8.C9.B10.B11.A12.B13.A14.A15.A二、填空题1.Tabindex02.Smallchange3.Text1.SelStart=064.ShowOpen5.Enabled6.ReDimC(Ubound(C)+1)7.1,234.5608.AutoSize9.Sorted10.Set三、程序填空1.（1）Rnd*10+65（2）i+1ToN（3）k=j（4）count+1（5）i+count2.（1）1ToLen(thsr)（2）d*16+Asc(c)（3）-d（4）HTOD=d（5）HTOD(Text1)四、编程题1.程序参考答案：PrivateSubCommand1_Click()Dimi,a,b,c,dAsIntegerText1.Text=Themunberof题意要求n=0Fori=1000To9999a=i\1000b=i\100-a*10c=i\10-a*100-b*10d=i-a*1000-b*100-c*10If(c=5And(d=0Ord=5))Thenn=n+1EndIfNextText1.Text=nfilenum=FreeFileOpena:\a1.datForOutputAsfilenumPrint#filenum,Text1.TextClosefilenumEndSub2.程序参考答案：（1）Form1：PrivateSubCombo1_DblClick()List1.AddItemCombo1.SelTextCombo1.Text=EndSubPrivateSubCombo1_KeyPress(KeyAsciiAsInteger)IfCombo1.TextAndKeyAscii=13ThenCombo1.AddItemCombo1.TextCombo1.Text=EndIfEndSubPrivateSubmntDing_Click()Dimi,l,kAsIntegerDimstrAsStringDima(1To10)AsStringList1.ClearFork=1To10l=Rnd*8+2Fori=1Tol/2+1c=Rnd*25+97a(i)=Chr(c)a(l+1-i)=Chr(c)Nextstr=Fori=1Tol+1str=str&a(i)NextFori=1To10a(i)=NextList1.AddItemstrNextEndSubPrivateSubmntExit_Click()EndEndSubPrivateSubmntWindows2_Click()Form1.HideLoadForm2Form2.ShowEndSub（2）Form2：PrivateSubCommand1_Click()Dimx,y,r,aPicture1.ScaleMode=3Picture1.AutoRedraw=TruePicture1.Width=Picture1.HeightPicture1.Scale(-3.14159,-3.14159)-(3.14159,3.14159)r=Picture1.ScaleWidth/2Fora=0To2*3.14159Step0.001x=r*Cos(4*a)*Cos(a)y=r*Cos(4*a)*Sin(a)Picture1.PSet(x,y)NextaEndSubPrivateSubCommand2_Click()UnloadMe