VB参考答案与评分标准.docVIP

《Visual Basic程序设计（语种代号：211）》（A）卷 参考答案及评分标准 单项选择题（每题1分，共40分） 1-5 C D C C A 6-10 B A B B D 11-15 C B D B A 16-20 A C D A B 21－25 C B C A C 26-30 B B D C A 31-35 C D D A A 36-40 D B D C B 填空题（每空2分，共20分） 序号 参考答案 评分标准 （1） 运行模式 不区分大小写，其他答案只要正确参照给分 （2） .frm （3） Form1.Hide （4） ( x + y ) / ( x * y ) 或 ( x + y ) / x / y （5） 选择结构 或 分支结构 （6） PasswordChar （7） 顺序型 或 顺序文件 （8） PopupMenu （9） Int ( n / 100 ) 或 n \ 100 （10） p = n 阅读理解题（每小题4分，共20分） 序号 参考答案 评分标准 1 4 16 写对左边或右边的一个数得2分写成两行，但结果正确得3分 2 4 3 d=23 答案中含有“d=”得1分写出 23 得3分 4 24 5 14 22 写对左边或右边的一个数得2分写成两行，但结果正确得3分 编程题（共20分） 序号 参考程序 评分标准 1 Function fun(n As Integer) As Long Dim i As Integer, s As Long s = 1 For i = 1 To n s = s * i Next i fun = s End Function 正确写出函数名、行参、函数类型得2分，函数类型定义成Integer扣1分函数体算法正确得2分（方法不限）给函数名赋值正确得1分函数结构正确得1分 2 Private Sub Form_Click () Randomize Cls Dim a(10) As Integer, i As Integer, j As Integer Dim k As Integer, t As Integer For i = 1 To 10 a(i) = Int(Rnd() * 101) Next i For i = 1 To 9 k = i For j = i + 1 To 10 If a(k) a(j) Then k = j Next j If k i Then t = a(i): a(i) = a(k): a(k) = t Next i For i = 1 To 10 Print a(i); Next i End Sub Randomize与Cls不写不扣分数组定义正确得1分数组赋值正确得2分排序方法不限,正确得3分输出正确得1分 3 Private Sub Command1_Click() If Val(Text1.Text) 0 Then MsgBox 数据输入有误,请重输!, vbOKOnly, 系统提示 Text1.Text = Text2.Text = Else If Val(Text1.Text) = 2.5 Then Text2.Text = Str(6) ElseIf Val(Text1.Text) = 10 Then Text2.Text = Str(Int(6 + (Val(Text1.Text) - 2.5) * 1.2 + 0.5)) Else Text2.Text = Str(Int(6 + (Val(Text1.Text) - 2.5) * 1.2 + 10 + 0.5)) End If End If End Sub 事件框架正确得1分没有容错处理,不扣分选择结构正确得2分分支表达式正确得3分Text1、Text2对象引用正确得1分 注：其它解法可参照给分 2