UC知道VB一些的问题，我不会VB,会的请帮忙
来源：百度知道 编辑：UC知道 时间：2024/09/21 09:04:12
有个Text1 和一个 Command1
另外的就是一个Text2
例：
我在Text1中打1000
点一下Command1
Text1就变成1001
再点就变成1002，点一次加1，并且在Text2中会显1001Ayycmmn,1002Ayycmmn,点一次就在逗号加一个,会的能否留下QQ号
或者在此为我解答
我应该在Private Sub Command1_Click()
中填写什么呢
另外的就是一个Text2
例：
我在Text1中打1000
点一下Command1
Text1就变成1001
再点就变成1002，点一次加1，并且在Text2中会显1001Ayycmmn,1002Ayycmmn,点一次就在逗号加一个,会的能否留下QQ号
或者在此为我解答
我应该在Private Sub Command1_Click()
中填写什么呢
太简单了，自已去试试吧
Dim initvalue As Integer
Private Sub Command1_Click()
Static i As Integer
i = i + 1
If i = 1 Then
initvalue = Val(Text1.Text)
Else
initvalue = initvalue + 1
End If
Text1.Text = initvalue
Text2.Text = Text2.Text & initvalue & "Ayycmmn, "
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command1_Click()
dim str as String
str = Text1.text
Text1.text = str + 1
Text2.text =Text1.text & "Ayycmmn"
End Sub
Private Sub Command1_Click()
s=text1.text
s=s+1
Text1.text = s+ 1
Text2.text =Text2.text & cstr(Text1.text) & "Aymmcn"
End Sub
Private Sub Command1_Click()
dim a as String
a = Text1.text
Text1.text = a + 1
Text2.text =Text2.text&Text1.text & "Ayycmmn，"
End Sub