Private Sub Command1_Click()
Dim sc As Object
 dim n 
 Set sc = ScriptControl1
 sc.ExecuteStatement "x=100"
 sc.ExecuteStatement "y=150"
 sc.ExecuteStatement "z=(x+y)/2"
 sc.ExecuteStatement "MsgBox ""z="" & z"
 Set sc = Nothing
End Sub
請問我如何將z的變數傳給n

    全站熱搜

    vbqa 發表在 痞客邦 留言(4) 人氣()