新手学VB--换行问题———跪求
简单的输出一个斐波那契数列，怎么换自动行啊，
我把换行的注释掉怎么也是一行一个数，我想实现一行10个该如何修改啊Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
Dim m As Integer
m = Text1.Text
Do While fibolist(i) < m
Form1.Print fibolist(i) & ","
i = i + 1
s = s + 1
'If s Mod 10 = 0 Then Print
Loop
Debug.Print s Mod 10
End Sub
Function fibolist(ByVal n As Integer) As Integer
If n = 0 Then
fibolist = 1
ElseIf n = 1 Then
fibolist = 1
Else
fibolist = fibolist(n - 2) + fibolist(n - 1)
End If
End Function
哪里自动？
VB code:
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
Dim m As Integer
Dim strTemp As String
m = Text1.Text
Do While fibolist(i) < m
strTemp = strTemp & fibolist(i) & ","
i = i + 1
s = s + 1
If s Mod 10 = 0 Then
Me.Print strTemp
strTemp = ""
End If
Loop
Me.Print strTemp
Debug.Print s Mod 10
End Sub
Function fibolist(ByVal n As Integer) As Integer
If n = 0 Then
fibolist = 1
ElseIf n = 1 Then
fibolist = 1
Else
fibolist = fibolist(n - 2) + f
相关问答：
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运� ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
本人使用的是VB6.0版本
假设有一个对象A，A内有类型为B的对象属性。现在的问题是，需要添加若干个B对象作为A对象的属性。如，
A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......
