浙江省计算机二级vb_06_春_VB试卷及答案.doc_第1页
浙江省计算机二级vb_06_春_VB试卷及答案.doc_第2页
浙江省计算机二级vb_06_春_VB试卷及答案.doc_第3页
浙江省计算机二级vb_06_春_VB试卷及答案.doc_第4页
浙江省计算机二级vb_06_春_VB试卷及答案.doc_第5页
免费预览已结束,剩余6页可下载查看

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

2006年春浙江省高等学校计算机等级考试试卷(二级Visual Basic)说明: (1)考生将所有试题的答案填写在答卷上.其中题1试题6,请在答卷上各小题正确选项的对应位置处填“”;(2)请将你的准考证号的后五位填写在答卷右下角的指定位置内;(3)考试时间为90分钟;试题1(每小题3分,共15分)阅读下列程序和程序,在每小题提供的若干可选答案中,挑选一个正确答案。【程序说明】界面设计如上图所示,程序运行时要求有以下功能: 按Commandl(出题)后随机生成两个两位正整数存入模块级变量a、b且ab,并分别在Labell Labe12中显示,此后Commandl不可用; 在Textl中输入结果、按回车后,以消息框显示运算正确与否、累计所完成题数以及做错的题数,Commandl恢复为可用;按Command2(退出)后以消息框显示所完成题数以及做错的题数,退出。【程序】Dim n As Integer, n_error As Integer (1) Private Sub Command1_Click() a = 10 + Rnd * 89: b = 10 + Rnd * 89If a b Then (2) Label1.Caption = a: Label2.Caption = b n = n + 1: Text1.Text = : Command1.Enabled = FalseEnd SubPrivate Sub Text1_ (3) (keyAscii As Integer) If keyAscii 13 Then (4) 回车键的ASCII 码值为13 If a - b = Val(Text1.Text) Then MsgBox (回答正确) Else MsgBox (回答不正确) n_error = n_error + 1 End If Command1.Enabled = TrueEnd SubPrivate Sub Command2_Click() MsgBox ( (5) ) EndEnd Sub【供选择的答案】(1)A、小学生两位数减法训练程序 B、a=0: b=0 : c=0C、n=0: n_error=0 D、Dim a As Byte, b As byte, c As Byte(2) A、b=a: a=b B、c=a: a=b: b=cC、a=b: b=a D、c=a: b=a: a=c(3) A、KeyPress B、Change C、KeyDown D、KeyUp(4) A、Exit Sub B、KeyAscii=13 C、KeyAsecii=0 D、Exit Do(5) A、“共” n “题,错” n_error “题”B、“共n题,错n_error题”C、“共”+ n +“题,错” n_error +“题”D、共 n“题,错” n_error “题”试题2(每小题3分,共12分)阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。【程序说明】输入n后,再输入n个数a1,a2,,an,按照下列公式计算s的值并显示。P(a1-v)2+(a2-v)2+(an-v)na1+a2+ann v= s=【程序】Private Function f( (6) ) As Single Dim i As Integer For i = 1 To n: f = f + x(i): Next iEnd FunctionPrivate Sub command1_Click() Dim n As Integer, a() As Single, i As Integer Dim V As Single, s As Single n = InputBox(输入数据个数) (7) For i = 1 To n a(i) = InputBox(a( & i & )=, 输入各数组元素) Next i V = f(a, n) / n For i = 1 To ns = (8) Next i (9) End Sub【供选择的答案】(6) A、x() As Single, n As Integer B、x(n) As Single C、a As Single,n As Integer D、n As Integer,x() As Single(7) A、Dim a(n) As Single B、ReDim a() C、Dim a (n) D、ReDim a(n)(8) A、(a(i)-v)*(a(i)-v) B、s+a(i)-v2 C、s+(a(i)-v)2 D、(a(i)-v)2(9) A、s=s0.5/n B、Print s0.5/n C、Print Sqr(s) D、Sqr(s)/n试题3(每小题3分,共15分)阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。【程序说明】图片框控件P1、P2除Name属性外均取缺省值,将鼠标在P1拖动绘制矩形框(边框颜色通过用对话框指定):鼠标按下处为矩形左上角,鼠标抬起处为矩形右下角;鼠标抬起后,将P1中矩形区域内的图象在P2中重新绘制,如下图所示。【程序】 (10) Private Sub p1_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) xl = X: y1 = YEnd SubPrivate Sub p1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Dim j As Single, i As Single, jk As Single, ik As Single Dim (11) jk = P2.ScaleWidth / (X - xl): ik = P2.ScaleHeight / (Y - y1) CommonDialog1.Action = (12) P1.Line (xl, y1)-(X, Y), CommonDialog1.Color, B For j = xl To X For i = y1 To Y c = (13) 读取该点处的颜色值 (14) Next i, jEnd Sub 【供选择的答案】(10)A、Dim x As Single ,y As Single B、Dim x2 As Single,y2 As SingleC、Public xl As Single ,yl As Single D、Dim xl As Single,y1 As Single(11)A、c As Long B、c As Integer C、c As Single D、c As Double(12)A、1 B、2 C、3 D、4(13)A、P1.Pset(j,i) B、P2.Pset(j,i) C、P1.Point(j,i) D、P1.Point(i,j)(14) A、P2.PSet (j-xl)*jk,(i-y1)*ik),c B、P1.Pest(j-xl)*jk,(i-yl)*ik),c C、P2.PSet(i-yl)*ik,(j-xl)*jk),cD、P1.Pset(i-yl)*ik,(j-x1)*jk),c试题4(每小题3分,共9分)阅读下列程序并回答问题,在每小题提供的若干可选答案中,挑选一个正确答案。【程序】Private Sub Form_Load() Text1.Text = : List1.ClearEnd SubPrivate Sub Text1_Keypress(K As Integer) Dim n As Integer If K=Asc(0)And k= 85 Then s(1) = s(1) + 1 ElseIf x = 60 Then s(2) = s(2) + 1 Else s(3) = s(3) + 1 End If Next I Label1.Caption = s(1) Label2.Caption = s(2) Label3.Caption = s(3)End Sub试题8(每题14分)Dim k As LongPrivate Sub Command1_Click() Timer1.Enabled = TrueEnd Sub模块级变量声明2分Commandl_ Click过程2分Form_Load过程首句1分Enabled属性设置1分Timerl_Timer首、未句2分每个赋值语句各1分Private Sub Form_Load() Timer1.Interval = 1000 T

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论