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

For i = 0 To 6

每次的tem好像没有增加吧

Private Function count() As Single
i = TextBox1.Text
If TextBox1.Text = "" Then
MessageBox.Show("请输入数!")
ElseIf TextBox1.Text = i Then
x = 2
y = 4
For i = 0 To 6
a = x * y
b = (x - 1) * (y - 1)
tem += a / b
x = x + 2
y = y + 2
Next
End If
Return tem
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = count()
End Sub

对对  这样就对了嘛