×îÐÂvb³ÌÐòÉè¼ÆÊÔÌâ(º¬´ð°¸)×ÊÁÏ ÏÂÔØ±¾ÎÄ

ÄÚÈÝ·¢²¼¸üÐÂʱ¼ä : 2025/9/16 7:56:12ÐÇÆÚÒ» ÏÂÃæÊÇÎÄÕµÄÈ«²¿ÄÚÈÝÇëÈÏÕæÔĶÁ¡£

¾«Æ·Îĵµ

£¨A£©°´Ï¼üÅÌÉϵÄÈÎÒâÒ»¸ö¼ü¶¼»áÒý·¢KeyPressʼþ

£¨B£©´ó¼üÅÌÉϵġ°1¡±¼üºÍÊý×Ö¼üÅ̵ġ°1¡±¼üµÄKeyCodeÂëÏàͬ £¨C£©KeyDownºÍKeyUpµÄʼþ¹ý³ÌÖÐÓÐKeyAscii²ÎÊý

£¨D£©´ó¼üÅÌÉϵġ°4¡±¼üµÄÉϵµ×Ö·ûÊÇ¡°$¡±£¬µ±Í¬Ê±°´ÏÂShiftºÍ´ó¼üÅÌÉϵġ°4¡±¼üʱ

14.Èç¹ûÁбí¿ò(List1)ÖÐûÓб»Ñ¡¶¨µÄÏîÄ¿£¬ÔòÖ´ÐÐList1.RemoveItem List1.ListIndex Óï¾äµÄ½á¹ûÊÇ ( A )

(A)ÒÆÈ¥µÚÒ»Ïî (B)ÒÆÈ¥×îºóÒ»Ïî (C) ÒÆÈ¥×îºó¼ÓÈëÁбíµÄÒ»Ïî (D)ÒÔÉ϶¼²»¶Ô 15.ÉèÓÐÈçÏÂÓï¾ä£º Dim a£¬b As Integer c=\d=#7£¯20£¯2005#

ÒÔϹØÓÚÕâ¶Î´úÂëµÄÐðÊöÖУ¬´íÎóµÄÊÇ ( A )

£¨A£© a±»¶¨ÒåΪIntegerÀàÐͱäÁ¿ £¨B£© b±»¶¨ÒåΪIntegerÀàÐͱäÁ¿ £¨C£©cÖеÄÊý¾ÝÊÇ×Ö·û´® £¨D£©dÖеÄÊý¾ÝÊÇÈÕÆÚÀàÐÍ

¶þ¡¢Ìî¿ÕÌ⣨ÿÌâ2·Ö£¬¹²20·Ö£©

1£® ÔÚVBÖУ¬ÒªÏÔʾ³ÌÐò´úÂ룬±ØÐëÔÚ ´úÂë ´°¿Ú£»ÒªÉè¼Æ³ÌÐòµÄÔËÐнçÃæ£¬±ØÐëÔÚ ´°Ìå ´°¿Ú¡£

2£®ÕûÐͱäÁ¿xÖдæ·ÅÁËÒ»¸ö¶þλÊý£¬Òª½«¶þλÊý½»»»Î»Öã¬ÀýÈ磬13±ä³É31£¬ÊµÏֵıí´ïʽÊÇ x\\10+(x mod 10)*10 3£®Êýѧ±í´ïʽsin15¡ã+ -ln(3x)µÄVBËãÊõ±í´ïʽΪsin(15/180*¡Ç)+-exp(3*x) ¡£

4£®±íʾxÊÇ5µÄ±¶Êý»òÊÇ9µÄ±¶ÊýµÄÂß¼­±í´ïʽΪ x mod 5=0or x mod 9=0 ¡£

5£®ÔÚVBÖУ¬123456&¡¢1.2346D+5Õâ2¸ö³£Êý·Ö±ð±íʾ long ¡¢ double ÀàÐÍ¡£

6.ÈôÒѽ¨Á¢ÁËForm1ºÍForm2Á½¸ö´°Ì壬ĬÈÏÆô¶¯´°ÌåΪForm1¡£Í¨¹ý ¹¤³ÌÊôÐÔ ²Ëµ¥µÄ Æô¶¯¶ÔÏó ÃüÁîµÄͨÓÃÑ¡Ï£¬¿É½«Æô¶¯´°ÌåÉèÖÃΪForm2¡£ÔÚ³ÌÐòÖÐÈôÒªÏÔʾForm1´°Ì壬ÔòÖ´ÐÐ show Óï¾ä¡£

