2.求vb题 在文本框中指定一个初始值，从该值开始，找出100个不能被7整除的自然数显示在列表框中

Question

如题所述

Answer 1

Private Sub Command1_Click()
  Dim n As Integer
  n = Text1
  k = 0
  While k < 100
    If n Mod 7 = 0 Then n = n + 1
    k = k + 1
    List1.AddItem n
    n = n + 1
  Wend
End Sub

追答

这很简单的，只要设计一个循环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

本回答被网友采纳