用vb编写的函数作图软件的代码: Const Pi = 3.1415926535 '定义圆周率 Dim a, wor '定义用于在Picture1上的一个位置打印字符函数 Private Function PrintWord(X, Y, Word As String) With Picture1 .CurrentX = X .CurrentY = Y .ForeColor = RGB(0, 0, 255) End With Picture1.Print Word End Function '定义画点函数 Private Function DrawDot(Px, Py, Color) Pict