VB基础编程问题，急

来源：百度知道 编辑：UC知道 时间：2024/05/30 11:36:31
要求编一个VB程序，读出0-999的拼音，例如，输入99，读JIUSHIJIU，100读YIBAI，9读JIU。要求精简到60行左右，请尽量编得通俗易懂，用CASE或IF最好，尽量不用循环！谢谢！！

Private Sub Command1_Click()
Dim A(9) As String, n As Integer, R As String
A(0) = "LING": A(1) = "YI": A(2) = "ER": A(3) = "SAN": A(4) = "SI"
A(5) = "WU": A(6) = "LIU": A(7) = "QI": A(8) = "BA": A(9) = "JIU"
n = InputBox("请输入一个整数（1000以内）：")
Select Case Len(Str(n))
Case 2
R = A(n)
Case 3
If n < 20 Then
R = "SHI" + A(n Mod 10)
Else
R = A(n \ 10) + "SHI" + A(n Mod 10)
End If
If (n Mod 10 = 0) And (n <> 0) Then R = Left(R, Len(R) - 4)
Case 4
If n Mod 100 = 0 Then
R = A(n \ 100) + "BAI"
ElseIf n Mod 10 = 0 Then
R = A(n \ 100) + "BAI" + A(n \ 10 Mod 10) + "SHI"
ElseIf (n \ 10) Mod 10 = 0 Then
R = A(n \ 100) + "BAI"