以下为引用的内容: 1、新建一个窗体,创建一个文本框和命令按钮,加入下面代码: Option Explicit Private Sub Command1_Click() Dim c1 As New Class1 MsgBox c1.DigestStrToHexStr(Text1.Text) End Sub...