福建省高职单招计算机考试模拟卷(11)

计算机专业模拟卷

c = "" k = 1

Do While k <= Len(a) Or k <= Len(b) If k <= Len(a) Then c = c & Mid(a, k, 1) End If

If k <= Len(b) Then c = c & Mid(b, k, 1) End If k = k + 1 Loop Print c End Sub

程序运行时，单击命令按钮后显示的结果是：____ ____________。 10．窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim arr(5) As Integer For k = 1 To 5 arr(k) = k Next k prog arr() For k = 1 To 5 Print arr(k); Next k End Sub

Sub prog(a() As Integer)