外汇局网站预收货款报告怎么做/国际军事新闻
2012年上海市高等学校计算机等级考试试卷
二级 VB.NET程序设计 ( A 卷)
(本试卷考试时间 120 分钟)
一、单选题 ( 本大题 10 道小题 ，每小题 1.5 分，共 15 分)，从下面题目给出的A、B、C、D四个可供选择的答案中选择一个正确答案。
1.当运行程序时，系统自动执行启动窗体的__________事件过程。 答案：A
A.Load
B.Click
C.UnLoad
D.GotFocus
2.已知列表框(ListBox1)中有10个数据项，对列表框操作正确的语句是___________。 答案：B
A.ListBox1.Clear()
B.ListBox1.Items.RemoveAt(4)
C.ListBox1.Items.RemoveAt("计算机")
D.ListBox1.Items.Add(1, "打印机")
3.若要使标签控件显示时不覆盖窗体的背景图案，要对___________ 属性进行设置。 答案：A
A.BackColor
B.BorderStyle
C.Back
D.ForeColor
4.下列函数中，_________函数返回值是数值型的。 答案：D
A.Chr
B.Mid
C.Replace
D.Val
5.下面的过程定义语句中_________是不合法的。
答案：A
A.Sub Sub1(ByVal n%) As Integer
B.Sub Sub1(ByVal sub1%)
C.Function Sub1(ByVal n%) As Integer
D.Function Sub1%(ByVal n%)
6. 定义结构类型并声明变量如下：
Structure Student
Dim No As Integer
Dim Name As String
End Structure
Dim s As Student
下列语句正确的是__________。
答案：D
A.s={100001,"张三"}
B.Name="张三"
C.Student.Name="张三"
D.s.Name="张三"
7.VB程序设计中，响应对象的外部动作称为______ , 而对象可以执行的动作或对象本身的行为则称为______。 答案：B
A.方法，事件
B.事件，方法
C.属性，方法
D.过程，事件
8.在过程A中定义了静态变量y。当调用过程A第一条语句开始，在退出过程A前，y的值为5。当下次再进入过程A时，y的值为_____。 答案：A
A.5
B.0
C.不定值
D.出错
9.用户单击水平滚动条HScrollBar1两端的箭头(“>”或“ 0 Then '若是零巧数，则添加
ListBox1.Items.Add(i)
(2)
End If
Next i
End Sub
Function Shu(ByVal n%) As Integer
Dim k%, m%
Shu = -1
k = Mid(n, 2, 1) '获取百位数
If (3) Then
m = Mid(n, 1, 1) & (4)
If m * 9 = n Then Shu = (5)
End If
End Function
1)：【Shu(i)】
2)：【ListBox2.Items.Add(n)】
3)：【k = 0】
4)：【Mid(n, 3, 2)】
5)：【m】
三、操作题
三、程序调试题(共30分，每改正一错得3分，第1题有3处错，第2题有3处错，第3题有4处错)
启动解决方案文件"C:\ks\改错A.sln"，请调试改正，并按原文件名和位置保存。正确结果见样例"c:\样张\改错样例A.exe"。
改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记 ' ***********。
调试改错题1, 程序中有3个错误。
程序的功能是单击"调试改错题1"按钮，随机产生一个1900-2200之间的年份，在文本框显示；在标签2显示是否是闰年。判断闰年：若该年份能够被4整除但不能被100整除，或者能够被400整除,则该年份是闰年。程序中有2个错误，请调试改正。
Private Sub Button1_Click(…) Handles Button1.Click
Dim year%
Dim t1, t2, t3 As Boolean
year = Int(Rnd() *301 + 1900)'此句无错
year =TextBox1.Text
t1 = year Mod 4=1
t2 = year Mod 100 <> 0
t3 = year Mod 400 = 0
If (t1 And t2) And t3 Then
Label2.Text = year & "年是闰年"
Else
Label2.Text = year & "年不是闰年"
End If
End Sub
调试改错题2, 程序中有3个错误。
单击"调试改错题2"按钮，启动定时器，显示打字机效果的文字和光标效果("_")；当文字显示完整，关闭定时器，光标不显示,见样例。程序中有3个错误，请调试改正。
Private Sub Button2_Click(…) Handles Button2.Click
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick(…) Handles Timer1.Tick
Static p% 'p为记录字符位置的变量
Dim s$ = "欢迎参加年计算机等级考试"
Label3.Text = Mid(s, p) & "_" '逐一显示p个字符
If p = Len(s) Then
Timer1.Enabled ="True"
Label3.Text = s
Else
p = p + 1
End If
End Sub
调试改错题3, 程序中有4个错误。
计算多项式 e = 1+1/1！ + 1/2！+1/3！+…+1/6！的值。
Private Sub Button3_Click(…) Handles Button3.Click
Dim i As Integer
Dim f As Integer
Dim ee As Double
ee = 1
f = 0
For i = 1 To 6
f = f * i
ee = ee + f
Next
Label4.Text = " e= " + ee
End Sub
四、编程题(35分)
参照样例，编写一个完整的程序，要求如下：
1．在C:\KS 目录下新建项目文件VBNET1.sln。
2．在Form1窗体上放置文本框1、列表框、标签和命令按钮，并建立菜单，界面如样例所示。在Form2窗体上放置“返回”两个命令按钮。
3．在Form1窗体上单击“确定”按钮，模拟出租车计价器计算车费，将本单交易添加到列表框，清除文本框中数据，并将每次车程的里程数和交易金额按下图格式，以追加方式记录在C:\ks\A.TXT中。
计算公式：起步费：13元(3公里)，3到10公里：2.4元/公里，10公里以后：3.6元/公里。
4．单击“求平均值”菜单项，在标签中显示各次车费的平均值；单击"窗体2"菜单项时，打开Form2窗体；单击"退出"菜单项时，结束程序的运行。
5．在Form2窗体上单击"返回"命令按钮则关闭Form2窗体。
单击“绘图”命令按钮，设置窗体为画布，坐标原点(x0,y0)为(w/2, h/2)(w为窗体宽度,h为窗体高度)，绘制坐标轴；按公式：
x = x0 + t * 50
绘制曲线。
其中，-2≤t≤2，步长 0.01，50和h / 4为x、y的放大倍数
展开阅读全文