作业帮VB中随机产生一个汽车牌号,由六个字符组成,其中首字符为大写字母,后面是5个数字.据字母判断种类字母B表示出租车,G表示郊区车,O表示警车,A、C、E、F、H、J、K表示普通车,其他字母组成的车
来源：学生作业帮助网 编辑：作业帮 时间：2024/12/01 03:39:08
VB中随机产生一个汽车牌号,由六个字符组成,其中首字符为大写字母,后面是5个数字.据字母判断种类字母B表示出租车,G表示郊区车,O表示警车,A、C、E、F、H、J、K表示普通车,其他字母组成的车
VB中随机产生一个汽车牌号,由六个字符组成,其中首字符为大写字母,后面是5个数字.据字母判断种类
字母B表示出租车,G表示郊区车,O表示警车,A、C、E、F、H、J、K表示普通车,其他字母组成的车牌号不存在.
Chr(Int(Rnd * 26 + 65)) & (Int(Rnd * (100000) + 0))字符表示
求代码
运行结果如下图
VB中随机产生一个汽车牌号,由六个字符组成,其中首字符为大写字母,后面是5个数字.据字母判断种类字母B表示出租车,G表示郊区车,O表示警车,A、C、E、F、H、J、K表示普通车,其他字母组成的车
Private Sub Command1_Click()
a = Chr(Int(Rnd * 26 + 65))
str1 = a & (Int(Rnd * (100000) + 0))
Select Case a
Case "B"
str2 = "是出租车"
Case "G"
str2 = "是郊区车"
Case "O"
str2 = "是警车"
Case "A"
str2 = "是普通车"
Case "C"
str2 = "是普通车"
Case "E"
str2 = "是普通车"
Case "F"
str2 = "是普通车"
Case "H"
str2 = "是普通车"
Case "J"
str2 = "是普通车"
Case "K"
str2 = "是普通车"
Case Else
str2 = "没有这个车牌"
End Select
Print str1 & str2
End Sub
Chr(Int(Rnd * 26 + 65))产生车牌的首字母,所以可以通过判断Chr(Int(Rnd * 26 + 65))的值来确定车型.
输出由两部分组成：车牌号（str1）+判断结果(str2),所以,在判断语句的内部给结果赋值（即str2）,最后,输出结果即可!