Question

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

这样写后边的数就看不到了

谁知道怎么在窗体中 多行显示或在别的控件中多行显示

谢谢

Answer 1

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”命令按钮，在窗体中依次输出，如图：

Answer 2

方法1:print a*a & 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 #
# #
######################################

Answer 3

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

Answer 4

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

Answer 5

Print \