Dim r!，c!，a! r = InputBox（"请输入半径"，"输入框"） c = 2 * r * 3.14159 a = 3.14159 * r ^ 2 Text1.Text = c Text2.Text = a为什么前两行有无效字符

佩服，则么”强”的程序你都想得出来，这么改 Dim r，c，a as in... r = InputBox（"请输入半径"） c = 2 * r * 3.14159 a = 3.14159 * r ^ 2 Text1.Text = c Text2.Text = a

定义的够厉害.

Dim r!，c!，a! r = InputBox（"请输入半径"，"输入框"） c = 2 * r * 3.14159 a = 3.14159 * r ^ 2 Text1.Text = c Text2.Text = a 如果无法判断INPUTBOX的内容 可以使用VAL(inputbox（"请输入半径"，"输入框"))INPUT的函数格式是 Function InputBox(Prompt, [Title], [Default], [XPos], [YPos], [HelpFile], [Context]) As String还有 为增加代码的可读性 请尽量少使用!,#,$等字符....该用interget,long,string等..

谢谢 各位大侠
好久没上了
初学者 见笑了