K4过程与自定义函数 自定义函数 变量用于 限行

杭州市区实行汽车限行制度，根据汽车车牌的尾号来确定当天是否限行。尾号规则如下：
从车牌号最末位开始依次向前进行判断，以最先出现的数字作为尾号，如9138A的尾号为8。现用VB设计一个自动判断尾号的程序，界面如图所示：
其中文本框Text_input用于获取用户车牌号，标签Label_Out用于输出尾号信息。程序代码如下：
Private Sub Command1_Click()
Dim getCP As String, temp As String
Dim getNumber As String, i As Integer
getCP = ①______
For i = 5 To 1 Step - 1
temp = ②______
If isNum (temp) Then
getNumber = ③______
Exit For    ‘强制推出For循环
End If
Next i
LabelOut. Caption = “尾号是：”& getNumber
End Sub
Function isNum( x As String) As Boolean
isNum = True
If x < “0” Or x > “9” Then isNum = False
End Function
（1）程序中①画线处应填入______；程序中②画线处应填入______；程序中③画线处应填入______。
（2）若程序中去除Exit For这行代码，那么当输入车牌为207c1时，输出的尾号是______。


（1）①Text_input.Text（1分）
②Mid（getCP，i，1）（1分）
③temp（1分）
（2）2（2分）


本题考查字符串处理。（1）getCP变量用于输入待处理的字符串，temp变量用于存放从getCP中拆分出来的某一个字符，故①应填Text_in put.text，②应填Mid（getCP，i，1）。当程序中出现自定义函数时，要注意分析自定义函数的作用，分析代入什么参数，要返回什么值。本题自定义函数功能比较简单，判断参数x是否为数字，若是则返回True，否则返回False。由题意可知，temp是数字时，则输出这个尾号，故③空填temp，并强制退出循环。（2）若程序去除Exit For，继续循环，输出的是最后一个符合条件的数字2。