UC知道谁来给我解释一下这个VB程序，要详细的！
来源：百度知道 编辑：UC知道 时间：2024/05/04 17:06:22
Private Sub Command1_Click()
a = Int((Rnd * 60 + 1))
If a <= 60 Then
a = 60 + Int((Rnd * 10 + 1))
End If
If Text1.Text = "李" And Text2.Text = "张" Then
a = 100
End If
If Text1.Text = "王" And Text2.Text = "张" Then
a = 0
End If
Text3.Text = a
End Sub
Private Sub Text1_Change()
End Sub
本人刚接触VB，麻烦用容易理解的方式说明每一句都有什么作用，菜鸟勿扰！
a = Int((Rnd * 60 + 1))
If a <= 60 Then
a = 60 + Int((Rnd * 10 + 1))
End If
If Text1.Text = "李" And Text2.Text = "张" Then
a = 100
End If
If Text1.Text = "王" And Text2.Text = "张" Then
a = 0
End If
Text3.Text = a
End Sub
Private Sub Text1_Change()
End Sub
本人刚接触VB，麻烦用容易理解的方式说明每一句都有什么作用，菜鸟勿扰！
Private Sub Command1_Click()
a = Int((Rnd * 60 + 1)) 随机产生一个1-60的自然数a
If a <= 60 Then 如果a小于等于60
a = 60 + Int((Rnd * 10 + 1)) 那么a值变为61-70的自然数End If
If Text1.Text = "李" And Text2.Text = "张" Then
如果文本1中为“李”，文本2中为“张”
a = 100 那么a值为100
End If
If Text1.Text = "王" And Text2.Text = "张" Then
如果文本1中为“王”，文本2中为“张”
a = 0 那么a值为0
End If
Text3.Text = a 文本3为a
End Sub
Private Sub Text1_Change()
End Sub