如果用常規(guī)編程的方法:

甘南網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),甘南網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為甘南近千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)要多少錢,請找那個(gè)售后服務(wù)好的甘南做網(wǎng)站的公司定做!
直接用split(str1,“,”)的形式把str1字符串分成字符串?dāng)?shù)組,然后用for循環(huán)判斷每個(gè)數(shù)組元素是否是數(shù)字或者是字符串就可以了。
可以用VB6里的函數(shù)
isnumeric()
比如要判斷文本框里的內(nèi)容是否數(shù)字
if isnumeric(TextBox1.text) Then
msgbox("是數(shù)字!")
else
msgbox("不是數(shù)字!")
end if
方法1:
if isnumeric(textbox1.text) then
if left(textbox1.text,1)="1" then
a處理
else
b處理
end if
else
b處理
end if
方法2:
if isnumeric(textbox1.text) then
if textbox1.text like "1*" then
a處理
else
b處理
end if
else
b處理
end if
這個(gè)同時(shí)判定可以采用多線程做。但是一般都是使用數(shù)組循環(huán)來統(tǒng)計(jì)。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A(100) As Integer
Dim n1 As Integer = 0
Dim n2 As Integer = 0
For i = 1 To 100
Randomize()
A(i) = Int(Rnd() * 1000 + 1)
If A(i) Mod 2 = 0 Then
n1 += 1
Else
n2 += 1
End If
Next
MsgBox("所產(chǎn)生的100個(gè)數(shù)字中偶數(shù)有" n1 "個(gè),奇數(shù)有" n2 "個(gè)")
End Sub
你用的都是vb6的代碼,改成:
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("輸入有非數(shù)字字符,請重新輸入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub
分享名稱:vb.net判斷數(shù)字,vb判斷是否為數(shù)字
網(wǎng)頁地址:http://chinadenli.net/article29/dsgicjh.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供軟件開發(fā)、網(wǎng)站策劃、網(wǎng)站內(nèi)鏈、品牌網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)公司、營銷型網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)