7.Îı¾¿ò(Text1)ÖÐÓÐÑ¡¶¨µÄÎı¾£¬Ö´ÐÐText1.SelText=¨”Hello¨•µÄ½á¹ûÊÇ hellotext1

8.ÔÚ³ÌÐòÔËÐÐʱ£¬Èç¹û½«¿ò¼ÜµÄ enable ÊôÐÔÉèΪFalse£¬Ôò¿ò¼ÜµÄ±êÌâ³Ê»ÒÉ«£¬±íʾ¿ò¼ÜÄÚµÄËùÓжÔÏó¾ù±»ÆÁ±Î£¬²»ÔÊÐíÓû§¶ÔÆä½øÐвÙ×÷¡£

¾«Æ·Îĵµ

¾«Æ·Îĵµ

9¡¢ÉùÃ÷ÈçÏÂÊý×飺Dim a(3,-2 To 2,5)£¬ÔòÊý×éa°üº¬µÄÔªËØµÄ¸öÊýΪ 120

10.¸³ÖµÓï¾ä£ºa=123&MID(¡°123456¡±,3,2)Ö´Ðкó£¬a±äÁ¿ÖеÄÖµÊÇ ¡° 12334¡±

Èý¡¢ÇëÍê³ÉÏÂÁеijÌÐò£¨¹²15·Ö£©

1¡¢´°ÌåÉÏÓÐÃû³Æ·Ö±ðΪText1¡¢Text2µÄ2¸öÎı¾¿ò£¬ÒªÇóÎı¾¿òText1ÖÐÊäÈëµÄÊý¾ÝСÓÚ500£¬Îı¾¿òText2ÖÐÊäÈëµÄÊý¾ÝСÓÚ1000£¬·ñÔòÖØÐÂÊäÈ롣ΪÁËʵÏÖÉÏÊö¹¦ÄÜ£¬ÇëΪÏÂÁгÌÐò±àдÏàÓ¦µÄ×Ó¹ý³Ì¡£ Private Sub Text1_LostFocus()

Call CheckInput(Text1£¬500) End Sub

Private Sub Text2_LostFocus()

Call CheckInput(Text2£¬1000) End Sub

Sub CheckInput(t As Control£¬ as integer ) If Then End If End Sub Next i

End Sub (5·Ö)

2¡¢×Ó¹ý³ÌMoveStr()ÊǰÑ×Ö·ûÊý×éÒÆ¶¯m¸öλÖ㬵±TagΪTrueʱ×óÒÆ£¬½«Ç°m¸ö×Ö·ûÒÆµ½×Ö·ûÊý×é⣬ÀýÈ磬¡°abcdefghij¡±×óÒÆ3¸öλÖú󣬽á¹ûΪ¡°defghijabc¡±;µ±TagΪFalseʱÓÒÒÆ£¬½«ºóm¸ö×Ö·ûÒÆµ½×Ö·ûÊý×éǰ£¬Èç¡°abcdefghij¡±ÓÒÒÆ3¸öλÖú󣬽á¹ûΪ¡°hijabcdefg¡±¡£ ×Ó¹ý³ÌÈçÏ£º

Public Sub MoveStr(a$(),m%,Tag As Boolean) Dim I%,j%,t$ If Tag then For I=1 To m

t=a(0) For j=0 To ubound(a)-1 A(j)=a(j+1) Next j

¾«Æ·Îĵµ

¾«Æ·Îĵµ

A(ubound(a))=t Next I Else

For I=1 To m

t=a(ubound(a))

For j=Ubound(A) to 1 step -1 A(j)=a(j-1) Next j a(0)=c Next I End If End Sub

ÇëÔÚ³ÌÐòÖÐÏ»®Ïß´¦ÌîÈëÏàÓ¦µÄÄÚÈÝ¡£

ËÄ¡¢²Ù×÷Ìâ(µÚÒ»Ìâ15·Ö£¬µÚ¶þСÌâ20·Ö£¬¹²¼Æ35·Ö)

