Question

VB中怎样用print方法在picturebox中输出数据

我想在picturebox中输出如下形式的数据：
r=5
周长=31.4
其中，周长b=3.14*2*a,而a是r的表达式，a=text1.text，需要在运行程序时手动输入text中。
我自己是这样写的：
b = 3.14 * 2 * a
Picture1.Print "r=" & a, "周长=" & b
但是运行后变成：
r= 周长=0
怎么回事儿？哪儿错了？
没有提示，运行后还是r= 周长=0
题目：计算圆的周长和面积：在窗体中添加一个文本框text1和一个对应的标签label1，再添加两个命令按钮command1,command2和一个图片框picturebox1。窗体界面设计如图所示。程序运行时，当单击按钮command1后，计算圆的周长；当单击command2时，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用）
我写的代码如下：
Private Sub Command1_Click()b = 3.14 * 2 * aPicture1.Print "r=" & a & ", 周长=" & bEnd Sub
Private Sub Command2_Click()c = 3.14 * a * aPicture1.Print "r=" & a & ", 面积=" & bEnd Sub
Private Sub Text1_Change()a = Text1.TextCommand1.Enabled = TrueCommand2.Enabled = TrueEnd Sub
输出部分是按照你说的改的

Answer 1

Picture1.Print "r=" & a, "周长=" & b 改为
Picture1.Print "r=" & a & “, 周长=" & b

追问

还是不对啊

追答

提示什么

追问

没有提示，运行后还是r= 周长=0

追答

定义a为全局变量
dim a
Private Sub Command1_Click()
b = 3.14 * 2 * a
Picture1.Print "r=" & a & ", 周长=" & b
End Sub
Private Sub Command2_Click()
c = 3.14 * a * a
Picture1.Print "r=" & a & ", 面积=" & b
End Sub
Private Sub Text1_Change()
a = Text1.Text
Command1.Enabled = True
Command2.Enabled = True
End Sub

追问

", 面积=" 为什么逗号放在里面，逗号是表示下一行，放外面怎么不行呢？

追答

若放外面没提示的话也可以