Question

编译错误 错误的参数号或无效的属性赋值

上机作业 我想把计算的数值作为坐标用像素函数画出图像 到这最后一步总是出错 不知道是前面公式的问题还是这里。初学者，实在搞不懂了，希望有个高手帮个忙毛病或许不在这里，如有兴趣我可以贴上所有代码。问题相关代码：Dim coun As Integer '计数Dim maxp As Double '最大剪力值Dim ppicx(100), ppicy(100) As Integer '像素坐标x,yDim i As IntegerFor coun = 0 To 100If Int(pot(coun).F) > maxp Then '求最大剪力maxp = Int(pot(coun).F)End IfNext coun''''''''''''''''''''''''''''画图'''''''''''''''''''''''''''''''''''''''''For i = 0 To 100ppicx(i) = Int(i * Picture1.Width / 100)ppicy(i) = Int((pot(i).F * Picture1.Height) / maxp) '有时错误显示这里除数为零Picture1.PSet (ppicx(i), ppicy(i)), vbWhite'''''''''''''''''''''''''''''问题分割线''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''其中pot(i).F为double类型
Next i
'复制漏了一句.





Answer 1

Pset方法不是一个语句，你的写法简化后是
Pset (a,b),c
这是错误的。

追问

那要怎么做呢

追答

pset方法只需要指定坐标,绘制使用的颜色是forcecolor属性指定的颜色。

追问

能给个例子么

追答

新建一个表单,在表单代码窗口粘贴如下代码:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button > 0 Then
    Me.ForeColor = IIf(Button = 1, RGB(255, 0, 0), RGB(0, 0, 255))
    Me.PSet (X, Y)
  End If
End Sub

然后按F5运行它.

Answer 2

Dim ppicx(100) As Integer, ppicy(100) As Integer