µÚÒ»·¶ÎÄÍø - רҵÎÄÕ·¶ÀýÎĵµ×ÊÁÏ·ÖÏíÆ½Ì¨

vbÆÚÄ©¿¼ÊÔ¸´Ï°×ÊÁÏ£¨¾­µä×Ü½á°æ£©

À´Ô´£ºÓû§·ÖÏí ʱ¼ä£º2026/1/16 0:04:30 ±¾ÎÄÓÉloading ·ÖÏí ÏÂÔØÕâÆªÎĵµÊÖ»ú°æ
˵Ã÷£ºÎÄÕÂÄÚÈݽö¹©Ô¤ÀÀ£¬²¿·ÖÄÚÈÝ¿ÉÄܲ»È«£¬ÐèÒªÍêÕûÎĵµ»òÕßÐèÒª¸´ÖÆÄÚÈÝ£¬ÇëÏÂÔØwordºóʹÓá£ÏÂÔØwordÓÐÎÊÌâÇëÌí¼Ó΢ÐźÅ:xxxxxxx»òQQ£ºxxxxxx ´¦Àí£¨¾¡¿ÉÄܸøÄúÌṩÍêÕûÎĵµ£©£¬¸ÐлÄúµÄÖ§³ÖÓëÁ½⡣

(A)Print a=3+5 (B)Print \(C)Print \ (D)Print a=;3+5

5ÉèÓи³ÖµÓï¾äStt1=\ºÍStr2=\ÔòÓï¾äPrint Str1;Str2µÄÊä³ö½á¹ûΪ (A)abede©¸©¼xyz (B)abedexyz

(C) ©¸©¼abede©¸©¼xyz (D) ©¸©¼abede©¸©¼©¸©¼xyz©¸©¼ 6Print sgn(-6^2)+abs(int(-234.12))µÄÊä³ö½á¹ûΪ:

(A))-300 (B)300 (C)236 (D)234 7Print sgn(Ò»20)*sqr(3)

