vb编程图形

❶ vb怎么通过编程来编辑图形曲线

可以通过画单个点的方式连成一条曲线.
首先最好先定义坐标系
scale(x1，y1)-(x2，y2)
例如:画一条y=x^3+2的图像
范围从-2到2
那么可以这么编程
dim x#,y#
scale (-2,4)-(2,-4)'这表示将窗体左上角定义为(-2,4)，右下角定义为(2,-4)
for x=-2 to 2 step 0.0001
y=x*x*x+2
pset(x,y)
next x
这里pset函数就是画点。
要是要定义点宽可以在pset上一行用drawwidth=n，这里n表示点或线的粗细。
要是要定义颜色的话
pset(x,y)，qbcolor=n
这里的n数值为0~15整数，qbcolor只有16种颜色
或者使用RGB函数，软rgb（x,y,z）
x,y,z只能为0~255之间的整数，这个色彩多有256的三次方那么多。
就这样。
至于直线是line函数。
eg
form1.line（2,3）-（3,5），qbcolor=2

❷ vb图形控件中填充和改变形状

打开vb编程，创建标准exe。
在窗体上添加不同形状的图形。在属性share中选择你想要的形状。
在属性borderwidth中可以改变图形边框的粗细，例如我改为5.
我们还可以改变图形边框的颜色，就把头部改为黑色，在属性bordercolor。
在属性fillcolor中，可以选择要填充的颜色。
在fillstyle中可以选择填充的类型。

❸ VB编程画了一些图形（圆和线条之类），请问一下怎么用编程把这些图形组合起来呀

％％这个程序复制到您的MATLAB命令行窗口中尝试用线条充满
％，你需要几个点的公共区域的边界上，连接就行了。
T = 0:0.02:2 * pi的;
阴谋（1 + SIN，COS（T）（T））;％绘制第一轮
人;轴平等的; >图（罪（T），1 + COS（T））;％画第二轮

％填充画公共区域
TT = 0：0.02：π/ 2;
X1 =罪（TT +π/ 2）; Y1 = 1 + COS（TT +π/ 2），X2 = 1 +罪（TT-π/ 2）; Y2 = COS（TT-π/ 2 ）;
X = [X1 X2]，Y = [Y1 Y2];
补丁（X，Y，为'r'）;

❹ 几个vb编程题（图形操作）

1.在form中加入如下代码，在窗体上添加两个按钮command1,command2和一个picturebox名为picture1。Const Pi = 2 * 3.14
Private Sub Command1_Click()
Dim x As Single, y As Single, α, r As Single
Picture1.Scale (-4, 4)-(4, -4)
Picture1.Line (0, 4)-(0, -4)
Picture1.Line (4, 0)-(-4, 0)
r = 4
For α = 0 To Pi Step 0.01y = r * Cos(4 * α) * Sin(2 * α)
x = r * Cos(4 * α) * Cos(4 * α)
Picture1.PSet (x, y)
NextEnd SubPrivate Sub Command2_Click()
Unload Me
End Sub
2.在form中加入如下代码，在窗体上添加两个按钮command1,command2和一个picturebox名为picture1。Const Pi = 2 * 3.14
Private Sub Command1_Click()
Dim x As Single, y As Single, α, r As Single
Dim n, i As Integer
Picture1.Scale (-4, 4)-(4, -4)
r = 3
For α = 0 To Pi Step 0.01y = r * Sin(α)
x = r * Cos(α)
Picture1.PSet (x, y)
Next
n = InputBox("请输入等分数并且必须为正整数：")
If n Mod 2 = 1 Then
For i = 0 To (n + 1) / 2
y = r * Sin(i * Pi / n)
x = r * Cos(i * Pi / n)
Picture1.Line (x, y)-(-x, -y)
Next
Else
For i = 0 To n / 2
y = r * Sin(i * Pi / n)
x = r * Cos(i * Pi / n)
Picture1.Line (x, y)-(-x, -y)
Next
End IfEnd SubPrivate Sub Command2_Click()
Picture1.Cls
End Sub 3.在form中添加如下代码，并添加一个command1按钮和一个picturebox控件名为picture1Private Sub Command1_Click()
Dim i As Integer
Dim a(19) As Integer
Form1.AutoRedraw = True
Randomize Timer
i = 0
c = False
Do While i < 20
b = Int(Rnd * 40) + 1
For j = i To 0
If a(i) = b Then c = True
Next j
If Not c Then
a(i) = b
i = i + 1
c = False
End If
Loop Picture1.Scale (-50, 50)-(50, -50)
For i = 0 To 19
Picture1.DrawWidth = (i Mod 5) + 1
Picture1.ForeColor = i
If i < 19 Then
Picture1.Line (a(i), a(i + 1))-(-a(i), -a(i + 1)), ColorGetByRndValue
Else
Picture1.Line (a(i), a(0))-(-a(i), -a(0)), ColorGetByRndValue
End If
Next
End Sub Function ColorGetByRndValue() As Long
Dim tOutLong As Long
Dim tColorCount As Long
Dim tColorValue As Long
tColorCount = 2 ^ 24
tColorValue = Rnd * tColorCount
tOutLong = CLng(Rnd * tColorCount)
ColorGetByRndValue = tOutLong
End Function

