vb测绘编程代码

方法一：九九乘法表

Private Sub Command1_Click（）

Print "一元","两元","五元"

For a = 0 To 10

For b = 0 To 10

For c = 0 To 10

If a + 2 * b + 5 * c = 25 And a + b + c = 10 Then

Print a, b, c

End If

Next c

Next b

Next a

End Sub

```

方法二：九九乘法表（另一种显示方式）

```

Private Sub Command1_Click（）

Print Tab（12）； "九九乘法表"

For i = 1 To 9

For j = 1 To 9

Print i * j；

Next j

Print

Next i

End Sub

方法三：坐标正反算

Function Fafangcheng（canshu（） As Double, P（） As Double, ByVal m As Integer, N As Integer, L（） As Double） As Double（）

Dim zhuanchengB（） As Double

Dim zhuanchengB1（） As Double

ReDim zhuanchengB（0 To N - 1）

ReDim zhuanchengB1（0 To N - 1）

' 这里应该是具体的坐标正反算算法实现

' 示例代码省略具体实现

Return zhuanchengB1

End Function

```

方法四：测量类VB程序代码

```

' 这是一个测量类的VB程序代码，用于小型软件计算的程序