这很简单的,只要设计一个循环100次的货,循环就可以了。
先取出文本框中的数字作为n的初始值。
在循环体中检测,如果n是七的倍数,就让n+1。然后把n添加到列表框中。在完成后,再N+1。下面是程序的代码。
Private Sub Command1_Click()
n = CInt(Text1.Text)
For k = 1 To 100
If n Mod 7 = 0 Then n = n + 1
List1.AddItem n
n = n + 1
Next k
End Sub