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
小弟怎写都出错，高手帮找找毛病，谢谢~