Ìáʾ£ºÇëͬѧÃÇÔÚEÅÌÏÂÃæ½¨Á¢Ò»¸öÒÔ×Ô¼ºµÄÃû×ÖºÍѧºÅÃüÃûµÄÎļþ¼Ð£¬È»ºó½«×Ô¼ºÉè¼ÆµÄ´°Ìå±£´æÔÚÕâ¸öÎļþ¼ÐÏÂÃæ¼´¿É£¬¹¤³ÌÎļþ¿ÉÒÔ²»±£´æ£¬µ«´°ÌåÒ»¶¨Òª±£´æ

1¡¢±à³ÌʵÏÖ´òÓ¡ÒÔÏÂͼ°¸£¨15·Ö£© * * * *

* * * * *

* * * *

2¡¢Í³¼ÆÑ§Éú³É¼¨

Éè¼ÆÈçͼËùʾӦÓóÌÐò£¬µ±µ¥»÷¡°ÊäÈë³É¼¨¡±°´Å¥Ê±£¬ÔÚInputBox¶Ô»°¿òÖÐÊäÈëѧÉúÈËÊý£¬È»ºóÔÚ¶Ô»°¿òÖÐÒÀ´ÎÊäÈë²»¶àÓÚÈËÊýµÄÊý¸ö³É¼¨¡£Ôٴε¥»÷¡°ÊäÈë³É¼¨¡±°´Å¥½«×·¼ÓѧÉúÈËÊýºÍ³É¼¨¡£µ¥»÷¡°ÏÔʾ³É¼¨¡±°´Å¥ÏÔʾ³É¼¨¡¢Æ½¾ù·ÖºÍδÊäÈë³É¼¨µÄÈËÊý¡££¨20·Ö£©

¾«Æ·Îĵµ

¾«Æ·Îĵµ

µÚÈýÌ×ÊÔÌâ

Ò»¡¢Ñ¡ÔñÌ⣨ÿÌâ2·Ö£¬¹²30·Ö£©

