# Re: 那每输入一个数字要先在转换才能相乘吗？变数怎么办？

Posted by Tim on November 21, 1999 at 12:58:51:

In Reply to: 请先转换型别再运算 posted by Mouse on November 21, 1999 at 10:51:36:

: : : : 这乘法哪里错了？(vb6sp3)
: : : : Private Sub Command1_Click()
: : : : Dim AAA As Double '不管long ,Single or Double都是错的
: : : : AAA = 365 * 24 * 60 * 60 '值等于31536000
: : : : Text1.Text = AAA
: : : : End Sub
: : : : 用Print TypeName(31536000)
: : : : 显示为long
: : : Text1.Text = cstr(AAA)

: AAA = CDbl(365) * CDbl(24) * CDbl(60) * CDbl(60) '值等于31536000

若改成以下还是溢位，哪数字如何相乘，难道输入一个数字要先在转换吗？连以下先定义好之数值相乘都有误，请高人指点到底哪里错？

Dim AAA As Double '不管long ,Single or Double都是错的
Dim BBB As Integer
Dim CCC As Integer
Dim DDD As Integer
BBB = 365
CCC = 24
DDD = 60
AAA = BBB * CCC * DDD * DDD
Text1.Text = AAA

Follow Ups:

- Re: 那每输入一个数字要先在转换才能相乘吗？变数怎么办？ Mouse 17:17:22 11/21/99 (2)
  - Re: 那每输入一个数字要先在转换才能相乘吗？变数怎么办？ AOK(帝王世纪) 22:13:09 11/22/99 (1)
    - 谢谢各位的指点！(无内文) Tim 10:49:19 11/23/99 (0)