安徽省VB二级考试真题4 含答案.doc

一、 单项选择题（每题1分，共40分）1 下列属于计算机输出设备的是（ ）A)鼠标 B)扫描仪 C)键盘 D)打印机2.网上购物属于计算机在 （ ） 领域中的应用。A)电子政务B)电子商务C)计算机辅助设计D)办公自动化3.微型机种，U盘使用的一般是 接口A)1394 B)LPT C)COM D)USB4.下列关于存储器读取速度从快到慢的排序中，正确的是（ ）A)RAM、硬盘、光盘 B)RAM、光爬满、硬盘C)硬盘、RAM、光盘 D)硬盘、光盘、RAM5、“32位微型机”中的“32”是指（ ）A)微机主频 B)内存容量 C)微机字长 D)硬盘容量6.在Windows系统中查找文件时，如果输入“*.doc”，则查找的是A)文件名为*.doc的文件 B)文件名中有一个*的doc 文件 C)所有扩展名为doc 的文件D)文件名长度为一个字符的doc文件7.下列不符合域名命名规则的是（ ）A)www.163,com B)C) D)8下列软件部属于多媒体影音播放工具的是（ ）A)暴风影音 B)Photoshop C)Realplayer D)Windows media player9.下列关于计算机病毒危害的描述，错误的是（ ）A)影响程序的运行B)破坏用户程序和数据C)影响计算机的运行速度D)破坏制度光盘中的信息10软件开发过程中，程序设计的核心是（ ）A)算法与数据结构B)语句格式C)用户数据D)用户存档11.窗体文件的扩展名是（ ）A).vbg B）.vbp C).vbw D).frm12.VB的续行符是（ ）A)一个空格加一个下划线 B）一个下划线 C)直接回车 D)一个空格13.下面（ ）是合法的变量名。A)x_yz B）123abc C).Integer D)x-y14.将不等式|x|10表示成VB表达式，以下错误的是（ ） A)Abs(x)-10 And x10 Or x-10 D)Sqr(x*x)5,-1,0)后，y的值为（ ）A)3 B)5 C)-1 D)021.应使用（ ） 声明一个变量为过程级变量。A)Public B)Globel C) Dim D)Private22.VB中的变量如果没有声明其数据类型，则默认为（ ）。A)变体型 B) 数值型 C)字符型 D)日期型23.下列关于语句Exit For说法正确的是（ ）A) Exit For可以退出任何类型的循环 B) 一个循环中只能有一个Exit For语句C) Exit For可以退出过程 D)一个For循环中可以有多条Exit For语句24.定义数组a(1 To 5,5)后，下列（ ）数组元素不存在。A)a(1,1) B) a(1.,5) C) a(0,1) D)a(5,5)25.SubEnd Sub过程的形式参数可以是（ ）A)常数 B) 函数 C) 变量 D)表达式26.VB中默认的参数传递方式是（ ）A)传值 B) 传地址 C) 传值和传地址 D)从形参到实参27.以下（ ）属性的值不能通过程序代码改变。A)Caption B)BackColor C)Name D)Enabled28.要改变标签控件的宽度，应修改该控件的（ ）属性值。A)Top B) Width C) Left D)Height29.要使文本框获得焦点，应采用下列（ ）方法。A)GotFocus B) LostFocus C) KeyPress D)SetFocus30.若要使命令按钮Command1不可见，应设置其（ ）属性值为False。A)Visible B) Default C) Cannel D)Enabled31.下列（ ）对象不能响应Click事件。A)列表框 B)计时器 C) 窗体 D)命令按钮32.下列（ ）对象具有Clear方法。A)图片框 B) 窗体 C) 复选框 D)列表框33.下列（ ）属性返回组合框中列表项目的个数。A)LIstCount B) List C) ListIndex D)Text34.可以通过复选框和单选按钮的（ ）属性值来判断它们是否被选中。A)Style B) Value C)Checked D)Selected35.文件列表框的（ ）属性表示所显示文件的路径。A)Path B) Drive C) Road D)FileName36.下面关于控件数组说法错误的是（ ）A)控件数组中所有元素共用同一个事件过程 B) 控件数组中通过Index属性来区分每个元素 C)控件数组中所有控件元素使用同一个控件名 D)一个控件数组中可以包括不同类型的控件37.下面几个关键字均表示文件的打开方式，其中只能进行读不能写的是（ ）A)Input B) Output C) Random D)Append38.记录集中移动到下一个记录的方法是（ ）A)MoveFirst B)MoveLast C) MovePrecious D)MoveNext39.下列程序段运行后，输出结果是（ ）x=5If x0 Then y=5 Else y=10Print yA)0 B) 5 C) 10 D)1540.窗体上有一个命令按钮Command1和一个列表框List1，下列代码执行后输出结果的（ ）Private Sub Command1_Click() List1.AddItem”北京” List1.AddItem”纽约” List1.AddItem”伦敦” List1.AddItem”巴黎” Print List1.List(2)End SubA)北京 B) 纽约 C) 伦敦 D)巴黎二、 填空题（每空2分，共20分）1.的VB表达式为 。2.若要每隔3秒触发一次计时器事件，应将Interval属性值设置为 。3.VB中菜单仅能接受 事件。4.下列程序中循环语句的循环次数是 。 i=5Do While i =1i=i-1Loop5.下列程序执行时，要求输入密码，如果密码不正确则弹出非法用户对话框，请将程序补充完整。Private Snb Form_Click()Dim password As Stringpassword = (“请输入你的密码”,”输入密码”) 输入用户密码If password =”654321” Then Exit SubElse “对不起！你是非法用户！” End End IfEnd Sub6.下面程序的功能是求Fibonacci数列的前n项，直到第n项大于1000为止，请将程序补充完整。Fibonacci数列是：1,1,2,13,5,8,13，；数列的第1项和第2项均为1，从第3项开始，每一项都是其前两项之和。Private Sub Form_Click() Dim f(20) As Long,n As Interger f(1)=1:f(2)=1 n =2 Printf(1);f(2); Do n=n+1 f (n)=f(n-2)+ 求数列的第n项 Print f(n) If Then Exit Do 若条件满足就终止循环 LoopEnd Sub7.下面程序的运行结果是输出如下所示的图案，请将程序补充完整。 * * * * * * * * * Private Sub Form_Click()Dim i As Interger ,j As IntergerFor i =3 To 1 Step -1 Print Spc (10-i); For j = 1 To 控制每行*号的个数 Print “*” Next j 换行Next iEnd Sub三、 阅读理解题（每题4分，共40分）1.执行下面程序后，输出的结果是 。Private Sub Form_Click()Dim x As Interger,y As Stringx= 14Select Case x Case Is 5 y=”beijing” Case 5 To 15 y=”shanghai” Case Else y=”!” End Select Print yEnd Sub2.执行下面程序后，输出的结果是 。Private Sub Form_Click() Dim i As Interger,s As String i=0 Do i=i+1 s=s&i Loop While i5 Print sEnd Sub3. 执行下面程序后，输出的结果是 。Private Sub Form_Click() Dim i As Interger,j As Interger,s As Interger Dim a a=Array(1,2,3,4) s=0:j=1 For i=0 To 3 s=s+a(i)*j j=j*10 Next i Print “s=”;sEnd Sub4. 执行下面程序后，输出的结果是 。Private Sub Form_Click() Dim i As Interger,j As Interger,s As Interger For i=1 To 3 s=0 For j=1 To i+1 s=s+1 Next jNext iPrint “s=”:sEnd Sub5. 执行下面程序后，输出的结果是 。Dim b As IntergerPrivate Sub Proc (ByVal m As Interger) Stetic a As Interger a=a +m b=b+a*2End SubPrivate Sub Form_Click()Dim n As Intergern=3Call Proc(n)Call Proc(n+1)Print n,bEnd Sub四、 编程题（共20分）1.编写一个函数Area，求圆环的面积，以内圆、外圆半径作为函数的形式参数。圆环面积如下图阴影所示，外圆半径为r1，内圆半径为r2。（5分）2.某一快递公司快递费用计算方法如下