江苏计算机二级VB填空题.docVIP

. .. . .可修编. 填空题1 执行下面程序，单击命令按钮mand1，那么窗体上显示的第一行是 (1) ，最后一行是 (2) 。 Option Explicit Option Base 1 Private Sub mand1_Click() Dim n As Long, k As Integer, a() As Integer n = 123456789 Do k = k + 1 ReDim Preserve a(k) a(k) = n Mod 100 n = n \ 100 Loop Until n = 0 For k = 1 To UBound(a) Print fun(a(k)) Next k End Sub Private Function fun(n As Integer) As Integer Dim k As Integer k = n Mod 10 fun = k * 10 + (n \ 10) End Function 执行下面程序，单击命令按