这段代码是什么意思?
DimiAsIntegerDima,b,cAsStringc=2DoEventsDoUntila=bAndb=cRandomizea=Int(Rnd*2)b=Int(Rn...
Dim i As Integer
Dim a, b, c As String
c = 2
DoEvents
Do Until a = b And b = c
Randomize
a = Int(Rnd * 2)
b = Int(Rnd * 2)
c = Int(Rnd * 2)
Loop 展开
Dim a, b, c As String
c = 2
DoEvents
Do Until a = b And b = c
Randomize
a = Int(Rnd * 2)
b = Int(Rnd * 2)
c = Int(Rnd * 2)
Loop 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询