倾家荡产问一个问题!这个VB程序的代码是什么意思?用到了那些函数,控件之类的~~~急!!!

Text1.Locked = 0
Call Randomize
r1 = Int(10 * Rnd())
Do Until r1 <> r2 And r1 <> r3 And r1 <> r4
r1 = Int(10 * Rnd())
Loop
Do Until r2 <> r1 And r2 <> r3 And r2 <> r4
r2 = Int(10 * Rnd())
con1 = Text1.Text
If con1 = con2 Or con1 = con3 Or con1 = con4 Then
k = k + 1
Private Sub Form_Load()
Text4.Locked = 1
lst.AddItem Space$(16) & "温馨提示"
Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim Numbers As String
Numbers = "1234567890" + Chr(8) + Chr(46)
If InStr(Numbers, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
Private Sub nowin()
lst.Clear
Text1.Text = ""
lst.AddItem "输了"
lbl.Caption = ""
If con1 = r1 Or con1 = r2 Or con1 = r3 Or con1 = r4 Then
x1 = x1 + 1
If con1 = r1 Then
n2 = n2 + 1
x1 = 0
Private Sub pr()

很简单的程序,是键盘输入的游戏,用到了循环变量.
⒈定义Numbers为单精度型
Numbers="1234567890"+将函数8返还为字符+将函数46返回为字符
当Numbers或输入值返回后的字符为0时,则
键入值为0
End if
End Sub
算了,鄙人所学甚微,不妄加断论,我学的vb也只是1点点.

倾家荡产问一个问题!这个VB程序的代码是什么意思?用到了那些函数,控件之类的~~~急!!! 倾家荡产高分问问题 倾家荡产问：公司银行帐号和税收问题 问一个VB代码问题～～ 问一个vb的问题 问一个VB的问题 问一个vb基础问题 qq无法显示flash问题..倾家荡产问问题..~ 问一个VB窗体的问题 问一个菜鸟级VB问题