Private Sub Command_1Click()a=Val(Text1.Text)a=(3.141516180)*ax=Sin(a)x=Int(x*1000+0.5)/1000y=Cos(a)y=Int(y*1000+0.5)/1000Text2.Text=Str(x)Text3.Text=Str(y)End Sub①找出程序中哪些语句是完成信息的输入?哪些语句是完成信息的

Private Sub Command_1Click()a=Val(Text1.Text)a=(3.141516180)*ax=Sin(a)x=Int(x*1000+0.5)/1000y=Cos(a)y=Int(y*1000+0.5)/1000Text2.Text=Str(x)Text3.Text=Str(y)End Sub①找出程序中哪些语句是完成信息的输入?哪些语句是完成信息的
Private Sub Command_1Click()
a=Val(Text1.Text)
a=(3.141516180)*a
x=Sin(a)
x=Int(x*1000+0.5)/1000
y=Cos(a)
y=Int(y*1000+0.5)/1000
Text2.Text=Str(x)
Text3.Text=Str(y)
End Sub
①找出程序中哪些语句是完成信息的输入?哪些语句是完成信息的输出?
④修改x=Int(x*1000+0.5)/1000语句,使之四舍五入保留一位小数

Private Sub Command_1Click()a=Val(Text1.Text)a=(3.141516180)*ax=Sin(a)x=Int(x*1000+0.5)/1000y=Cos(a)y=Int(y*1000+0.5)/1000Text2.Text=Str(x)Text3.Text=Str(y)End Sub①找出程序中哪些语句是完成信息的输入?哪些语句是完成信息的
Private Sub Command_1Click()
a=Val(Text1.Text) ‘输入
a=(3.141516180)*a
x=Sin(a)
x=Int(x*1000+0.5)/1000 ‘----------------可改为：x=round(x*10)/10
y=Cos(a)
y=Int(y*1000+0.5)/1000
Text2.Text=Str(x) ‘输出
Text3.Text=Str(y) ‘输出
End Sub