µ±Ç°Î»ÖãºÊ×Ò³ > Access2010Êý¾Ý¿â³ÌÐòÉè¼Æ½Ì³Ì
A. 1 B. 3 C. 7 D. 9
89.ÔÚÄ£¿éµÄÉùÃ÷²¿·ÖʹÓá°Option Base1¡±Óï¾ä£¬È»ºó¶¨Òå¶þάÊý×éA(2 to 5,5)£¬Ôò¸ÃÊý×éµÄÔªËØ¸öÊýΪ£¨ £© A. 20 B. 24 C. 25 D. 36
90.µ±Ìõ¼þΪ5 A. if 5 A.ÊýÖµ B.±äÌå C.×Ö·û´® D.ÊýÖµ»ò×Ö·û´®£¨ÊÓÊäÈëÇé¿ö¶ø¶¨£© 92.ÈôÓÐÈçÏÂSub¹ý³Ì£º Sub sfun(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub ÔÚ´°ÌåÖÐÌí¼ÓÒ»¸öÃüÁî°´Å¥Command33,¶ÔÓ¦µÄʼþ¹ý³ÌÈçÏ£º Private Sub Command33_Click() Dim a As Single Dim b As Single a=5:b=4 sfun a,b MsgBox a & chr(10)+chr(13)& b End Sub ´ò¿ª´°ÌåÔËÐк󣬵¥»÷ÃüÁî°´Å¥£¬ÏûÏ¢¿òÖÐÓÐÁ½ÐÐÊä³ö£¬ÄÚÈÝ·Ö±ðΪ£¨ £© A. 1ºÍ1 B.1.25ºÍ1 C.1.25ºÍ4 D.5ºÍ4 93.InputBoxº¯ÊýµÄ·µ»ØÖµÀàÐÍÊÇ£¨ £© A.ÊÓÊäÈëµÄÊý¾Ý¶ø¶¨ B.×Ö·û´® C.±äÌå D.ÊýÖµ 94.Äܹ»ÊµÏÖ´ÓÖ¸¶¨¼Ç¼¼¯Àï¼ìË÷ÌØ¶¨×Ö¶ÎÖµµÄº¯ÊýÊÇ£¨ £© A.Nz B.Find C.Lookup D.Dlookup 95.ÏÂÁбí´ïʽ¼ÆËã½á¹ûΪÈÕÆÚÀàÐ͵ÄÊÇ£¨ £© A.#2012-1-23# - #2011-2-3# B.yeat(#2011-2-3#) C.Date Value(¡°2011-2-3¡±) D.Len(¡°2011-2-3¡±) 96.Òª½«¡°Ñ¡¿Î³É¼¨¡±±íÖÐѧÉúµÄ¡°³É¼¨¡±È¡Õû£¬¿ÉÒÔʹÓõĺ¯ÊýÊÇ£¨ £© A.Abs([³É¼¨]) B.Int([³É¼¨]) C.Sqr([³É¼¨]) D.Sgn([³É¼¨]) 97.ÔÚ´°ÌåÉÏÓÐÒ»¸öÃüÁî°´Å¥Command1ºÍÒ»¸öÎı¾¿òText1,±àºÅʼþ´úÂëÈçÏ£º Private Sub Command1_Click() Dim i.j.x For i =1 To 20 step 2 x=0 For j = i To 20 step 3 x=x+1 Next j Next i Text1.Value = Str(x) End Sub ´ò¿ª´°ÌåÔËÐк󣬵¥»÷ÃüÁî°´Å¥£¬Îı¾¿òÖÐÏÔʾµÄ½á¹ûÊÇ£¨ £© A. 1 B. 7 C. 17 D. 400 98.Private Sub Command1_Click() For i = To 4 x=3 For j = 1 To 3 For k = 1 To 2 x=x+3 Next k Next j Next i Test1.Value=Str(x) End Sub ÔËÐÐÒÔÉÏʼþ¹ý³Ì£¬Îı¾¿òÖеÄÊä³öÊÇ£¨ £© A. 6 B. 12 C. 18 D. 21 99.VBA³ÌÐòÁ÷³Ì¿ØÖƵķ½Ê½ÊÇ£¨ £© A.˳Ðò¿ØÖƺͷÖÖ§¿ØÖÆ B.˳Ðò¿ØÖƺÍÑ»·¿ØÖÆ C.Ñ»·¿ØÖƵķÖÖ§¿ØÖÆ D.˳Ðò¡¢·ÖÖ§ºÍÑ»·¿ØÖÆ 100.ÏÂÁÐËĸöÑ¡ÏîÖУ¬²»ÊÇVBAµÄÌõ¼þº¯ÊýµÄÊÇ£¨ £© A. Choose B. If C. IIf D. Switch 101.ÓÉ¡°For i =1 To 9 Step - 3¡±¾ö¶¨µÄÑ»·½á¹¹£¬ÆäÑ»·½á¹¹£¬ÆäÑ»·Ì彫±»Ö´ÐУ¨ £© A. 0´Î B. 1´Î C. 4´Î D .5´Î 102.ÓÐÈçÏÂʼþ³ÌÐò£¬ÔËÐиóÌÐòºóÊä³ö½á¹ûÊÇ£¨ £© Private Sub Command33_Click() Dim x As Integer,y As Integer x = 1:y = 0 Do Until y <=25 y=y+x*x x=x+1 Loop MsgBox¡°x=¡±& x &¡°y=¡±& y End Sub A. x=1,y=0 B.x=4,y=25 C.c=5,y=30 D.Êä³öÆäËû½á¹û 103.ÈôÓÐÒÔÏ´°Ìåµ¥»÷ʼþ¹ý³Ì£º Private Sub Form_Click() Result = 1 For i = To 6 step 3 Result = result*i Next i MsgBox result End Sub ´ò¿ª´°ÌåÔËÐк󣬵¥»÷´°Ì壬ÔòÏûÏ¢¿òµÄÊä³öÄÚÈÝÊÇ£¨ £© A. 1 B.4 C. 15 D.120 104.ÓÐÒÔϳÌÐò¶Î£º k=5 For I = 1 to 10 step 0 K=k+2 Next 1 Ö´ÐиóÌÐò¶Îºó£¬½á¹ûÊÇ£¨ £© A. Óï·¨´íÎó B. ÐγÉÎÞÏÞÑ»· C. Ñ»·Ìå²»Ö´ÐÐÖ±½Ó½áÊøÑ»· D. Ñ»·ÌåÖ´ÐÐÒ»´Îºó½áÊøÑ»· 105.ÔÚVBAÖУ¬ÏÂÁйØÓÚ¹ý³ÌµÄÃèÊöÖÐÕýÈ·µÄÊÇ£¨ £© A.¹ý³ÌµÄ¶¨Òå¿ÉÒÔǶÌ×£¬µ«¹ý³ÌµÄµ÷Óò»ÄÜǶÌ× B.¹ý³ÌµÄ¶¨Òå²»¿ÉÒÔǶÌ×£¬µ«¹ý³ÌµÄµ÷ÓÿÉÒÔǶÌ× C.¹ý³ÌµÄ¶¨ÒåºÍ¹ý³ÌµÄµ÷Óþù¿ÉÒÔǶÌ× D.¹ý³ÌµÄ¶¨ÒåºÍ¹ý³ÌµÄµ÷Óþù²»ÄÜǶÌ× 106.Èç¹ûÔÚ±»µ÷ÓõĹý³ÌÖиıäÁËÐβαäÁ¿µÄÖµ£¬µ«ÓÖ²»Ó°Ïìʵ²Î±äÁ¿±¾Éí£¬ÕâÖÖ²ÎÊý´«µÝ·½Ê½³ÆÎª£¨ £© A.°´Öµ´«µÝ B.°´µØÖ·´«µÝ C. ByRef´«µÝ D.°´Ðβδ«µÝ 107.¼Ù¶¨ÓÐÒÔÏÂÁ½¸ö¹ý³Ì£º Sub sl(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Sub S2(x As Integer,y As Integer) Dim t As Integer t=x:x=y:y=t End Sub ÏÂÁÐ˵·¨±í´ïÕýÈ·µÄÊÇ£¨ £© A. Óùý³ÌS1¿ÉÒÔʵÏÖ½»»»Á½¸ö±äÁ¿µÄÖµµÄ²Ù×÷£¬S2²»ÄÜʵÏÖ B. Óùý³ÌS2¿ÉÒÔʵÏÖ½»»»Á½¸ö±äÁ¿µÄÖµµÄ²Ù×÷£¬S1²»ÄÜʵÏÖ C. Óùý³ÌS1ºÍS2¶¼¿ÉÒÔʵÏÖ½»»»Á½¸ö±äÁ¿µÄÖµµÄ²Ù×÷ D. Óùý³ÌS1ºÍS2¶¼²»¿ÉÒÔʵÏÖ½»»»Á½¸ö±äÁ¿µÄÖµµÄ²Ù×÷
¹²·ÖÏí92ƪÏà¹ØÎĵµ