Question

VB编程无法输出数据！！！

本人是初二的学生，在学VB编程，我要编三角形的面积，很简单那种输入底和高输出面积的，但是我在运行时发现输入了底和高，text3里没有显示出面积，求解。
我的代码如下
Let Text1.Text = d
Let Text2.Text = h
Let s = d * h / 2
Let s = Text3.Text

Answer 1

VB不用let语句。
不知道你是用的VB6还是vb.net
vb6直接写
text3.text=Val(text1.text)*Val(text2.text)/2
就可以了。
另外，这个语句必须写在事件里面，也就是你还需要画一个按钮，在点击按钮的时候，为text3属性赋值。

追问

不能理解......神马意思......我用的是VB6，但是要求这么写，我写在按钮里的......但是text3却没有复制，试运行输入底和高，所有text全空了

追答

VB里面的输出模式与原先的BASIC不同，它的输出是通过设置控件的属性来获取的。
还有一点，等式的左边是被赋值的元素。
例如，你写的Let Text1.Text = d，简单点说就是你把赋值与被赋值的元素写反了，所以啥都没有了。
其含义就是将d的值赋予Text1的Text属性。而此时d的值还没有赋予，所以你的Text1控件的内容一下就空了。
下面是有关数据类型的问题。
VB里面，Val()是一个函数，将文本转换成对应的数字。例如我们在文本框里面写的“56”就是文本，是不能数值参与运算的，即使能够自动转换，也很容易导致一些错误。所以我写了
Val(text1.text)和Val(text2.text)，作用就是将text1和text2内输入的文本数字转换成数值。
改写成你的那种形式，就是：
Let d=Val(Text1.Text)
Let h=Val(Text2.Text)
Let s = d * h / 2
Let Text3.Text=s
你对照下差别吧。

Answer 2

VB不用let语句。
不知道你是用的VB6还是vb.net
vb6直接写
text3.text=Val(text1.text)*Val(text2.text)/2
就可以了。
另外，这个语句必须写在事件里面，也就是你还需要画一个按钮，在点击按钮的时候，为text3属性赋值。
===================================
也可以写在text1和text2的CHANG事件中

Answer 3

没有必要那么麻烦，而且我也不知道为什么你写代码前面要加let、我的代码只要一句就可以实现你所说的功能。
Private Sub Command1_Click()
Text3.Text = Text1.Text * Text2.Text / 2
End Sub