Question

2011年秋江苏省计算机等级考试二级VB填空第3题怎么做

要详细答案
执行下面程序,单击命令按钮Cmd1后,窗体上显示的第一行内容是___(7)___,第二行内容
是___(8)___,第三行内容是___(9)___。
Option Explicit
Private Sub Cmd1_Click()
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

Answer 1

（7）= 2

（8）=8

（9）=32

Answer 2

历年真题，百度文库的一些需要，那么你可以下载

Answer 3

卷子很难查到的，你能给具体题目么？

Answer 4

========================================================================

（7）2
（8）8
（9）32

Answer 5

额