103¡¢Èç¹ûÔÚÉÏÌâÓï¾äǰ¼ÓÈë Option Base 1£¬Ôò¸ÃÊý×é¹²ÓУ¨ D £© ¸öÔªËØ¡£ A¡¢15 B¡¢16 C¡¢13 D¡¢²»È·¶¨
104¡¢Èç¹ûÓÐÉùÃ÷ Dim a(15) As Integer£¬Ôò¸ÃÊý×é¹²ÓУ¨ B £©¸öÔªËØ¡£ A¡¢15 B¡¢16 C¡¢13 D¡¢²»È·¶¨
105¡¢Ò»¸öÊý×é˵Ã÷ΪDim a(5£¬1 to 5) As Integer£¬Ôò¸ÃÊý×é¹²ÓУ¨ C £© ¸öÔªËØ¡£ A¡¢25 B¡¢36 C¡¢30 D¡¢²»È·¶¨
106¡¢ÔÚVBÖУ¬Ä¬ÈϵÄÊý×éϱêµÄϽç´Ó0¿ªÊ¼£¬ÒªÏëÔÚͨÓÃÉùÃ÷¶Î½ç¶¨Ï½磬ÔòӦʹÓ㨠A £©¡£ A¡¢Option Base B¡¢Option Explicit
C¡¢Explicit D¡¢Low Base
107¡¢ÈçÏÂÊý×éÉùÃ÷Óï¾ä£¬ÕýÈ·µÄÊÇ( B )¡£ A¡¢Dim a[3, 4] as Integer B¡¢Dim a(3, 4) as Integer C¡¢Dim a(n, n) as Integer D¡¢Dim a[3][4) as Integer
108¡¢¸³¸øÒ»¸öÊý×éµÄÊý¾ÝµÄÖµµÄÀàÐÍÒ»¶¨Òª£¨ A £©¡£ A¡¢Ïàͬ B¡¢²»Ïàͬ C¡¢Á½¿É D¡¢¶¼²»¶Ô
109¡¢Êý×éµÄϱê¿ÉÈ¡µÄ±äÁ¿ÀàÐÍÊÇ£¨ A £©¡£ A¡¢ÊýÖµÐÍ B¡¢×Ö·ûÐÍ C¡¢ÈÕÆÚÐÍ D¡¢¿É±äÐÍ
110¡¢Êý×éÉùÃ÷Óï¾äDim a(0 to 3, -2 to 2,0 to 5)ÖУ¬Êý×éa°üº¬ÔªËصĸöÊýΪ( A )¡£ A¡¢120 B¡¢75 C¡¢60
D¡¢13
111¡¢¼Ù¶¨ÓÐÈçϵÄSub¹ý³Ì£º Sub S (x As Single, y As Single) t = x x = t / y y = t Mod y End Sub ÔÚ´°ÌåÉÏÌí¼ÓÒ»¸öÃüÁî°´Å¥£¬È»ºó±àдÈçÏÂʼþ¹ý³Ì£º Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5: b = 4 S a, b Print a, b End Sub ³ÌÐòÔËÐÐʱ£¬µ¥»÷ÃüÁî°´Å¥µÃµ½µÄ½á¹û£¨ D £©¡£ A¡¢5 4 B¡¢1 1 C¡¢1.25 4 D¡¢1.25 1
112¡¢ÓÃÒÔÏ·½Ê½ÉùÃ÷µÄ±äÁ¿£¬£¨ B £©¿ÉÒÔÔÚÕû¸ö³ÌÐòÖÐͨÓã¿ A¡¢ÔÚ´°ÌåÄ£¿éÓÃDim½øÐÐÉùÃ÷ B¡¢ÔÚ´°ÌåÄ£¿éÓÃPublic½øÐÐÉùÃ÷ C¡¢ÔÚ´°ÌåÄ£¿éÓÃPrivate½øÐÐÉùÃ÷ D¡¢ÔÚ´°ÌåÄ£¿éÓÃStatic½øÐÐÉùÃ÷
113¡¢ÔÚ´°ÌåÉÏÌí¼ÓÒ»¸öÃüÁî°´Å¥ºÍÈý¸ö±êÇ©£¬±àдʼþ¹ý³Ì£º Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer
N=10: z=N+z: y=y+z: x=x+z Label1.Caption = x
Label2.Caption = y Label3.Caption = z End Sub ³ÌÐòÔËÐкó£¬Á¬ÐøÈý´Îµ¥»÷ÃüÁî°´Å¥£¬ÔòÈý¸ö±êÇ©ÖÐÏÔʾµÄÄÚÈÝ·Ö±ðÊÇ£¨ A £©¡£ A¡¢10 10 10
B¡¢30 30 30 C¡¢30 30 10 D¡¢10 30 30
114¡¢ÒÔÏÂÐðÊöÖдíÎóµÄÊÇ( D )¡£
A¡¢Èç¹û¹ý³Ì±»¶¨ÒåΪStaticÀàÐÍ£¬Ôò¸Ã¹ý³ÌÖеľֲ¿±äÁ¿¶¼ÊÇStaticÀàÐÍ
B¡¢Sub¹ý³ÌÖв»ÄÜǶÌ×¶¨ÒåSub¹ý³Ì C¡¢Sub¹ý³ÌÖпÉÒÔǶÌ×µ÷ÓÃSub¹ý³Ì
D¡¢Ê¼þ¹ý³Ì¿ÉÒÔÏñͨÓùý³ÌÒ»ÑùÓÉÓû§¶¨Òå¹ý³ÌÃû
115¡¢ÔÚÔÚ´°ÌåÉÏÌí¼ÓÒ»¸öÃüÁî°´Å¥Command1ºÍÒ»¸öÎı¾¿òText1£¬È»ºó±àдÈç ÏÂʼþ¹ý³Ì£º
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer x = 5 y = 7 z = 0
Text1.Text = \Call p1(x, y, z) Text1.Text = Str(z) End Sub
Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)