[填空題] 執(zhí)行下面程序,單擊命令按鈕Cmd1后,窗體上顯示的第一行內(nèi)容是(),第二行內(nèi)容是(),第三行內(nèi)容是()。Option ExplicitPrivate
2021-07-20
[填空題] 執(zhí)行下面程序,單擊命令按鈕Cmd1后,窗體上顯示的第一行內(nèi)容是(),第二行內(nèi)容是(),第三行內(nèi)容是()。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
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學等領域),建議您咨詢相關領域專業(yè)人士。