这段程序是什么意思?

Question

Private Sub chkAscii_Click()
    
    If chkAscii.Value = 1 Then
        intAsciiChk = 1
    Else
        intAsciiChk = 0
    End If
    
    Call ScrollRedisplay
    
End Sub

Answer 1

晕Private Sub chkAscii_Click()   'chkAscii是个CheckBox
    
    If chkAscii.Value = 1 Then 
        intAsciiChk = 1        '选中的话，这个变量intAsciiChk赋值为1
    Else 
        intAsciiChk = 0 
    End If 
    
    Call ScrollRedisplay       '调用这个函数ScrollRedisplay     
    
End Sub

Answer 2

Private Sub chkAscii_Click()   '新建控件CheckBox，改名为chkAscii
    
    If chkAscii.Value = 1 Then 
        intAsciiChk = 1        '当选中chkAscii，变量intAsciiChk赋值为1
    Else 
        intAsciiChk = 0        '当不选中chkAscii，变量intAsciiChk赋值为0
    End If 
    
    Call ScrollRedisplay       '退出if判断语句，调用函数ScrollRedisplay（这个函数不是系统自带的，应该自己编写）    
    
End SubCall 语句：将控制权转移到一个 Sub 过程，Function 过程，或动态连接库 (DLL)过程。

Answer 3

这个程序的意思就是当用户点击一个名为chkAscii的CheckBox的控件时，为局部(或全局)变量intAsciiChk付值，然后执行ScrollRedisplay()过程或函数。