计算机考试二级VB模拟

二级VB.NET程序设计（模拟）（本试卷考试时间120分钟）一、单选题(本大题10道小题，每小题1.5分，共15分），从下面题目给出的A、B、C、D四个可供选择的答案中选择一个正确答案。1.欲利用GDI+绘制矩形，应使用的绘图方法是_______。A.DrawEllipseB.DrawPieC.DrawRectangleD.DrawArc2.________可为调试语句设定断点。A.将光标放置在欲调试语句上，按F9功能键B.将光标放置在欲调试语句上，按F5功能键C.在要调试语句之前加“//”号D.在要调试语句之后加“break”3.用打开文件对话框控件可筛选打开Word2003的doc文档或Word2010的docx文档，应使用OpenFileDialog1.Filter=”__________”。A.*.doc;*.docx|Word文档B.*.doc,*.docx|Word2003文档,Word2010文档C.Word2003文档|*.doc|Word2010文档|*.docxD.Word2003文档,Word2010文档|*.doc,*.docx4.下列合法的变量名是________。A.math+chemB.dna_5C.dna.5D.String5.若有DimChAsChar语句，在分支结构的Case子句中，判断变量Ch的值是“3”到“5”之间的字符，以下子句中正确的是________。A.Case3To5B.CaseCh=3AndCh=5C.Case3,4,5D.CaseCh=3OrCh=4OrCh=56.Dims%=0Dos=s+1LoopWhiles=3执行加法操作的次数为______。A.0B.4C.3D.57.Dimarr(9,11)AsInteger所声明的数组，包含_____个元素。A.20B.120C.99D.228.希望调用MyProc过程后2个参数均有返回值,则过程头声明为__________。A.SubMyProc(ByValm%,ByRefn%)B.SubMyProc(ByRefm%,ByRefn%)C.SubMyProc(ByValm%,ByValn%)D.SubByRefMyProc(m%,n%)9.打开窗体Form1时自动执行的语句，应将代码写入_______事件的过程模块。A.Form1_Load()B.Form1.Load()C.Form_Load()D.Form.Load()10.欲打开并读取磁盘上的顺序文件“C:\ks\data.txt”，应使用语句_____。A.FileOpen(1,C:\ks\data.txt,OpenMode.Output)B.Dimtxtfile$=C:\ks\data.txtFileOpen(1,txtfile,OpenMode.Input)C.Dimtxtfile$=C:\ks\data.txtFileOpen(1,txtfile,OpenMode.Input)D.FileOpen(1,C:\ks\data.txt,OpenMode.Input)二、程序填空题(本大题2道小题，每空2.5分，共20分）。1.以下程序的功能是：单击计算按钮后，输出所有3位整数中满足3个数字之和是11的倍数的那些数,并按每行10个的形式显示在标签Label1上，请在空格中填入适当的内容。PrivateSubButton1_Click(…)HandlesButton1.ClickDimx(100)AsInteger,pAsInteger,i%,a%,b%,c%Label1.Text=p=0Fori=100To999a=i\100b=i\10Mod10c=______(1)______If(a+b+c)Mod11=0Thenx(p)=______(2)______Label1.Text=Label1.Text&x(p)&p=p+1IfpMod10=0ThenLabel1.Text=______(3)______EndIfEndIfNextiLabel1.Text=Label1.Text&vbCrLf&满足条件的数共有&______(4)______&个。EndSub2.以下程序的功能是：在文本框（TextBox1）中输入字符串后，单击“分解”按钮，先去除文本框中字符串的前后空格，然后再分解为字母和数字2个字符串。分别按原来顺序输出在标签Label1和Label2上,其他字符舍弃。如果文本框中没有输入字符或仅输入空格，则显示提示信息，重新输入。请在空格中填入适当的内容。SubMySub(ByValsAsString)DimiAsInteger,cAsCharFori=1ToLen(s)c=Mid(s,i,___(1)___)IfUCase(c)=AAndUCase(c)=ZThenLabel1.Text=Label1.Text&cElseIfc=0___(2)___ThenLabel2.Text=Label2.Text&cEndIfNextiEndSubPrivateSubButton1_Click(…)HandlesButton1.ClickDimstAsStringst=Trim(___(3)___)Label1.Text=Label2.Text=IfLen(st)0ThenCall___(4)___ElseMsgBox(文本框中没有字符，请重新输入)TextBox1.Focus()EndIfEndSub三、操作题三、程序调试题(本大题3道小题，第1题有3处错，第2题有3处错，第3题有4处错，每改正一个错得3分，共30分)启动解决方案文件C:\KS\改错题A.sln，请调试改正，并按原文件名和位置保存。正确结果见样例C:\样张\调试改错题A样例.EXE。改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在该句尾加上注释标记：'***********。1.调试改错题1程序的功能是：输入字符串，单击调试改错题1按钮，如果字符串长度是奇数，则输出中间一个字符；如果长度是偶数，则输出第一个字符和最后一个字符。程序中有3个错误，请调试改正。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimr,sAsStrings=TextBox1.TextDimnAsIntegern=Len(s)Ifn/2=0Thenr=Mid(s,1,1)+Mid(s,n,1)Elser=Mid(s,n/2,1)EndIfLabel3.Name=rEndSub2.调试改错题2程序的功能：拖动水平滚动条后，获得一个正整数n（1≤n≤9），将输出由数字n组成的n行倒三角图形。程序中有3个错误，请调试改正。PrivateSubHScrollBar1_Scroll(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.ScrollEventArgs)HandlesHScrollBar1.ScrollLabel4.Text=Dimi%,j%,n%n=HScrollBar1.SmallChangeFori=1TonLabel4.Text=Label4.Text+Space(2)Forj=1To2*(n-i)+1Label4.Text=Label4.Text&nNextjLabel4.Text=Label4.Text&vbCrLfNextiEndSub3.调试改错题3下列程序的功能是，在第一个文本框中输入正整数n，单击调试改错题3按钮后，利用公式求出s的值，并将结果显示在第二个文本框中。程序中有4个错误，请调试改正。其中：PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimn,iAsIntegern=Value(TextBox2.Text)Dimxi,sAsDoubles=0Fori=nTo1IfiMod20Thenxi=i\2.0Elsexi=iEndIfs=Math.Sin(xi+5)/(1.0+Math.Sqrt(xi*5))NextTextBox3.Text=sEndSub四、编程题(35分)参照样例，编写一个完整的程序，要求如下：1．界面设计要求(1)在Form1窗体上放置文本框、组合框和标签，并建立菜单，在应用主菜单项下有计算、窗体2和退出三个菜单项，界面如图1所示。(2)在Form2窗体上放置图片框（宽350、高250）以及绘图和返回两个命令按钮，界面如图2所示。2．保存要求在C:\KS目录下创建名为VBNETA.sln的解决方案。3．Form1窗体编程要求(1)组合框1对应存款期限（年），属性值分别为：1、2、3和5；组合框2对应存款年利率，属性值与存款期限分别对应为：3.25%、3.75%、4.25%和4.75%；要求选择组合框1的期限项，组合框2利率联动显示。(2)在文本框中输入存款金额（元），在组合框1中选择存款期限，选择计算菜单项，计算到期利息显示在标签中，界面如图1所示。到期利息=存款金额×存款期限×存款年利率(3)选择窗体2菜单项，打开Form2窗体；选择退出菜单项，结束程序的运行。4．Form2窗体编程要求(1)在Form2窗体中设置两个按钮：绘图、返回。单击返回按钮，关闭Form2窗体。(2)在Form2窗体上单击绘图命令按钮，定义图片框为画布，设置坐标原点(x0,y0)为画布的中心（画布宽和高的一半）,先绘制坐标轴，然后按以下公式绘制图形，其中80和35分别为在屏幕显示时x轴和y轴的放大倍数。（注意：GDI+画布坐标的Y轴正方向向下，与数学坐标方向相反）x=t×80t的取值范围为-4.5至1.5，步长为0.01。图形绘制思路：对于t1，可求出x1、y1；t2=t1+0.01，可求出x2、y2。当y2y1时，自（x2,y2）向（x2+20,y2）绘制一段红色的水平线段；当y2y1时，自（x2,y2）向（x2+20,y2）绘制一段黑色的水平线段，结果如图2所示。图1计算图2绘图