vb记录数据
PrivateSubCommand1_Click()a=InputBox("请输入您的班级","1")b=InputBox("请输入您的姓名","2")DimstrFil...
Private Sub Command1_Click()
a = InputBox("请输入您的班级", "1")
b = InputBox("请输入您的姓名", "2")
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
strFileName = "c:\123.txt"
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = "a,b"
'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
End Sub
可以记录,但是记录出来的结果是“a,b”求修改,,教学.. 展开
a = InputBox("请输入您的班级", "1")
b = InputBox("请输入您的姓名", "2")
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
strFileName = "c:\123.txt"
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = "a,b"
'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
End Sub
可以记录,但是记录出来的结果是“a,b”求修改,,教学.. 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询