³o­Ó°ÝÃD©ñ¤Ó¤[¤~¨Óµo°Ý...

EGBT

Ãö©ó«Å§iªº°ÝÃD

Dim x,y,z As Integer ¬O¤£¬O¥u¬O±N Dim x As Integer¡BDim y As Integer¡BDim z As Integer¼g¦b¤@°_©O?

©Ò¥Hx,y,z³£¬O«Å§i¾ã¼Æ©O?

¤§«e(¦~¥N¤[»·)¦³¬Ý¨ì¤@­Ó¦b³o­Ó±¡ªp¦n¹³¥u¦³z«Å§i¾ã¼Æ,¦ýx,y¤£ª¾¹D«Å§i¤°»ò..(§Ñ°O¤W¦¸¦b¬Y­Ó¨¤¸¨»¡¬O¤°»ò«¬ºA¤F)

ML089

¦^´_ 1# EGBT
­n¤@­Ó¤@­Ó«Å§i
¥i¥Î²¼g

DIM X%, Y%, Z%


¬ÛÃö¼Æ¦r«¬ºA²¼g¡G
Integer¡G%
Long¡G&
Single¡G!
Double¡G#
Currency¡G@
String¡G$ (µù¡G¤@¯ë¥Î¦bÅܼƫŧi¡A¦Ó«D¤å¦r±`¼Æ)

EGBT

¦^´_ 2# ML089


    ¤j¤j«Ü·PÁ±zªº¦^ÂСC±z»¡­n¤@­Ó¤@­Ó«Å§i¡C

¨º½Ð°ÝDim x,y,z As Integer³o¼Ë¤l¥Nªí¤°»ò©O?

Joforn

¦^´_  ML089


    ¤j¤j«Ü·PÁ±zªº¦^ÂСC±z»¡­n¤@­Ó¤@­Ó«Å§i¡C

¨º½Ð°ÝDim x,y,z As Integer³o¼Ë¤l¥N ...
EGBT µoªí©ó 2015-11-6 21:48

Dim x, y, z As Integer»P¤U­±ªº»y¥yµ¥¶¥¡G
Dim x As Variant, y As Variant, z As Integer

yen956

¦^´_ 4# Joforn
­ì¨Ó¦p¦¹!!ÁÂÁÂ!!

­ã´£³¡ªL

¦^´_ 3# EGBT


¥i¥H¸Õ¸Õ:

Sub TEST1107_1()
Dim x, y, z As Integer
MsgBox TypeName(x)
MsgBox x = 0
MsgBox x = ""
MsgBox TypeName(z)

x = 1
MsgBox TypeName(x)
x = "J"
MsgBox TypeName(x)

MsgBox VarType(x)
End Sub
¥¼©w¸qªº¬° Variant , ªì©l­È Empty, µ¥¦P¼Æ¦r0, ¤]µ¥¦P¤å¦r""
ÀH«á¨Ì©Ò½á¤_ªº­È¬°¨äÃþ«¬, ÆF¬¡©Ê°ª, ¦ý¸û¦û°O¾ÐÅé!

ÁÙ¦³­Ó MsgBox VarType(x) , ¥H¼Æ¦r¥Nªí¨äÃþ«¬,
¥i¥H¦h¬Ý¬ÝVBE¤º«Ø»¡©úÀÉ~~

EGBT

¦^´_ 7# ­ã´£³¡ªL


    ¯«¤â¥X¤â ... «Kª¾¦³¨S¦³¡A·PÁ¤j¤jªº¯«¸Ñ!!