帮忙翻译这个VB程序，每句都解释一下

答案：Dim s As Integer
  
Private Sub Command1_Click()
 s = 0
 End Sub
  
Private Sub Form_Load()
 s = -1
 End Sub
  
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Cancel = s
 End Sub
  
 注意看我代码里面的空行，有很大意义的
 下面的文字中涉及到的专有名词请自行百度，否则就是不限制10000个字也解释不了的
  
不过这段代码难度不大，只是初学者不好看懂，这里涉及到全局变量的知识，函数及参数的知识，和QueryUnload中Cancel参数的意义
  
第一行Dim s As Integer，表示定义一个s作为Integer类型
 Dim定义，s变量名，As作为，Integer整型
  
然后就是几段过程了，一段段看
 Private Sub Command1_Click()
 s = 0
 End Sub
  
Private私有，Sub过程，Command1按钮，Click单击，中间的下划线是必须的，表示该控件的事件，事实上，你在设计界面中双击按钮就会自动输入这段
  
s=0
  
s变量名，=赋值，0数字
 s被赋值为0，有什么意义后面再说
  
End Sub
 End结束 Sub过程
  
整段的意思就是单击按钮后将变量s赋值为0
  
第二段
 Private Sub Form_Load()
 s = -1
 End Sub
  
Form窗体，Load加载
  
其他的前面有解释了
  
整段的意思就是窗体加载时将变量s赋值为-1
  
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Cancel = s
 End Sub
  
 QueryUnload退出，Cancel取消，UnloadMode卸载模式
  
整段的意思就是卸载窗体将变量Cancel 赋值为变量s的值，所谓卸载窗体，通俗点说就是点击窗口右上角的红叉叉。
 这里要注意的是，Cancel这个参数，当Cancel=-1时窗体无法关闭，当Cancel=0时窗体可以关闭，通俗点说就是当Cancel=-1时，点红叉叉没反应，关不了，只有当Cancel=0时点红叉叉才会关闭。那么什么时候
 Cancel才会等于0呢，仔细看前面的“单击按钮后将变量s赋值为0”这段，所以，如果你不按窗口上的按钮，那么窗口就关不了了。
  
所以，这些代码意思就是，窗口一开始有一个按钮，如果你不按窗口上的按钮，那么窗口就关不了，点击按钮后，窗口就可以关了。 Dim s As Integer   定义变量s为整数型 Private Sub Command1_Click()  按钮1被单击 s = 0 给s赋值为0
End SubPrivate Sub Form_Load() 这一句我不太清楚，应该是窗口被单击什么的 s = -1给s赋值为-1 End Sub 结束程序 Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 这我不清楚
Cancel = s 把s的值赋给Cancel       End Sub 结束程序

程序呢

上一个：VB实现密码登录框界面的应用程序代码怎么写？
下一个：一段vb 代码 要详细翻译 逐句最好 谢谢