用Vb设计一个程序,使任意位置的一个矩形以其左下角为中心旋转15度.

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/10 11:31:03

用Vb设计一个程序,使任意位置的一个矩形以其左下角为中心旋转15度.
求的是简单的代码不要那么复杂的!

我用的是简单的平移和旋转,不知道能不能符合你的要求,在我的机子上能运行,有两个command控件
Dim x(4),y(4)
Private Sub Form_Load()
Scale (-320,240)-(320,-240)
Cls
End Sub
Private Sub Command2_Click()
x(0) = Val(InputBox("请输入矩形左下角的横坐标","矩形旋转",0))
y(0) = Val(InputBox("请输入矩形左下角的纵坐标","矩形旋转",0))
w = Val(InputBox("请输入矩形的宽","矩形旋转",100))
h = Val(InputBox("请输入矩形的高","矩形旋转",80))
x(1) = x(0) + w:x(2) = x(0) + w:x(3) = x(0):x(4) = x(0)
y(1) = y(0):y(2) = y(0) + h:y(3) = y(0) + h:y(4) = y(0)
Form1.Line (x(0),y(0))-(x(2),y(2)),QBColor(7),B
End Sub
Private Sub Command1_Click()
rad = 15 * 3.14159 / 180
a = x(0):b = y(0)
For i = 0 To 4
x(i) = x(i) - a
y(i) = y(i) - b
Next i
For i = 1 To 3
xx!= x(i) * Cos(rad) - y(i) * Sin(rad)
yy!= x(i) * Sin(rad) + y(i) * Cos(rad)
x(i) = xx
y(i) = yy
Next i
For i = 0 To 4
x(i) = x(i) + a
y(i) = y(i) + b
Next i
For i = 0 To 3
Line (x(i),y(i))-(x(i + 1),y(i + 1)),QBColor(12)
Next i
End Su

用Vb设计一个程序,使任意位置的一个矩形以其左下角为中心旋转15度. 用VB设计一个计算圆的面积的程序用VB设计一个计算银行存款利息的程序二、设计简单的VB程序计算函数的值自己设计一个简单的VB程序,计算下列VB函数的值.提示：为简单起见,可设计并测试一个名为Rectangle的矩形类,其属性为矩形的左下角和右上角两个点的坐标,能计算矩形的面积. C++问题：设计一个名为Rectangle的矩形类,其属性为矩形的左下角和右上角两个点的坐标,能计算矩形的面积设计并测试一个名为Retangle的矩形类,其属性为矩形的左下角与右上角两个点的坐标,能计算矩形的面积求VB小程序!设计一个VB小程序,给定三角形任意两边的长度,和夹角的度数,求三角形的面积.S=absinα 用VB设计一个求解一元二次方程Ax2+Bx+C=0的程序(A、B、C的值是任意的). 用VB设计一个程序,实现一个圆绕椭圆轨迹运动的动画效果 vb编程,编写一个程序,改程序的功能是:从键盘输入任意一个两位正整数,将其十位数和个位数交换位置后输出用VB 能否判断一个11位数是否为素数,即用VB能否设计出程序证明费马对于素数的猜想是错误的,QUICKBASIC