Question

VB的for循环该怎么写?

要求能够求出并显示1~k之间所有既能被2又能被3整除并且不能被5整除的所有整数,并显示出来.

Answer 1

1、首先，我们输入For关键字。

2、然后我们定义一个循环变量。

3、然后我们写入【1 to 10】。

4、然后我峨眉呢输入【Next i】结束。

5、然后我们就可以在这里输入每次执行的语句。

6、最后运行就可以看到这个结果了。

Answer 2

for…next循环如下：（在C盘根目录建立一个名字为1的文件夹，反复10次）Private Sub Command2_Click()
Dim i As Integer
For i = 1 To 10
Set
fso
=
CreateObject("Scripting.filesystemobject")

fso.CreateFolder
("c:\1")
Next
End Sub

Answer 3

Private Sub Command1_Click()
Text1 = ""
Dim a()
k = InputBox("请输入上限")
For i = 1 To k
If i Mod 2 = 0 And i Mod 3 = 0 And i Mod 5 <> 0 Then
j = j + 1
ReDim Preserve a(j)
a(j) = i
End If
Next i
For i = 1 To j
Text1 = Text1 & a(i) & " "
Next i
End Sub

Answer 4

For i = 1 To k
If (i Mod 2 = 0 And i Mod 3 = 0 And i Mod 5 <> 0) Then
Debug.Print i
End If
Next i

Answer 5

For i = 0 To 100

If (i Mod 2 = 0) And (i Mod 3 = 0) And (i Mod 5 <> 0) Then
MsgBox i
End If
Next i