计算机考试二级 VB模拟

1、二级 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文档或

2、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.若有Dim Ch As Char语句，在分支结构的Case子句中，判断变量 Ch 的值是“3”到“5”之间的字符，以下子句中正确的是_。 A.

3、Case "3" To "5"B.Case Ch>="3" And Ch<="5"C.Case 3, 4, 5D.Case Ch="3" Or Ch="4" Or Ch="5"6. Dim s%=0Do s=s+1Loop While s<=3执行加法操作的次数为_。 A.0B.4C.3D.57.Dim arr(9,11) As Integer所声明的数组，包含_个元素。 A.20B.120C.99D.228.希望调用MyProc过程后2

4、个参数均有返回值, 则过程头声明为_。 A.Sub MyProc(ByVal m%, ByRef n%)B.Sub MyProc(ByRef m%, ByRef n%)C.Sub MyProc(ByVal m%, ByVal n%)D.Sub ByRef MyProc(m%, n%)9.打开窗体Form1时自动执行的语句，应将代码写入_事件的过程模块。 A.Form1_Load()B.Form1.Load()C.Form_Load()D.Form.Load()10.欲打开并读取磁盘上的顺序文件“C:ksdata.txt”，应使用语句_。 A.FileOpen(1,"C:ksdata.

5、txt",OpenMode.Output)B.Dim txtfile$="C:ksdata.txt" FileOpen(1,txtfile,OpenMode.Input)C.Dim txtfile$="C:ksdata.txt" FileOpen(1,"txtfile",OpenMode.Input)D.FileOpen(1,C:ksdata.txt,OpenMode.Input)二、程序填空题 ( 本大题 2 道小题 ，每空 2.5 分，共 20 分）。1. 以下程序的功能是：单击"计算"按钮后，输出所

6、有3位整数中满足3个数字之和是11的倍数的那些数,并按每行10个的形式显示在标签Label1上，请在空格中填入适当的内容。 Private Sub Button1_Click() Handles Button1.Click Dim x(100) As Integer, p As Integer, i%, a%, b%, c% Label1.Text = "" p = 0 For i = 100 To 999 a = i 100 b = i 10 Mod 10 c = _(1)_ If (a + b + c) Mod 11 = 0 Then x(p) = _(2)_ Labe

7、l1.Text = Label1.Text & x(p) & " " p = p + 1 If p Mod 10 = 0 Then Label1.Text =_(3)_ End If End If Next i Label1.Text = Label1.Text & vbCrLf & "满足条件的数共有" & _(4)_ & "个。"End Sub 2. 以下程序的功能是：在文本框（TextBox1）中输入字符串后，单击“分解”按钮，先去除文本框中字符串的前后空格，然后再分解为字母和数字

8、2个字符串。分别按原来顺序输出在标签Label1和Label2上,其他字符舍弃。如果文本框中没有输入字符或仅输入空格，则显示提示信息，重新输入。请在空格中填入适当的内容。Sub MySub(ByVal s As String) Dim i As Integer, c As Char For i = 1 To Len(s) c = Mid(s, i, _(1)_) If UCase(c) >= "A" And UCase(c) <= "Z" Then Label1.Text = Label1.Text & c ElseIf c >

9、= "0" _(2)_ Then Label2.Text = Label2.Text & c End If Next iEnd SubPrivate Sub Button1_Click() Handles Button1.Click Dim st As String st = Trim(_(3)_) Label1.Text = "" Label2.Text = "" If Len(st) > 0 Then Call _(4)_ Else MsgBox("文本框中没有字符，请重新输入") TextBox

10、1.Focus() End IfEnd Sub 三、操作题三、程序调试题(本大题3道小题，第1题有3处错，第2题有3处错，第3题有4处错，每改正一个错得3分，共30分)启动解决方案文件"C:KS改错题A.sln"，请调试改正，并按原文件名和位置保存。正确结果见样例"C:样张调试改错题A样例.EXE"。改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在该句尾加上注释标记：' *。 1.调试改错题1程序的功能是：输入字符串，单击"调试改错题1"按钮，如果字符串长度是奇数，则输出中间一个字符；

11、如果长度是偶数，则输出第一个字符和最后一个字符。程序中有3个错误，请调试改正。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim r, s As String s = TextBox1.Text Dim n As Integer n = Len(s) If n / 2 = 0 Then r = Mid(s, 1, 1) + Mid(s, n, 1) Else r = Mid(s, n / 2 , 1) End If Lab

12、el3.Name = rEnd Sub2.调试改错题2程序的功能：拖动水平滚动条后，获得一个正整数n（1n9），将输出由数字n组成的n行倒三角图形。程序中有3个错误，请调试改正。 Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll Label4.Text = "" Dim i%, j%, n% n = HScrollBar1. SmallChange F

13、or i = 1 To n Label4.Text = Label4.Text + Space(2) For j = 1 To 2 * (n - i) + 1 Label4.Text = Label4.Text & "n" Next j Label4.Text = Label4.Text & vbCrLf Next iEnd Sub3.调试改错题3下列程序的功能是，在第一个文本框中输入正整数n，单击"调试改错题3"按钮后，利用公式求出s的值，并将结果显示在第二个文本框中。程序中有4个错误，请调试改正。其中： Private Sub But

14、ton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim n, i As Integer n = Value(TextBox2.Text) Dim xi, s As Double s = 0 For i = n To 1 If i Mod 2 <> 0 Then xi = i 2.0 Else xi = i End If s = Math.Sin(xi + 5) / (1.0 + Math.Sqrt(xi * 5) Next TextBox3.Te

15、xt = sEnd Sub四、编程题(35分)参照样例，编写一个完整的程序，要求如下：1界面设计要求(1)在Form1窗体上放置文本框、组合框和标签，并建立菜单，在"应用"主菜单项下有"计算"、"窗体2"和"退出"三个菜单项，界面如图1所示。(2)在Form2窗体上放置图片框（宽350、高250 ）以及"绘图"和"返回"两个命令按钮，界面如图2所示。2保存要求在C:KS目录下创建名为"VBNETA.sln"的解决方案。3Form1窗体编程要求(1)组合框1

16、对应存款期限（年），属性值分别为：1、2、3和5；组合框2对应存款年利率，属性值与存款期限分别对应为：3.25%、3.75%、4.25%和4.75%；要求选择组合框1的期限项，组合框2利率联动显示。 (2)在文本框中输入存款金额（元），在组合框1中选择存款期限，选择"计算"菜单项，计算到期利息显示在标签中，界面如图1所示。到期利息=存款金额×存款期限×存款年利率(3)选择"窗体2"菜单项，打开Form2窗体；选择"退出"菜单项，结束程序的运行。4Form2窗体编程要求(1) 在Form2窗体中设置两个按钮："绘图"、"返回"。单击"返回"按钮，关闭Form2窗体。(2) 在Form2窗体上单击"绘图"命令按钮，定义图片框为画布，设置坐标原点(x0,y0) 为画布的中心（画布宽和高的一半）, 先绘