Option Explicit
Private Sub Command1_Click()
Dim x As Double, y As Double, z As Double, u As Double
x = Val(Text1.Text)
Const pi As Single = 3.1415926
y = 2 * pi * x
z = pi * x * x
Label4.Caption = y
Label5.Caption = z
End Sub
VBå¯ä½¿ç¨Decimal æ°æ®ç±»åæCurrency æ°æ®ç±»ååéï¼åä¸è¿ç®å¯è·å¾15ä½æææ°åï¼å¹¶å¨åä¸æ¤ç±»æ°æ®ç±»ååéä¸ã
Decimal æ°æ®ç±»å
Decimal åéåå¨ä¸º 96 ä½ï¼12个åèï¼æ 符å·çæ´åå½¢å¼ï¼å¹¶é¤ä»¥ä¸ä¸ª 10 çå¹æ°ãè¿ä¸ªåæ¯å åå³å®äºå°æ°ç¹å³é¢çæ°åä½æ°ï¼å
¶èå´ä» 0 å° 28ãåæ¯å å为
0ï¼æ²¡æå°æ°ä½ï¼çæ
å½¢ä¸ï¼æ大çå¯è½å¼ä¸º +/-79,228,162,514,264,337,593,543,950,335ãèå¨æ 28个å°æ°ä½çæ
åµä¸ï¼æ大å¼ä¸º +/-7.9228162514264337593543950335ï¼èæå°çéé¶å¼ä¸º
+/-0.0000000000000000000000000001ã
注æ æ¤æ¶ï¼Decimal æ°æ®ç±»ååªè½å¨ Variantä¸ä½¿ç¨ï¼ä¹å°±æ¯è¯´ï¼ä¸è½å£°æä¸åé为 Decimal
çç±»åãä¸è¿å¯ç¨ Cdec å½æ°ï¼å建ä¸ä¸ªåç±»å为 Decimal ç Variantã
Currency æ°æ®ç±»å
Currency åéåå¨ä¸º 64 ä½ï¼8
个åèï¼æ´åçæ°å¼å½¢å¼ï¼ç¶åé¤ä»¥ 10,000 ç»åºä¸ä¸ªå®ç¹æ°ï¼å
¶å°æ°ç¹å·¦è¾¹æ 15 ä½æ°åï¼å³è¾¹æ 4 ä½æ°åãè¿ç§è¡¨ç¤ºæ³çèå´å¯ä»¥ä»
-922,337,203,685,477.5808 å° 922,337,203,685,477.5807ãCurrency çç±»å声æå符为atå· (@)ã
Currency æ°æ®ç±»åå¨è´§å¸è®¡ç®ä¸å®ç¹è®¡ç®ä¸å¾æç¨ï¼å¨è¿ç§åºå精度ç¹å«éè¦ã
用left函数保留左边16个字符并sound四舍五入。
在这步之前,你还要做判断结果的字符数大于等于16时和小于16时的情况。
不知道是不是这个意思,自己写哦。本回答被提问者和网友采纳
输入圆的半径算圆的周长和面积 要求结果具有15位有效位数
我写的放问题补充里吧 这个字数有限制
意思是无论半径多少,得出的结果必须是整数+小数一共15位不多不少?
追问有效位数难道不是跟数学那个概念一样吗 就是用科学计数法表示的那种