建一个Command1,单击按钮即可。这个程序把你输入的内容以十六进制保存到文件D:\A.Txt中。代码如下。==============Private Sub Command1_Click()Dim s As String, i As Integers = InputBox("请输入你想写入的内容")Open "d:\a.txt" For Output As 1For i = 1 To Len(s)Write #1, Hex(Asc(Mid(s, i, 1)))NextClose 1End Sub