VB的一个题

来源：百度知道 编辑：UC知道 时间：2024/07/04 20:27:52
比如在文本框内输入5，标签就显示5个0。在文本框内输入N，标签就显示N个0。这个怎么实现啊？

画一个TEXT 和一个LABEL1
Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = ""
End Sub

Private Sub Text1_Change()
Label1.Caption = ""
If Text1.Text <> "" Then
For i = 1 To Text1.Text
Label1.Caption = Label1.Caption + "0"
Next i
End If
End Sub
就是这么简单

Private Sub Command1_Click()
Label1.Caption = String(Val(Text1.Text), "0")
End Sub

先画一个label1和一个text1,然后复制粘帖下面就可以了。。。

Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = ""
End Sub

Private Sub Text1_Change()
Label1.Caption = ""
If Text1.Text <> "" Then
For i = 1 To Text1.Text
Label1.Caption = Label1.Caption + "0"
Next i
End If
End Sub

和下面一样