Question

用VB制作简单的翻译器，两个文本框，一个按钮。在文本框1里面输入“01”，单击按钮，文本框2里面出现“a”

01=a，02=b……以此类推……俺是新手……请写明具体操作和用到的函数……最好可以解释一下……谢谢……如果满意……一定加分

Answer 1

01=a
如果是这样的话呢.你需要先定义好.26 个字母了. 然后采用;select case 语句的形式了.

Private Sub Text1_Change()
select case val(text1.text)
case 01
text2.text="a"
case else
text2.text=chr(text1.text)
end select
End Sub
'采用这个最最最简单的方式吧.学会了.再优化算法吧.

追问

能把26个字母转化为数字的翻译器的代码写出来吗？？谢谢了

追答

Private Sub Command2_Click()
Dim fov As Integer
For fov = 65 To 90
List1.AddItem "数字:" & fov & "=大写字母(" & Chr(fov) & ") 小写字母(" & Chr(fov + 32) & ") =数字:" & Asc(Chr(fov + 32))
Next
End Sub

Answer 2

private sub command1_click()'按钮的点击事件
dim a%,b$'定义a、b两个变量分别为整形和字符型
a=val(text1.text)'将第一个文本框的内容转换为数值赋给a
a=a+asc("a")-1'用asc函数将字符变为数值参与运算
b=chr(a)'将数值变为字符
text2.text=b'第二文本框内容为b
end sub '结束事件

追问

能做出来吗？？谢谢了