vb中DimaAsDouble,bAsDouble,snAsDouble,tnAsDoublepicturel.Cls这一行不能编译为啥呢?程序是这样的PrivateSubCommand1Click()DimiAsIntegerDimaAsDouble,bAsDouble,snAsDouble,tnAsDoublepicturel.Clsi=1:tn=0:sn=

Question

vb中 Dim a As Double,b As Double,sn As Double,tn As Double picturel.Cls 这一行不能编译 为啥呢?
程序是这样的
Private Sub Command1_Click()
Dim i As Integer
Dim a As Double,b As Double,sn As Double,tn As Double
picturel.Cls
i = 1:tn = 0:sn = 0
a = Val(Text1.Text)
b = a
If Val(Text1.Text) > 0 And Val(Text1.Text) < 10 And Val(Text2.Text) > 2 Then
Do While (i

Answer 1

picturel.Cls
写错了吧