●试题六
阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在答题纸的对应栏内。
【说明】

本应用程序是一个小写数字转换成大写格式的转换器,其运行窗口如图5所示。图5窗口中有两个标签(lblNumber和lblChinese)、两个文本框(txtNumber和txtChinese)和一个命令按钮(cmdChange)。当单击按钮cmdChange时,将文本框txtNumber中数字转换成中文大写,并显示在文本框txtChinese中。例如,在文本框txtNumber输入0076845,单击cmdChange按钮,将在文本框txtChinese中显示"柒万陆仟捌佰肆拾伍"。
程序中调用的函数CChinse(Strdigit As String)的功能是先删除字符串的所有前导0,再调用函数Change(Strdigit As String),将数字字符串Strdigit转换成中文大写格式。
为了防止用户在文本框txtNumber输入非数字形式的字符,程序将以空字符代替所输入的非数字有形字符。
【程序】
Private Function Transfer(Strdigit As String)As String
′完成小写向大写的转换,这段代码省略
End Function
Private Function CChinese(Strdigit As String)As String
Dim intLen,intCounter As Integer
intLen=Len(Strdigit)
If intLen>0 Then
intcounter=0
Do′过滤数字串Strdigit的前导0
intcounter=intcounter+1
Loop Until Mid(Strdigit, (1) )
intLen= (2)
Strdigit= (3) (Strdigit,intLen)
CChinese=Transfer(Strdigit)
End If
End Function
Private Sub cmdChange_Click()
txtChinese.Text=CChinese( (4) )′调用Cchinese函数
End Sub
Private Sub txtNumber_KeyPress(KeyAscii As Integer)
Select Case KeyAscii′根据输入字符的ASCⅡ码的值进行判断
Case KeyAscii<32′保留输入的控制字符
Case 48 To 57′保留输入的数字字符
Case Else′其他情况以空字符代替
(5) =0
End Select
End Sub