神马品牌网奇迹之遇见 by月夜:VB改错题
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 02:02:28
下面程序计算圆面积，其中圆半径需从文本框中输入；
private sub form_click()
Const PI=3.14159
dim s , r as Integer
r=val(text1.caption)
s=PI*r*r
print r, s
end sub
private sub form_click()
Const PI=3.14159
dim s , r as Integer
r=val(text1.caption)
s=PI*r*r
print r, s
end sub
private sub form_click()
Const PI=3.14159
dim s , r as Integer
r=val(text1.caption) //改成 r=val(text1.text)
s=PI*r*r
print r, s
end sub
输入要用文本框控件text
caption是显示用的
r=val(text1.caption)
改为
r＝val(text1.text)
就可以了。