1、写一个死循环,像这样: while True: #1. get radius #2. calculate area and cirum这样子,程序会一直重复取半径,计算周长,面积这一流程,应该可以满足你的要求了。
2、.private sub command1_click()
if not isnumeric(text1) then
msgbox "xxx"
text1.setfocus
exit sub
end if
dim r as single
r = val(text1.text)
text2.text = 3.14 * r * r
3、end sub
private sub command2_click()
if not isnumeric(text2) then