❺ vb编写图形绕一点旋转

正余弦函数

题目：已知一长轴为len，及另一长轴的端点坐标（x1,y1）和(x2,y2)
画出椭圆。
算法步骤：
1、求a,b: a=len/2 b=sqr((x1-x2)^2+(y1-y2)^2)
2、求旋转角α ：求出(y1-y2)/(x1-x2)的反正切值即为α
3、求椭圆中心坐标（x0,y0）: x0=(x1+x2)/2 y0=(y1+y2)/2

3、计算椭圆上点的坐标（x,y）：
x=acosθ ， y=bsinθ ( 0<=θ< 2*π)
4、计算图形绕原点旋转α 弧度后的坐标(xx,yy):
xx=x*cos(-α )+y*sin(-α )
yy=-x*sin(-α )+y*cos(-α )
5、计算椭圆中心从原点平移到（x0,y0）后椭圆上点的坐标（xxx,yyy）:
xxx=xx+x0
yyy=yy+y0
6、在坐标（xxx,yyy）处画一各点
7、在( 0<=θ< 2*π)范围内，按一定间隔取值，重复3-7步骤，即得所要求的椭圆。

以下是vb代码，新建一个标准工程，不需做任何参数更改。打开代码窗口把代码粘贴进去，替换原来的所有代码，运行即可看效果。希望对你有用

Option Explicit
Dim X1, Y1, X0, Y0, X2, Y2 As Double
Dim A, B, PI As Double
Dim F As Boolean

Private Sub Form_Load()
PI = 3.14159265358979
F = False
DrawWidth = 2
Width = 10000
Height = 8000
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
Y1 = Y
B = 1000
F = True

End Sub

Public Sub tuoYuan()
Dim Jiao As Double
Dim i, m, n, m1, n1 As Double

Cls
X0 = (X1 + X2) / 2
Y0 = (Y1 + Y2) / 2
A = Sqr((X0 - X2) ^ 2 + (Y0 - Y2) ^ 2)

If X1 <> X2 Then
Jiao = Atn((Y1 - Y2) / (X1 - X2))
Else
Jiao = PI / 2
End If

Form1.PSet (X1, Y1), RGB(255, 0, 0)
Form1.PSet (X0, Y0), RGB(255, 0, 0)
Form1.PSet (X2, Y2), RGB(255, 0, 0)

For i = 0 To PI * 2 Step 0.01
m = A * Cos(i)
n = B * Sin(i)
'Form1.PSet (m + X0, n + Y0), RGB(255, 0, 0)

m1 = m * Cos(-Jiao) + n * Sin(-Jiao)
n1 = -m * Sin(-Jiao) + n * Cos(-Jiao)

Form1.PSet (m1 + X0, n1 + Y0), RGB(0, 255, 0)

Next i

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If F = True Then
X2 = X
Y2 = Y
Call tuoYuan
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
F = False
X2 = X
Y2 = Y
Call tuoYuan
End Sub

❻ 用VB编写画图程序

提供一个绘制任意曲线的简单代码。其他功能类似，希望能举一反三。
在窗体中添加一个Picturebox，然后输入命令如下：

DimoldxAsSingle
DimoldyAsSingle
PrivateSubPicture1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then'当鼠标左建按下时发生
Picture1.Line(oldx,oldy)-(X,Y)
oldx=X
oldy=Y
EndIf
EndSub

PrivateSubPicture1_Mousedown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
oldx=X
oldy=Y
EndSub

❼ VB编程 输入一个整数，输出对应的图形 图形是用“*”构成的

这个的思路不难，只是编写有点繁琐，不想写，给你个思路吧

先建立10个sub，分别显示0—9的图形（注意显示的位置不要用实际的数值，用变量来控制），然后主程序里直接出来一个输入框，把输入的内容转换成数字，然后从左至右来一位位的取值，再根据取得的值来调用0—9的sub

❽ 用VB编程图形

新建一个工程，在窗体上放入一个按钮控件，然后输入下面代码。运行时，单击按钮后，即可得到你所描述的结果。
Private Sub Command1_Click()
Print 444444
Print 33333
Print 2222
Print 111
End Sub

❾ vb编程输入图形问题

Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer
n = 4
For i = 1 To n
Print Space(n + 1 - i);
For j = 1 To i
Print Chr(64 + j);
Next
For j = i - 1 To 1 Step -1
Print Chr(64 + j);
Next
Print
Next
For i = n - 1 To 1 Step -1
Print Space(n + 1 - i);
For j = 1 To i
Print Chr(64 + j);
Next
For j = i - 1 To 1 Step -1
Print Chr(64 + j);
Next
Print
Next
End Sub

❿ vb编程(绘制几何图形)

line方法是在pic控件上画直线和矩形~
(x,y) 起点坐标
(75，y)终点坐标
vbred 颜色为红色