什么意思?画函数图像?建立Picture1和Command1Private Sub Command1_Click()Dim I, A, BA = Array(1, 2, 3, 4, 5)B = Array(1, 2, 3, 4, 5)Picture1.ScaleMode = 3Picture1.AutoRedraw = TrueFor I = LBound(A) To UBound(A)Picture1.PSet (A(I), Picture1.ScaleHeight / 2 - B(I))NextSavePicture Picture1.Image, "d:\picture.bmp"End Sub...
|