这段VB代码是什么意思?

Question

Private Sub Form_Load()
Text1.Text = "": List1.Clear
End Sub

Private Sub Text1_KeyPress(K As Integer)
Dim n As Integer 'if k>=asc("0") and k<=asc("9") then k=0
If K = 13 Then
List1.AddItem Text1.Text, n
n = n + 1
Text1.Text = ""
End If

End Sub

Answer 1

Private Sub Form_Load()
Text1.Text = "": List1.Clear '启动时清空文本框和列表框内容
End Sub
Private Sub Text1_KeyPress(K As Integer)
Dim n As Integer 'if k>=asc("0") and k<=asc("9") then k=0 '定义n为整型变量，定义在这里是过程量，每次n都初始化为0，根本没用
If K = 13 Then '如果按下回车键(keyascii=13)
List1.AddItem Text1.Text, n '添加文本框内容到列表框，该列索引号为n,因为每次添加n都为0，那么本次添加的这条索引号为0，排在第一列，已有的自动加1
n = n + 1 ' n加1
Text1.Text = "" '清空文本框
End If
End Sub

Answer 2

Private Sub Form_Load()
Text1.Text = "": List1.Clear 'text1的内容清空,list1的内容清空
End Sub

Private Sub Text1_KeyPress(K As Integer)
Dim n As Integer '定义一个n整型变量
'if k>=asc("0") and k<=asc("9") then k=0 '注释语句
If K = 13 Then '假如按了回车键
List1.AddItem Text1.Text, n 'list建立一个项.内容为text1的内容
n = n + 1 'n加上一个1
Text1.Text = "" 'text1内容清空
End If '结束if语句
End Sub

'这个代码的功能是添加list的项.由text1控制

Answer 3

Form_Load函数将Text1这个文本框清空，List1这个队列清空。
Text1_KeyPress函数捕获用户的输入，而且只捕获asc码在0~9之内的输入，应该是那些特殊功能键，当按回车键时，将该输入的字符存入一个list中，依次循环~

那10个asc码值你可以看看网上的asc码表，很多的~

Answer 4

在Text中输入文字，按回车后把Text的内容加入到list中，就这么简单