关于vb的一段程序问题

Private Sub Command1_Click()Dim i As Integeri = 1DoIf i Mod 3 = 0 ThenPrint ii = i + 1End IfLoop Until i <= 100End Sub这一段程序为什么我运行没有反应，不要嘲笑我我是新手

中年先锋|2010-12-17 09:48

有两个错误Private Sub Command1_Click()Dim i As Integeri = 1DoIf i Mod 3 = 0 ThenPrint iEnd Ifi = i + 1Loop While i <= 100End Sub

2010-12-17 14:23

来自北京市

免责声明：问答内容均来源于互联网用户，房天下对其内容不负责任，如有版权或其他问题可以联系房天下进行删除。