利用inputbox决定半径，画圆的程序。最重点是我不知道该怎么 print 圆。在线急等！

Question

如题所述

Answer 1

print "圆的半径为" & r & " 圆心位置为：（" & x & "," & y & “)"追问

怎么把inputbox的输入值用作圆的半径呢？

追答

r = Val(InputBox("请输入圆的半径", "画圆"))

追问

基本上差不多。但这样编程运行后，首先出现inputbox，输入数值

后进入form1，点击form1，再次出现inputbox，再输入后才能显示结果。

原来应该是输入半径后点击窗体直接显示结果啊。

追答

把前面的四行去掉

追问

哦。可以了。谢谢。不介意把qq留一下吧？

追答

要QQ就HI我

Answer 2

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim r As Integer
r = InputBox("请输入圆的半径", "画圆", 500)
Circle (X, Y), r
Print "圆的半径为" & r & " 圆心位置为(" & X & "," & Y & ")"
End Sub