Question

求VB大神指点我一下!!!!求1－1000之间所有能被13整除的数

题目是求1－1000之间所有能被13整除的数，按每行10个数排列。要求用文本框显示输出结果，请写出代码。这是我写的代码，但问题是我用VB运行的时候无法使他10个一行显示在文本中，这是为什么呢?哪边错了?Private Sub Command1_Click()Dim x As Integer, n As IntegerFor x = 1 To 1000 If x Mod 13 = 0 Then n = n + 1 Text1.Text = Text1.Text & x If n Mod 10 = 0 Then Text1.Text = Text1.Text & x End IfNext x
Text1.Text = Text1.TextEnd Sub

Answer 1

If n Mod 10 = 0 Then Text1.Text = Text1.Text & x
vb不会，但上面这句代码只是把第十个数重复输出了一次，而你是想输出一个换行，所以可以修改这句

追问

主要是我也不知道这里怎么动他，我刚刚学学个，有的地方很乱根本弄不通

追答

把 & x 改成 & vbcrlf 试试

追问

还是不行换不了行，一直都在一行上

追答

你的Text的MultiLine属性值要设置为True，你是不是这个没设置？