由于交通日益拥堵，某市对车辆实施限行政策，即根据车牌最后一位数字进行限行判断，双号则奇数日期限行，单号的偶数日期限行。如车牌号“浙A53350”，末位数字为0，_刷题宝

题干

由于交通日益拥堵，某市对车辆实施限行政策，即根据车牌最后一位数字进行限行判断，双号则奇数日期限行，单号的偶数日期限行。如车牌号“浙A53350”，末位数字为0，则奇数日期限行，如车牌号“浙A5335B”，末位数字为5，则偶数日期限行。现有一VB程序用来查询限行情况，软件界面如图，在文本框Text1中输入车牌号，单击“判断”按钮Command1，并在文本框Text2中显示限行情况。

“查询”按钮Command1的单击事件处理过程如下：
Private Sub Command1_Click()
Dim i As Integer, n As Integer　'变量n保存车牌的最末位数字
Dim cp As String, c As String
cp=Text1.Text
For i=7 To 3 Step -1

c=Mid(cp, i, 1)

If　　　　①　　　　Then

n=Val(c)
If 　　　　②　　　　 Then
Text2.Text=″奇数日期限行″
Else
Text2.Text=″偶数日期限行″
End If
i=2

End If

Next i
End Sub
在程序划线处填写适当的表达式或语句,以实现程序功能。
程序中①划线处应填入________________________。
程序中②划线处应填入________________________。

上一题下一题 0.99难度填空题更新时间:2019-11-20 12:46:37

答案(点此获取答案解析）

同类题1

某一算法的流程图如第9题图所示，则该算法的功能是( )

A．求三个数中最大的数	B．求三个数中最小的数
C．将三个数从小到大排列	D．将三个数从大到小排列

同类题2

顺序查找算法程序如下，下列说法正确的是（）
Dim d(1 to 10) as Integer
n=10 : count = 0
For i = 1 To n

count = count + 1

If ① Then

Label1.Caption = “顺序查找在数组的第” & i & “位找到了” & v

Exit For

End If

Next i
If ② Then

Label1.Caption = “顺序查找没有找到” & v

A．①处的代码为key=d(i)

B．②处的代码为i>n

C．在最好情况下，查找结束时变量count 的值为0

D．当变量count 的值为10，说明已经找到了

同类题3

用VB设计查询并统计某公司的销售数据。实现如下功能：
①将所有员工的姓名和销售量存储到数组xm和xse中；
②对销售量数组进行求和，并输出该地区平均销售量（保留整数）；
③根据输入“销售排名前几位”筛选出排名前几位销售人员的数据。
程序运行界面如图所示。

（1）下列程序对员工的销售额进行排序的主要算法属于（选填：解析算法/枚举算法/冒泡排序算法/选择排序算法）
（2）实现上述功能的VB程序如下。请在划线处填入合适的代码。
Dim xse(1 To 3000) As Long '存储销售员工的销售量,最大处理个数为3000
Dim xm(1 To 3000) As String '存储销售员工的姓名
Dim mc(1 To 3000) As Integer '存储销售员工的名次
Dim num As Integer '当前员工总数
Private Sub Form_Load()
'将销售量、姓名数据存入xse和xm数组
'计算员工总数num
'代码略
End Sub
Private Sub Command1_Click()
Dim sum As Long
Dim i As Integer, flag As Integer
pm = Val(Text2.Text)
dq = Text1.Text
sum = 0
For i =" 1" To num
sum =" sum" + xse(i)
Next i
For i =" 1" To pm '对员工销售量进行排序
For j = ① To i + 1 Step -1
If xse(j - 1) < xse(j) Then
t =" xse(j" - 1): xse (j - 1) =" xse(j):" xse(j) = t
st =" xm(j" - 1): xm(j - 1) =" xm(j):" xm(j) = st
End If
Next j
Next i
mc(1) = 1
For i =" 2" To pm
If ② Then
mc(i) =" mc(i" - 1)
Else
mc(i) = i
End If
Next i
List1.Clear
List1.AddItem "排名" + "姓名" + "销售量"
For i =" 1" To pm
List1.AddItem Str(mc(i)) + " " + xm(i) + " " + Str(xse(i))
Next i
List1.AddItem dq + "平均销售额约为：" + ③
End Sub

同类题4

有序数列3.6,8,11.6,22,24,27,31,36.5,35，46，通过对分查找查找数31，需找（）次

同类题5

（加试题）一个无序整数数组，对它排序，使其前半部分都为奇数有序，后半部分为偶数有序。
基本想法：利用插入排序算法，对奇偶子序列分别插入排序。用两个变量把整个数组分割为三个部分，第一个部分为奇数有序子序列，第二部分为偶数有序子序列，第三部分为未排序子序列。使用两个变量进行分割，mid 指向偶数有序子序列的一个元素，end1 指向未排序子序列（等待一个个插入前面的奇数有序子序列或偶数有序子序列）。

Const n = 7
Dim a(-1 To n) As Integer
Private Sub Form_Load()
'随机生成7个不重复的正整数到a()数组中。代码略
End Sub
Private Sub Command1_Click()
Dim mid As Integer, end1 As Integer
Dim i As Integer, j As Integer, num As Integer
mid = 0: end1 = 0
Do While end1 <= n
num = a(mid) ‘①
j = end1
If num Mod 2 = 1 Then
Do While j - 1 >= mid and a(j - 1) < num ‘②
a(j) = a(j - 1)
j = j - 1
Loop
a(j) = num
mid = mid + 1
Else
Do While a(j - 1) > num And j - 1 >= mid
a(j) = a(j - 1)
j = j - 1
Loop
a(j) = num
End If
end1 = end1 + 1
Loop
For i = 0 To n
List1.AddItem Str(a(i))
Next i
End Sub
划线处的代码有误，请改正：
①___________________________
②___________________________

相关知识点