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

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。

【说明】

本应用程序是一个小写数字转换成大写格式的转换器，其运行窗口如图5所示。

窗口中有两个标签(lblNumber和lblChinese)、两个文本框(txtNnmber和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 "根据输入字符的ASCII码的值进行判断

Case KeyAscii＜32 "保留输入的控制字符

Case 48 To 57 "保留输入的数字字符

Case Else "其他情况以空字符代替

(5)=0

End Select

End Sub