如果用常規(guī)編程的方法:
木壘哈薩克ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景,ssl證書(shū)未來(lái)市場(chǎng)廣闊!成為成都創(chuàng)新互聯(lián)公司的ssl證書(shū)銷售渠道,可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:028-86922220(備注:SSL證書(shū)合作)期待與您的合作!
直接用split(str1,“,”)的形式把str1字符串分成字符串?dāng)?shù)組,然后用for循環(huán)判斷每個(gè)數(shù)組元素是否是數(shù)字或者是字符串就可以了。
方法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
可以用VB6里的函數(shù)
isnumeric()
比如要判斷文本框里的內(nèi)容是否數(shù)字
if isnumeric(TextBox1.text) Then
msgbox("是數(shù)字!")
else
msgbox("不是數(shù)字!")
end if
這個(gè)同時(shí)判定可以采用多線程做。但是一般都是使用數(shù)組循環(huán)來(lái)統(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