Question

VB能否在文本框1输入任意数字，然后，在文本框2中显示N个"X"？...

VB能否在文本框1输入任意数字，然后，在文本框2中显示N个"X"？例如，在文本框1输入"8"，然后，在文本框2中显示"X...X"(8个)。

Answer 1

二楼正解。不过习惯不好，好的习惯是：
If IsNumeric(Text1.text) Then '先检查Text1中是否是数字
Text2.text = String(val(Text1.text), "X") '直接使用String函数即可达到楼主要求的效果
End If

Answer 2

dim n as integer

n = cint(text1.text) '把文本 的内容转为数字保存到变量n
text2.text = ""
for 1 to n '循环n次，输出X
text2.text = text2.text & "X"
next

具体事件什么的你自己考虑，代码思路是这样

Answer 3

If IsNumeric(Text1) Then '先检查Text1中是否是数字
Text2 = String(Text1, "X") '直接使用String函数即可达到楼主要求的效果
End If

Answer 4

Option Explicit

Private Sub Command1_Click()
Dim times As Integer
Dim i As Integer
If IsNumeric(Text1) Then
times = CInt(Text1.Text)
Text2.Text = String(times, "X")
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Answer 5

Private Sub Form_Click()
If IsNumeric(Text1.Text) = True Then
Text2.Text = String(Val(Text1.Text), "x")
Else
MsgBox "类型不匹配", , "提示"
End If
End Sub