作业帮 > 综合 > 作业

VB中随机产生一个汽车牌号,由六个字符组成,其中首字符为大写字母,后面是5个数字.据字母判断种类

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/02 12:48:25
VB中随机产生一个汽车牌号,由六个字符组成,其中首字符为大写字母,后面是5个数字.据字母判断种类
字母B表示出租车,G表示郊区车,O表示警车,A、C、E、F、H、J、K表示普通车,其他字母组成的车牌号不存在.
Chr(Int(Rnd * 26 + 65)) & (Int(Rnd * (100000) + 0))字符表示
求代码
运行结果如下图
VB中随机产生一个汽车牌号,由六个字符组成,其中首字符为大写字母,后面是5个数字.据字母判断种类
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),最后,输出结果即可!