vb问题!!!!!!!

楼主的语句好混乱啊,感觉好象就是算出n=1，MS做错了吧．

Private Sub Command2_Click()
Dim x, y, z, n As Integer
Dim i As Integer
Dim j As Integer ’其实这三句可以合并的
x = 0: y = 0: z = 0 ’这个没有必要，已定义了的数在赋值前默认为0
For i = 0 To 100
For j = 0 To 100
z = 100 - x - y ’感觉这里不对，除非i就是x,j就是y，所以要改一下
If x * 1.5 + y + z * 0.5 = 100 Then
n = n + 1 ’如果把这一句拿到上面这个IF语句就对了，或者也可以在下面加一句 End If
Next j
Next i
Print n

End Sub

我改了一下：

Private Sub Command2_Click()
Dim x, y, z, n As Integer
For x = 0 To 100
For y = 0 To 100
z = 100 - x - y
If x * 1.5 + y + z * 0.5 = 100 Then n = n + 1
Next y
Next x
Print n
End Sub

你的if语句怎么没有end if 加上就没有错了
还有Private Sub Command1_Click()
Dim x, y, z, n As Integer
Dim i As Integer
Dim j As Integer
z = 0
For i = 0 To 100
For j = 0 To 100
z = 100 - i - j
If i * 1.5 + j + z * 0.5 = 100