UC知道这个代码什么意思呀
来源：百度知道 编辑：UC知道 时间：2024/05/21 14:58:09
Private Sub Timer1_Timer()
Dim i As Single
Text1.Text = Int((10000000 - 0 + 1) * Rnd + 0)
Text3.Text = Left(Text1.Text, 1)
For i = 0 To 5
Text2(i).Text = Right(Left(Text1.Text, i + 2), 1)
Next i
End Sub
timer 控件呀
Dim i As Single
Text1.Text = Int((10000000 - 0 + 1) * Rnd + 0)
Text3.Text = Left(Text1.Text, 1)
For i = 0 To 5
Text2(i).Text = Right(Left(Text1.Text, i + 2), 1)
Next i
End Sub
timer 控件呀
Private Sub Timer1_Timer() '定义过程
Dim i As Single '定义一个single类型的过程级变量i
Text1.Text = Int((10000000 - 0 + 1) * Rnd + 0)
'Text1应该是表单名称 这句话主要是得到一个随机数
Text3.Text = Left(Text1.Text, 1) '从左边第一位开始取Text1.text子字符串
For i = 0 To 5 '5次循环
Text2(i).Text = Right(Left(Text1.Text, i + 2), 1)
'先取从右边i+2位置开始取 Text1.text 的子字符串再从右边第一位开始取字符串
Next i '循环完毕
End Sub'过程定义完毕
你要说明白点撒 。。。 你拉出来的是哪几个控件啊？？？