vb图形代码代码（vb编程图片）

今天给各位分享vb图形代码代码的知识，其中也会对vb编程图片进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、vb绘制一次、二次、对数、幂函数图形的代码，各位帮帮忙啊~~~
• 2、vb画圆代码
• 3、VB输出下面图形的代码？谁帮我一下？ 1 121 12321 1234321 123454321
• 4、求图形VB代码
• 5、VB左右移动图像代码

vb绘制一次、二次、对数、幂函数图形的代码，各位帮帮忙啊~~~

Private Sub Command1_Click()

'直线 y=2*x

For x = -50 To 50 Step 0.5

y = 2 * x

Picture1.PSet (x, y)

Next

End Sub

Private Sub Command2_Click()

'y=2*x^2-3*x-20

For x = -50 To 50 Step 0.05

y = 0.2 * x ^ 2 - 5 * x - 20

Picture1.PSet (x, y)

Next

End Sub

Private Sub Command3_Click()

'y=ln(x)

For x = 0.0001 To 1 Step 0.0001

y = 2 * Log(x)

Picture1.PSet (x, y)

Next

For x = 1 To 100 Step 0.01

y = 2 * Log(x)

Picture1.PSet (x, y)

Next

End Sub

Private Sub Command4_Click()

'y=1.2^x

For x = -100 To 50 Step 0.01

y = 1.2 ^ x

Picture1.PSet (x, y)

Next

End Sub

Private Sub Command5_Click()

Picture1.Cls

Picture1.Line (-100, 0)-(100, 0), vbRed

Picture1.Line (0, 100)-(0, -100), vbRed

End Sub

Private Sub Form_Load()

Picture1.Scale (-100, 100)-(100, -100)

'画坐标系

Picture1.Line (-100, 0)-(100, 0), vbRed

Picture1.Line (0, 100)-(0, -100), vbRed

End Sub

vb画圆代码

VB画圆代码：主要使用函数【Circle (x, y), 半径, 颜色 】 ：Circle(圆圈中心的坐标X，圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色

代码start===========

'控件：

'名称:Command1，属性Caption:开始

'名称:Command2，属性Caption:结束

Private Sub Command1_Click() '****开始按钮

Circle (1500, 1000), 700, vbBlack '此为画圆函数：【Circle(圆圈中心的坐标X，圆圈中心的坐标Y),圆圈的半径,圆圈线的颜色】

End Sub

Private Sub Command2_Click() '***结束按钮

Unload Form1 '退出Form1

End Sub

Private Sub Form_Load()

Form1.AutoRedraw = True '程序开始时设置AutoRedraw属性(即重画属性)为ture，否则画的图可能消失

End Sub

代码end=============

VB输出下面图形的代码？谁帮我一下？ 1 121 12321 1234321 123454321

1

121

12321

1234321

123454321

可以分别表示为:

(10^0)^2

(10^0 + 10^1)^2

(10^0 + 10^1 + 10^2)^2

(10^0 + 10^1 + 10^2 + 10^3)^2

(10^0 + 10^1 + 10^2 + 10^3 + 10^4)^2

所以有:

Dim N As Long

Dim i As Integer

Dim j As Integer

For i = 1 To 5

For j = 0 To i - 1

N = 10 ^ j + N

Next j

Print Tab(6 - i); ' Print the space

Print N ^ 2

N = 0

Next i

输出结果:

1

121

12321

1234321

123454321

求图形VB代码

Private Sub Command1_Click()

Dim a(5, 5) As Integer

For i = 1 To 5

For j = 1 To 5

If i = j Then

a(i, j) = 1

ElseIf i j Then

a(i, j) = 2

Else

a(i, j) = 0

End If

Print a(i, j);

Next j

Print

Next i

End Sub

VB左右移动图像代码

将图像放在图像框内，更改图像框的left属性的值就行了。

Private Sub Command1_Click()

Image1.Left = Image1.Left + 200 '向右移动

End Sub

Private Sub Command2_Click()

Image1.Left = Image1.Left - 200 '向左移动

End Sub

vb图形代码代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb编程图片、vb图形代码代码的信息别忘了在本站进行查找喔。