这行语句如何修改成正确的？ - 编程论坛

#2

Artless2016-09-10 00:41

Print #1, "[" & now & "]用户名：" & text1.Text

#3

xiangyue05102016-09-10 08:06

回复楼主 dgg实在

二楼正解
基础的东西要学好啊，这个只是简单的字符串基本操作

#4

dgg实在2016-09-10 08:33

回复 2楼 Artless

修改后语句没问题，但运行后错误，我把所有代码发出来，帮我看一下。

#5

dgg实在2016-09-10 08:35

Private Sub Command1_Click()
Open "d:\sys.ini" For Append As #1
Print #1, "[" & Now&; "]用户名：" & Text1.Text, "密码：": Text2.Text , "来源于：": winsock1.localip
Print #1,
Close #1

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

我目的是想，当运行程序后，输入用户名和密码后会记录登陆时间，用户名，密码，ip地址，请问如何修改？

#6

ZHRXJR2016-09-10 20:24

看来你对变量的使用比较生疏，其实使用变量对你对程序有好处。

程序代码：

Private Sub Command1_Click()
Dim NW As String, YHM As String, MM As String, IPL As String    '声明四个字符变量
NW = "[" & Now & "]"    '变量NW存储日期时间
YHM = "用户名：" & Text1.Text   '变量YHM存储用户名
MM = "密码：" & Text2.Text    '变量MM存储密码
IPL = "来源于：" & Winsock1.LocalIP    '变量IPL存储用户的IP地址
Open "d:\sys.ini" For Append As #1
Write #1, NW, YHM, MM, IPL       '   每次将四个变量值写入一个记录中，注意是追加记录，就是在原来记录的后面写入记录
Close #1
'注意：Write是写入记录，Input 是读取记录，Pirnt 是打印记录内容
Open "d:\sys.ini" For Input As #1
Do While Not EOF(1)
Input #1, X, Y, X, W   '读取记录到变量，最笨的读取最后一条记录的方法
Loop
Label1.Caption = X & Space(3) & Y & Space(3) & Z & Space(3) & W  '在标签中显示出来
End Sub

看看，代码不是特别难懂吧。

#7

dgg实在2016-09-10 22:09

回复 6楼 ZHRXJR

运行后，显示错误

#8

dgg实在2016-09-10 22:09

回复 6楼 ZHRXJR

运行后，显示错误

#9

Artless2016-09-11 00:42

Print #1, "[": now:"]":"用户名：": text1.Text

Print #1, "[" & now & "]用户名：" & text1.Text

Print #1, "[" & Now&; "]用户名：" & Text1.Text, "密码：": Text2.Text , "来源于：": winsock1.localip

???

#10

ZHRXJR2016-09-11 12:42

回复 8楼 dgg实在

显示错误，没有说什么错误，你不能多说二句吗？

#11

xiangyue05102016-09-12 09:50

以下是引用dgg实在在2016-9-10 08:35:54的发言：

Private Sub Command1_Click()
Open "d:\sys.ini" For Append As #1
Print #1, "[" & Now&; "]用户名：" & Text1.Text, "密码：": Text2.Text , "来源于：": winsock1.localip
Print #1,
Close #1

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

我目的是想，当运行程序后，输入用户名和密码后会记录登陆时间，用户名，密码，ip地址，请问如何修改？

把下面红显得替换成 & （前后都带空格。 &紧跟变量名，会被当成变量名的一部分，而不是字符串运算符），注意其中冒号，逗号也有红显的
这么简单的一句代码都被你写出这么多的错误……
还是那句话，应该拿起书本把最基本的东西好好的学习一下。

Print #1, "[" & Now&; "]用户名：" & Text1.Text, "密码：": Text2.Text , "来源于：": winsock1.localip

[此贴子已经被作者于2016-9-12 09:54编辑过]