竹马青梅入梦来

初学VB 用VB自带的ASC函数做的小程序，很粗糙..见笑啦

附源码：

Private Sub Command1_Click()  
    If Text1.Text = "" Then
    MsgBox "请输入查询字符", , "错误提示"
        Else
    Label2.Caption = AscW(Text1.Text)     '求Unicode码
    End If

End Sub

Private Sub Command2_Click()
If Text1.Text = "" Then
    MsgBox "请输入查询字符", , "错误提示"
Else
    Label2.Caption = Asc(Text1.Text)     '求ASCII码
End If
End Sub

Private Sub Command3_Click()       ’清空，进行下一个查询
    Text1.Text = ""
    Label2.Caption = 0

End Sub

下载链接

http://down.qiannao.com/space/file/imaginelx/-4e0a-4f20-5206-4eab/ascii-002dme.exe/.page