form11中的代码
Private Sub 确定_Click()
w = Text2.Text
Form1.Show
Unload Me
End Sub
form1中的代码
Private Sub Picture1_Paint()
Dim p As Single
w = Form11.Text2.Text
 Dim t, ρ, x2, y2 As Single
  
For ρ = 100 To 0 Step -10
    If ρ = 100 Then
       For t = -20 To 65 Step 0.02
           Pq = Pk(t)
           x2 = 622 * Pq / (w - Pq)
           y2 = t + x2 / 2000 * (2500 + 1.84 * t) - x2
           If x2 <= 42 And y2 <= 65 Then
               Picture1.PSet (x2, y2), QBColor(4)
           Else
               Picture1.CurrentX = x2: Picture1.CurrentY = y2 + 1: Picture1.Print ρ; "%"
               Exit For
           End If
       Next t
    Else
       For t = -20 To 65 Step 0.02
           Pq = Pk(t)
           x2 = 622 * Pq * (ρ / 100) / (w - Pq * ρ / 100)
           y2 = t + x2 / 2000 * (2500 + 1.84 * t) - x2
           
       Next t
     End If
Next ρ
运行时老是出现类型不匹配的错误，哪里错了呢？

老是错在这一行
x2 = 622 * Pq / (w - Pq)

嗯。我找出错误来了，谢谢啦！

对对，我也发现了！谢谢啦！