vb代码怎么输出在text里面

Question

Private Sub Command1_Click()
For i = 1 To 1000
If i Mod 3 = 2 Or i Mod 5 = 3 Or i Mod 7 = 2 Then
Print i;
If j = 10 Then
j = 0
Print vbCrLf
End If
j = j + 1
End If
Next i
End Sub
昏了 直接输出是在窗体 text1.text和print怎么结合用

Answer 1

VB可使用& 运算符将字符串串接的方式来实现，将VB代码执行的结果输出到文本框显示。

& 运算符，用来强制两个表达式作字符串连接。

Option Explicit
    Dim strSj As String
    Dim i As Long, j As Long
    
Private Sub Command1_Click()
    For i = 1 To 1000
        If i Mod 3 = 2 Or i Mod 5 = 3 Or i Mod 7 = 2 Then
            'Print i;
            strSj = strSj & i & " "
                If j = 10 Then
                j = 0
                'Print vbCrLf
                strSj = strSj & vbCrLf
            End If
            j = j + 1
        End If
    Next i
    Text1 = strSj
End Sub

Answer 2

Private Sub Command1_Click()
dim s as string
s=""
For i = 1 To 1000
If i Mod 3 = 2 Or i Mod 5 = 3 Or i Mod 7 = 2 Then
Print i;
s=s & i
If j = 10 Then
j = 0
Print vbCrLf
s=s & vbCrlf
End If
j = j + 1
End If
Next i
text1.text=s
'前面的print 也可以不写，最后来一下print s，效果是一样的
End Sub追问

不行 结果还是输出在窗体

追答

将所有print 的行注释掉

追问

注释虽行 不过输出数字全都连到一起了

追答

Text1.MultiLine 属性设为 True
s=s & i
改为
s=s & i & vbCrlf

Answer 3

这样改
Private Sub Command1_Click()
Text1.Text=""
For I = 1 To 1000
If I Mod 3 = 2 Or I Mod 5 = 3 Or I Mod 7 = 2 Then
J = J + 1
Text1.Text = Text1.Text & Str(I)
If J Mod 10 = 0 Then Text1.Text = Text1.Text & vbCrLf
End If
Next I
End Sub追问

感谢 text加个换行 滚动条就行了 有人说text不支持print 我不信 picture才行 dim x as string
x=(你要print的内容） print x text1.text = x 可以吗

追答

TEXT 不支持print，只有窗体和picturebox支持。
text要滚动条的话设置：
Text1.ScrollBars 属性设为2
Text1.MultiLine 属性设为 True

追问

再次感谢 要是用picturebox输出print 代码怎么改 横向纵向滚动条 允许多行 易语言就有 我都知道

追答

简单，只要把你原来代码中所有的print改成picture1.print 就行
不加picture1.默认的就是在窗体上打印

追问

非常好 后者简单 直接加个picture1.print 不让它默认在窗体打印 vb贴吧半天都没有解决 真是的 还有picturebox怎么多行

追答

怎么还是问多行的问题啊，你原来的代码已经实现多行了啊，你只要全部把替换为picture1.print就已经能够多行了。你把代码复制到VB里试试就知道了，不要光看代码不练啊，那样没用的。
picture1.print vbcrlf 这句就是实现换行的。

追问

我电脑有vb 试过了 picture没有自带的转行是吧 只能用vbcrlf 基本全部解决 感谢

追答

是的。通过代码换行

本回答被提问者采纳