关于文本框换行的问题

发布网友发布时间：2022-06-04 11:04

共3个回答

热心网友时间：2023-10-28 04:24

完全根据楼主的意思修改代码……
首先你要确定你的text1和text2的只读属性multiline是不是true，如果不是要设置成true~~
2个地方2种问题：
你这个代码要5个换行，那就应该除6余0哦，你可以推算一下看看~~

另外文本框的换行不是label的print方法，而是用了vbcrlf相当于输入一个回车和一个换行符来表示的，就像下面：）

Private Sub Command1_click()
Const n = 10
Dim A(n)
For i = 1 To 10
A(i) = Val(InputBox("输入A( " & i & " )的值"))
If i Mod 6 = 0 Then Text1.Text = Text1.Text & vbCrLf
Text1.Text = Text1.Text & " " & A(i)

Next i
Print
For i = 1 To n - 1
p = i
For j = i + 1 To n
If A(p) < A(j) Then p = j
Next j
temp = A(i)
A(i) = A(p)
A(p) = temp
Next i
For i = 1 To n
If i Mod 6 = 0 Then Text2.Text = Text2.Text & vbCrLf
Text2.Text = Text2.Text & " " & A(i)
Next i
End Sub

热心网友时间：2023-10-28 04:25

把文本框的MultiLine设置True-就是允许“多行”就OK

热心网友时间：2023-10-28 04:25

chr(13) & chr(10)
是表示回车符和换行符,把它连入字符串吧.