[填空题] 执行下面程序,单击命令按钮Cmd1后,窗体上显示的第一行内容是(),第二行内容是(),第三行内容是()。Option ExplicitPrivate
2021-07-20
[填空题] 执行下面程序,单击命令按钮Cmd1后,窗体上显示的第一行内容是(),第二行内容是(),第三行内容是()。Option ExplicitPrivate Sub Cmd1_Click()Dim st As String,ch As String*1,t As IntegerDim i As Integerst="2,3,8,12,32,65#"For i=1 To Len(st)ch=Mid(st,i,1)If ch"," And ch"#" Thent=t*10+Val(ch)ElseIf pd(t) Then Print tt=0End IfNext iEnd SubPrivate Function pd(ByVal n As Integer)As BooleanDo While n1If n Mod 20 ThenExit FunctionEndIfn=n2Looppd=TrueEnd Function
正确答案:2;8;32
词条内容仅供参考,如果您需要解决具体问题
(尤其在法律、医学等领域),建议您咨询相关领域专业人士。
