UC知道大家再来帮帮小弟
来源：百度知道 编辑：UC知道 时间：2024/07/02 15:10:39
Private Sub Command1_Click()
Dim fname As String, st As String, tt As String
CommonDialog1.ShowOpen
CommonDialog1.DialogTitle = "abcd"
fname = CommonDialog1.FileName
Me.Print fname
tt = " "
Open fname For Input As #1
Do While Not EOF(1)
Line Input #1, st
tt = tt & Chr(13) & Chr(10) & st
Loop
Close #1
Text1.Text = tt
End Sub
中的
tt = tt & Chr(13) & Chr(10) & st
是什么意思?为什么等号左右两边都有"tt"
Dim fname As String, st As String, tt As String
CommonDialog1.ShowOpen
CommonDialog1.DialogTitle = "abcd"
fname = CommonDialog1.FileName
Me.Print fname
tt = " "
Open fname For Input As #1
Do While Not EOF(1)
Line Input #1, st
tt = tt & Chr(13) & Chr(10) & st
Loop
Close #1
Text1.Text = tt
End Sub
中的
tt = tt & Chr(13) & Chr(10) & st
是什么意思?为什么等号左右两边都有"tt"
sum=0
for i=1 to 100
sum=sum+1
next
上面的程序能看懂不？
（每次循环均加上上次循环算得的值
实现1+2+……100）
tt = tt & Chr(13) & Chr(10) & st
道理一样
（每次循环均加上上次循环tt被赋予的值
实现1+2+……100）
在循环中
第一次循环（即读第一行时）
tt 被赋予Chr(13) & Chr(10) & st (第一行内容）
第二次循环（即读第二行时）
tt 被赋予 (第一行内容）+ Chr(13) & Chr(10) & st（第二行内容）
第三次循环（即读第三行时）
tt 被赋予 (第一行内容）+（第二行内容）+ Chr(13) & Chr(10) & st（第三行内容）
tt = tt & Chr(13) & Chr(10) & st
chr(13) & chr(10) 是VB中经常用到的换行输出格式
你这个程序功能应该是将选择的文件循环读入到文本框中
Do While Not EOF(1) 这句是指只要未到文件尾部就继续读取
tt = tt & Chr(13) & Chr(10) & st 那么每读取一次就将当前文本框中已输出的内容 加上一个换行 再加上新读入的内容 合成 重新显示在文本框中
在程序设计里的变量赋值,一个变量是可以出现在左右两边的.
在这句代码执行前, tt就有值的,这句代码作用就是 把原tt字符串连接chr(13),chr(10),st字符串,然后再重新赋值到tt变量
是什么意思?为什么等号左右两边都有"tt"
编程语言里面这叫做赋值符号，不能念做等号
原理是先算出赋值符号右边式子的值，然后覆盖赋值符号左边的值