Private Sub Command1_Click()
Dim a As Single
Print Sqr(2)
Print Sqr(3)
a = Sqr(2) * Sqr(3)
Print a; " "; Format$(a, "00.00E+00")
End Sub
æ§è¡ä¸è¿°ä»£ç ï¼ä½ è½çåºä¸ªå¤§æ¦ã
Single æ°æ®ç±»å
Singleï¼å精度浮ç¹åï¼åéåå¨ä¸º IEEE 32 ä½ï¼4 个åèï¼æµ®ç¹æ°å¼çå½¢å¼ï¼å®çèå´å¨è´æ°çæ¶åæ¯ä» -3.402823E38 å° -1.401298E-45ï¼èå¨æ£æ°çæ¶åæ¯ä» 1.401298E-45 å° 3.402823E38ãSingle çç±»å声æå符为æå¹å· (!)ã
Double æ°æ®ç±»å
Doubleï¼å精度浮ç¹åï¼åéåå¨ä¸º IEEE 64 ä½ï¼8 个åèï¼æµ®ç¹æ°å¼çå½¢å¼ï¼å®çèå´å¨è´æ°çæ¶åæ¯ä» -1.79769313486232E308 å° -4.94065645841247E-324ï¼èæ£æ°çæ¶åæ¯ä» 4.94065645841247E-324 å° 1.79769313486232E308ãDouble çç±»å声æå符æ¯æ°åç¬¦å· (#)ã
Format å½æ°
è¿å Variant (String)ï¼å
¶ä¸å«æä¸ä¸ªè¡¨è¾¾å¼ï¼å®æ¯æ ¹æ®æ ¼å¼è¡¨è¾¾å¼ä¸çæ令æ¥æ ¼å¼åçã
Format å½æ°ç¤ºä¾
æ¬ç¤ºä¾æ¾ç¤ºç¨ Format å½æ°åæ ¼å¼åè¾åºçä¸åç¨æ³ã对äºæ¥æåéå·ï¼/ï¼ï¼æ¶é´åéå·ï¼:ï¼ï¼ä»¥å AM/ PM çææ¬èè¨ï¼å
¶çæ£çæ¾ç¤ºæ ¼å¼ä¼å 计ç®æºä¸çå½é
æ åä¸åèææå·®å¼ãå¨å¼åé¶æ®µï¼æ¥æä¸æ¶é´æ¯ä»¥çæ¥æçæ ¼å¼ï¼é
å代ç çå½é
æ åæ¥æ¾ç¤ºçãèå¨è¿è¡æ¶ï¼çæ¥æåæ¯æ ¹æ®ç³»ç»çå½é
æ åèå®ï¼èç³»ç»çå½é
æ åå代ç çå½é
æ åå¯è½å¹¶ä¸ç¸åãæ¬ç¤ºä¾ä¸æ¯å设å½é
æ å为 English/United Statesã
MyTime å MyDate å¨å¼åç¯å¢ä¸ï¼ä½¿ç¨ç³»ç»ççæ¥æ设置æ¾ç¤ºåºæ¥çã
Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#
' 以系ç»è®¾ç½®çé¿æ¶é´æ ¼å¼è¿åå½åç³»ç»æ¶é´ã
MyStr = Format(Time, "Long Time")
' 以系ç»è®¾ç½®çé¿æ¥ææ ¼å¼è¿åå½åç³»ç»æ¥æã
MyStr = Format(Date, "Long Date")
MyStr = Format(MyTime, "h:m:s") ' è¿å "17:4:23"ã
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' è¿å "05:04:23 PM"ã
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' è¿å "Wednesday, Jan 27 1993"ã
' å¦æ没ææå®æ ¼å¼ï¼åè¿åå符串ã
MyStr = Format(23) ' è¿å "23"ã
' ç¨æ·èªå®ä¹çæ ¼å¼ã
MyStr = Format(5459.4, "##,##0ã00") ' è¿å "5,459.40"ã
MyStr = Format(334ã9, "###0ã00") ' è¿å "334.90"ã
MyStr = Format(5, "0ã00%") ' è¿å "500.00%"ã
MyStr = Format("HELLO", "<") ' è¿å "hello"ã
MyStr = Format("This is it", ">") ' è¿å "THIS IS IT"ã
温馨提示:答案为网友推荐,仅供参考