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