vb每十个换行 vb每5个换行代码

dim i as long for i = 1 to 1000 print i ; if i mod 10 =0 then ? end if doevents next

Private Sub Command1_Click() For i = 1 To Len(Text1.Text) Step 10 Print Spc(10); Mid(Text1.Text, i, 10) Next i End Sub

楼上的同志借用下代码~(复制楼上的,改点东西~另一种方法~异曲同工而已~)Private Sub Text1_Change() If Len(Text1.Text) Mod 10 = 0 Then Text1.Text = Text1.Text & chr(13) & chr(10) Text1.SelStart = Len(Text1.Text) End If End Sub

'给你个示例吧 希望对你有帮助 private sub command1_click() dim a(1 to 100) for i = 1 to 100 a(i) = i print i; ＂ ＂; if i mod 10 = 0 then print '自动换行代码 next i end sub

dim xy(10,10)for i = 1 to 10 for k = 1 to 10 xy(i, k) = i * k next next '这一段赋值,具体要怎么赋值,自己看着办 for i = 1 to 10'这里开始就是输出咯,我用的是msgbox,你在界面上弄些文本框也可以. for k = 1 to 10 msgbox (xy(i, k)) next next

加vbcrlf换行 就是加Chr(13)+Chr(10)

先对输入的数据进行计数处理比如说 for i=1 to20 text1=text1 & str(i) j=j+1 '对输入的数据计数 if jmod 5=0 then '判断每行是否达到5个 text1=text1 & vbcrlf '换行 end if

定义一个全局变量c用来计数,然后点击按钮后判断c mod 10是否为0,如果为0那么就是10的倍数,则改变当前打印的currentx和currenty的值就可以了.

在控件中是可以设置的,将multiline属性改为true可以多行显示 当multiline为真时,使用scrollbars属性可以添加滚动条!在句末加chr(13),或vbcrlf 也可以换行

vbcr是回车,vblf是换行,回车和换行是不同的动作,结果也不同