爵豪 發問時間: 電腦與網際網路程式設計 · 1 0 年前

VB 判斷問題

Private Sub Command1_Click()

If Text1.Text = "" Then

MsgBox "請輸入姓名"

Else

If Text2.Text = "" Then

MsgBox "請輸入銀行存款"

Else

If Text3.Text = "" Then

MsgBox "請輸入基金金額"

Else

End If

End If

End If

Open "d:\基金\user.dat" For Append As 1

Write #1, Text1, Text2, Text3

Close #1

MsgBox "資料新增成功"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

------------------------------------------------------------------------

我現在要讓他判定TEXT1,2,3沒有輸入東西時候

就不會執行記錄動作

要加入什麼指令?

還有,如何判斷TEXT1輸入不是中文字or英文字

還有,如何判斷TEXT2,3輸入的是不是數字?!

已更新項目:

不好意思,我看不懂第二個的回答

啥是result=true啊?

我執行時候他會跑出錯誤訊息

2 個已更新項目:

錯誤訊息,有next可是卻沒有for

是那個next i錯誤

我是直接貼上去執行的

1 個解答

評分
  • 最佳解答

    1.TEXT1,2,3沒有輸入東西時候,就不會執行記錄動作

    Ans:在"MsgBox "請輸入xxxx""後面加上一行 exit sub

    .......就不會往下執行

    2.如何判斷TEXT1輸入不是中文字or英文字

    Ans:result=true

    for i = 1 to len(Text1.Text)

    j=asc(mid(Text1.Text,i,1))

    if j<0 then

    '代表他是中文字

    else

    if (j >=97 and j <= 122) or (j>=65 and j <= 90) then

    '代表他是英文字(97~122是小寫,65~90是大寫)

    else

    result=false

    exit for

    end if

    next i

    if result=false then '代表輸入不是只有 中文字或英文字

    3.如何判斷TEXT2,3輸入的是不是數字

    Ans: isnumeric(string) <=== true 代表是數字

    if isnumeric(Text2.text)=false '代表Text2.text不是數字

    2007-06-13 16:23:32 補充:

    result=true

    是先給變數(result)初始值.

    配合最後面的

    if result=false then '代表輸入不是只有 中文字或英文字

    可得知結果為何

    錯誤訊息是?

    2007-06-14 16:00:32 補充:

    exit for

    end if

    next i

    應該改為

    exit for

    end if

    end if

    next i

    少了個end if ^ ^"

還有問題?馬上發問,尋求解答。