你只需要編程么?
Private Sub Command1_Click()
If Val(Text1.Text) > 0 And Val(Text2.Text) > 0 Then
Label1.Caption = "長(zhǎng)方形的面積為:" & Val(Text1.Text) * Val(Text2.Text)
Label2.Caption = "長(zhǎng)方形的周長(zhǎng)為:" & 2 * (Val(Text1.Text) + Val(Text2.Text))
Else
MsgBox "您輸入的數(shù)據(jù)不規(guī)范,請(qǐng)重新輸入!",,"提示"
End If
End Sub我的答案保證了邊長(zhǎng)的符號(hào)你這個(gè)復(fù)雜了，我比較喜歡簡(jiǎn)單點(diǎn)的，不過(guò)我編好，如下：TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)TextBox4.Text = 2 * (Val(TextBox1.Text) + Val(TextBox2.Text))但是 你這個(gè) 如果我輸入的數(shù)字是負(fù)數(shù)或者 符號(hào)呢可以哈，不信你試試。。。沒(méi)法，我開(kāi)始就是這樣的啊！