VB怎样设计一个程序【输入数字可以输出该数字的汉语拼音

Question

请高手指教

Answer 1

'添加 Command1 Text1

Dim h$, a&
Private Sub Form_Load()
Command1.Caption = "汉转十"
Text1.Text = "刘"
End Sub

Private Sub Command1_Click()
If Command1.Caption = "汉转十" Then
h = Hex(Asc(Text1.Text))
If Asc(Left(h, 1)) >= 66 And Asc(Left(h, 1)) <= 70 Then
h = Hex(Asc(Text1.Text))
a = Val("&H" + Mid(h, 1, 2)) * 256 + Val("&H" + Mid(h, 3, 2))
Text1.Text = CStr(a)
Command1.Caption = "十转汉"
Else
MsgBox "请输入中文汉字"
End If
Else
If Val(Text1.Text) >= 45217 And Val(Text1.Text) <= 63486 Then
a = Val(Text1.Text)
h = Hex(a)
Text1.Text = Chr(a)
Command1.Caption = "汉转十"
Else
MsgBox "请输入45217-63486之间的数字"
End If
End If
end sub

Answer 2

先自己编一个数据字典，包插每个数字和相应的读音。

然后再写个输入框，让用户输入。判断只能输入数字

然后转换为字符串，取得串中的每个字符，查找相就的读单，输入就ok了.不难。

Answer 3

先判断数字几位，分别加百十千等等，然后把每个数字的拼音写上对应就行了

Answer 4

VERSION 5.00
Begin VB.Form Form1
Caption = "form"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text2
Height = 375
Left = 953
TabIndex = 1
Top = 1080
Width = 2775
End
Begin VB.TextBox Text1
Height = 375
Left = 953
TabIndex = 0
Top = 600
Width = 2775
End
Begin VB.CommandButton Command3
Caption = "取消"
Height = 495
Left = 1913
TabIndex = 4
Top = 2520
Width = 855
End
Begin VB.CommandButton Command2
Caption = "退出"
Height = 495
Left = 3113
TabIndex = 3
Top = 2520
Width = 855
End
Begin VB.CommandButton Command1
Caption = "判断"
Height = 495
Left = 713
TabIndex = 2
Top = 2520
Width = 855
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Select Case a
Case 0
Text2.Text = "ling"
Case 1
Text2.Text = "yi"
Case 2
Text2.Text = "er"
Case 3
Text2.Text = "san"
Case 4
Text2.Text = "si"
Case 5
Text2.Text = "wu"
Case 6
Text2.Text = "liu"
Case 7
Text2.Text = "qi"
Case 8
Text2.Text = "ba"
Case 9
Text2.Text = "jiu"
Case Else
MsgBox "只允许输入数字", vbCritical, "警告"
Text1.Text = ""
Text1.SetFocus
End Select
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

很简陋只可以判断单个数字~_~