Question

VB程序代码，不懂它为什么为什么没有换行，我明明有 Text1 = Text1 & vbCrLf 啊！！！

Option Explicit
Private Sub Command1_Click()
Dim s(20) As Integer, i As Integer, max As Integer, min As Integer
Dim p1 As Integer, p2 As Integer, w As Integer
Randomize
For i = 1 To 20
s(i) = Int(Rnd * 100) + 1
If i Mod 10 = 0 Then
Text1 = Text1 & vbCrLf
Else
Text1 = Text1 & Right(Space(3) & s(i), 4)
End If
Next i
max = s(1)
min = s(1)
p1 = 1
p2 = 1
For w = 1 To 20
If s(w) > max Then
max = s(w)
p1 = w
ElseIf s(w) < min Then
min = s(w)
p2 = w
End If
Next w
Text2 = Space(3) & "最大元素是：" & max & "；" & "最大元素位置是：" & p1
Text3 = Space(3) & "最小元素是：" & min & "；" & "最小元素位置是：" & p2
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Answer 1

换行属性没有设置为true。
text1.multiline=true

Answer 2

Text1的MultiLine属性要设置为True