VB程序显示

来源:百度知道 编辑:UC知道 时间:2024/03/28 16:53:50
Option Explicit

Private Sub Command1_Click()
Dim x As Integer, i As Integer
For x = 1 To 1000
Select Case x Mod 3 = i
Case i = 1
Text1 = Text1 & "/" & x
Case i = 2
Text2 = Text2 & "/" & x
Case i = 0
Text3 = Text3 & "/" & x
End Select
Next
End Sub
请问这段代码为什么不能在Text2里显示余数为2的数组

理解了一下你的意图是不是这个意思?
Private Sub Command1_Click()
Dim x As Integer, i As Integer
For x = 1 To 1000
i = x Mod 3
Select Case i

Case Is = 1
Text1 = Text1 & "/" & x
Case Is = 2
Text2 = Text2 & "/" & x
Case Is = 0
Text3 = Text3 & "/" & x
End Select
Next
End Sub
这样text1里是1,4,7……
text1里是2,5,8……
text1里是3,6,9……

这段代码,哪里用的?