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

µ±Ç°Î»ÖãºÊ×Ò³ > access¸´Ï°×ÊÁÏ

access¸´Ï°×ÊÁÏ

  • 62 ´ÎÔĶÁ
  • 3 ´ÎÏÂÔØ
  • 2026/4/30 5:18:17

AccessÊý¾Ý¿âÓ¦Óü¼Êõ

A ˳Ðò¿ØÖƺͷÖÖ§¿ØÖÆ B ˳Ðò¿ØÖƺÍÑ­»·¿ØÖÆ C Ñ­»·¿ØÖƺͷÖÖ§¿ØÖÆ D ˳Ðò¡¢·ÖÖ§ºÍÑ­»·¿ØÖÆ ²Î¿¼´ð°¸D

63 ´Ó×Ö·û´® s ÖÐµÄµÚ 2 ¸ö×Ö·û¿ªÊ¼»ñµÃ 4 ¸ö×Ö·ûµÄ×Ó×Ö·û´®º¯ÊýÊÇ A Mid$(s,2,4) B Left$(s,2,4) C Rigth(s,4) D Left$(s,4) ²Î¿¼´ð°¸A

64 Óï¾ä Dim NewArray(10) As Integer µÄº¬ÒåÊÇ A ¶¨ÒåÁËÒ»¸öÕûÐͱäÁ¿ÇÒ³õֵΪ 10 B ¶¨ÒåÁË 10 ¸öÕûÊý¹¹³ÉµÄÊý×é C ¶¨ÒåÁË 11 ¸öÕûÊý¹¹³ÉµÄÊý×é D ½«Êý×éµÄµÚ 10 ÔªËØÉèÖÃΪÕûÐÍ ²Î¿¼´ð°¸C

65 ÔÚ Access ÖУ¬Èç¹ûÒª´¦Àí¾ßÓи´ÔÓÌõ¼þ»òÑ­»·½á¹¹µÄ²Ù×÷£¬ÔòÓ¦¸ÃʹÓõĶÔÏóÊÇ A ´°Ìå B Ä£¿é C ºê D ±¨±í ²Î¿¼´ð°¸B

66 ²»ÊôÓÚ VBA ÌṩµÄ³ÌÐòÔËÐдíÎó´¦ÀíµÄÓï¾ä½á¹¹ÊÇ A On Error Then ±êºÅ B On Error Goto ±êºÅ C On Error Resume Next D On Error Goto 0 ²Î¿¼´ð°¸A

68 ÈôÒªÔÚ×Ó¹ý³Ì Proc1 µ÷Óú󷵻ØÁ½¸ö±äÁ¿µÄ½á¹û£¬ÏÂÁйý³Ì¶¨ÒåÓï¾äÖÐÓÐЧµÄÊÇ A Sub Proc1(n,m) B Sub Procl(ByVal n,m) C Sub Procl(n,BYVal m) D Sub Procl(ByVal n, ByVal m) ²Î¿¼´ð°¸A£¿£¿£¿

69 ÏÂÁÐËÄÖÖÐÎʽµÄÑ­»·Éè¼ÆÖУ¬Ñ­»·´ÎÊý×îÉÙµÄÊÇ A a=5:b=8

Do A=a+1

Loop While a

Do a=a+1 Loop Until a

Loop D a=5:b=8 Do Until a>b a=a+1 Loop ²Î¿¼´ð°¸C

70 ÔÚ´°ÌåÖÐÓÐÒ»¸öÃüÁî°´Å¥ run35£¬¶ÔÓ¦µÄʼþ´úÂëÈçÏ£º Private Sub run35_Enter( ) Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer

29

AccessÊý¾Ý¿âÓ¦Óü¼Êõ

For i=1 To 10

