18.編寫VB程序代碼,實現如下功能:在文本框Text1中輸入金額(整數)后,點擊“轉換”按鈕Command1,則在文本框Text2中顯示該金額的大寫,程序運行界面如圖所示: (1)為了實現以上程序功能,使程序正常運行,請完善以下兩處代碼. Private Sub Command1_Click ( ?。?br />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.
19.編寫VB程序,實現如下功能:在文本框Text1中輸入某一年份,單擊“天干地支與生肖”按鈕Command1,在列表框List1中輸出該年份開始的12個年份及對應的“天干地支”與“生肖”,運行界面如圖所示,程序代碼如下. (1)代碼“Private Sub Command1_Click ( )”中的Command1是
.(單選,填字母:A.對象名/B.屬性名/C.事件名) (2)為實現上述功能,請在橫線處填入合適的代碼. Private Sub Command1_Click ( ?。?br />Dim a As Integer,b As Integer Dim i As Integer,n As Integer Dim c1As String,s1As String Dim c2As String,s2As String Dim c3As String,s3As String List1.Clear s1=“甲乙丙丁戊己庚辛壬癸“ s2=“子丑寅卯辰巳午未申酉戌亥“ s3=“鼠牛虎兔龍蛇馬羊猴雞狗豬“ n=Val(Text1.Text) For i=n To