各位大侠：
    小白又些问题请教，求关注！求解析！谢谢！相关代码如下：
1 Private Sub Form_Click()
2     Dim i, mysum, myval As Integer
3     myval = Val(InputBox("请输入一个数："))
4     Do
5         i = i + 1
6         mysum = mysum + i
7     Loop While i < myval
8     Print mysum
9 End Sub

    问题1.第5,6行代码是否是对变量i,mysum 赋值？
    问题2.如果是赋值的话，那代入具体的数值后，具体的等式为：0=0+1，这样不矛盾吗？是否我的思路有问题，求大侠解析，非常感谢。