题目

编写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                                    c = ""If  Len(s) > 9     Text2.Text = "输入的数据超出所能转换的范围"Else    For i = 1 To Len(s)                 ch =  Mid(s, i, 1)       c = c + + Mid(dw, 9 - Len(s) + i, 1)    Next i    Text2.Text = c + "整"End IfEnd Sub （3） 由上述算法可知，若在文本框Text1中输入“20”，则文本框Text3显示的结果为。 答案： 【1】caption 【1】then【2】mid（dx，val（ch）+1，1） 【1】贰拾零元整

查看本题答案和解析