选车牌号
里面有个每一位数都不为4,怎么编写啊 --------------------编程问答--------------------
Public Function numSelect() '随机选择一位不是4的数字
Dim i as integer
Randomize
Do
i=int(rnd()*10)
if i<>4 then
Exit Do
End If
Loop
End Fuction
'---------------------
mycarnum=""
For i=1 to 5
mycarnum=mycarnum & numSelect
Next i
在程序中用:mycarnum=numSelect & numSelect & numSelect & numSelect --------------------编程问答-------------------- 更正一下:
--------------------编程问答-------------------- 没看懂楼主什么意思 --------------------编程问答--------------------
Public Function numSelect() '随机选择一位不是4的数字
Dim i as integer
Randomize
Do
i=int(rnd()*10)
if i<>4 then
Exit Do
End If
Loop
numSelect=i '上面的程序少了这一句
End Fuction
'---------------------
mycarnum=""
For i=1 to 5
mycarnum=mycarnum & numSelect
Next i
Dim d(8) As Integer
For i = 0 To 8: d(i) = i: Next i: d(4) = 9
Dim 车牌 As String
Randomize
For i = 0 To 4
车牌 = 车牌 & d(Int(8 * Rnd))
Next i
Debug.Print "车牌:" & 车牌
保证不会有 4 。 --------------------编程问答-------------------- 更正
车牌 = 车牌 & d(Int(8 * Rnd))
应该为
车牌 = 车牌 & d(Int(9 * Rnd))
少了一个。 --------------------编程问答--------------------
sub main()
dim s1 as string
dim s2 as string
dim s3 as string
s1 = "浙B 123456"
s2 = "沪A 888888"
s3 = "沪A WQ4124"
MsgBox(s1 & ": " & HaveFour(s1))
MsgBox(s2 & ": " & HaveFour(s2))
MsgBox(s3 & ": " & HaveFour(s3))
end sub
function HaveFour(byval s as string) as string
if Len(Replace(s, "4", "")) = Len(s) then
HaveFour = false
else
HaveFour = true
end if
end function
补充:VB , 控件