论坛 › 【编程】编程圣殿 › 急求VB高手！！

FBI联邦密探 发表于 2008-5-31 12:52

急求VB高手！！

问题是这样的：有3个数，Test1是5位数，Test2是2位数，Test3是3位数
要求：运算结果=Test2/Test3×Test1（保留两位小数）
显示：在Test4显示0——运算结果
怎样编啊？

[ 本帖最后由 FBI联邦密探 于 2008-5-31 13:08 编辑 ]

FBI联邦密探 发表于 2008-5-31 14:21

我试着编了，但有溢出的

紫玄 发表于 2008-5-31 14:42

不懂的路过。。。

onttpi 发表于 2008-5-31 14:49

如果要进行的运算位数很高，搜一下　高精度算法

FBI联邦密探 发表于 2008-6-1 10:22

经高人指点，已经编出
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
a = CSng(Text1.Text)
b = CSng(Text2.Text)
c = CSng(Text3.Text)
d = a * b / c
Text7.Text = "0—" & d
End Sub

一开始不会用CSng

iptton 发表于 2008-6-1 10:26

VB的“关键字”太多了。。。当初学QB记住的“关键字”现在也忘得差不多了。。

查看完整版本: 急求VB高手！！