题目

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示： （1） 若要将按钮上的文本修改为“转换”，则应修改Command1对象的 属性 （2） 为了实现以上程序功能，使程序正常运行，请完善以下两处代码。 Private Sub Command1_Click() Dim dx As String, dw As String Dim st As String, ch As Integer Dim i ,n As Integer dx = "零壹贰叁肆伍陆柒捌玖"  dw = "亿仟佰拾萬仟佰拾圆"  st = Text1.Text : n = Len(st) If  n > 9 Then     Text2.Text = "输入的数据超出所能转换的范围" Else     For i = 1 To n                  ch =    ①           s = s + Mid(dx, ch + 1, 1) + Mid(dw,  ②   , 1)     Next i     Text2.Text = s + "整" End If End Sub 以上程序段运行时，为了实现上述功能，划线处应填入的代码分别为： ①； ②； （3） 由上述算法可知，若在文本框Text1中输入“12”，则文本框Text3显示的结果为。 答案： 【1】Caption 【1】Val(Mid(st,i,1))【2】9-n+i 【1】壹拾贰圆整

查看本题答案和解析