填空题 执行下面程序,单击命令按钮Cmd1后,窗体上显示的第一行内容是 1(7) 2,第二行内容是 3(8) 4,第三行内容是 5(9) 6。 Option Explicit Private Sub Cmd1_Click7 Dim st As String,ch As String*1,t As Integer Dim i As Integer st="2,3,8,12,32,65#" For i=1 To Len(st) ch=Mid(st,i,1) If ch<>"," And ch<>"#" Then t=t*10+Val(ch) Else If pd(t) Then Print t t=0 End If Next i End Sub Private Function pd(ByVal n As Integer)As Boolean Do While n<>1 If n Mod 2<>0 Then Exit Function EndIf n=n/2 Loop pd=True End Function