关于VB的一道题目.问问

来源：百度知道 编辑：UC知道 时间：2024/05/25 12:12:58
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
我看不懂这题目的意思，请给解释一下每行的意思

^_^ 这段程序有意思`~`~ 这段程序的意思就是 不管你输入的是什么(在TEXT1中)程序都要对你说(Text2中)"吾爱你一身一世"(520.1314) 唉,愿天下有情人终成眷属`~`~ 祝福你们`~`~`~ romantic~~romatic~~~哈哈哈

ps:其实你不用看懂这写代码 关键要看懂程序运行的效果`~`~`~哈哈

Private Sub Command1_Click()
Dim x As Single, y As Single 'x,y都是单精度浮点型
x = Val(Text1.Text) '把TEXT1.TEXT中的字符串转换成值,没用的语''句
y = ((x + 52.8) * 5 - 3.9343) / 0.5 - x * 10 'y=520.1314
Text2.Text = "我要对你说：" + Str(y) '输出y
End Sub

第一行就不用解释了嘛,从第二行开始

Dim x As Single, y As Single -----用"Dim变量名As数据类型"的方式声明了X,Y两个变量的名称和类型;

x = Val(Text1.Text)
-------由于对Text1的text属性赋值是字符型,而字符型变量是不能直接加减的,所以用Val(text1.text)来将变量X的类型由字符型变为数值型;

y = ((x + 52.8) * 5 - 3.9343) / 0.5 - x * 10 ------y等于((x加上52.8)乘以5减去3.9343)除以0.5减去x乘以10;

Text2.Text = "我要对你说：" + Str(y)------其中,Str(y)是指将变量y的类型由数值型变为字符型,这样才能与"我要对你说:"这个字符串合并,并且要把等号右边的内容赋值给左边Text2的text属性

最后的end sub应该晓得是啥子意思了嘛 结束