Question

VB中， 关于循环语句的问题， 请高手指点。

有三组数“00”“01”“10”， 要将这三组数写进去同一个地址MonAddress，还有一个Text1文本框，需要在这里面输入时间（n）ms。就是将这三组数每隔（n）ms，往地址MonAddress里面写，即先写“00”， (n)ms后再写“01”， （n）ms后再写（10），然后循环，再重新写“00”，（n）ms后写“01”........请高手指点怎么写代码，谢了。
往地址里写是Me.WriteFlash(MonAddress)

Answer 1

Option Explicit

Dim currRep As Integer
Dim MonAddress As String
Private Sub WriteFlash(ByVal t As String)
Me.Text2.Text = Me.Text2.Text + t + vbCrLf ''Text2是用来显示写入结果的，这里根据自己的需要自己改动
End Sub

Private Sub Text1_Change()
Me.Timer1.Interval = CInt(Me.Text1.Text)
End Sub

Private Sub Timer1_Timer()
currRep = currRep + 1
Select Case currRep
Case 1
MonAddress = "00"
Case 2
MonAddress = "01"
Case 3
MonAddress = "10"
End Select
WriteFlash MonAddress
If currRep = 3 Then currRep = 0
End Sub

Answer 2

'一个TIMER,一个TEXTBOX,两个commandbutton,一个listbox
'我不会写地址,用list1代替了,不知道符合要求吗?
Option Explicit
Dim strSZ() As String, lngJs As Long

Private Sub Command1_Click()
If IsNumeric(Text1) Then
List1.Clear
Timer1.Interval = Val(Text1)
Timer1.Enabled = True
Else
MsgBox "请输入数字!"
End If
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
strSZ = Split("00|01|10", "|")
End Sub

Private Sub Timer1_Timer()
If Timer1.Enabled = False Then Exit Sub
List1.AddItem strSZ(lngJs) '**********
lngJs = lngJs + 1
If lngJs > UBound(strSZ) Then lngJs = LBound(strSZ)
End Sub

Answer 3

Dim Stu As Byte

Private Sub Form_Load()
Text1.Text = 1000
Timer1.Interval = 1000
Timer1.Enabled = True
Stu = 0
End Sub

Private Sub Text1_Change()
Timer1.Interval = Val(Text1.Text)
If Timer1.Interval = 0 Then Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Select Case Stu
Case 0
Me.WriteFlash(MonAddress) = "00"
Case 1
Me.WriteFlash(MonAddress) = "00"
Case 2
Me.WriteFlash(MonAddress) = "00"
End Select
If Stu > 1 Then
Stu = 0
Else
Stu = Stu + 1
End If
End Sub

Answer 4

Long
Dim j as Long
For i = 1 to 1000000
If (i Mod 6)=0 and (i Mod 7)=0 and (i Mod 27)=0 and Right(Str(i),1)=2 then
j=j+1
End If
Next
msgbox"1到1000000中有" & j & "个能被6、7、27整除，且最后一位是2"