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