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

VisualBasic程序设计语言模拟试卷一一、单选 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 （15分，每小题1分）1.VisualBasic是一种面向对象的程序设计语言，面向对象系统所包含的三要素是。A.属性、事件、方法B.控件、属性、事件C.窗体、控件、过程D.窗体、控件、模块2.VisualBasic的一个应用程序通常至少包含一个文件，该文件存贮窗体上使用的所有控件对象和有关的、对象相应的过程和代码。A.模块、方法、事件、程序B.窗体、属性、事件、程序C.窗体、程序、属性、事件D.程序、属性、事件、模块3. 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式"321"&100+"200"的值是。A.321300B.321100200C."321300"D.6214.设CurrentX=200，CurrentY=350，执行指令“Line-Step(300,600),,B”后，CurrentX=。A.200B.300C.500D.6005.按照VisualBasic默认规定，数组声明Dimmarray(2,1to3,5)共有个元素。A.20B.30C.54D.726.声明一个长度为20个字节的字符串变量mstr，应使用。A.Dimmstr=20B.Dimmstr(20)AsStringC.DimmstrAsString*20D.DimmstrAsString(20)7.数据类型中的数值数据类型可以包括：、Double、Currency和Byte。A.Integer、Long、SingleB.Integer、Long、DataC.Integer、Object、SingleD.Integer、Long、Variant8.从循环体Do…Loop中退出并继续执行程序，可使用语句。A.ExitB.ExitLoopC.ExitSubD.ExitDo9.下列命令中可实现对二进制文件的写操作。A.WriteB.GetC.InputD.Put10.在VisualBasic中要将一个窗体装载到内存中进行预处理，但不显示，应该使用语句。A.ShowB.HideC.LoadD.UnLoad11.设置窗体最小化时的图标可通过属性来实现。A.IconB.ImageC.MouseIconD.Picture12.如果列表框List1中已有10项数据，应使用语句将数据“Mydata”插入到列表框的第3项。A.List1.AddItem"Mydata",3B.List1.Insert"Mydata",3C.List1.AddItem"Mydata",2D.List1.Insert"Mydata",213.Timer控件可用于后台进程中，要使Timer事件每1秒钟触发一次，则需设置Interval属性为。A.1B.10C.100D.100014.下面子过程语句合法的是。A.Subs1(ByValn%())B.Subs1(nAsInteger)AsIntegerC.Functionf1%(f1AsInteger)D.Functionf1(ByValnAsInteger)15.代数式(a+b)÷(5÷c+d÷2)的VisualBasic表达式是。A.(a+b)/5/c+d/2B.a+b/(5/c+d/2)C.(a+b)/(5/c+0.5d)D.(a+b)/(5/c+d/2)二、填空题（20分，每小题2分）1.窗体上放置了若干个文本框和列表框，当窗体装入后，要将焦点自动定位到List1上，则在设计时需要将List1控件的属性设置为。2.当单击水平滚动条上的空白区域时，要使滑块的移动量为230，则需通过属性来控制。3.当焦点进入文本框Text1时，要自动选定文本框第3到第8个位置上的6字符，则需要通过代码Text1.SelStart=和来实现。4.对通用对话框选择方法，可显示字体对话框。5.对于窗体上的复选按钮，如果不允许进行操作，应通过属性进行设置。6.对于正在使用的动态数组B()，要增加3个单元，则应使用语句。7.格式输出函数Format(1234.00,"###.###")的显示结果。8.绘制圆心坐标为(1000,1000)，半径为800的圆，其代码为。9.若调用过程时，采用值传递方式，则应在形参说明前添加关键字。10.为了使目录列表框Dir1和驱动器列表框Drive1之间能产生同步效果，必须在事件过程中加入语句。三、程序填空（20分，每小格2分）1.下面的程序按从小到大的顺序随机产生不超过20个介于100到400（包括100、400）的数，每次产生的一个数总大于它前面已产生的数，然后求产生的数的平均值。数组b(20)用于存放所产生的随机数，运行结果图1所示。图1PrivateSubCommand1_Click()Dimb(20),iAsInteger,jAsInteger,sumAsSinglej=1Dore:b(j)=Int((1))Ifb(j)=400Orj=20ThenExitDoElseIfb(j)<=b(j-1)Then′控制新产生的数总大于前面已产生的数(2)EndIf(3)Loopsum=(4)Fori=1TojPrintb(i);sum=sum+b(i)NextiPrint"aver=",(5)EndSub2.新的身份证号由18位组成，最低位（右边）为校验位，其算法是：10－（前17位之和关于10的模）。函数foe用于对18位的身份证号进行校验。参数mstr存放身份证号，md为产生的校验位，若校验正确，函数返回“True”，否则返回“False”。PublicFunctionfoe(ByValmstr$,md%)AsBooleanDimmpAsString,msumAsIntegermsum=0(1)mp=Mid(mstr,i,1)msum=msum+Val(mp)Nextimd=10-(2)Ifmd=(3)Thenfoe=TrueElsefoe=FalseEndIfEndFunctionCommand1_Click事件用于调用foe函数，对输入到文本框Text1的身份证号进行校验，如果校验正确，显示“True”，否则显示“False”和校验码值。PrivateSubCommand1_Click()DimmmAsIntegerIfLen(Text1)<>18OrNotIsNumeric(Text1)ThenMsgBox"非法数据，请重新输入！"Text1=""(4)ExitSubEndIfIffoe(Text1,mm)=TrueThenPrintTrueElse(5)EndIfEndSub四、编程题（45分）1.打开软盘根目录上的b1.vbp 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 ，补充程序，当单击命令按钮时可在文本框显示出700～800中所有素数的个数，并将统计结果以随机文件形式存入b1.dat文件中。（10分）2.编一个完整的程序，要求如下（35分）：（1）参见图2、图3，在Form1窗体上放置组合框Combo1、列表框List1，标签Label1和Label2；用你的准考证号建立一项菜单，包含两个菜单项：分别为“窗体2”和“结束”，之间有分隔线。在Form2窗体上放置一个时钟控件和图形框，窗体的标题设置为你的准考证号。（8分）（2）当在Form1窗体的组合框中输入新的课程名按回车后，可使该课程名加入到组合框中；当双击组合框中某课程名，可使该课程加入到List1中。（7分）图2图3（3）当单击“窗体2”菜单项时，打开Form2窗体，单击“结束”菜单项时，停止程序的运行。（5分）（4）在Form2窗体中建立可通过鼠标右键弹出的菜单（快捷菜单）。含有“装入图”、“移动”和“返回”三个菜单项。选择“装入图”菜单项，在图形框装入clouds.bmp图形文件；选择“移动”菜单项，图形框按每0.1秒频率在窗体上右向左移动20单位；选择“返回”菜单项关闭Form2窗体，显示Form1窗体。（10分）（5）在软盘根目录下将工程保存为B2.VBP、Form1窗体为B21.FRM、Form2窗体为B22.FRM，并且通过“文件|生成...exe”命令将工程生成A:＼B2.exe文件。（5分）VisualBasic程序设计模拟试卷一参考答案一、单选题1.A2.B3.C4.C5.C6.C7.A8.D9.D10.C11.A12.C13.D14.A15.D二、填空题1.Tabindex02.LargeChange3.2Text1.SelLength=64.ShowFont5.Enabled6.ReDimB(Ubound(B)+3)7.12348.Circle(1000,1000),8009.ByVal10.Drive1_ChangeDir1.path=Drive1.Drive三、程序填空1.（1）Rnd*301+100（2）GoTore（3）j=j+1（4）0（5）sum/j2.（1）Fori=1ToLen(mstr$)-1（2）msumMod10（3）Val(Right(mstr,1))（4）Text1.SetFocus（5）PrintFalse,mm四、编程题1.参考答案一：（根据试卷提供的程序补充而成）PrivateSubCommand1_Click()DimMyRecordAsRecord′声明变量′补充程序Dimi,j,kAsIntegerk=0Fori=1000To2000Forj=2Toi-1IfiModj=0ThenGoTonextmNextjk=k+1nextm:NextiText1=kMyRecord.st=Label1MyRecord.sj=kOpenApp.Path+"\b1.dat"ForRandomAs#1Len=Len(MyRecord)Put#1,,MyRecordClose#1EndSub注：App.Path+"\b1.dat"以绝对路径的方式表示的文件名"b1.dat"省略了路径的文件名，表示在当前目录中2.程序参考答案一：（1）Form1：PrivateSubCombo1_DblClick()List1.AddItemCombo1.SelTextCombo1.Text=""EndSubPrivateSubCombo1_KeyPress(KeyAsciiAsInteger)IfCombo1.Text<>""AndKeyAscii=13ThenCombo1.AddItemCombo1.TextCombo1.Text=""EndIfEndSubPrivateSubmntExit_Click()EndEndSubPrivateSubmntWindows2_Click()Form1.HideLoadForm2Form2.ShowEndSub（2）Form2：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumntMain,2EndIfEndSubPrivateSubmntCircle_Click()Timer1.Enabled=TrueEndSubPrivateSubmntLoad_Click()Picture1.Picture=LoadPicture("a:＼clouds.bmp")EndSubPrivateSubmntReturn_Click()Timer1.Enabled=FalseUnloadMeLoadForm1Form1.ShowEndSubPrivateSubTimer1_Timer()Picture1.Move20EndSub参考答案二：（1）Form1：PrivateSubCombo1_DblClick()Fori=0ToList1.ListCount-1List1.ListIndex=iIfList1.Text=Combo1.TextThenExitSubNextiList1.AddItemCombo1.TextEndSubPrivateSubCombo1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13AndCombo1.Text>""Thenmt=Combo1.TextFori=0ToCombo1.ListCount-1Combo1.ListIndex=iIfCombo1.Text=mtThenExitSubNextiCombo1.AddItemmtEndIfEndSubPrivateSubmenu11_Click()Form2.ShowEndSubPrivateSubmenu12_Click()EndEndSub（2）Form2：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumenu1EndSubPrivateSubmenu11_Click()Picture1=Picture2EndSubPrivateSubmenu12_Click()Timer1.Interval=100EndSubPrivateSubmenu13_Click()UnloadMeEndSubPrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumenu1EndSubPrivateSubTimer1_Timer()Picture1.Left=Picture1.Left-20EndSub