vb中，取字元串中1到9的數字該如何寫代碼_已解決問題_搜狐問答

一個text 和command Private Sub Command1_Click() Dim i As String Dim x As Integer Dim y As String i = CStr(Text1.Text) If Len(i) = 0 Then Print "錯誤！不能為空！" Else x = Len(i) Do While x If (Mid(i, x, 1)) > 0 And (Mid(i, x, 1))

it.zhishi.sohu.com