09级赛为杯程序设计大赛(vb)笔试试卷3.docVIP

安徽工业大学 第五届“赛为”杯程序设计大赛笔试试卷（VB） 班级 姓名 学号 要求：答案写在答题纸上 阅读程序，写出程序运行结果（每小题5分，共50分）。 1、以下程序的运行结果是_______。 Private Sub Form_Click() Dim b As Integer, k As Integer b = 1 For k = 1 To 5 b = b * k If b = 15 Then Exit For End If Next k Print k, b End Sub 2、以下程序的执行结果是_______。 Dim x As Integer, a As Integer For x = 1.5 To 3.5 a = 0 For y = 1 To x + 1 a = a + 1 Next y Print a; Next x 3、在窗体上画一个命令按钮Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim p(3) As Integer k = 0 For i = 1 To 3 p(i) = i * i k = k + p(i) Next i Print k, i End Sub 程序运行后，单击命令按钮，输出结果是_______。 4、下列程序输出结果为_______。 Private Sub Command1_Click() For i = 1 To 3 GetValue (i) Next i Print GetValue(i) End Sub Private Function GetValue(ByVal a As Integer) dim s As Integer s = s + a GetValue = s End Function 5、以下程序的运行结果是_______。 Dim y As Integer Private Sub Form_Click() Dim x As Integer x = 1:y = 1 z = bb(x) Print x, y, z End Sub Public Function bb(n As Integer) y = y + 1 bb = n + y End Function 6、以下程序的运行结果是_______。 Private Sub Form_Click() Dim N As Integer, I As Integer N = 2 For I = 9 To 1 Step -1 Call Sub2(I, N) Next I Print I, N End Sub Private Sub Sub2(X As Integer, Y As Integer) Static N As Integer Dim I As Integer For I = 3 To 1 Step -1 N = N + X X = X - 1 Next End Sub 7、以下程序的运行结果是_______。 Option Explicit Private Sub Form_Click() Dim A(3, 3) As Integer, I As Integer Dim J As Integer, K As Integer, N As Integer N = 9 For K = 5 To 1 Step -1 If K = 3 Then For I = 1 To 6 - K A(K - 3 + I, I) = N N = N - 1 Next I Else For I = 1 To K A(K - I + 1, 3 - I + 1) = N N = N - 1 Next I End If Next K For K = 1 To 3 For I = 1 To 3 If K = I Then Print A(K, I); End If Next I Next K End Sub 8、以下程序的运行结果是_______。 Private Sub Form_Click() Dim nsum As Integer nsum = 0 For I = 1 To 5 nsum = nsum + factor(I) Next I Print nsum End Sub Funct