VB问题急急急

来源：百度知道 编辑：UC知道 时间：2024/05/21 21:53:44
同目录下有个TXT文件
内容是：

a=1
b=2
c=3

VB中有3个TEXT1，TEXT2 ，TEXT3。 按下按钮后
TEXT1 显示a的内容
TEXT2 显示b的内容
TEXT3 显示c的内容

谢谢大家了
还有大家帮助下，我忘记了。
还有另外1个按钮，按下就把TEXT1 TEXT2 TEXT3 写入这个TXT文件并且 a=TEXT1中的文字 b=TEXT2中的文字 c=TEXT3中的文字

新建四个text和两个按钮。

在通用中输入：

Dim a As Long
Dim b As Long
Dim c As Long

在按钮Command1的单击事件中输入：

Private Sub Command1_Click()
a = 1 '给变量赋初值
b = 2 '给变量赋初值
c = 3 '给变量赋初值

Text1.Text = a
Text2.Text = b
Text3.Text = c
End Sub

在按钮Command2的单击事件中输入：

Private Sub Command2_Click()

Text4.Text = Text1.Text + Text2.Text + Text3.Text
End Sub

本代码已经过测试，如果不符合你的地方请你提出！
QQ：846489281

*.txt文件为wenjian.txt，目录d:\
dim a(2) string
n=0
open "d:\wenjian.txt" for input as #1
do while eof(#1)
line input #1, a(n)
n=n+1
loop
close #1
Text1.text=a(0)
Text2.text=a(1)
Text3.text=a(2)

上面的不行的！！
a（1）中的1不是值。也没用到For语句
是不行的

直接在按钮相对应的编程里写TEXT1=a就可以了，依此类推