芬達(dá)果味十足
Private Sub Command1_Click() Dim i As Long i = Len(Val(TText)) If i= 1 Then msgbox "輸入的是" & i & "位數(shù)" ElseIf i = n Then msgbox "輸入的是" & i & "位數(shù)" End IfEnd SubPrivate Sub Command1_Click() Dim i As Long i = Len(Val(TText)) Select Case i Case 1 msgbox "輸入的是" & i & "位數(shù)" Case n msgbox "輸入的是" & i & "位數(shù)" End SelectEnd Sub
優(yōu)質(zhì)廣東專升本問答知識(shí)庫(kù)
限時(shí)免費(fèi)領(lǐng)取!
已幫助10w+意向?qū)W歷提升用戶成功上岸