Private Sub Command_1Click()
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/23 10:33:40
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语句,使之四舍五入保留一位小数
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)*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 Su
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 Su
Private Sub Command_1Click()
Private Sub Form_Click()
private sub score_lostfocus( )
Private Sub Command1_Click()
vb Private Sub Command1_Click()
private sub command1_click()
Private Sub Form_Load()
1.Private Sub Form_Click()
Private Sub js_Click()
Private Sub 与 Sub的区别
Private Sub Form_Click()和Private Sub Command1_Click()有什么区别?
VB问题Private Sub Command1_Click()