ÔÆÌ⺣ - רҵÎÄÕ·¶ÀýÎĵµ×ÊÁÏ·ÖÏíÆ½Ì¨

µ±Ç°Î»ÖãºÊ×Ò³ > Access2010Êý¾Ý¿â³ÌÐòÉè¼Æ½Ì³Ì

Access2010Êý¾Ý¿â³ÌÐòÉè¼Æ½Ì³Ì

  • 62 ´ÎÔĶÁ
  • 3 ´ÎÏÂÔØ
  • 2026/1/10 7:09:03

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¶¼²»¿ÉÒÔʵÏÖ½»»»Á½¸ö±äÁ¿µÄÖµµÄ²Ù×÷

ËÑË÷¸ü¶à¹ØÓÚ£º Access2010Êý¾Ý¿â³ÌÐòÉè¼Æ½Ì³Ì µÄÎĵµ
  • ÊÕ²Ø
  • Î¥¹æ¾Ù±¨
  • °æÈ¨ÈÏÁì
ÏÂÔØÎĵµ10.00 Ôª ¼ÓÈëVIPÃâ·ÑÏÂÔØ
ÍÆ¼öÏÂÔØ
±¾ÎÄ×÷Õߣº...

¹²·ÖÏí92ƪÏà¹ØÎĵµ

Îĵµ¼ò½é£º

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

¡Á ÓοͿì½ÝÏÂÔØÍ¨µÀ£¨ÏÂÔØºó¿ÉÒÔ×ÔÓɸ´ÖƺÍÅŰ棩
µ¥Æª¸¶·ÑÏÂÔØ
ÏÞÊ±ÌØ¼Û£º10 Ôª/·Ý Ô­¼Û:20Ôª
VIP°üÔÂÏÂÔØ
ÌØ¼Û£º29 Ôª/Ô ԭ¼Û:99Ôª
µÍÖÁ 0.3 Ôª/·Ý ÿÔÂÏÂÔØ150·Ý
ȫվÄÚÈÝÃâ·Ñ×ÔÓɸ´ÖÆ
VIP°üÔÂÏÂÔØ
ÌØ¼Û£º29 Ôª/Ô ԭ¼Û:99Ôª
µÍÖÁ 0.3 Ôª/·Ý ÿÔÂÏÂÔØ150·Ý
ȫվÄÚÈÝÃâ·Ñ×ÔÓɸ´ÖÆ
×¢£ºÏÂÔØÎĵµÓпÉÄÜ¡°Ö»ÓÐĿ¼»òÕßÄÚÈݲ»È«¡±µÈÇé¿ö£¬ÇëÏÂÔØÖ®Ç°×¢Òâ±æ±ð£¬Èç¹ûÄúÒѸ¶·ÑÇÒÎÞ·¨ÏÂÔØ»òÄÚÈÝÓÐÎÊÌ⣬ÇëÁªÏµÎÒÃÇЭÖúÄã´¦Àí¡£
΢ÐÅ£ºfanwen365 QQ£º370150219
Copyright © ÔÆÌ⺣ All Rights Reserved. ËÕICP±¸16052595ºÅ-3 ÍøÕ¾µØÍ¼ ¿Í·þQQ£º370150219 ÓÊÏ䣺370150219@qq.com