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

试卷第 PAGE 6 页共 NUMPAGES 6 页 二级VB上机3（计算机二级考试VB考试卷） 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 第5套 一、基本操作题第 1 题 　　第 2 题 　　二、简单应用题第 3 题 　　第 4 题 　　Dim numPrivate Sub Command1_Click( ) Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer( )’ num = ? If num 60 Then If Option1.Value = True Then Text2.Text = num Else If (num / 10 = CInt(Int(num / 10))) Then’ Text2.Text = Text2.Text + ? End If End If Else Text2.Text = 0 num = 0’ Text1.Text = Text1.Text + ? End IfEnd Sub三、综合应用题第 5 题 　　第6套 一、基本操作题第 6 题 　　第 7 题 　　二、简单应用题第 8 题 　　第 9 题 　　Private Sub Form_Load( ) Command1.Caption = “开始” Command2.Caption = “停止” Timer1.Interval = 50 Timer1.Enabled = False Label1.Caption = “热烈欢迎” Label1.AutoSize = True Label1.FontSize = 16 Label1.FontBold = TrueEnd SubPrivate Sub Command1_Click( ) Command1.Caption = “继续” ‘ Timer1.Enabled = ? ‘Command1.Enabled = ? Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click( ) ‘ Timer1.Enabled = ? Command2.Enabled = False Command1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer( ) If Label1.Left Width Then ‘ Label1.Left = ? Else Label1.Left = 0 End IfEnd Sub三、综合应用题第 10 题 　　Dim an As IntegerDim bn As IntegerDim cn As IntegerDim dn As IntegerPrivate Sub Command1_Click( ) Open App.Path “in5.txt” For Input As #1 Do While Not EOF(1) Input #1, a$ s = s a$ Loop Close 1 Text1.Text = sEnd Sub