十年網(wǎng)站開發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營(yíng)維護(hù)+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
你用的都是vb6的代碼,改成:
讓客戶滿意是我們工作的目標(biāo),不斷超越客戶的期望值來自于我們對(duì)這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡(jiǎn)單的方式提供給客戶,將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴,公司提供的服務(wù)項(xiàng)目有:空間域名、網(wǎng)絡(luò)空間、營(yíng)銷軟件、網(wǎng)站建設(shè)、山城網(wǎng)站維護(hù)、網(wǎng)站推廣。
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("輸入有非數(shù)字字符,請(qǐng)重新輸入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub
這種表達(dá)方法是VB認(rèn)可的,但意思不一定是您想比達(dá)的。
按照從左到右,以及隱含類型轉(zhuǎn)換的規(guī)則。其含義如下:
先計(jì)算48=A,若A大于等于48,則計(jì)算結(jié)果為True,否則為False
然后計(jì)算True(或False)=57,這時(shí)由于是不同類型的數(shù)據(jù)進(jìn)行比較,程序進(jìn)行隱含的類型轉(zhuǎn)換,轉(zhuǎn)換的規(guī)則是將boolen量轉(zhuǎn)為int。False為0,True為-1(0xffff)。
所以True(或False)=57相當(dāng)于-1(0)=57,這個(gè)比達(dá)式恒為True的。
要真實(shí)表達(dá)樓主的意頭,就當(dāng)為A=48 and A=57
可以用VB6里的函數(shù)
isnumeric()
比如要判斷文本框里的內(nèi)容是否數(shù)字
if isnumeric(TextBox1.text) Then
msgbox("是數(shù)字!")
else
msgbox("不是數(shù)字!")
end if
int 型,取值范圍-2,147,483,648 到 2,147,483,647 ,默認(rèn)值是 0 int是值類型,讀內(nèi)存區(qū)間中指定長(zhǎng)度單元里的數(shù)據(jù),這塊單元就算不做任何處理也全是0,那么數(shù)值就是0 所以,int 型,永遠(yuǎn)不會(huì)為空,從聲明一個(gè) int 變量時(shí),它默認(rèn)就是0,而不是空
如果用常規(guī)編程的方法:
直接用split(str1,“,”)的形式把str1字符串分成字符串?dāng)?shù)組,然后用for循環(huán)判斷每個(gè)數(shù)組元素是否是數(shù)字或者是字符串就可以了。