第一问答网»论坛 › 中问网 › 问答 › 急！！！怎么把vb中的数字转换成字母,代码怎么写 ...

急！！！怎么把vb中的数字转换成字母,代码怎么写

11 |

2 | 2017-12-15 08:48:16 | 显示全部楼层 |阅读模式

If Val(Text1.Text) > 26 Then Exit SubIf Len(Text1.Text) = 1 Then
Text2.Text = Chr(Val(Asc(Text1.Text) + 48))
'当是单位数时，直接转换ElseIf Len(Text1.Text) = 2 Then
If Val(Text1.Text) < 20 Then
Text2.Text = Chr(Val(Asc(Text1.Text)) + Val(Text1.Text) - 1 + 48)
'当是双位数时，利用差值转换
ElseIf Val(Text1.Text

使用道具举报