µ±Ç°Î»ÖãºÊ×Ò³ > access¸´Ï°×ÊÁÏ
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()
¹²·ÖÏí92ƪÏà¹ØÎĵµ