2010-2011年第二学期试卷

《vb.net 程序设计》 A卷 计算机教学部2011年6月

End Select Next End sub

（7）

4.读程序，写结果（5分）

Private Sub Form1_Click(…) Handles Me.Click Label1.Text = \

Dim A() As String = {\ Dim n%, i%, j%, t$, k% n = UBound(A) For i = 0 To n

Label1.Text &= A(i) & \ \ Next

Label1.Text &= vbCrLf For i = 0 To n - 1 For j = 0 To n - i - 1

If A(j) > A(j + 1) Then t = A(j)

A(j) = A(j + 1) A(j + 1) = t

End If Next j

For k = 0 To n

Label1.Text &= A(k) & \ \ Next k

Label1.Text &= vbCrLf Next i

End Sub

（8） （9） （10） （11） （12）

A卷 第 9 页 共 10 页

《vb.net 程序设计》 A卷 计算机教学部2011年6月

草稿纸（草稿纸等同于试卷，请不要带出考场！）

【注意】本试卷满分100分，请不要拆开试卷。 答题前请核对，少页、多页、重页请更换试卷。

A卷 第 10 页 共 10 页