Question

用vb编写一个简单的程序

编写一个程序
输入一个数，这个数范围是0-99
要求输入一个数后能输出这个数相应的字母
例如输入12输出“shi er”输入88输出“ba shi ba”
输入0输出“ling” 输入20输出“er shi”
我要程序，一个能够实现的完整的VB程序。不要告诉我怎么做。

Answer 1

新建一个窗体,画2个文本框 Text1和Text2,代码放在窗体里面...

Option Explicit
Dim arrPY

Private Sub Form_Load()
Text1.Text = ""
Text1.MaxLength = 2
Text2.Text = ""
Text2.Locked = True

arrPY = Array("ling", "yi", "er", "san", "si", "wu", "liu", "qi", "ba", "jiu", "shi")
End Sub

Private Sub Text1_Change()

'只有一位数字
If Len(Text1) = 1 Then
'校验是否为数字
If IsNumeric(Text1) = False Then Exit Sub
Text2.Text = arrPY(Text1)

Else
'两个数字

'校验数据是否正确
If IsNumeric(Left$(Text1, 1)) = False Or IsNumeric(Right$(Text1, 1)) = False Then Exit Sub

'10就是shi 不能是 yi shi
If Text1 = 10 Then
Text2.Text = arrPY(10)
'以0结尾
ElseIf Right$(Text1, 1) = 0 Then
Text2.Text = arrPY(Left$(Text1, 1)) & " " & arrPY(10)
'其它情况 x shi y
Else
Text2.Text = arrPY(Left$(Text1, 1)) & " " & arrPY(10) & " " & arrPY(Right$(Text1, 1))
End If

End If

End Sub

Answer 2

主要是求满足
N
=
M
时的
X
吧。为什么写得这么复杂呢...汗；；
A*B+A*B*0.003+A*B*0.001+1
=
=(A+X)*B-(A+X)*B*0.003-(A+X)*B*0.001-1
A*B*0.006+A*B*0.002+2
=
X*B-X*B*0.003-X*B*0.001
A*B*0.008+2
=
X*B*0.996
X
=
(A*B*0.008+2)/(B*0.996)
'--
If
X
>=
0.001
Then
X
=
Round(X,
3)
Else
'把X初始化
End
If
'显出
X
完毕

Answer 3

代码我就不写了

可以给你个思路
三个text控件，分别命名为：txtStr、txtVal、txtPY
一个command控件 命名为：cmdOK
txtStr为你输入的数字
用txtVal显示你txtStr中转换的数字大写（也就是中文了）
最后用txtPY显示txtVal中转换的全拼

Answer 4

建一个Command1，单击按钮即可。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private
Sub
Command1_Click()
Dim
D
As
Double,
L
As
Double,
v
As
Double
D
=
InputBox("D=?")
L
=
InputBox("L=?")
v
=
0.7854
*
L
*
(D
+
0.5
*
L
+
0.005
*
L
^
2
+
Round(0.000125
*
L
*
(14
-
L)
^
2
*
(D
-
10),
3))
^
2
/
1000
Print
v
End
Sub

Answer 5

上面的程序有问题
'给窗口加3个TEXT控件
text.text
都设为0，再加个COMMAND
控件
'付上以下程序
OK了
Private
Sub
Command1_Click()
Dim
D
As
Single,
L
As
Single
D
=
Val(Text1.Text)
L
=
val(Text2.Text)
v
=
0.7854
*
L
*
(D
+
0.5
*
L
+
0.005
*
L
^
2
+
0.000125
*
L
*
(14
-
L)
^
2
*
(D
-
10))
^
2
/
1000
Text3.Text
=
v
End
Sub