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

试卷第 PAGE 7 页共 NUMPAGES 7 页 二级VB上机29（计算机二级考试VB考试卷） 姓名:_____________ 年级:____________ 学号:______________ 题型 选择题 填空题 解答题 判断题 计算题 附加题 总分 得分 评卷人 得分 第57套 一、基本操作题第 1 题 　　第 2 题 　　二、简单应用题第 3 题 　　Private Sub Command1_Click( ) Dim n As Integer Cls’ ? = InputBox(“请输入一个整数”) n = InputBox(“请输入一个整数”) Print “因子数=“; fun(n)End SubFunction fun(m As Integer) Dim s As Integer s = 0 For k = 1 To Abs(m) / 2’ If m Mod k = ? Then If m Mod k = 0 Then s = s + 1 Print k End If Next k’ ? fun = sEnd Function第 4 题 　　Private Sub Command1_Click( ) Dim k%’ For k = List1.ListCount - 1 To 0 ? If List1.Selected(k) = True Then’ List2.AddItem ?’ List1.RemoveItem ? End If Next kEnd SubPrivate Sub Command2_Click( ) Dim k% Text1 = “已经选中的城市有：” For k = 0 To List2.ListCount - 1 Step 1’ Text1 = ? “ “ List2.List(k) Next kEnd Sub三、综合应用题第 5 题 　　Dim stepy As Integer ‘纵向移动增量Dim stepx As Integer ‘横向移动增量Const LEFT_BUTTON = 1Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim x0 As Integer, y0 As Integer, a As Single, radius As Integer radius = Shape1.Width / 2 ‘圆的半径 If Button = LEFT_BUTTON Then x0 = Shape1.Left + radius ‘圆心的x坐标 y0 = Shape1.Top + radius ‘圆心的y坐标 If x = x0 Then stepy = Sgn(y - y0) * 50’ stepx = ? Else a = (y - y0) / (x - x0) ‘斜率 stepx = Sgn(x - x0) * 50’ ? = a * stepx If Abs(stepy) ＜ Abs(stepx) Then stepy = Sgn(y - y0) * 50 stepx = stepy / a End If End If’ ? = True Else’ ? = False End IfEnd SubPrivate Sub Timer1_Timer( )’ Shape1.Move Shape1.Left + stepx, Shape1.Top + ?End Sub第58套 一、基本操作题第 6 题 　　第 7 题 　　二、简单应用题第 8 题 　　Private Sub Command1_Click( ) Dim st$, ch$ Open App.Path “in3.txt” For Input As #1 Do While Not EOF(1) Input #1, ch’ st = ? ch Loop Close #1 Text1 = stEnd SubPrivate Sub Command2_Click( ) Dim st$, word$, c$ st = Text1 n = Len(st) For k = 1