数字表达,5201314,我爱你一生一世

来源:互联网 发布:模仿声音的软件 编辑:程序博客网 时间:2024/04/28 13:03
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