Question

vb 循环语句 text1中的字符创在label中显示，要求每行有n个字符，n由text2给出

错在哪里呢？
Private Sub Command1_Click()
a = Len(Text1)
n = Val(Text2)
b = Rnd(a / n)
For i = 1 To b
Label1.Caption = Label1.Caption & Mid(Text1, 1 + (i - 1) * n, n) & vbCrLf
Next i
Label1.Caption = Label1.Caption & vbCrLf & Right(Text1, a - b * n)
End Sub

Answer 1

b = Rnd(a / n) 不对。
应改为：
b = a \ n
代码中记得判断text2中的值，不能为0.
还有，text1是控件，从控件中取值时，要指定控件的属性，这是一个编程习惯。

Answer 2

Private Sub Command1_Click()
a = Len(Text1)
n = Val(Text2)
b = Int(Rnd(1) * a / n)
For i = 1 To b
Label1.Caption = Label1.Caption & Mid(Text1, 1 + (i - 1) * n, n) & vbCrLf
Next i
Label1.Caption = Label1.Caption & vbCrLf & Right(Text1, a - b * n)
End Sub

Answer 3

Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer
Dim 临时字符串 As String
Dim 最后一行字符串数量 As Integer
Label1.Caption = ""
n = Val(Text2.Text) + Val(0)
b = Int(Len(Text1.Text) / n)
If b * n < Len(Text1.Text) Then
最后一行字符串数量 = Len(Text1.Text) - b * n
Else
最后一行字符串数量 = 0
End If
For i = 1 To b + 1
临时字符串 = Left(Text1.Text, i * n)
If i = b + 1 Then
Label1.Caption = Label1.Caption & Right(临时字符串, 最后一行字符串数量)
Else
Label1.Caption = Label1.Caption & Right(临时字符串, (Len(临时字符串) - (i - 1) * n)) & vbCrLf
End If
DoEvents
Next
End Sub