num=InputBox(\ÇëÊäÈëÊý¾Ý£º\ÊäÈë\ If Int(num/2)=num/2 Then a=a+1 Else

B=b+1 End If Next I

MsgBox(\ÔËÐнá¹û£ºa=\End Sub

ÔËÐÐÒÔÉÏʼþËùÍê³ÉµÄ¹¦ÄÜÊÇ A ¶ÔÊäÈëµÄ 10 ¸öÊý¾ÝÇóÀÛ¼ÓºÍ

B ¶ÔÊäÈëµÄ 10 ¸öÊý¾ÝÇó¸÷×ÔµÄÓàÊý£¬È»ºóÔÙ½øÐÐÀÛ¼Ó

C ¶ÔÊäÈëµÄ 10 ¸öÊý¾Ý·Ö±ðͳ¼ÆÓм¸¸öÊÇÕûÊý£¬Óм¸¸öÊÇ·ÇÕûÊý D ¶ÔÊäÈëµÄ 10 ¸öÊý¾Ý·Ö±ðͳ¼ÆÓм¸¸öÊÇÆæÊý£¬Óм¸¸öÊÇżÊý ²Î¿¼´ð°¸D

95 ÔÚÏÂͼËùʾµÄ´°ÌåÉÏ£¬ÓÐÒ»¸ö±êÓС°ÏÔʾ¡±×ÖÑùµÄÃüÁî°´Å¥£¨Ãû³ÆÎªCommand1£©ºÍÒ»¸öÎı¾¿ò£¨Ãû³ÆÎªtext1£©¡£µ±µ¥»÷ÃüÁťʱ£¬½«±äÁ¿sumµÄÖµÏÔʾÔÚÎı¾¿òÄÚ£¬ÕýÈ·µÄ´úÂëÊÇ

A Me!Text1.Caption=sum B Me!Text1.Valuc=sum C Me!Text1.Text=sum D Me!Text1.Visiblc=sum ²Î¿¼´ð°¸B£¿C£¿

98 ÔÚVBAÖУ¬ÊµÏÖ´°Ìå´ò¿ª²Ù×÷µÄÃüÁîÊÇ A DoCmd.OpenForm B OpenForm C Do.OpenForm D DoOpcn.Form ²Î¿¼´ð°¸A

99 ÔÚAccessÖУ¬Èç¹û±äÁ¿¶¨ÒåÔÚÄ£¿éµÄ¹ý³ÌÄÚ²¿£¬µ±¹ý³Ì´úÂëÖ´ÐÐʱ²Å¿É¼û£¬ÔòÕâÖÖ±äÁ¿µÄ×÷ÓÃÓòΪ A ³ÌÐò·¶Î§ B È«¾Ö·¶Î§ C Ä£¿é·¶Î§ D ¾Ö²¿·¶Î§ ²Î¿¼´ð°¸D

101 ÔÚVBAÖУ¬´íÎóµÄÑ­»·½á¹¹ÊÇ A Do WhileÌõ¼þʽ

Ñ­»·Ìå Loop

B Do UntilÌõ¼þʽ

Ñ­»·Ìå Loop C Do Until

Ñ­»·Ìå LoopÌõ¼þʽ D Do

30

AccessÊý¾Ý¿âÓ¦Óü¼Êõ

Ñ­»·Ìå Loop WhileÌõ¼þʽ ²Î¿¼´ð°¸C

103 ÔÚ´°ÌåÖÐÓÐÒ»¸öÃüÁî°´Å¥£¨Ãû³ÆÎªrun34£©£¬¶ÔÓ¦µÄʼþ´úÂëÈçÏ£º Private Sub run34_Click( ) sum=0

For i=10 To 1 Step -2 sum=sum+i Next i MsgBox sum End Sub

ÔËÐÐÒÔÉÏʼþ£¬³ÌÐòµÄÊä³ö½á¹ûÊÇ A 10 B 30 C 55 D ÆäËû½á¹û ²Î¿¼´ð°¸B

130 ·¢ÉúÔڿؼþ½ÓÊÕ½¹µã֮ǰµÄʼþÊÇ A Enter B Exit C GotFocus D LostFocus ²Î¿¼´ð°¸A

131 ÒªÏëÔÚ¹ý³ÌProcµ÷Óú󷵻ØÐβÎxºÍyµÄ±ä»¯½á¹û£¬ÏÂÁж¨ÒåÓï¾äÕýÈ·µÄÊÇ A Sub Proc (x as Integer, y as Integer) B Sub Proc(ByVal x as Integer, y as Integer) C Sub Proc(x as Integer, ByVal y as Integer) D Sub Proc(ByVal x as Integer, ByVal y as Integer) ²Î¿¼´ð°¸A

135 ÔÚVBA ÖУ¬ÏÂÁйØÓÚ¹ý³ÌµÄÃèÊöÖÐÕýÈ·µÄÊÇ A ¹ý³ÌµÄ¶¨Òå¿ÉÒÔǶÌ×£¬µ«¹ý³ÌµÄµ÷Óò»ÄÜǶÌ× B ¹ý³ÌµÄ¶¨Òå²»¿ÉÒÔǶÌ×£¬µ«¹ý³ÌµÄµ÷ÓÿÉÒÔǶÌ× C ¹ý³ÌµÄ¶¨ÒåºÍ¹ý³ÌµÄµ÷Óþù¿ÉÒÔǶÌ× D ¹ý³ÌµÄ¶¨ÒåºÍ¹ý³ÌµÄµ÷Óþù²»ÄÜǶÌ× ²Î¿¼´ð°¸B

137 ÏÂÁÐËĸöÑ¡ÏîÖУ¬²»ÊÇVBA µÄÌõ¼þº¯ÊýµÄÊÇ A Choose B If C Iif D Switch ²Î¿¼´ð°¸A

138 ÉèÓÐÈçϹý³Ì£ºÉèÓÐÈçϹý³Ì£»X=1DOX=X+2Loop Until________¡£ÔËÐгÌÐò£¬ÒªÇóÑ­»·ÌåÖ´ÐÐ3 ´Îºó½áÊøÑ­»·£¬¿Õ°×´¦Ó¦ÌîÈëµÄÓï¾äÊÇ________¡£

A x<=7 B x<7 C x>=7 D x>7 ²Î¿¼´ð°¸C

155 ÏÂÁйØÓÚOLE¶ÔÏóµÄÐðÊöÖУ¬ÕýÈ·µÄÊÇ A ÓÃÓÚÊäÈëÎı¾Êý¾Ý B ÓÃÓÚ´¦Àí³¬¼¶Á´½ÓÊý¾Ý C ÓÃÓÚÉú³É×Ô¶¯±àºÅÊý¾Ý

D ÓÃÓÚÁ´½Ó»òÄÚǶWindowsÖ§³ÖµÄ¶ÔÏó ²Î¿¼´ð°¸D

164 Ö´ÐÐÓï¾ä£ºMsgBox ¡±AAAA¡±, vbOKCancel+vbQuetion, ¡°BBBB¡±Ö®ºó£¬µ¯³öµÄÐÅÏ¢¿ò A ±êÌâΪ¡°BBBB¡±¡¢¿òÄÚÌáʾ·ûΪ¡°¾ªÌ¾ºÅ¡±¡¢ÌáʾÄÚÈÝΪ¡°AAAA¡± B ±êÌâΪ¡°AAAA¡±¡¢¿òÄÚÌáʾ·ûΪ¡°¾ªÌ¾ºÅ¡±¡¢ÌáʾÄÚÈÝΪ¡°BBBB¡± C ±êÌâΪ¡°BBBB¡±¡¢¿òÄÚÌáʾ·ûΪ¡°Îʺ𱡢ÌáʾÄÚÈÝΪ¡°AAAA¡± D ±êÌâΪ¡°AAAA¡±¡¢¿òÄÚÌáʾ·ûΪ¡°Îʺ𱡢ÌáʾÄÚÈÝΪ¡°BBBB¡± ²Î¿¼´ð°¸C

169 ÏÂÁгÌÊý¾ÝÀàÐÍÖУ¬²»ÊôÓÚVBAµÄÊÇ A ³¤ÕûÐÍ B ²¼¶ûÐÍ C ±äÌåÐÍ D Ö¸ÕëÐÍ

31

AccessÊý¾Ý¿âÓ¦Óü¼Êõ

²Î¿¼´ð°¸D

170 ÏÂÁÐÊý×éÉùÃ÷Óï¾äÖУ¬ÕýÈ·µÄÊÇ

A Dim A [3,4] As Integer B Dim A (3,4) As Integer C Dim A [3;4] As Integer D Dim A (3;4) As Integer ²Î¿¼´ð°¸B

171 ÔÚ´°ÌåÖÐÓÐÒ»¸öÎı¾¿òTest1£¬±àдʼþ´úÂëÈçÏ£º Private Sub Form_Click()

X= val (Inputbox(¡°ÊäÈëxµÄÖµ¡±)) Y= 1 If X<>0 Then Y= 2 Text1.Value = Y End Sub

´ò¿ª´°ÌåÔËÐкó£¬ÔÚÊäÈë¿òÖÐÊäÈëÕûÊý12£¬Îı¾¿òText1ÖÐÊä³öµÄ½á¹ûÊÇ A 1 B 2 C 3 D 4 ²Î¿¼´ð°¸B

172 ÔÚ´°ÌåÖÐÓÐÒ»¸öÃüÁî°´Å¥Command1ºÍÒ»¸öÎı¾¿òTest1£¬±àдʼþ´úÂëÈçÏ£º For I = 1 To 4 x = 3 For j = 1 To 3 For k = 1 To 2 x= x + 3 Next k Next j Next I

Text1.Value = Str(x) End Sub

´ò¿ª´°ÌåÔËÐк󣬵¥»÷ÃüÁî°´Å¥£¬Îı¾¿òText1ÖÐÊä³öµÄ½á¹ûÊÇ A 6 B 12 C 18 D 21 ²Î¿¼´ð°¸D

173 ÔÚ´°ÌåÖÐÓÐÒ»¸öÃüÁî°´Å¥Command1£¬±àдʼþ´úÂëÈçÏ£º Private Sub Command1_Click() Dim s As Integer s = p(1) + p(2) + p(3) + p(4) debug.Print s End Sub

Public Function p (N As Integer) Dim Sum As Integer Sum = 0 For i = 1 To N Sum = Sum + 1 Next i P = Sum End Function

´ò¿ª´°ÌåÔËÐк󣬵¥»÷ÃüÁî°´Å¥£¬Êä³öµÄ½á¹ûÊÇ A 15 B 20 C 25 D 35 ²Î¿¼´ð°¸B

195 ÔÚµ÷ÊÔVBA³ÌÐòʱ£¬ÄÜ×Ô¶¯±»¼ì²é³öÀ´µÄ´íÎóÊÇ A Óï·¨´íÎó B Âß¼­´íÎó

C ÔËÐдíÎó D Óï·¨´íÎóºÍÂß¼­´íÎó

32

Private Sub Command1_Click()

ËÑË÷¸ü¶à¹ØÓÚ£º access¸´Ï°×ÊÁÏ µÄÎĵµ
  • ÊÕ²Ø
  • Î¥¹æ¾Ù±¨
  • °æÈ¨ÈÏÁì
ÏÂÔØÎĵµ10.00 Ôª ¼ÓÈëVIPÃâ·ÑÏÂÔØ
ÍÆ¼öÏÂÔØ
±¾ÎÄ×÷Õߣº...

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

Îĵµ¼ò½é£º

AccessÊý¾Ý¿âÓ¦Óü¼Êõ A ˳Ðò¿ØÖƺͷÖÖ§¿ØÖÆ B ˳Ðò¿ØÖƺÍÑ­»·¿ØÖÆ C Ñ­»·¿ØÖƺͷÖÖ§¿ØÖÆ D ˳Ðò¡¢·ÖÖ§ºÍÑ­»·¿ØÖÆ ²Î¿¼´ð°¸D 63 ´Ó×Ö·û´® s ÖÐµÄµÚ 2 ¸ö×Ö·û¿ªÊ¼»ñµÃ 4 ¸ö×Ö·ûµÄ×Ó×Ö·û´®º¯ÊýÊÇ A Mid$(s,2,4) B Left$(s,2,4) C Rigth(s,4) D Left$(s,4) ²Î¿¼´ð°¸A 64 Óï¾ä Dim NewArray(10) As Integer µÄº¬ÒåÊÇ A ¶¨ÒåÁËÒ»¸öÕûÐͱäÁ¿ÇÒ³õֵΪ 10 B ¶¨ÒåÁË 10 ¸öÕûÊý¹¹³ÉµÄÊý×é C ¶¨ÒåÁË 11 ¸öÕûÊý¹¹³ÉµÄÊý×é D ½«Êý×éµÄµÚ 10 ÔªËØÉèÖÃΪÕûÐÍ ²Î¿¼´ð°¸C 65 ÔÚ Access ÖУ¬Èç¹ûÒª´¦Àí¾ßÓи´ÔÓÌõ¼þ»òÑ­»·½á¹¹µÄ²Ù×÷£¬ÔòÓ¦¸ÃʹÓõĶÔÏóÊÇ A ´°Ìå B Ä£¿é C ºê D ±¨±í ²Î¿¼´ð°¸B <

¡Á ÓοͿì½ÝÏÂÔØÍ¨µÀ£¨ÏÂÔØºó¿ÉÒÔ×ÔÓɸ´ÖƺÍÅŰ棩
µ¥Æª¸¶·ÑÏÂÔØ
ÏÞÊ±ÌØ¼Û£º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