填空题 执行下面程序,单击命令按钮cmd1后,窗体上显示的第一行内容是 1(13) 2,第二行内容是 3(14) 4 ;最后一行内容是 5(15) 6 Option Explicit Private Sub Cmdl_Click7 Dim i As Integer,c As Integer,s As String,t As String*1 Dim a8 As String,s1 As String,jg As Integer s="43X17Z23Y" ’ For i=1 To Len(s) t=Mid(s,i,1) s1=s1 & t If t>="X" And t<="Z" Then c=c+1 ReDim Preserve a(c) a(c)=s1 s1="" End If Next i Call sub1(a,jg) Print jg EndSub Private Sub sub1(a9 As String,gj As Integer) Dim i As Integer For i=1 To UBound(a) gj=gj+tran(a(i)) Next i gj=gj/UBound(a) End Sub Private Function tran(ss As String)As Integer Dim i As Integer,t As Integer,st As String*1 Dim P As Integer P=Len(ss)-1 st=Right(ss,1) If st="X" Then t=8 ElseIf st="Y" Then t=10 Else t=16 End If For i=1 To P tran=tran+Val(Mid(ss,i,1))*t^(P-i) Next i Print tran End Function