关于简单编程 在线等

麻烦帮忙找出下列程序错误
1.Private Sub Command1_Click()
Const x=999
x=888
print x
End Sub
2.Pribate Sub Command1_Click()
Dim x As Integer
x="y"
Print x
End Sub
3.Private Sub Command1_Click
Dim x As Integer
x="y"Rem 赋值语句
Print x '显示输出语句
End Sub
4.Pribate Sub Command1_Click()
Const x=999
Dim x As Integer
x=888
Print x
End Sub
如果有教程的话 最好给我一份
给个正确的 要求是改错

关于C语言编程(在线等,简单) 在线等，简单C编程 编程简单的问题 在线等 在线等。简单C编程问题 关于VB编程溢出,在线等 急！！！在线等！关于c++编程 关于C#编程问题,在线急等！ 关于C语言编程 急急 在线等 在线等 关于c++编程的问题 急！会qbasic编程的进，简单题，在线等