Question

【vb】这个循环语句哪里错了

Private Sub Command1_Click()
Dim n%, m%, s%, t%
s = Len(Text1)
n = Text2.Text
m = 1
Do
t = t & Mid(Text1, m, n) & vbCrLf
m = m + n
Loop Until s \ n = 0
t = t & s Mod n
Label1.Caption = t
End Sub

将text1的字符串在label1中输出，要求每行n个字符，最后一行的字符数可少于n个，n由text2给定

Answer 1

分析循环是否会出现死循环。看看循环的条件
Do
t = t & Mid(Text1, m, n) & vbCrLf
m = m + n
Loop Until s \ n = 0
你终止循环的条件是：s \ n = 0
那么，在循环中两行代码
t = t & Mid(Text1, m, n) & vbCrLf
m = m + n
都不会改变s 和 n 的值，也就是说一开始 s \ n = 什么，就永远是什么了？？？
分析到此，你明白了吗？
所以，你的循环要么一次就结束，要么永远不会结束。

Answer 2

Private Sub Command1_Click()
Dim n%, m%, s%
Dim t$
s = Len(Text1)
n = Val(Text2.Text)
m = 1
Do
t = t & Mid(Text1, m, n) & vbCrLf
m = m + n
Loop Until m > s
Label1.Caption = t
End Sub

Answer 3

''''FORM1 中放入两个文本框， text1,text2, 一个label label1 一个button button1
Private Sub Command1_Click()
Dim sublen As Integer
Dim s As String
Dim pos As Integer
sublen = Text2.Text
pos = 1

While pos + sublen < Len(Text1.Text)
s = s & vbCrLf & Mid(Text1.Text, pos, sublen)
pos = pos + sublen
Wend
s = s & vbCrLf & Mid(Text1.Text, pos, Len(Text1.Text) - pos + 1)
Label1.Caption = s
End Sub