Question

Vb程序看不懂

程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。
【程序】
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
(15) 运行时在文本框控件Text1中依次输入3个以回车结束的字符串"abc34"、"xy12$"、
"+-*/"，列表框中各表项依次为：
A、abc34 B、+-*/ C、abc D、+-*/
xy12$ xy12$ xy$ xy$
+-*/ abc34 +-*/ abc
(16) 如果将语句Dim n As Integer 用Static n As Integer替换，运行时在文本框中依
次输入3个以回车结束的字符串"abc34"、"xy12$"、"+-*/"，列表框中各表项依次为：
A、abc34 B、+-*/ C、abc D、+-*/
xy12$ xy12$ xy$ xy$
+-*/ abc34 +-*/ abc
(17) 如果将语句Dim n As Integer后一条语句前的注释符删除，运行时在文本框中依次输
入3个以回车结束的字符串"abc34"、"xy12$"、"+-*/"，列表框中各表项依次为：
A、abc34 B、+-*/ C、abc D、+-*/
xy12$ xy12$ xy$ xy$
+-*/ abc34 +-*/ abc

Answer 1

稍稍解释一下：
Private Sub Form_Load()
Text1.Text = "": List1.Clear
End Sub
上面这个过程是窗体加载的时候自动运行的，Text1.text="",意思是清空一个叫Text1的文本框中的文本。冒号的意思是并列运行，List1.Clear是清空列表框的内容。

Private Sub Text1_KeyPress(K As Integer) 这句话的意思是，你按下键盘自动引发此过程，你按 键的键值，赋给K
Dim n As Integer 这句话定义了一个叫n的整形变量，
' If K >= Asc("0") And K <= Asc("9") Then K = 0 我估计程序前面没有那个上撇号，有了上撇号这句话就是注释了，就不执行了。如果去了上撇号，这句话的意思是：如果按键的键值大于等于0的键值并且小于等于9的键值，就让键值为0，相当于没有按键。注意，键值为0和0的键值不是一回事啊。
If K = 13 Then 这句话的意思是按键键值为13时，就是回车时，
List1.AddItem Text1.Text, n 列表框加入一个内容，就是文本框的内容。n就是第几项。但是每次按键回车之后，本过程都重新执行，对于重新执行的程序，用Dim声明的n来说，都是初值，初值就是0，所以每次都是在每一行加入。如果用Static来声明n，则n继承上次运行的结果，就是能往下面加了。
n = n + 1 加入一项，n就增加1.
Text1.Text = "" 清空文本框
End If
End Sub

Answer 2

(15) B
(16) A
(17) D