国家计算机二级VB(笔试)复习指导与习题.docVIP

  • 11
  • 0
  • 约4.48千字
  • 约 9页
  • 2017-01-02 发布于贵州
  • 举报

国家计算机二级VB(笔试)复习指导与习题.doc

全国计算机等级考试Visual Basic6.0二级从2002年09月开始考试,至今已举行过次。从应试的角度综合分析历次考试试卷,我们发现每次考试难度波动很小、题型类似或一样的很多。因此,广大考生只要“以教科书为本”,认真复习并做到以下几点,通过二级VB笔试还是有比较大的希望的。 一、熟悉考试题型,掌握基本做题技巧。 VB考试只有选择题和填空题两种题型,其中选择题共30题,分值70分,填空题共15小题,分值30分。这两种题型的解题方法有所不同,考生在备考时要深化对基本概念和知识点的理解,并注重实践,同时要多做一些针对性的练习,特别是历年真题,从中找出规律性的东西以及解题技巧。 A、选择题解题技巧: 常见的选择题解法有“排除法”。我们从历年四次考试中分别挑选一个选择题进行举例,希望大家引起重视,并能熟练掌握这种解题技巧。 例1:(2003年09月考题)设有如下通用过程,在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer x = 10 y = 5 y = f(x) Print x; y End Sub Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 程序运行后,如果单击命令按钮,则在窗体上显示的内容是 A)10 5 B)20 5 C)20 40 D)10 40 【答案】C 【分析】对于传值和传地址的题目,解题时我们可以运用适当的排除技巧,如针对上面的题目我们可以进行分析后直接得出结果: 本题中,X初值是10,Y初值是5。 但由于X传地址,所以要互相影响,故在主程序调用函数F(X)后,打印语句中X不可能是原来的10,因此可以马上排除答案A和D;而Y是靠函数本身传递值,故在函数过程中F得到新值40后就如同传地址一样把结果传给了Y。故本题的答案是C。 例2:(2003年04月考题)在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码: Private X As Integer Private Sub Command1_Click() X=5:Y=3 Call proc(X,Y) Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(ByVal a As Integer,ByVal b As Integer) X=a* a Y=b+b End Sub 程序运行后,单击命令按钮,则两个标签中显示的内容分别是 A)5和3 B)25和3 C)25和6 D)5和6 【答案】B 【分析】本题中的X是窗体级变量,所以X在过程之间传递参数时相当于传地址,互相要影响。同时,过程之间本身有A和B要与X和Y传值。由于本题中的X原先是5,则程序执行后X应该改变,故先排除答案A和D。另外,B和Y传的是值,它们互不影响,故又可以排除答案C。因此最终答案是B。 例3、(2002年09月考题)在窗体上画一个命令按钮,名称为Command1。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。能够正确实现上述功能的代码是 A) Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function B) Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function C) Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function D) Private Sub Command1_Click

文档评论(0)

1亿VIP精品文档

相关文档