Vb程序看不懂

发布网友发布时间：2022-05-10 15:23

共2个回答

热心网友时间：2023-10-13 11:49

稍稍解释一下：
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

热心网友时间：2023-10-13 11:50

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