博客展示了一段代码，在Command1按钮的点击事件中，定义了两个单精度变量x和y，从Text1获取x的值，经过一系列计算得到y的值，最后将结果显示在Text2中。
Private Sub Command1_Click ()
Dim x As Single, y As Single
x=Val(Text1.Text)
y=((x+52.8) * 5 - 3.9343) / 0.5–x * 10
Text2.Text=”我要对你说：”+ Str(y)
End Sub
Dim x As Single, y As Single
x=Val(Text1.Text)
y=((x+52.8) * 5 - 3.9343) / 0.5–x * 10
Text2.Text=”我要对你说：”+ Str(y)
End Sub
扫一扫
695
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
