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

试卷第 PAGE 8 页共 NUMPAGES 8 页 二级VB上机27（计算机二级考试VB考试卷） 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 第53套 一、基本操作题第 1 题 　　第 2 题 　　二、简单应用题第 3 题 　　Private Sub Form_load( ) HScroll1.Min = Shape2.Left’ HScroll1.Max = Shape2.Width + Shape2.Left - Shape1. ? VScroll1.Min = Shape2.Top’ VScroll1.Max = Shape2.Height + ? - Shape1.Height HScroll1.Value = 1000 VScroll1.Value = 1000End SubPrivate Sub HScroll1_Change( )’ ? = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change( )’ Shape1.Top = ?End Sub第 4 题 　　Private Sub Form_Load( ) a = 1 t = 0End SubPrivate Sub Timer1_Timer( ) Image1.Top = Image1.Top - a * 50 If Image1.Top + Image1.Height = Image2.Top + Image2.Height - 200 Then’ ? = False’ d = ? - Image1.Top Label1 = d Label2 = t * Timer1.Interval / 1000 End If a = a + 0.1’ t = ?End Sub三、综合应用题第 5 题 　　Dim a(30) As Integer, b(30) As Integer, c(60) As IntegerPrivate Sub Command1_Click( ) Dim k As Integer Open App.Path “in5.dat” For Input As #1 For k = 1 To 30 Input #1, a(k) Text1 = Text1 + Str(a(k)) + Space(2) Next k For k = 1 To 30 Input #1, b(k) Text2 = Text2 + Str(b(k)) + Space(2) Next k Close #1End SubPrivate Sub Command2_Click( )’考生编写程序开始’======================================?????’=========================================‘考生编写程序结束’以下程序将合并后的数组C显示在Text3中 For k = 1 To 60 Text3 = Text3 + Str(c(k)) + Space(2) Next kEnd SubPrivate Sub Form_Unload(Cancel As Integer) Open App.Path “out5.dat” For Output As #1 Print #1, Text3.Text Close #1End Sub第54套 一、基本操作题第 6 题 　　　　第 7 题 　　　’提供给考生的程序Private Sub sub1( ) a = Text1 If a 18 Then Text2 = 0.5 Else a = a - 18 a = Int(a / 6) + 1 Text2 = 0.5 + a * 0.15 End IfEnd Sub二、简单应用题第 8 题 　　Private Sub Form_Click( )’ For i = 1 To ? For j = 1 To 6 - i Print “ “; Next j’ For j = 1 To ? Print “*”; Next j Print Next i For i = 1 To 4’ For j = 1 To ? Print “ “; N