Dim x, y, a, b, i, tem As Single
i = TextBox1.Text
If TextBox1.Text = "" Then
MessageBox.Show("请输入数!")
ElseIf TextBox1.Text = i Then
x=2 y=4
While i = 0 i <= 6 i++
a = x * y
b = (x - 1) * (y - 1)
tem = a / b
x = x + 2
y = y + 2
End While
End If
tem = TextBox2.Text
怎么写都出错，高手们帮看看~谢谢