比赛评分系统小数点怎么精确到后两位数找了一个PPT比赛评分系统,显示的结果字数得有15位,怎么修改下面的代码实现小数点后只保留两位数,小数点后第三位数值进行四舍五入.PrivateSubCommand

　　比赛评分系统小数点怎么精确到后两位数

　　找了一个PPT比赛评分系统,显示的结果字数得有15位,怎么修改下面的代码实现小数点后只保留两位数,小数点后第三位数值进行四舍五入.

　　PrivateSubCommandButton1_Click()

　　Dima(8)AsDouble

　　DimmaxAsDouble,minAsDouble,mAsDouble

　　a(1)=TextBox1.Value

　　a(2)=TextBox2.Value

　　a(3)=TextBox3.Value

　　a(4)=TextBox4.Value

　　a(5)=TextBox5.Value

　　a(6)=TextBox6.Value

　　a(7)=TextBox7.Value

　　a(8)=TextBox8.Value

　　m=a(1)

　　max=a(1)

　　min=a(1)

　　Fori=2To8

　　m=m+a(i)

　　Forj=2Toi

　　Ifa(j)>maxThenmax=a(j)

　　Ifa(j)