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 ρ
运行时老是出现类型不匹配的错误，哪里错了呢？

Dim t, ρ, x2, y2 As Single
前面四个变量，都没有写 类型。需要被全。

---------------------------------
运行时老是出现类型不匹配的错误，哪里错了呢？
你的错误出现在哪一行？？？

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

停在这一行时，你 点 菜单 -> 视图 -> 本地窗口，
然后看一下 Pq  和 w 这二个变量的 值是多少。

或者 菜单 -> 视图->立即窗口
然后输入
? pq
? w
? pq/(w-pq)

看看分别显示什么内容。然后再来说为什么会出现错误。

你在form1中计算的时候form11窗体UNload了吗？如果UNload了估计就会出错了把？

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

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