关于VB的填空

[复制链接]
查看11 | 回复1 | 2011-6-7 10:38:25 | 显示全部楼层 |阅读模式
某市近期向市民投放带2B开头尾数为001至999的机动车牌号,经过竞投有200个牌号被首批车主投中。下面Visual Basic程序段的功能是根据车牌号查找相应的车主身份证号码,其中车牌号按尾数从小到大的顺序存储在cno数组中,身份证号码存储在cnum数组中。
界面如图VB-1所示,在文本框Text1中输入一个车牌号,单击"开始查找"按钮后,在文本框Text2中输出结果。如果查找成功,则输出对应的车主身份证号码,否则输出"找不到"。
解决查找问题的算法流程图如图VB-2所示,相应的Visual Basic程序段如下,在(1)和(2)划线处,填入合适的语句或表达式,把程序段补充完整。
Private Sub Command1_Click()
Dim key As String , i As Integer
Dim j As Integer , found As Boolean
i = 1: j = 200 : found = False

(1)
Do While i M...
回复

使用道具 举报

千问 | 2011-6-7 10:38:25 | 显示全部楼层
代码不正确吧,很明显的程序中有2个IF而END IF却只有一个,你把代码重写一下,我再看看...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行