VB如何设置按钮在TEXT中添加指定的文字？

Private Sub Form_Load() If Text1.Text <>"xxx" Then Me.Command1.Enabled = False End IfEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If Text1.Text = "xxx" Then Me.Command1.Enabled = True Else Me.Command1

你要的是在程序加载时候，TEXT中预先存在的文字 ，还是想通过程序使TEXT中出现一组文字？

第一种：在VB中，编辑状态下，单击你所需的TEXT控件，将属性中的text后面的TEXT1更改为你想要输入的文字。

第二种：text1.TEXT="要输入的文字"

写文件采用追加模式即可：实例代码如下：

Dim i As Integer, n As Integer, a(6) As Integer

n = 6

Open "D:\1122.txt" For Append As #1

Randomize

For i = 1 To n

a(i) = Int(Rnd * 1000 + 1)

Print #1, a(i)

Next i

Close #1

---