private sub command1_click() dim a as integer,b as integer,c as integer randomize a=10+90*rnd b=10+90*rnd c=inputbox(str(a)&"+"&str(b)&"=") if c=a+b then print str(a)&"+"&str(b)&"=;c;msgbox("恭喜你~答对了!else print str(a)&"+"&str(b)&"=;c;x msgbox("对不起答错了,... 20210311