屬性的屬性值改為“人民幣大小寫”. (2)為了實現以上程序功能,使程序正常運行,請完善以下兩處代碼. Private Sub Command1_Click ( ) Dim dx As String,dw As String Dim s As String,c As String Dim ch As String Dim i As Integer dx=“零壹貳叁肆伍陸柒捌玖拾“ dw=“億仟佰拾萬仟佰拾元“ s=Text1.Text If Len(s)>9① Text2.Text=“輸入的數據超出所能轉換的范圍“ Else For i=1To Len(s) ch= ② c=c+Mid(dx,Val(ch)+1,1)+Mid(dw,9-Len(s)+i,1) Next i Text2.Text=c+“整“ End If End Sub (3)由上述算法可知,若在文本框Text1中輸入“20”,則文本框Text3顯示的結果為