VB小程序，关注我有更多的有趣的VB小程序
1、数字大小写转换
界面：
代码：
Private Sub Command1_Click()
Const dx = "零一二三四五六七八九"
Dim s As String, x As Integer
Dim ans As String, i As Integer
s = Text1.Text
For i = 1 To Len(s)
x = Val(Mid(s, i, 1))
ans = ans + Mid(dx, x + 1, 1)
Next i
Label1.Caption = ans
End Sub
2、金额转换
界面：
代码 ：
Private Sub Command1_Click()
Dim dx As String, dw As String
Dim s As String, c As String
Dim ch As String, i As Integer
dx = "零壹贰叁肆伍陆柒捌玖拾"
dw = "亿仟佰拾萬仟佰拾元"
s = Text1.Text
If Len(s) > 9 Then
Label1.Caption = "输入的数据超出所能转换的范围"
Else
For i = 1 To Len(s)
ch = Mid(s, i, 1)
c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)
Next i
Label1.Caption = c + "整"
End If
End Sub
3、字母转换
界面：
代码：
Private Sub Command1_Click() '内置函数
Text2.Text = UCase(Text1.Text)
Text4.Text = LCase(Text3.Text)
End Sub
Private Sub Command2_Click() '编写程序
Dim s As String, s1 As String, t As String, t1 As String, ch As String, i As Integer, k As Integer
s = Text1.Text
s1 = Text3.Text
t = "": k = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "z" Then
ch = Chr(Asc(ch) - 32)
End If
t = t & ch
Next i
Text2.Text = t
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch >= "A" And ch <= "Z" Then
ch = Chr(Asc(ch) + 32)
End If
t1 = t1 & ch
Next i
Text4.Text = t1
End Sub
想得到更多的VB小程序，请关注我，点击下方的广告可以更好的支持和鼓励我哦！