2010Äê3ÔÂÈ«¹ú¼ÆËã»úµÈ¼¶¿¼ÊÔ¶þ¼¶VB±ÊÊÔÊÔ¾í(º¬²Î¿¼´ð°¸) Ò»¡¢Ñ¡ÔñÌ⣨ÿÌâ2·Ö£¬¹²70·Ö£© £¨1£©ÏÂÁÐÐðÊöÖÐÕýÈ·µÄÊÇ( )
A)¶Ô³¤¶ÈΪnµÄÓÐÐòÁ´±í½øÐвéÕÒ£¬×Çé¿öÏÂÐèÒª±È½Ï´ÎÊýΪn
B)¶Ô³¤¶ÈΪnµÄÓÐÐòÁ´±í½øÐжԷֲéÕÒ£¬×Çé¿öÏÂÐèÒª±È½Ï´ÎÊýΪ£¨n/2£© C)¶Ô³¤¶ÈΪnµÄÓÐÐòÁ´±í½øÐжԷֲéÕÒ£¬×Çé¿öÏÂÐèÒªµÄ±È½Ï´ÎÊý£¨log2n£© D)¶Ô³¤¶ÈΪnµÄÓÐÐòÁ´±í½øÐжԷֲéÕÒ£¬×Çé¿öÏÂÐèÒªµÄ±È½Ï´ÎÊý£¨nlog2n£© £¨2£©Ëã·¨µÄʱ¼ä¸´ÔÓÊÇÖ¸( )
A)Ëã·¨µÄÖ´ÐÐʱ¼ä B)Ëã·¨Ëù´¦ÀíµÄÊý¾ÝÁ¿
C)Ëã·¨³ÌÐòÖеÄÓï¾ä»òÖ¸ÁîÌõÊý D)Ëã·¨ÔÚÖ´Ðйý³ÌÖÐËùÐèÒªµÄ»ù±¾ÔËËã´ÎÊý
£¨3£©Èí¼þ°´¹¦ÄÜ¿ÉÒÔ·ÖΪ£ºÓ¦ÓÃÈí¼þ¡¢ÏµÍ³Èí¼þºÍÖ§³ÖÈí¼þ£¨»ò¹¤¾ßÈí¼þ£©£¬ÏÂÃæÊôÓÚϵͳÈí¼þµÄÊÇ( )
A)±à¼Èí¼þ B)²Ù×÷ϵͳ C)½ÌÎñ¹ÜÀíϵͳ D£©ä¯ÀÀÆ÷ £¨4£©Èí¼þ£¨³ÌÐò£©µ÷ÊÔµÄÈÎÎñÊÇ( )
A)Õï¶ÏºÍ¸ÄÕý³ÌÐòÖеĴíÎó B)½ø¿ÏÄܶàµÄ·¢ÏÖ³ÌÐòÖеĴíÎó C)·¢ÏÖ²¢¸ÄÕý³ÌÐòÖеÄËùÓдíÎó D)È·¶¨³ÌÐòÖдíÎóµÄÐÔÖÊ £¨5£©Êý¾ÝÁ÷³Ìͼ£¨DFDͼ£©ÊÇ( )
A)Èí¼þ¸ÅÒªÉè¼ÆµÄ¹¤¾ß B)Èí¼þÏêϸÉè¼ÆµÄ¹¤¾ß
C)»ú¹¹»¯·½·¨µÄÐèÇó·ÖÎö¹¤¾ß D)ÃæÏò¶ÔÏó·½·¨µÄÐèÇó·ÖÎö¹¤¾ß
£¨6£©Èí¼þÉúÃüÖÜÆÚ¿ÉÒÔ·ÖΪ¶¨Òå½×¶Î£¬¿ª·¢½×¶ÎºÍά»¤½×¶Î¡£ÏêϸÉè¼ÆÊôÓÚ( ) A)¶¨Òå½×¶Î B)¿ª·¢½×¶Î C)ά»¤½×¶Î D)ÉÏÊöÈý¸ö½×¶Î £¨7£©Êý¾Ý¿â¹ÜÀíϵͳÖиºÔðÊý¾Ýģʽ¶¨ÒåµÄÓïÑÔÊÇ A£©Êý¾Ý¶¨ÒåÓïÑÔ B£©Êý¾Ý¹ÜÀíÓïÑÔ C£©Êý¾Ý²Ù×ÝÓïÑÔ
D£©Êý¾Ý¿ØÖÆÓïÑÔ
£¨8£©ÔÚѧÉú¹ÜÀíµÄ¹ØÏµÊý¾Ý¿âÖУ¬´æÈ¡Ò»¸öѧÉúÐÅÏ¢µÄÊý¾Ýµ¥Î»ÊÇ A£©Îļþ B£©Êý¾Ý¿â C£©×Ö¶Î
D£©¼Ç¼
£¨9£©Êý¾Ý¿âÉè¼ÆÖУ¬ÓÃE-RͼÀ´ÃèÊöÐÅÏ¢½á¹¹µ«²»Éæ¼°ÐÅÏ¢ÔÚ¼ÆËã»úÖеıíʾ£¬ËüÊôÓÚÊý¾Ý¿âÉè¼ÆµÄ
A£©ÐèÇó·ÖÎö½×¶Î B£©Âß¼Éè¼Æ½×¶Î C£©¸ÅÄîÉè¼Æ½×¶Î D£©ÎïÀíÉè¼Æ½×¶Î
£¨10£©ÓÐÁ½¸ö¹ØÏµRºÍTÈçÏ£º
ÔòÓɹØÏµRµÃµ½¹ØÏµTµÄ²Ù×÷ÊÇ A£©Ñ¡Ôñ B£©Í¶Ó° C£©½»
D£©²¢
£¨11£©ÔÚVB¼¯³É»·¾³ÖÐÒª½áÊøÒ»¸öÕýÔÚÔËÐеŤ³Ì£¬¿Éµ¥»÷¹¤¾ßÀ¸ÉϵÄÒ»¸ö°´Å¥£¬Õâ¸ö°´Å¥ÊÇ
£¨12£©ÉèxÊÇÕûÐͱäÁ¿£¬Ó뺯Êý¢òf(x>0,-x,x)ÓÐÏàͬ½á¹ûµÄ´úÊýʽÊÇ A£©|x| B£©-|x| C£©x D£©-x
£¨13£©Éè´°ÌåÎļþÖÐÓÐÏÂÃæµÄʼþ¹ý³Ì£º Private Sub Command1_Click£¨£© Dim s a%=100
Print a End Sub
ÆäÖбäÁ¿aºÍsµÄÊý¾ÝÀàÐÍ·Ö±ðÊÇ A£©ÕûÐÍ£¬ÕûÐÍ B£©±äÌåÐÍ£¬±äÌåÐÍ C£©ÕûÐÍ£¬±äÌåÐÍ D£©±äÌåÐÍ£¬ÕûÐÍ
£¨14£©ÏÂÃæÄĸöÊôÐԿ϶¨²»ÊÇ¿ò¼Ü¿Ø¼þµÄÊôÐÔ A£©Text B£©Caption
C£©Left
D£©Enabled
£¨15£©ÏÂÃæ²»ÄÜÔÚÐÅÏ¢¿òÖÐÊä³ö¡°VB¡±µÄÊÇ A£©MsgBox \VB\
B£©x=MsgBox£¨\VB\£©
C£©MsgBox£¨\VB\£© D£©Call MsgBox \VB\
£¨16£©´°ÌåÉÏÓÐÒ»¸öÃû³ÆÎªOption1µÄµ¥Ñ¡°´Å¥Êý×飬³ÌÐòÔËÐÐʱ£¬µ±µ¥»÷ij¸öµ¥Ñ¡°´Å¥Ê±£¬»áµ÷ÓÃÏÂÃæµÄʼþ¹ý³Ì
Private Sub Option1_C1ick£¨Index As Integer£© ?
End Sub
ÏÂÃæ¹ØÓڴ˹ý³ÌµÄ²ÎÊýIndexµÄÐðÊöÖÐÕýÈ·µÄÊÇ
A£©IndexΪ1±íʾµ¥Ñ¡°´Å¥±»Ñ¡ÖУ¬ÎªO±íʾδѡÖÐ B£©IndexµÄÖµ¿ÉÕý¿É¸º
C£©IndexµÄÖµÓÃÀ´Çø·ÖÄĸöµ¥Ñ¡°´Å¥±»Ñ¡ÖÐ
D£©Index±íʾÊý×éÖе¥Ñ¡°´Å¥µÄÊýÁ¿
£¨17£©Éè´°ÌåÖÐÓÐÒ»¸öÎı¾¿òText1£¬ÈôÔÚ³ÌÐòÖÐÖ´ÐÐÁËText1.SetFocus£¬Ôò´¥·¢ A£©Text1µÄSetFocusʼþ B£©Text1µÄGotFocusʼþ C£©Text1µÄLostFocusʼþ
D£©´°ÌåµÄGotFocusʼþ
£¨18£©VBÖÐÓÐ3¸ö¼üÅÌʼþ£ºKeyPress¡¢KeyDown¡¢KeyUp£¬Èô¹â±êÔÚText1Îı¾¿òÖУ¬ÔòÿÊäÈëÒ»¸ö×Öĸ
A£©Õâ3¸öʼþ¶¼»á´¥·¢
B£©Ö»´¥·¢KeyPressʼþ
C£©Ö»´¥·¢KeyDown¡¢KeyUpʼþ D£©²»´¥·¢ÆäÖÐÈκÎÒ»¸öʼþ
£¨19£©ÏÂÃæ¹ØÓÚ±ê׼ģ¿éµÄÐðÊöÖдíÎóµÄÊÇ A£©±ê׼ģ¿éÖпÉÒÔÉùÃ÷È«¾Ö±äÁ¿
B£©±ê׼ģ¿éÖпÉÒÔ°üº¬Ò»¸öSub Main¹ý³Ì£¬µ«´Ë¹ý³Ì²»Äܱ»ÉèÖÃΪÆô¶¯¹ý³Ì C£©±ê׼ģ¿éÖпÉÒÔ°üº¬Ò»Ð©Public¹ý³Ì
D£©Ò»¸ö¹¤³ÌÖпÉÒÔº¬Óжà¸ö±ê׼ģ¿é
£¨20£©Éè´°ÌåµÄÃû³ÆÎªForm1£¬±êÌâΪWin£¬Ôò´°ÌåµÄMouseDownʼþ¹ý³ÌµÄ¹ý³ÌÃûÊÇ
A£©Form1_MouseDown B£©Win_MouseDown C£©Form_MouseDown D£©MouseDown_Form1
£¨21£©ÏÂÃæÕýȷʹÓö¯Ì¬Êý×éµÄÊÇ A£©Dim arr() As Integer ?
ReDim arr(3,5)
B£©Dim arr() As Integer
?
ReDim arr(50)As String C£©Dim arr() ?
ReDim arr(50) As Integer D£©Dim arr(50) As Integer ?
ReDim arr(20)
£¨22£©ÏÂÃæÊÇÇó×î´ó¹«Ô¼ÊýµÄº¯ÊýµÄÊײ¿
Function gcd(ByVal x As Integer, ByVal y As Integer) As Integer ÈôÒªÊä³ö8¡¢12¡¢16Õâ3¸öÊýµÄ×î´ó¹«Ô¼Êý£¬ÏÂÃæÕýÈ·µÄÓï¾äÊÇ A£©Print gcd(8,12)£¬gcd(12,16)£¬gcd(16,8) B£©Print gcd(8,12,16)
C£©Print gcd(8)£¬gcd(12)£¬gcd(16)
D£©Print gcd(8,gcd(12,16))
£¨23£©ÓÐÏÂÃæµÄ³ÌÐò¶Î£¬Æä¹¦ÄÜÊǰ´Í¼1ËùʾµÄ¹æÂÉÊä³öÊý¾Ý Dim a(3,5) As Integer For i=1 To 3 For j=1 To 5 A(i,j)=i+j Print a(i,j);
Next Print Next
ÈôÒª°´Í¼2ËùʾµÄ¹æÂɼÌÐøÊä³öÊý¾Ý£¬Ôò½ÓÔÚÉÏÊö³ÌÐò¶ÎºóÃæµÄ³ÌÐò¶ÎÓ¦¸ÃÊÇ
A£©For i=1 To 5 For j=1 To 3 Print a£¨j,i£©; Next Print Next
B£©For i=1 To 3 For j=1 To 5 Print a£¨j,i£©; Next Print
Next
C£©For j=1 To 5 For i=1 To 3 Print a£¨j,i£©;
Next Print Next
D£©For i=1 To 5
For j=1 To 3 Print a£¨i,j£©;
Next Print Next
£¨24£©´°ÌåÉÏÓÐÒ»¸öText1Îı¾¿ò£¬Ò»¸öCommand1ÃüÁî°´Å¥£¬²¢ÓÐÒÔϳÌÐò Private Sub Commandl_Click£¨£© Dim n
If Text1.Text<>\23456\ Then n=n£«1
Print \¿ÚÁîÊäÈë´íÎó\ & n & \´Î\ End If
End Sub
Ï£Íû³ÌÐòÔËÐÐʱµÃµ½×óͼËùʾµÄЧ¹û£¬¼´£ºÊäÈë¿ÚÁµ¥»÷¡°È·ÈÏ¿ÚÁÃüÁî°´Å¥£¬ÈôÊäÈëµÄ¿ÚÁî²»ÊÇ¡°123456¡±£¬ÔòÔÚ´°ÌåÉÏÏÔʾÊäÈë´íÎó¿ÚÁîµÄ´ÎÊý¡£µ«ÉÏÃæµÄ³ÌÐòʵ¼ÊÏÔʾµÄÊÇÓÒͼËùʾµÄЧ¹û£¬³ÌÐòÐèÒªÐ޸ġ£ÏÂÃæÐ޸ķ½°¸ÖÐÕýÈ·µÄÊÇ
A£©ÔÚDim nÓï¾äµÄÏÂÃæÌí¼ÓÒ»¾ä£ºn=O
B£©°ÑPrint \¿ÚÁîÊäÈë´íÎó\ & n & \´Î\¸ÄΪPrint \¿ÚÁîÊäÈë´íÎó\ +n+\´Î\
C£©°ÑPrint \¿ÚÁîÊäÈë´íÎó\ & n & \´Î\¸ÄΪPrint \¿ÚÁîÊäÈë´íÎó\&Str(n)&\´Î\ D£©°ÑDim n¸ÄΪStatic n
£¨25£©ÒªÇóµ±Êó±êÔÚͼƬ¿òP1ÖÐÒÆ¶¯Ê±£¬Á¢¼´ÔÚͼƬ¿òÖÐÏÔʾÊó±êµÄλÖÃ×ø±ê¡£ÏÂÃæÄÜÕýȷʵÏÖÉÏÊö¹¦ÄܵÄʼþ¹ý³ÌÊÇ A£©
£¨Button AS Integer,Shift As Integer,X As Single, Y As Single£© Print X,Y End Sub
B
£©
Private Sub P1_MouseDownPrivate Sub P1_MouseMove
£¨Button AS Integer,Shift As Integer,X As Single, Y As Single£© Picture.Print X,Y End Sub C£©
£¨Button AS Integer,Shift As Integer,X As Single, Y As Single£©
Private Sub P1_MouseMove
P1.Print X,Y End Sub D£©Private Sub Form_MouseMove£¨Button AS Integer,Shift As Integer,X As Single, Y As Single£© P1.Print X,Y
End Sub
£¨26£©¼ÆËã¶þµÄ½üËÆÖµµÄÒ»¸ö¹«Ê½ÊÇ¡£
ijÈ˱àдÏÂÃæµÄ³ÌÐòÓô˹«Ê½¼ÆËã²¢Êä³ö¦ÐµÄ½üËÆÖµ£º Private Sub Comand1_Click£¨£© PI£½1 Sign£½1 n=20000
Ïà¹ØÍÆ¼ö£º