UC知道我是VB菜鸟,这个程序出了错,各路大虾快救我!!
来源：百度知道 编辑：UC知道 时间：2024/06/15 01:26:45
我是用 Visual Basic 6.0 企业版的,程序如下:
Private Sub Form_Click()
r = InputBox("请输入最大圆的半径r,(1000<r<2500)", "请输入最大圆的半径")
If r > 2500 Then
Print "您输入的最大圆的半径超出本程序处理范围,请确定1000<r<2500"
Else
If r < 1000 Then
Print "您输入的最大圆的半径超出本程序处理范围,请确定1000<r<2500"
Else
For i = r To 1000 Step -100
r = i
pi = 3.14
s = pi * r * r
Print "圆的半径是"; r; "厘米"
Print "圆的面积是"; s; "平方厘米"
Circle (5000, 5000), r
Next i
End If
End If
End Sub
运行程序后发现:数字都重叠到一起了!各路大虾请帮帮我!谢!
Private Sub Form_Click()
r = InputBox("请输入最大圆的半径r,(1000<r<2500)", "请输入最大圆的半径")
If r > 2500 Then
Print "您输入的最大圆的半径超出本程序处理范围,请确定1000<r<2500"
Else
If r < 1000 Then
Print "您输入的最大圆的半径超出本程序处理范围,请确定1000<r<2500"
Else
For i = r To 1000 Step -100
r = i
pi = 3.14
s = pi * r * r
Print "圆的半径是"; r; "厘米"
Print "圆的面积是"; s; "平方厘米"
Circle (5000, 5000), r
Next i
End If
End If
End Sub
运行程序后发现:数字都重叠到一起了!各路大虾请帮帮我!谢!
Private Sub Form_Click()
Dim r As Long, pi As Integer, i As Long, s As Double
Me.WindowState = 2
r = InputBox("请输入最大圆的半径r,(1000<r<2500)", "请输入最大圆的半径")
If r > 2500 Then
Print "您输入的最大圆的半径超出本程序处理范围,请确定1000<r<2500"
Else
If r < 1000 Then
Print "您输入的最大圆的半径超出本程序处理范围,请确定1000<r<2500"
Else
For i = r To 1000 Step -100
r = i
pi = 3.14
s = pi * r * r
CurrentX = 0
CurrentY = i * 2
Print "圆的半径是" & r & "厘米";
Print "圆的面积是" & s & "平方厘米" & vbNewLine
Circle (5000, 5000), r
Next i
End If
End If
End Sub
你通过调整CurrentX,Y这2个定位参数去控制显示的位置，VbNewLine是另起一行。
'给你修改了一下代码，添加一个Pictu