Çë»Ø´ðÏÂÁÐÎÊÌâ:
£¨1£©ÈçͼaËùʾ£¬Èô¸ÃµêÆÌÖ»ÓÐÏúÊÛ±íÖеÄÉÌÆ·£¬ÇëÓù«Ê½Çó³ö¸ÃµêÆÌËùÓвúÆ·µÄ³É±¾·ÑÓÃ,ÒªÇó¹«Ê½Öаüº¬SUMº¯Êý£¬Æä¹«Ê½Îª______¡££¨Ìáʾ£º³É±¾=ÏúÊÛ½ð¶îºÏ¼Æ-ÏúÊÛÀûÈóºÏ¼Æ£©
£¨2£©µ±Ç°±íÖеÄÊý¾ÝÊǾ¹ý2¸ö¹Ø¼ü×ÖÅÅÐòºóµÃµ½µÄ£¬ÔòÅÅÐòµÄÖ÷Òª¹Ø¼ü×ÖΪ_________¡£ £¨3£©¸ù¾ÝͼaÖÐÊý¾ÝÖÆ×÷µÄͼ±íÈçͼbËùʾ£¬´´½¨¸Ãͼ±íµÄÊý¾ÝÇøÓòÊÇ_____¡£
£¨4£©½«ÇøÓòA2£ºG14µÄÊý¾Ý¸´ÖƵ½Ð¹¤×÷±í£¬ÔÚй¤×÷±íÖжԲúÆ·Ãû³Æ½øÐÐɸѡ²Ù×÷£¬ÈôҪɸѡ½á¹û½öÏÔʾÉÌÆ·Ãû³ÆÎª£º¡°Ô²Öé±Ê¡±¡¢¡°²ÊǦ±Ê¡±¡¢¡°Ç¦±Ê¡±ºÍ¡°°×°å±Ê¡±ÐеÄÊý¾Ý¡£ÔòÈçͼͼcËùʾ£¬¢Ù´¦Ó¦ÌîÈëµÄÌõ¼þΪ____________¡£
14.¹ÅÏ£À°ÖøÃû¿ÆÑ§¼Ò±Ï´ï¸çÀ˹°Ñ1¡¢3¡¢6¡¢10¡¢15¡¢21¡¢28¡¡³ÆÎªÈý½ÇÐÎÊý¡£ÕâЩÈý½ÇÐÎÊýÐòÁÐÓÐÒ»¶¨µÄ¹æÂÉ£¬ºóÒ»¸öÊýÓëǰһ¸öÊýµÄ²î¸ÕºÃ¹¹³ÉÒ»¸öµÈ²îÊýÁÐ2¡¢3¡¢4¡¢5¡¢6¡¢7¡¢¡¡£¬ËùÒÔ£¬µÚ2λµÄ¡°3¡±µÈÓÚÐòÁеĵÚ1λÊý¡°1¡±¼ÓÉϵȲîÊý¡°2¡±£¬µÚ3λµÄ6µÈÓÚÐòÁеĵÚ2λÊý¡°3¡±¼ÓÉϵȲ3¡±¡¡£¬µÚnλÊýmµÈÓÚÐòÁеĵÚn-1λÊý¼ÓÉϵȲîÊýn¡£Ð¡½ðÀûÓÃÕâ¸ö¹æÂɱàдÁËÒ»¸öÅжÏÈý½ÇÐÎÊýµÄVB³ÌÐò£¬ÔÚÎı¾¿òTextlÖÐÊäÈëÒ»¸ö´óÓÚ1µÄÕýÕûÊý£¬µ¥»÷¡°Åжϡ±°´Å¥Commandl,ÔÚ±êÇ©LabellÖÐÏÔʾÅжϽá¹û¡£³Ì
6
ÐòÉè¼Æ½çÃæÈçͼËùʾ¡£
(1) ÔÚÉè¼Æ³ÌÐò½çÃæÊ±£¬ÒªÇå¿Õ±êÇ©ÖÐÏÔʾÄÚÈÝ¡°Labell¡±£¬Ó¦Ð޸ĸñêÇ©µÄ_________ÊôÐÔ¡£ (2) VB³ÌÐò´úÂëÈçÏ£¬ÇëÔÚ»®Ïß´¦ÌîÈëºÏÊÊ´úÂë¡£ Private Sub Command1 Click()
Dim n As Integer, s As Integer s = 0
n = Val(Textl. text) If n > 1 Then
For i = 1 To n
s =________________________ If n = s Then
Labell. Caption = Str(n) +¡¨ÊÇÒ»¸öÈý½ÇÐÎÊý¡£\Exit For
______________________________________
Labell. Caption = Str(n) +\²»ÊÇÒ»¸öÈý½ÇÐÎÊý¡£\Exit For End If Next i Else
Labell.Caption = ¡¨ÇëÊäÈëÒ»¸ö´óÓÚ1µÄÕýÕûÊý\End If End Sub
µÄ7
(3)ÈôÎı¾¿òText1ÖÐÊäÈëµÄÄÚÈÝΪ¡°27¡±£¬µ¥»÷°´Å¥Commandlºó£¬±êÇ©LabellÖÐÏÔʾµÄÄÚÈÝÊÇ_________________
15.С³ÂʹÓà Flash Èí¼þÖÆ×÷Ö÷ÌâΪ¡°ÎÚÒÂÏÁõÓíÎý¡±µÄ¶àýÌå×÷Æ·£¬Æä¡°Main¡±³¡¾°µÄÖÆ×÷½Å±¾ÈçÏ£º ³¡¾°£ºMain ³ÊÏÖ·½Ê½£º 1. ¡°Ê«ÈË¡±´ÓÎę̀×óÏòÓÒÔ˶¯£» ³ÊÏÖ˳Ðò£º ¡°ÔÆ1¡±£¬¡°ÔÆ 2¡±´ÓÓÒÏò×óÔ˶¯£»¡°Ñà×Ó¡±´ÓÓÒÉÏ·½·Éµ½Îę̀ÖÐÑ룬ÔÙ´Ó×óÉÏ·½·É³ö¡£ 2. ¡°Ê«¡±ÒÔµÈ뷽ʽ³ÊÏÖÔÚÎę̀×ó²à¡£ 3. ¡°´´×÷±³¾°¡±°´Å¥³öÏÖÔÚÎę̀ÓÒÏ·½£¬µ¥»÷¸Ã°´Å¥£¬ÔÚä¯ÀÀÆ÷ÖÐÏÔʾλÓÚ×÷ƷͬһĿ¼Ï¡°gsbj.txt¡±ÎļþµÄÄÚÈÝ¡£
£¨1£©ÏÂÁÐÑ¡ÏîÖÐÊôÓÚ×÷Æ·´´×÷ÐèÇó·ÖÎöµÄÊÇ_____£¨¶àÑ¡£¬Ìî×Öĸ£ºA.¸Ã×÷Æ·Ö÷ÒªÃæÏò¸ßÖн׶ÎѧÉú£¬ÓÃÓÚ¿ÎÌýÌѧʹÓà / B.¸Ã×÷Æ··¢²¼ÔÚУ԰¾ÖÓòÍøÆ½Ì¨ÉÏ£¬¿É¹©Ñ§Éú²éÔÄ / C.¸Ã×÷Æ·Ðè³ÊÏÖ¡°ÎÚÒÂÏÕâÊ×Ê«µÄÄÚÈݺʹ´×÷±³¾° / D.¸Ã×÷Æ·ÔÚÖÆ×÷µÄ¹ý³ÌÖÐÐèҪʹÓÃPhotoShop Èí¼þ´¦ÀíͼÏñËØ²Ä£¬GoldWaveÈí¼þ´¦ÀíÒôÆµËØ²Ä£©
1. Ò»¿ªÊ¼³öÏÖ±³¾°Í¼Æ¬ºÍ¡°Ê«ÈË¡±ºÍ¡°ÔÆ 1¡±£¬¡°ÔÆ2¡±¡£ 2. 1ÃëÖӺ󣬡°Ñà×Ó¡±·ÉÈëÎę̀¡£ 3. 3ÃëÖӺ󣬳öÏÖ¡°Ê«¡±¶¯»£¬³ÖÐøµ½±¾³¡¾°½áÊø¡£ 4. ×îºó³öÏÖ¡°´´×÷±³¾°¡±°´Å¥£¬²¢Í£Ö¹²¥·Å¡£ Àà±ðÐòºÅ£º2 ½øÈ뷽ʽ£ºµã»÷¡°Load¡±³¡¾°µÄ¡°²¥·Å¡±°´Å¥½øÈë 8
£¨2£©ÈçͼËùʾ£¬²âÊÔӰƬʱ·¢ÏÖ£¬Ñà×Ó·ÉÈëµÄ¶¯»ÓëÖÆ×÷½Å±¾µÄÒªÇó²»·û£¬Ó¦×öµÄµ÷ÕûÊÇ_____________________________________¡£
£¨3£©²âÊÔ³¡¾°Ê±£¬±³¾°»Ãæ²¥·Åµ½µÚ30֡ʱ±ä³ÉÁíÒ»±³¾°»Ã棬ΪÁËʹ±³¾°µÚ1Ö¡µ½µÚ50 Ö¡Ò»Ö±ÏÔʾ¡°±³¾°¡±Í¼²ãµÚ1Ö¡µÄÄÚÈÝ£¬ÕýÈ·µÄ²Ù×÷ÊÇ__________________________________________¡£
£¨4£©Í¼ÖС°Ñà×Ó¡±Í¼²ã´´½¨ÁËÑà×ӷɶ¯»£¬¸÷¹Ø¼üÖ¡Öеġ°Ñà×Ó¡±Ó°Æ¬¼ô¼ÊµÀý¾ùÓÉ¿âÖС°Ñà×Ó¡±Ôª¼þY£©(300,140)¡¢£¨½öº¬Õ¹³á¶¯×÷£©´´½¨¡£µÚ1Ö¡¡¢µÚ30Ö¡ºÍµÚ50Ö¡ÖС°Ñà×Ó¡±ÊµÀýµÄ×ø±ê£¨X£¬ÒÀ´ÎΪ(450,35)¡¢(-50,50)¡£Èô½ö¶ÔµÚ30Ö¡Ö´ÐÐÇå³ý¹Ø¼üÖ¡²Ù×÷£¬Ôò²âÊÔ³¡¾°Ê±,___________£¨¶àÑ¡£¬Ìî×Öĸ£ºA.Ñà×Ó·ÉÐз¾¶±äΪֱÏß / B. Ñà×ÓÔÚ×ø±ê(450,35)´¦ÔµØÕ¹³á / C.Ñà×Ó·ÉÐÐʱ¼ä±ä¶Ì/ D. Ñà×ÓÕ¹³áƵÂʲ»±ä£©¡£ £¨5£©ÈçͼËùʾ£¬²âÊÔӰƬʱ£¬µ¥»÷¡°´´×÷±³¾°¡±°´Å¥£¬ÊµÏÖÖÆ×÷½Å±¾ÒªÇó£¬Ôò¡°´´×÷±³¾°¡±°´Å¥µÄ¶¯×÷½Å±¾Îª£º__________________¡£
16.СÃ÷»ùÓÚÑ¡ÔñÅÅÐòËã·¨±àдÁËÒ»¸öVB³ÌÐò,¹¦ÄÜÈçÏ£ºÄ³°àÓÐ50¸öѧÉú£¬´ÓÖÐÑ¡Ôñ10¸öÉí¸ß×î¸ßµÄͬѧ£¬ÒªÇó±»Ñ¡µÄÈκÎÁ½¸öÈ˲»ÄÜÉí¸ßÒ»Ñù£¨Ëù¸øµÄÊý¾Ý±£Ö¤ÄÜÑ¡10¸ö£©¡£ ʵÏÖÉÏÊö¹¦ÄܵÄVB³ÌÐòÈçÏ£¬µ«¼Ó¿ò´¦´úÂëÓÐ´í£¬Çë¸ÄÕý¡£ Const n = 50
µÄ9
Dim d(0 To n) As single , name(1 to n) as string
'¶ÁÈë50¸öѧÉúµÄÉí¸ß£¬ÒÀ´Î´æÈëd(1)¡d(50), ×î¸ßÉí¸ßСÓÚ2£¬ÐÕÃû´æÈëname(1)¡name(50) '´úÂëÂÔ
Private Sub Command1_Click()
Dim i As Integer, j As Integer, temp As single, k As Integer,r as string d(0) = 2 For i = 1 To 10
For j = i To n If d(j) < d(i - 1) Then If k = j End If End If Next j If k <> i Then
temp = d(k): d(k) = d(i): d(i) = temp r=name(k) : name(k)=name(i) : name(i)=r End If Next i
For i = 1 To 10 ¡®Êä³ö±»Ñ¡µÄ10¸öÈ˵ÄÃû×ÖºÍÉí¸ß¡£ List2£®AddItem name(i) & d(i) Next i End Sub
17.¾Æµê·¿¼ä¹ÜÀí£º¾Æµê·¿¼ä(·¿¼äÊýСÓÚ10000)±àºÅ°´1¡¢2¡¢3¡Á¬Ðø±àºÅ£¬Àϰå¶ÔÓÚûÓгö×âµÄ·¿×ÓʹÓÃÈçÏµķ½·¨À´µÇ¼Ç¹ÜÀí¡£Á¬ÐøµÄ¿Õ·¿¼ä£¬µÇ¼ÇµÚÒ»¼äµÄ±àºÅºÍÁ¬ÐøµÄ¿Õ·¿¼äÊý£¬±ÈÈç¿Õ·¿¼ä1£¬2£¬ 6£¬7£¬8£¬10£¬ÔòµÇ¼Ç3Ìõ¼Ç¼£¬·Ö±ðΪ£¨1 2£©£¬£¨6 3£©£¬£¨10 1£©£¬Ä³ÂÿÍÍË·¿ÁË£¬ÐèÒª°ÑÕâ·¿×ÓÒ²µÇ¼ÇÉÏÈ¥£¬ÓÐËÄÖÖÇé¿öÐèÒª´¦Àí£º
1£©ÉÏ¿¿£¬ÀýÈçÍ˵ķ¿¼äºÅΪ3£¬ÔòÔÀ´µÇ¼ÇµÄ3Ìõ¼Ç¼±ä³É£¨1 3£©£¬ £¨6 3£©£¬£¨10 1£©£»
Then
10
Ïà¹ØÍÆ¼ö£º