本课程的TDD案例用多轮实现了将阿拉伯数字转换为中文大写的程序，其中第3轮，编码后测试时使用了测试数据100、101和999，采用的是等价类测试。

如何把Word中的阿拉伯数字巧妙转换成大写数字？

A. 样式

B. 设置单元格格式

C. 数据有效性

D. 审阅

[说明]

在一些财务软件中，经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法，例如：

“3.45”转化为“叁元四角五分”；

“3.4”转化为“叁元四角”；

“3.40”转化为“叁元四角零分”；

“3.456”转化为“叁元四角五分”；

“345.00”转化为“叁百四十五元零角零分”；

“345”转化为“叁百四十五元”；

以下Visual Basic代码实现了小写金额转换为大写金额。界面如图10-9所示。结合实际例子说明，仔细阅读下面代码，将(n)代码补充完整。

[代码7-1]

Begin VB.FormForm1

Caption = "小写金额转换为大写金额"

//...窗体描述(略)

Begin VB.CommandButton Command1

Caption = "退出"

//...窗体描述(略)

End

Begin VB.TextBox Text2

//...窗体描述(略)

End

Begin VB.TextBox Text1

Enabled = 0 'False

//…窗体描述(略)

End

Begin VB.Labe1 Labe12

Caption = "转换为大写金额"

//...窗体描述(略)

End

Begin VB.Labe1 Labe11

Caphon = "请输入数字"

//...窗体描述(略)

End

End

[代码7-2]

Private Function setdata (num As Integer) As String '数字转换

Select CaSe num

Case 0

setdata="零"

Case 1

Setdata="壹"

Case 2

Setdata="贰"

Case 3

Setdata="叁"

Case4

Setdata="肆"

Case 5

Setdata="伍"

Case 6

Setdata="陆"

Case 7

Setdata="柒"

Case 8

Setdata="捌"

Case 9

Setdata="玖"

End Select

End Function

Private Function chang (aaa As Integer) As String '位数转换

Select CaSe aaa

Case 1

chang=""

Case 2

chang="十"

Case 3

chang="百"

Case 4

chang="千"

Case 5

chang="万"

Case 6

chang="十"

Case 7

chang="百"

Case 8

chang="千"

Case 9

chang="亿"

Case 10

chang="十"

End Select

End Function

[代码7-3]

Private Sub Text2_Change ( ) '小写转大写

Dim i As Integer

Dim j As Integer

Dim myint As Integer

Dim myint1 As Integer

Dim mydoub As Double

Dim mystr As String

Dim mystr1 As String

Dim mystr2 As String

Dim mystr3 As String

Dim mystr4 As String

Dim money As Long

Dim money1 As Integer

Dim money2 As Long

mystr=Text2.Text

myint=InStr (mystr, ".")

If myint=0 Then

mystr=Text2.Text

Else

mystr3=Right(Text2.Text, Len (Text2.Text ) - myint)

If mystr3＜＞""Then '转换小数位

mystr4=Left(mystr3, 1)

mystr3=Right(mystr3, Len(mystr3 )

【说明】

本应用程序是一个小写数字转换成大写格式的转换器，其运行窗口如图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

A、将时间离散、幅值连续的模拟信号转换为时间连续、幅值离散的数字信号

B、将时间离散、幅值也离散的模拟信号转换为时间连续、幅值也连续的数字信号

C、将时间连续、幅值离散的模拟信号转换为时间离散、幅值连续的数字信号

D、将时间连续、幅值也连续的模拟信号转换为时间离散、幅值也离散的数字信号

E、将时间离散、幅值也离散的模拟信号转换为时间离散、幅值也离散的数字信号

程序说明：假设有一个把数字串转换为整数的函数。其中数字串要求长度为1～6个数字构成，机器字长为16位。

分析程序中出现的边界情况，采用边界值法为该程序设计测试用例。

A.将模拟量转换为数字量的电路

B.将数字量转换为输入量的电路

C.将数字量转换为模拟量的电路

D.将输入量转换为模拟量的电路