(A)l (B)False (C)True (D)0 8Print Format(abs(-3^2)+32.5,\µÄÊä³ö½á¹ûΪ: (A)$$41.5000 (B)$$41.5 (C)$000041.5000 (D)$$000041.5000 9InputBoxº¯ÊýµÄ·µ»ØÖµµÄÀàÐÍÊÇ:

(A)ÊýÖµ (B)×Ö·ûÀàÐÍ

(C)±äÌå (D)ÊýÖµ»ò×Ö·û´®(ÊÓÊäÈëµÄÊý¾Ý¶ø¶¨) 10Éè¼ÆÒ»¸ö³ÌÐò,ÔÚ³ÌÐòÖÐÌí¼ÓÒ»¸öÃû³ÆÎªForm1µÄ´°Ìå,Ìí¼Ó´°ÌåµÄClickʼþ¹ý³Ì´úÂë,

Private sub Form-Click() Dim x As Single,y As Single

xzInputBox(\ÊäÈ˵ÚÒ»¸öÊý¾Ý\ÊäÈËÊý¾Ý\y=InputBox(\ÊäÈ˵ڶþ¸öÊý¾Ý\ÊäÈëÊý¾Ý\Print x+y End Sub

³ÌÐòÔËÐÐʱ,µ¥»÷´°Ìå,ÏȺóÔÚÁ½¸öÊäÈë¶Ô»°¿òÖÐÊäÈë123ºÍ456,Ôò³ÌÐòµÄÊä ³ö½á¹ûΪ:

(A)123456 (B)123 (C)579 (D)456

11·Ö±ðÖ´ÐÐÒÔÏÂÓï¾äx=InputBox(\ºÍy=MsgBox(\ʱ µÄÊäÈë¶Ô»°¿ò´°¿ÚºÍÏûÏ¢¶Ô»°¿òµÄ±êÌâÐÅÏ¢·Ö±ðΪ:

(A)aaaºÍccc (B) aaaºÍddd (C) bbbºÍccc (D) bbbºÍddd ¶þ¡¢±à³ÌÌâ

33

12±àд¶þ¸ö½«ÉãÊÏζÈת»»³É»ªÊÏζȵijÌÐò,ÒªÇó:ÉãÊÏζÈͨ¹ýÊäÈë¶Ô»°¿òÀ´ÊäÈë,½á¹ûÔÚ´°ÌåÉÏ

ÏÔʾ¡£ÒÑÖª:ÓÉÉãÊÏζÈÇó»ªÊÏζȵļÆË㹫ʽΪ:F=9/5¨wC+32,ÆäÖÐ:CΪÉãÊÏζÈ,FΪ»ªÊÏζȡ£

13´Ó¼üÅÌÉÏÊäÈëÁ½¸öÊý,±àдһ³ÌÐò,¼ÆËã²¢Êä³ö2¸öÊýµÄºÍ¼°Æ½¾ùÖµ¡£Í¨¹ýInputBoxº¯ÊýÊäÈëÊý¾Ý,

ÔÚ´°ÌåÏÔʾºÍ¼°Æ½¾ùÖµ¡£

14±àдһ¸ö³ÌÐò,¼ÆËã°ë¾¶Îª15cm¡¢¸ßΪ30cmµÄÔ²ÖùÌåµÄÌå»ý,°ë¾¶ºÍ¸ßͨ¹ý

InputBoxº¯ÊýÊäÈë,¼ÆËã½á¹û²¢½«Æä´òÓ¡µ½´°ÌåÖС£²Î¿¼´ð°¸£º £¨Ò»£©¡¢Ñ¡ÔñÌâ

1 D 2 A 3 B 4 D 5 B 8 A 9 B 10 C 11 D £¨¶þ£©¡¢±à³ÌÌâ 12³ÌÐò´úÂëÈçÏ£º Private Sub Form-Click() Dim c As Single,f As Single

C =Val(InputBox(¡°ÊäÈëÉãÊÏζȡ±,¡°ÊäÈ롱)) f=9*C /5Ê®32

Print ¡°»ªÊÏζÈΪ£º¡±£»Format(f,¡°.00¡±) End Sub

13³ÌÐò´úÂëÈçÏ£º Private Sub Form_Click()

Dim x As Single,y As Single,s As Single,av As Single x=Val(InputBox(\ÊäÈëµÚÒ»¸öÊý\ÊäÈë\ y=Val(InputBox(\ÊäÈëµÚÒ»¸öÊý\ÊäÈë\s =x +y av=s/2

Print ¡°Á½ÊýÖ®ºÍΪ:¡±;s Print ¡°Á½Êýƽ¾ùÊýΪ:¡±;av End Sub

14³ÌÐò´úÂëÈçÏ£º

6 D 7 C 34

Private Sub Form-Click()

Dim r As Single,h As Single,v As Single

r=Val(InputBox(\ÊäÈëÔ²ÖùÌåµ×Ãæ°ë¾¶\ÊäÈë\h=Val(InputBox(\ÊäÈëÔ²ÖùÌå¸ß\ÊäÈë\v=3.14*r*r*h

Print \Ô²ÖùÌåÌå»ýΪ:\) End Sub

ËÄ¡¢Visual BasicµÄ³£Óñê×¼¿Ø¼þ

1ÉèÖø´Ñ¡¿ò»òµ¥Ñ¡°´Å¥µÄ±êÌâ¶ÔÆë·½Ê½µÄÊôÐÔÊÇ:

(A)Align (B)Style (C)Sorted (D)Alignment 2ÔÚ³ÌÐò´úÂëÖн«Í¼Æ¬Îļþmypic.jpg×°ÈëͼƬ¿òPicturelµÄÓï¾äÊÇ: (A)Picture1.picture=\(B)Picture1.image=\

(C)Picture1.picture=LoadPicture(\(D)LoadPicture(\

3ÔÚ³ÌÐò´úÂëÖÐÇå³ýͼƬ¿òPicture1ÖеÄͼÐεÄÕýÈ·Óï¾äÊÇ:

(A)Picture1.picture=\ (B)Picture1.Picture=Loadpicture(\(C)Picture1.image=\ (D)Picture1.picture=Null

4ΪÁËÄÜÔÚÁбí¿òÖÐÀûÓÃCtrlºÍShift¼ü½øÐжà¸öÁбíÏîµÄÑ¡Ôñ,ÔòÓ¦½«Áбí¿òµÄMultiselectÊôÐÔÉèÖÃΪ:

(A)0 (B)1 (C)2 (D)3

5Èç¹ûÖ»ÔÊÐíÔÚÁбí¿òÖÐÿ´ÎÖ»ÄÜÑ¡ÔñÒ»¸öÁбíÏîʱ,ÔòÓ¦½«ÆäMultiselectÊôÐÔÉèÖÃΪ: (A)0 (B)1 (C)2 (D)3

6ҪʹÁбí¿òÖеÄÁбíÏîÏÔʾ³É¸´Ñ¡¿òÐÎʽ,ÔòÓ¦½«ÆäStyleÊôÐÔÉèÖÃΪ: (A)0 (B)1 (C)True (D)False 7ÔÚÁбí¿òÖе±Ç°±»Ñ¡ÖеÄÁбíÏîµÄÐòºÅÊÇÓÉÏÂÁÐÄĸöÊôÐÔ±íʾ: (A)list (B)Index (C)Listindex (D)Tabindex 8ÒªÇå³ýÁбí¿òÖÐËùÓеÄÁбíÏîʱ,ӦʹÓÃÒÔÏÂÄÄÖÖ·½·¨: (A)Remove (B)Clear (C)Removeitem (D)Move

35

9Áбí¿òÖеÄÁбíÏîµÄÊýÄ¿¿Éͨ¹ýÒÔÏÂÄĸöÊôÐÔµÄÖµ»ñµÃ: (A)Count (B)Listcount (C)ListIndex (D)Index 10µ¥»÷¹ö¶¯ÌõµÄ¹ö¶¯¼ýͷʱ,²úÉúµÄʼþÊÇ:

(A)Click (B)Scroll (C)Change (D)Move

11Òª½«Ò»¸ö×éºÏ¿òÉèÖÃΪ¼òµ¥×éºÏ¿ò(Simple Combo),ÔòÓ¦½«ÆäStyleÊôÐÔÉèÖÃΪ: (A)0 (B)1 (C)2 (D)3 12Ҫʹһ¸öÎı¾¿ò¾ßÓд¹Ö±¹ö¶¯Ìõ,ÔòÓ¦:

(A)½«ÆäMultilineÉèÖÃΪTrue,ͬʱ½«ScrollbarsÊôÐÔÉèÖÃΪ0 (B)½«ÆäMultilineÉèÖÃΪTrue,ͬʱ½«ScrollbarsÊôÐÔÉèÖÃΪ1 (C)½«ÆäMultilineÉèÖÃΪTrue,ͬʱ½«ScrollbarsÊôÐÔÉèÖÃΪ2 (D)½«ÆäMultilineÉèÖÃΪTrue,ͬʱ½«ScrollbarsÊôÐÔÉèÖÃΪ3 13Ҫʹһ¸ö±êǩ͸Ã÷ÇÒ²»¾ßÓб߿ò,ÔòÓ¦:

(A)½«ÆäBackstyleÊôÐÔÉèÖÃΪ0 ,Border-StyleÊôÐÔÉèÖÃΪ0 (B) ½«ÆäBackstyleÊôÐÔÉèÖÃΪ0 ,Border-StyleÊôÐÔÉèÖÃΪ1 (C) ½«ÆäBackstyleÊôÐÔÉèÖÃΪ1 ,Border-StyleÊôÐÔÉèÖÃΪ0 (D) ½«ÆäBackstyleÊôÐÔÉèÖÃΪ1 ,Border-StyleÊôÐÔÉèÖÃΪ1

14Ҫʹ×éºÏ¿òÉèÖóÉÖ»ÄÜ´ÓÖÐÑ¡Ôñ¶ø²»ÄÜÊäÈËÊý¾ÝµÄ×éºÏ¿ò(ÏÂÀ­Ê½Áбí¿ò),ÔòÓ¦½«ÆäStyleÊôÐÔÉèÖÃΪ:

(A)0 (B)1 (C)2 (D)3 15ÒÔϲ»¾ßÓÐPictureÊôÐԵĶÔÏóÊÇ:

(A)´°Ìå (B)ͼƬ¿ò (C)ͼÏñ¿ò (D)Îı¾¿ò

16Ϊʹ¼ÆÊ±Æ÷¿Ø¼þÿ¸ô5ÃëÖÓ²úÉúÒ»¸ö¼ÆÊ±Æ÷ʼþ(Timerʼþ),ÔòÓ¦½«ÆäIntervalÊôÐÔÖµÉèÖÃΪ:

(A)5 (B)500 (C)300 (D)5000 17ΪʹͼÏñ¿òµÄ´óС×Ô¶¯ÊÊӦͼÏñµÄ´óС,ÔòÓ¦:

(A)½«ÆäAutosizeÊôÐÔÖµÉèÖÃΪTrue (B)½«ÆäAutosizeÊôÐÔÖµÉèÖÃΪFalse (C)½«ÆäStretchÊôÐÔÖµÉèÖÃΪTrue (D)½«ÆäStretchÊôÐÔÖµÉèÖÃΪFalse

18ÈôÔÚShape¿Ø¼þÄÚÒÔFillstyleÊôÐÔËùÖ¸¶¨µÄͼ°¸Ìî³äÇøÓò,¶øÌî³äͼ°¸µÄÏßÌõµÄÑÕÉ«ÓÉFillcolor

ÊôÐÔÖ¸¶¨,·ÇÏßÌõµÄÇøÓòÓÉBackcolorÊôÐÔÌî³ä,ÔòÓ¦:

(A)½«Shape¿Ø¼þµÄFillstyleÊôÐÔÉèÖÃΪ2ÖÁ7¼äµÄij¸öÖµ, BackStyleÊôÐÔÉèÖÃΪ1 (B)½«Shape¿Ø¼þµÄFillstyleÊôÐÔÉèÖÃΪ0»ò1, BackStyleÊôÐÔÉèÖÃΪ1

36

ËÑË÷¸ü¶à¹ØÓÚ£º vbÆÚÄ©¿¼ÊÔ¸´Ï°×ÊÁÏ£¨¾­µä×Ü½á°æ£© µÄÎĵµ
vbÆÚÄ©¿¼ÊÔ¸´Ï°×ÊÁÏ£¨¾­µä×Ü½á°æ£©.doc ½«±¾ÎĵÄWordÎĵµÏÂÔØµ½µçÄÔ£¬·½±ã¸´ÖÆ¡¢±à¼­¡¢ÊղغʹòÓ¡
±¾ÎÄÁ´½Ó£ºhttps://www.diyifanwen.net/c6opoj545da2p7v540mce_9.html£¨×ªÔØÇë×¢Ã÷ÎÄÕÂÀ´Ô´£©
ÈÈÃÅÍÆ¼ö
Copyright © 2012-2023 µÚÒ»·¶ÎÄÍø °æÈ¨ËùÓÐ ÃâÔðÉùÃ÷ | ÁªÏµÎÒÃÇ
ÉùÃ÷ :±¾ÍøÕ¾×ðÖØ²¢±£»¤ÖªÊ¶²úȨ£¬¸ù¾Ý¡¶ÐÅÏ¢ÍøÂç´«²¥È¨±£»¤ÌõÀý¡·£¬Èç¹ûÎÒÃÇ×ªÔØµÄ×÷Æ·ÇÖ·¸ÁËÄúµÄȨÀû,ÇëÔÚÒ»¸öÔÂÄÚ֪ͨÎÒÃÇ£¬ÎÒÃǻἰʱɾ³ý¡£
¿Í·þQQ£ºxxxxxx ÓÊÏ䣺xxxxxx@qq.com
ÓåICP±¸2023013149ºÅ
Top