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 顏色為紅色