vb+excel+坐标怎么修改(vb中坐标怎么写)

1. vb中坐标怎么写

括号中0代表x值，1代表y，2代表z值 For U = 0 To 2 aToExport(iNumberOfPoint, U) = aCoordinates(U) ' get coordinates in array Next aCoordinates(0)是取点的x坐标，同理 aCoordinates(1) 取y坐标

2. vb坐标系

vb中的直线是用坐标来表示（或画出来）的。根据几何知识我们知道，两个点就能确定唯一一条直线，而在直角坐标系中，使用横坐标X和纵坐标Y的值就能确定一个点的位置，所以在VB中用（X1，Y1）表示第一点的坐标，用（X2，Y2）表示第二个点的坐标。

定义这两个点之后（一个起点，一个终点），一条直线也就确定了。故：X1，X2属性是定义一条直线两个端点的横坐标，它们都是单精度数值型变量（single），当然也可以是双精度数值型变量（double）。

3. vb坐标转换

scale(x1,y1)-(x2,y2)定义窗体左上角和右下角的坐标，如scale (-10,10)-(10,-10),说明左上角的坐标为-10，10 右下角的坐标为10，-10 第二象限，第四象限。定义后，其他控件的坐标参照该坐标系。

4. 如何绘制vb坐标

设A（X1，Y1）B（X2，Y2）

则∣AB∣=√[（X1-X2）^2+（Y1-Y2）^2]

5. vb怎么画坐标刻度

Option Explicit

Private Sub Form_click()

Cls

Dim i, j As Single

Me.Scale (-1, 10)-(25, -1) '定义坐标系，原点靠近左下角

Line (-1, 0)-(25, 0) '画x轴

Line (0, -1)-(0, 10) '画Y轴

For i = -1 To 25 Step 1 '画X轴刻度

If i <> 0 Then

Line (i, 0)-(i, 0.2)

CurrentX = i - 0.3: CurrentY = -0.2

Print i

End If

Next

For j = -1 To 10 '画Y轴刻度

If j <> 0 Then

Line (0, j)-(0.3, j)

CurrentX = -0.7: CurrentY = j + 0.1

Print j

End If

Next

CurrentX = -0.4: CurrentY = -0.2

Print "0" '画原点

CurrentX = 0.5: CurrentY = 9.5

Print "Y"

CurrentX = 24: CurrentY = 0.5

Print "X"

Randomize

CurrentX = 1: CurrentY = Format(Rnd * 10, "0.00")

For i = 2 To 24

Line -(i, Format(Rnd * 10, "0.00")) '这里是随机生成的数据！

Next

End Sub

顶一下

(0)

0%

踩一下

(0)

0%