1.ÏÂÃæ¸÷Öָ߼¶ÓïÑÔÖУ¬²»ÊÇÃæÏò¶ÔÏó³ÌÐòÉè¼ÆÓïÑÔµÄÊÇ(C) £¨A£©Visual Basic £¨B£©C++ £¨C£©Pascal £¨D£©Java 2£®º¯ÊýDateAdd(¡°m¡±,1#1/30/2000#)Óï¾äµÄ½á¹ûÊÇ ( A )

£¨A£©00-2-29 £¨B£©00-2-28 £¨C£©00-2-30 £¨D£©00-1-31 3£®±í´ïʽLenB(¡°123³ÌÐòÉè¼ÆABC¡±)µÄÖµÊÇ (C)

£¨A£©10 £¨B£©14 £¨C£©20 £¨D£©17

4.µ±Îı¾¿òµÄScrollBarsÊôÐÔÉèÖÃÁË·ÇÁãÖµ£¬Ã»ÓÐЧ¹û£¬ÆäÔ­ÒòÊÇ ( B ) £¨A£©Îı¾¿òÖÐûÓÐÄÚÈÝ £¨B£©Îı¾¿òµÄMultiLineÊôÐÔΪFalse £¨C£©Îı¾¿òµÄMultiLineÊôÐÔΪTrue £¨D£©Îı¾¿òÖеÄLockedÊôÐÔΪTrue 5.ÈôÒª½ûÖ¹´°Ìå±»Óû§Òƶ¯£¬Í¨¹ýÉèÖÿɴï´ËÒªÇóµÄ´°ÌåµÄÊôÐÔÊÇ ( B) £¨A£©MaxButton £¨B£©Moveable £¨C£©Move £¨D£©ControlBox 6.ÏÂÁÐÓï¾äÖн«°´Å¥(Command1)µÄ±êÌ⸳ֵ¸øÎı¾¿ò(Text1)TextÊôÐÔµÄÊÇ ( B )

(A)Text1=Command1 (B)Text1=Command1.Caption (C)Text1.Text=Command1 (D)Text1.Text=CStr(Command1) 7.Óï¾äIf x=1 Then y=1,ÏÂÁÐ˵·¨ÕýÈ·µÄÊÇ ( C ) £¨A£©x=1ºÍy=1¾ùΪ¸³ÖµÓï¾ä £¨B£©x=1ºÍy=1¾ùΪ¹ØÏµ±í´ïʽ £¨C£©x=1Ϊ¹ØÏµ±í´ïʽ£¬y=1Ϊ¸³ÖµÓï¾ä £¨D£©x=1Ϊ¸³ÖµÓï¾ä£¬ y=1Ϊ¹ØÏµ±í´ïʽ

8.Òª»ñµÃÓû§ÔÚ×éºÏ¿òÊäÈëµÄÄÚÈÝ£¬Ó¦ÀûÓõÄ×éºÏ¿òµÄÊôÐÔÊÇ( D ) £¨A£©List £¨B£©Selected

¾«Æ·Îĵµ

¾«Æ·Îĵµ

£¨C£©ListIndex £¨D£©Text

9.½«Êý¾ÝÏî¡°China¡±Ìí¼Óµ½Áбí¿ò£¨List1£©ÖгÉΪµÚÒ»ÏîӦʹÓõÄÓï¾äÊÇ( A) (A)List1.AddItem¨•China¨•,0 £¨B£©List1.AddItem¨•China¨•,1 (C)List1.AddItem 0, ¨•China¨• £¨D£©List1.AddItem 1,¨•China¨• 10.ÔÚÏÂÁÐ˵·¨ÖУ¬ÕýÈ·µÄÊÇ (B )

(A)ͨ¹ýÊʵ±µÄÉèÖ㬿ÉÒÔÔÚ³ÌÐòÔËÐÐÆÚ¼ä£¬ÈÃʱÖӿؼþÏÔʾÔÚ´°ÌåÉÏ (B)ÔÚÁбí¿òÖв»ÄܽøÐжàÏîÑ¡Ôñ

(C)ÔÚÁбí¿òÖÐÄܹ»½«ÏîÄ¿°´×Öĸ˳Ðò´Ó´óµ½Ð¡ÅÅÁÐ (D)¿ò¼ÜÒ²ÓÐClickºÍDblClickʼþ

11.ÔÚKeyDown»òKeyUpµÄʼþ¹ý³ÌÖУ¬ÄÜÓÃÀ´¼ì²éCtrlºÍF3ÊÇ·ñͬʱ°´Ïµıí´ïʽΪ ( C )

(A)(button=vbCtrlMask) And (KeyCode=vbKeyF3) (B)KeyCode=vbKeyControl+vbKeyF3

(C)(KeyCode=vbKeyF3) And (Shift And vbCtrlMask) (D)(Shift And vbCtrlMask) And (KeyCode and vbKeyF3) 12.ÉèÓÐÃüÁî°´Å¥Command1µÄµ¥»÷ʼþ¹ý³Ì£¬´úÂëÈçÏ£º Private Sub Command1_Click() Dim a(30)As Integer For i=1 To 30 a(i)=Int(Rnd*100) Next

For Each arrItem In a

If arrItem Mod 7=0 Then Print arrItem£» If arrItem>90 Then Exit For Next End Sub

¶ÔÓÚ¸Ãʼþ¹ý³Ì£¬ÒÔÏÂÐðÊöÖдíÎóµÄÊÇ ( B) A) aÊý×éÖеÄÊý¾ÝÊÇ30¸ö100ÒÔÄÚµÄÕûÊý B) Óï¾äFor Each arrItem In aÓÐÓï·¨´íÎó

C) If arrItem Mod 7=0¡­¡­Óï¾äµÄ¹¦ÄÜÊÇÊä³öÊý×éÖÐÄܹ»±»7Õû³ýµÄÊý D) If arrItem>90¡­¡­Óï¾äµÄ×÷ÓÃÊǵ±Êý×éÔªËØµÄÖµ´óÓÚ90ʱÍ˳öForÑ­»· 13.ÒªÏë´Ó×Ó¹ý³Ìµ÷Óú󷵻ØÁ½¸ö½á¹û£¬ÏÂÃæ×Ó¹ý³ÌÓï¾ä˵Ã÷ºÏ·¨µÄÊÇ (C ) £¨A£©Sub f2(ByVal n%,ByVal m%) £¨B£© Sub f1(n%,ByVal m%) £¨C£© Sub f1(n%,m%) £¨D£© Sub f1(ByVal n%,m%) 14.ÒÔϹØÓÚMsgBoxµÄÐðÊöÖУ¬´íÎóµÄÊÇ (D ) £¨A£© MsgBoxº¯Êý·µ»ØÒ»¸öÕûÊý

¾«Æ·Îĵµ