vb怎么在一个圆内画一个正五边形?写下代码!
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 09:26:21
vb怎么在一个圆内画一个正五边形?写下代码!
Private Sub Command1_Click()
Dim i As Integer
Dim Pi As Single
Dim x As Single
Dim y As Single
Dim r As Single
Pi = 3.1415926
x = 2000
y = 2000
r = 1000
Circle (x,y),r
PSet (x + r,y)
For i = 1 To 5
Line -(x + r * Cos(2 * Pi * i / 5),y + r * Sin(2 * Pi * i / 5))
Next
End Su
Dim i As Integer
Dim Pi As Single
Dim x As Single
Dim y As Single
Dim r As Single
Pi = 3.1415926
x = 2000
y = 2000
r = 1000
Circle (x,y),r
PSet (x + r,y)
For i = 1 To 5
Line -(x + r * Cos(2 * Pi * i / 5),y + r * Sin(2 * Pi * i / 5))
Next
End Su
vb怎么在一个圆内画一个正五边形?写下代码!
怎么用尺规在圆内画正五边形
怎样在圆内画 正五边形
在一个圆里,只用三角尺,怎么画出一个正五边形
我想在用VB作一个科学计算器,怎样实现sin.cos.tan等功能代码怎么写
vb算式四舍五入在vb缩写的代码中有一个算式:(ProgressBar1.Value / Text2.Text) * 1
求一个vb代码,关于判断一个整数的奇偶性
CAD在一个夹角内画固定长度弧线怎么画
如何在一个圆内画一个面积最大的三角形
在一个圆内画一个最大三角形,面积比是多少?
vb中,怎么写代码,让程序能够识别我在text里写的一个数学公式,并且按照给定的值进行计算
求VB编程代码:判断一个数是否是素数?