编程论坛 » VB6论坛 » 为什么会出现类型不匹配？

developing 发表于 2008-7-10 22:37

为什么会出现类型不匹配？

Private Sub Form_Paint()
    Dim r As String, initR As String
    Dim x As String, y As String
    Dim qbc As Integer
    Cls
    x = ScaleWidth / 2: y = ScaleHeight / 2
    If x > y Then initR = y Else initR = x
      FillStyle = vbFSSolid
    For [color=Red]r[/color] = initR To 1 Step -(initR / 16)
      FillColor = QBColor(qbc)
      qbc = qbc + 1
      Circle (x, y), r
    Next
    FillStyle = vbFSTransparent
End Sub

运行后，为什么出现“r”的类型不匹配？
唉，刚开始学VB，碰到的问题真多，还请各位高人指点。

[[it] 本帖最后由 developing 于 2008-7-10 22:38 编辑 [/it]]

singlion 发表于 2008-7-10 22:50

Dim r As String, initR As String
    Dim x As String, y As String
改为：
    Dim r As Long, initR As Long
    Dim x As Long, y As Long

multiple1902 发表于 2008-7-11 07:08

字符串从1数到10有意义吗？

jxyga111 发表于 2008-7-11 08:17

用整數型定義

查看完整版本: 为什么会出现类型不匹配？