题目

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示: （1） 要使窗体标题上显示的文本改为“人民币大小写”，可在其属性窗口中将属性的属性值改为“人民币大小写”。 （2） 为了实现以上程序功能，使程序正常运行，请完善以下两处代码。Private Sub Command1_Click()Dim dx As String, dw As StringDim s As String, c As StringDim ch As StringDim i As Integerdx = "零壹贰叁肆伍陆柒捌玖拾"dw = "亿仟佰拾萬仟佰拾元"s = Text1.Text                        If  Len(s) > 9     Text2.Text = "输入的数据超出所能转换的范围"Else    For i = 1 To Len(s)                 ch =         c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)    Next i    Text2.Text = c + "整"End IfEnd Sub （3） 由上述算法可知，若在文本框Text1中输入“20”，则文本框Text2显示的结果为。 答案： 【1】Caption 【1】then【2】mid（s，i，1） 【1】贰拾零元整

查看本题答案和解析