您现在的位置:首页 >> 在线习题 >> 内容

高校计算机等级考试二级VB上机测试样题 参考答案

时间:2009-6-19 11:30:43 点击:2110

(一)高校计算机等级考试二级VB上机测试样题参考答案

1.属性设置及程序改错题

(1)

If  text1.text=”” then  改成  If  text1.text <>”” then

Exit  改成  end

(2)

Timer1.Enabled = flase  改成 Timer1.Enabled = false

ElseIf Label1.Left > 0 Then 改成  ElseIf Label1.Left < 0 Then

2.程序改错题

(1) Public Sub swap1(x As Integer, y As Integer)

改成 Public Sub swap1(byval x As Integer, byval y As Integer)

t = m: n = m: n = t  改成 t = m: m = n: n = t

(2)

If x > 100 And x < 0 Then 改成 If x > 100 or x < 0 Then

Label3.Caption = "该生成绩"  改成

Label3.Caption = "该生成绩" & strtemp

3.程序填空题

(1)Print fibo(i)  ;      fibo = fibo(n-1)+fibo(n-2)

(2)Select Case s   ;     Label4.Caption = result

(3)le = len(text1.text); a(j) = a(j)+1

()全国计算机等级考试二级VB上机测试样题参考答案

1.基本操作题

2.简单应用题

(1)

本题中涉及三个事件

点击开车按钮C1_Click,汽车开始启动,由题面知道汽车的开动由Timer2控制,那么这里必须启动Timer2,所以填入Timer2.Enable=True

红绿灯由Timer1控制,Timer1的事件Timer1_Timer中根据时间a来更换P1.Picture的图像,达到红绿灯转换的效果,如果看到其他灯已经有了,这里填入"绿灯.ioc"是简单的选择,仔细分析要在绿灯有三秒,也必须这样填写

最后是汽车的移动,已知是由Timer2操作的,在它的事件Timer2_Timer中要移动汽车,使用了pictureMove方法,平行向右移动,改变Left,这里填入picture1.Left即可实现。

其他关于Timer控件以及picture控件的属性方法事件请自己参阅有关资料。

(2)

Option Base 1

Private Function FindMax(a() As Integer)

    Dim Start As Integer

    Dim Finish As Integer, i As Integer

    Start = ubound(a)

    Finish =lbound(a)

    Max = a(Start)

    For i = Start To Finish

        If a(i) > Max Then Max = a(i)

    Next i

    FindMax = Max

End Function

Private Sub Command1_Click()

    Dim arr1

    Dim arr2(4) As Integer

    arr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),_

Val(Text4.Text))

    For i = 1 To 4

        arr2(i) = CInt(arr1(i))

    Next i

    M = FindMax(arr2())

    Print "最大值是: "; M

End Sub

(3)

Private Sub C1_Click()

   Timer1.Enabled = true

End Sub

Private Sub Timer1_Timer()

    Static a%

    a = a + 1

    If P1.Top > P2.Top + P2.height Then

        P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.Height

    Else

        Timer1.enabled = False

    End If

End Sub

3.综合应用

  

作者:Admin  
  • VB程序设计学习网站(赣南师范学院) © 2008 版权所有 All Rights Reserved.
  • 地址:江西省赣州市经济技术开发区 赣南师范学院数学与计算机科学学院 邮政编码:341000
    Email:ZQ188@163.com 技术支持QQ:87319633 移ICP备10086号
  • GnsySjxy! V2.4