第一套 试题三(18分) 修改VB程序, 用VB编制一个将人民币金额(不超过 4 位整数)转化为大写金额的程序,。 使其具有下列功能: 在文本框(Text1)中输入数字,单击“转换”按钮( Command1 ),则在文本框( Text2 )中显示相应的大写金额,程序运行的界面如图 5 所示;如果在文本框( Text1 )中输入的人民币金额超过 3 位数或非正整数,单击“转换”按钮( Command1 )则在文本框( Text2 )中显示提示信息:“输入数据不合法!请重新输入!!”。程序运行的界面图 6 所示。完成代码 图5 图 6 打开“ D:\test1111\ 考试结果 \ 程序设计 \ 试题三“文件夹中的工程文件“ test3.vbp ”,完成下列操作: 1.( 18 分)对注释“ 1 ”、“ 2 ”、“ 3 ”所在行的代码进行修改,并在代码中的“ -4- ”、“ -5- ”和“ -6- ”处真写一条代码(填写完成后,删除标号“ -4- ”、“ -5- ”和“ -6- ”),以让程序正确执行。调试并运行程序。 2.( 2 分)保存窗体文件和工程文件,生成可执行程序“ test3.exe ”并保存到“ D:\test1111\ 考试结果 \ 程序设计 \ 试题三“文件夹下。 Private Sub Command1_Click() Dim num, unit$(3), str$, t%, strlen%, endStr$ num = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖") unit(1) = "拾": unit(2) = "佰": unit(3) = "仟" Dim haveZero As Boolean '当前数字前面有没有0 str = '1 If Len(str) > 4 Or Val(str) <= 0 Then Text2.Text = "数据不合法,请重新输入" Text1. '2 文本框获得焦点 Exit Sub End If For i = 1 To '3 If Mid(str, i, 1) <> "0" Then str = Mid(str, i): Exit For Next i For i = 1 To Len(str) t = '4 答案为t = Val(Mid(str, i, 1)) 3分 If t = 0 Then haveZero = True Else If haveZero Then endStr = endStr + "零" + num(t) + unit(Len(str) - i) Else endStr = endStr + '5答案为endStr = endStr + num(t) + unit(Len(str) - i) 3分 End If End If Next i Text2.Text = + "元" ' 6 答案为 Text2.Text = endStr + "元" 3分 End Sub