VB中怎么在窗体打印中换行?
编程求出1000至10000之间的完全平方数,一个数若是加一个整数的平方,那么它就是完全平方数,例如:1600=40*40
而1601不是完全平方数
我写的
Private Sub Form_Click()
For a = 31 To 100
Select Case a * a
Case 1000 To 10000
Print a * a
End Select
Next a
End Sub
这样写后边的数就看不到了
谁知道怎么在窗体中 多行显示或在别的控件中多行显示
谢谢
1、打开VB6.0，新建一个工程，在窗体中添加五个命令按钮，caption分别改为“回车”、“换行”、“回车换行”、“换行回车”以及“VBCrlf”。
添加一个文本框，将其Text属性清空，MultiLine属性设置为True，Scrollbars属性设置为2-Vertical，将窗体Form1的caption属性改为“回车符和换行符的区别”，将界面设置成下图：
2、双击“回车”命令按钮，进入代码编辑窗口，输入如下代码：Text1.Text = 1 & Chr(13) & 2，如图：
3、双击“换行”命令按钮，进入代码编辑窗口，输入如下代码：Text1.Text = 1 & Chr(10) & 2，如图：
4、双击“回车换行”命令按钮，进入代码编辑窗口，输入如下代码：Text1.Text = 1 & Chr(13) & Chr(10) & 2，如图：
5、双击“换行回车”命令按钮，进入代码编辑窗口，输入如下代码：Text1.Text = 1 & Chr(10) + Chr(13) & 2，如图：
6、双击“vbCrlf”命令按钮，进入代码编辑窗口，输入如下代码：Text1.Text = 1 & vbCrLf & 2，如图：
7、关闭代码窗口，按下F5运行程序，依次单击““回车”、“换行”、“回车换行”、“换行回车”以及“VBCrlf”命令按钮，在窗体中依次输出，如图：
方法2:用text控件,将其multiline属性设置为true
scorllbars属性设置为3
将print a*a 改成:text1.text=text1.text & a*a & vbcrlf
请参考下面的常数定义,选择合适的常数
常数 等于 描述
vbCrLf Chr(13) + Chr(10) 回车符与换行符结合
vbCr Chr(13) 回车符
vbLf Chr(10) 换行符
vbNewLine Chr(13) + Chr(10) 平台指定的新行字符；适用于当前平台
vbNullChar Chr(0) 值为 0 的字符
vbNullString 值为 0 的字符串 用来调用外部过程；与长度为零的字符串 ("") 不同
vbObjectError -2147221504 用户定义的错误号应当大于该值，例如：
Err.Raise Number = vbObjectError + 1000
vbTab Chr(9) Tab 字。
vbBack Chr(8) 退格字符
vbFormFeed Chr(12) 在 Microsoft Windows 中没有作用
vbVerticalTab Chr(11) 在 Microsoft Windows 中没有作用
######################################
# 如对我的回答有疑问,请到偶的blog留言#
# 我会尽快回复!互相学习，共同进步 #
# #
# http://hi.baidu.com/privateblog #
# #
######################################本回答被提问者采纳
1、打开VB6.0软件，新建一个标准exe工程；
2、在设计界面上新建一个Command控件；
3、双击Command1进入代码编辑，输入代码：
Private Sub Command1_Click()For i = 1 To 100
Print i; '打印输出i
Print '换行方法1
Print vbCrLf '换行方法2
Next i
End Sub
4、点击运行，可以看到换行的效果；
5、总结，换行的方法有两种：
一、直接使用print
二、使用打印VbCrLf
1、打开VB6.0软件，新建一个标准exe工程；
2、在设计界面上新建一个Command控件；
3、双击Command1进入代码编辑，输入代码：
Private Sub Command1_Click()For i = 1 To 100
Print i; '打印输出i
Print '换行方法1
Print vbCrLf '换行方法2
Next i
End Sub
4、点击运行，可以看到换行的效果；
5、总结，换行的方法有两种：
一、直接使用print
二、使用打印VbCrLf