7,759
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim a$, b$, i%, n% ' 变量 b 是多余的
a = ""
n = Val(Text2.Text) ' Text2.text = "12" 对吧 !
For i = Val(Text1.Text) To (Val(Text1.Text) + Val(Text3.Text) - 1)
n = 1 + n
a = a & i & "," & n & vbCrLf
' b = a 上一句直接用a处理就行了,这句没有价值
Next i
Text4.Text = a
End Sub