窗体上有: text1,text2,text3,text4 4个textbox 控件
command1 1个按钮
实现 text1 text2 text3 中输入数值,把平均值显示在text4中在 Command1_Click()中
Dim i, j, k, a As Single
i = Text1.Text
j = Text2.Text
k = Text3.Text
a = (i + j + k)/3
Text4.Text = a为什么不能实现(实现了连接字符串的功能,不能计算),请指导啊
command1 1个按钮
实现 text1 text2 text3 中输入数值,把平均值显示在text4中在 Command1_Click()中
Dim i, j, k, a As Single
i = Text1.Text
j = Text2.Text
k = Text3.Text
a = (i + j + k)/3
Text4.Text = a为什么不能实现(实现了连接字符串的功能,不能计算),请指导啊
i = cdbl(Text1.Text)
j = cdbl(Text2.Text)
k = cdbl(Text3.Text)
a = (i + j + k)/3
Text4.Text = a
text1.text=""