UC知道照教材打得一个简单程序,但总是出错
来源：百度知道 编辑：UC知道 时间：2024/06/16 19:29:45
我照教材敲得程序:
Private Sub cmdevaluate_Click()
Dim rewidth As Integer, reheight As Integer
rewidth = CDbl(txtwidth.Text)
reheight = CDbl(txtheight.Text)
txtperimeter.Text = CStr((rewidth + reheight) * 2)
txtarea.Text = CStr(reheight * rewidth)
End Sub
但总是显示:未找到方法或数据成员
rewidth = CDbl(txtwidth.Text)
很奇怪,希望大家能帮帮我
Private Sub cmdevaluate_Click()
Dim rewidth As Integer, reheight As Integer
rewidth = CDbl(txtwidth.Text)
reheight = CDbl(txtheight.Text)
txtperimeter.Text = CStr((rewidth + reheight) * 2)
txtarea.Text = CStr(reheight * rewidth)
End Sub
但总是显示:未找到方法或数据成员
rewidth = CDbl(txtwidth.Text)
很奇怪,希望大家能帮帮我
检查你的程序中是否有这个cmdevaluate控件名称？或txtwidth这个控件名称？
原因在于你控件没添全
建四个文本框控件（工具栏右排第二个） Name属性依次设为txtwidth、txtheight、txtperimeter、txtarea
一个按钮控件（工具栏右排第三个） Name属性设为cmdevaluate
这段程序是 在txtwidth、txtheight分别输入矩形的宽和高
单击cmdevaluate按钮后
在txtperimeter里显示周长 在txtarea里显示面积
Private Sub cmdevaluate_Click(）
Dim rewidth As Integer, reheight As Integer
rewidth = CDbl(txtwidth.Text)
reheight = CDbl(txtheight.Text)
txtperimeter.Text = CStr((rewidth + reheight) * 2)
txtarea.Text = CStr(reheight * rewidth)
End Sub