关于VB输出语句的基本问题

来源：百度知道 编辑：UC知道 时间：2024/06/05 12:19:45
运行一次程序，如何在建立的标签label1中依次输出text1,text2,text3中的数值，要求输出的每个数值之间空2格，再运行一次程序，保留原来输出的数据，换行输出新的text1,text2,text3的数值，依然每个之间空两格
在线等
一楼的答案有错误哎； 而且运行两次是同一个command键，不是两个哦
是在同一个操作里输出
就是说在同一个操作里，同一个命令运行了多次，分别输出结果

清楚点,再运行一次,是指程序关了再打开?
建议开个文本文件把你输入的东西保存下来,然后下次再开的时候去文本里面读取!

Private Sub Command1_Click()
Me.Label1.Caption = Me.Text1.Text + " " + val(Me.Text2.Text) + " " + Me.Text3.Text

End Sub

Private Sub Command2_Click()
Me.Label1.Caption = Me.Label1.Caption + Chr(13) + Me.Text1.Text + " " + Me.Text2.Text + " " + Me.Text3.Text
End Sub

Chr(13)表示换行符，其他的都好办：）

保留数据我不会
不用保留超简单
Private Sub Command1_Click()
Dim a As String,b As String,c As String
a=Text1.Text
b=Text2.Text
c=Text3.Text
Label1.Caption=a+Space(2)+b+Space(2)+c
End Sub

楼主，你先回答我，你是不是想这次运行完的结果，下次再打开程序的时候还有？
还是只是在这次打开的程序里进行操作？

Private Sub Command1_Click()
dim i as integer
if i < 1 then
label1.caption = text1.text & " " &text2.text & " " &text3.text
i = i + 1
else
label1.caption = label1.captio