杭州交通信息网治疗狐臭小窍门:十万火急
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/05 19:58:06
设计一个阿拉伯数字金额与中文大写金额的转换器，要求当在上文本框中输入数字时，下一个文本框显示转换后的大写金额。表单界面如图所示。表单(Form1)包括的控件有：三个标签（label1、label2、label3）和两个文本框（Text1、Text2）、两个按钮（command1、command2）。表单的界面编辑布局已基本完成。请写出：
（1）“转换”按钮的Click事件代码：
（2）“清除”按钮的Click事件代码：
界面如下：
金额转换器
请输入小写金额： 转换
大写为： 清除
程序快写出来啊 很急的！
快啊！！！
（1）“转换”按钮的Click事件代码：
（2）“清除”按钮的Click事件代码：
界面如下：
金额转换器
请输入小写金额： 转换
大写为： 清除
程序快写出来啊 很急的！
快啊！！！
等我写出来给你传上去
Private Sub Command1_Click()
Select Case Text1.Text
Case 1
Text2.Text = "壹"
Case 2
Text2.Text = "贰"
Case 3
Text2.Text = "叁"
Case 4
Text2.Text = "肆"
Case 5
Text2.Text = "伍"
Case 6
Text2.Text = "陆"
Case 7
Text2.Text = "柒"
Case 8
Text2.Text = "捌"
Case 9
Text2.Text = "玖"
Case Else
Text2.Text = ""
End Select
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
不复杂。处理字符串的函数学好就中了