Question

各位大神帮忙用vb写一个小程序、代码发上来？

用vb写一个登记电话号码的小程序，直接出txt文本那样的、或者word也行，只要输出的文本没有引号就行、输出的文本显示如： 张三 123456 李四 123457 …… 我试着用inputbox写了一个，可是输出txt文本里电话号码总是有引号，不想有引号，就是直接姓名 电话号码的方式显示、各位帮忙写一个，代码发上来、

Answer 1

有引号是因为你是用write语句写的文件，换成print即可
以下是源码，测试版，未加容错处理，仅供参考。

Private Sub Command1_Click() '添加记录
If Text1 <> "" And Text2 <> "" Then
Open App.Path & "\通讯录.txt" For Append As #121
Print #121, Text1, Text2 '区别于write写法
Close #121
Text1.Text = "": Text2.Text = "": Text1.SetFocus
Else
MsgBox "姓名和号码均不能为空，请重新输入！"
End If
End Sub
Private Sub Command2_Click() '查看记录
Dim rec As String
rec = "通讯录内容如下：" & vbCrLf
Open App.Path & "\通讯录.txt" For Input As #120
Do While Not EOF(120)
Line Input #120, s
rec = rec & s & vbNewLine
Loop
MsgBox rec
Close #120
End Sub

Answer 2

把你的代码发上来啊

Answer 3

这个.........