关于VB程序的疑问——一运行下面这个程序就会“未响应”

改为
Private Sub Form_Click()
i=1
m=1
s=1
Do While i<65
i=i+1
m=2*(i-1)
s=s+m
Loop
Print "一共要放";s;"颗麦子"
End Sub
去掉Do While 1<i<65 中"1<"

Do While 1<i<65
改成:
do while (i>1) and (i<65)

帮你修正

Private Sub Command1_Click()
i = 1
m = 1
s = 1
Do While i < 65
i = i + 1
m = 2 * (i - 1)
s = s + m
If i < 1 Then Exit Do
Loop
Print "一共要放"; s; "颗麦子"
End Sub