vb中如何随机选取车牌号
①要求用VisualBasic6.0提供的系统函数及常用控件，结合学习过的常用算法完成设计。
②在设计程序的过程中，要求会使用按钮(commandbutton)、组合列表框(combo)，文本框(text)、标签(label)、框架(frame)、复选框(check)等基本控件的属性、方法和相关事件。
③要求在程序中能够随机生成一个数字字符串。字符串的长度、对某些位的特殊要求（必须具备长度设置、最后一位是否可以为“4”、任一位是否可以为4、军用牌照、警用牌照这些最常见要求）可由用户设置，最终生成符合要求的机动车车牌号显示给用户。
④要求使用循环算法保证每次单击选号按钮必能产生一个符合要求的号码。
[最优解释]
建一个text用于显示被选中号，一个combox用于存放备选号，三个command（command1用于输入待选号码，command2用于选择，command3用于清屏),注意combox的keypress过程使用。
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'ASCII码中enter键值为13，意为按了enter键
Combo1.AddItem Combo1.Text, 0 '接收输入的号码
Combo1.SelStart = 0 '设置起始组合框的位置
Combo1.SelLength = Len(Combo1.Text) '设置组合框的长度
End If
If KeyAscii = 27 Then 'ASCII码中escape键值为27
If Combo1.ListIndex <> -1 Then
Combo1.RemoveItem Combo1.ListIndex '移去选项
End If
End If
End Sub
Private Sub Command1_Click() '选择按钮代码
Dim n%, a%
Randomize
n = Combo1.ListCount '求组合框中的项目数
a = Int(Rnd * n) '利用随机数函数求随机序号
Combo1.ListIndex = a
Label2.Caption = "您选中的号码是： " & Chr(13) & Combo1.Text
End Sub
Private Sub Command2_Click() '清屏按钮代码
text1.text =""
End Sub
[其他解释]
你到底想问什么？不会是上面的全不懂吧？
[其他解释]
这个人好像没有学过VB。①②完全是vb基础，一个程序需要这么多东西吗？
[其他解释]
这是道作业题
[其他解释]
嗯 是道作业题，就是没啥思路 ！！
[其他解释]
希望大家指导一下 ，我刚学VB没多少日子，基本上还没咋入门呢！！
[其他解释]
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'ASCII码中enter键值为13，意为按了enter键
Combo1.AddItem Combo1.Text, 0 '接收输入的号码
Combo1.SelStart = 0 '设置起始组合框的位置
Combo1.SelLength = Len(Combo1.Text) '设置组合框的长度
End If
If KeyAscii = 27 Then 'ASCII码中escape键值为27
If Combo1.ListIndex <> -1 Then
Combo1.RemoveItem Combo1.ListIndex '移去选项
End If
End If
End Sub
Private Sub Command1_Click() '选择按钮代码
Dim n%, a%
Randomize
n = Combo1.ListCount '求组合框中的项目数
a = Int(Rnd * n) '利用随机数函数求随机序号
Combo1.ListIndex = a
Label2.Caption = "您选中的号码是： " & Chr(13) & Combo1.Text
End Sub
Private Sub Command2_Click() '清屏按钮代码
text1.text =""
End Sub
[其他解释]
leo19770101问一下你的联系方式，可能是我写的不太清楚 可不可以在具体的给我看看啊
[其他解释]
en hao
[其他解释]
楼主 你那儿有没有随机选取车牌号的vb程序加代码啊 有的话 能不能分享一下啊 我也是这个题目 马上就答辩啦 什么都不会啊 救急啊\(^o^)/~
