IsEmpty不要這樣用,判斷文本框是否有內(nèi)容可以改成Trim(Text1.Text) = "",Trim表示把文本框內(nèi)的空格去掉.LTrim表示將內(nèi)容左邊開(kāi)始去掉空格,所以就會(huì)出現(xiàn)所說(shuō)的情況.Private Sub Command1_Click()If Trim(Text1.Text) ...謝謝！消息框的問(wèn)題解決了，可是我還是不明白為什么不加LTrim就會(huì)出現(xiàn)空格，空格是哪里出來(lái)的？我輸入直角邊長(zhǎng)的時(shí)候沒(méi)有空格啊。因?yàn)槟阌玫搅藄tr()這個(gè)函數(shù)，這個(gè)函數(shù)有個(gè)弊端，就是轉(zhuǎn)換數(shù)字為字符串時(shí)，正數(shù)會(huì)默認(rèn)在前面加入一個(gè)空格，而負(fù)數(shù)不會(huì)。有說(shuō)法，正負(fù)符號(hào)位，正值默認(rèn)一空格。具體，微軟的解釋 是：當(dāng)數(shù)字轉(zhuǎn)換為字符串時(shí)，始終為 Number 的符號(hào)保留一個(gè)前導(dǎo)空格。如果 Number 為正，則返回的字符串包含前導(dǎo)空格，并暗含加號(hào)。負(fù)數(shù)將包括減號(hào) (-)，且沒(méi)有前導(dǎo)空格。你可以看看msdn.microsoft.com/zh-cn/library/4y6a1sx7(v=vs.80).aspx當(dāng)然也可以試試cstr()這個(gè)函數(shù)，就不會(huì)有這個(gè)問(wèn)題了，ltrim函數(shù)也可以去掉Private Sub Command1_Click()If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Thenm = MsgBox("請(qǐng)完整輸入！", vbInformation, "提示")ElseIf IsNumeric(Text1.Text) = True And IsNumeric(Text2.Text) = True Thenx = Val(Text1.Text)y = Val(Text2.Text)Text4.Text = CStr(0.5 * x * y)Text3.Text = CStr(Round((x + y + (x ^ 2 + y ^ 2) ^ 0.5), 2))Else: z = MsgBox("請(qǐng)檢查數(shù)據(jù)格式(整數(shù)或小數(shù))！", vbOKOnly + vbCritical + vbSystemModal, "錯(cuò)誤")End IfEnd Sub