二级VB上机1（计算机二级考试VB考试卷）.docVIP

试卷第 PAGE 6 页共 NUMPAGES 6 页 二级VB上机1（计算机二级考试VB考试卷） 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 第1套 一、基本操作题第 1 题 　　第 2 题 　　二、简单应用题第 3 题 　　’提供给考生的程序Dim lenth As Integer, q As IntegerConst PI = 3.14159Private Sub Form_Load( ) lenth = Line1.Y2 - Line1.Y1 q = 90End SubPrivate Sub Timer1_Timer( ) q = q - 6 Line1.Y1 = Line1.Y2 - lenth * Sin(q * PI / 180) Line1.X1 = Line1.X2 + lenth * Cos(q * PI / 180)End Sub第 4 题 　　Private Sub Command1_Click( ) Dim n As Integer, k As Integer, ch As String, a As String n = Len(Text1.Text) ch = ““ For k = 1 To n’ a = Mid$(Text1.Text, ? , 1) If Option1.Value = True Then If a ＜= “a” And a = “z” Then ch = ch + UCase(a) ElseIf a ＜= “A” And a = “Z” Then’ ch = ch + ? Else ch = ch + a End If End If If Option2.Value = True Then ch = UCase(Text1) End If If Option3.Value = True Then ch = LCase(Text1) End If’ Text2 = ? Next kEnd Sub三、综合应用题第 5 题 　　第2套 一、基本操作题第 6 题 　　第 7 题 　　二、简单应用题第 8 题 　　Private Sub Command1_Click( ) Text1 = Combo1.Text’ Command2. ? = TrueEnd SubPrivate Sub Command2_Click( )’ Combo1.List( ? ) = Text1 Text1 = ““ Command2.Enabled = FalseEnd SubPrivate Sub Command3_Click( )’ ? Text1End Sub第 9 题 　　Private Sub Command1_Click( )’ ? = HScroll1.Value green = HScroll2.Value’ Timer1.Enabled = ?End SubPrivate Sub Timer1_Timer( ) If Picture1.Visible Then red = red - 1 If red = 0 Then’ ? .Visible = False Form1.Picture3.Visible = True End If ElseIf Picture3.Visible Then Picture3.Visible = False If red = 0 Then Picture2.Visible = True red = HScroll1.Value Else Picture1.Visible = True green = HScroll2.Value End If ElseIf Picture2.Visible Then’ green = ? If green = 0 Then Picture2.Visible = False Picture3.Visible = True End If End IfEnd Sub三、综合应用题第 10 题 　　Private Sub Command1_Click( ) Op