ÔÆÌ⺣ - רҵÎÄÕ·¶ÀýÎĵµ×ÊÁÏ·ÖÏíÆ½Ì¨

µ±Ç°Î»ÖãºÊ×Ò³ > 2011¸ßÖÐÐÅÏ¢¼¼Êõ»á¿¼¸´Ï°ÊÔÌâ¼°´ð°¸£¨10Ì×È«£©

2011¸ßÖÐÐÅÏ¢¼¼Êõ»á¿¼¸´Ï°ÊÔÌâ¼°´ð°¸£¨10Ì×È«£©

  • 62 ´ÎÔĶÁ
  • 3 ´ÎÏÂÔØ
  • 2026/4/29 10:42:23

£¨A£©Ë³Ðòģʽ £¨B£©Ñ¡Ôñģʽ £¨C£©Ñ­»·Ä£Ê½ £¨D£©Ê÷ÐÍģʽ

£¹£®ÔÚVisual BascicÖУ¬ Òª¶¨ÒåÒ»¸öÊý×é a£¬ ÓÃÓÚ´æ´¢100¸öÕûÊýÐÍÊýÖµ£¬ÔòÕýÈ·µÄÊý×鶨ÒåÓï¾äÊÇ£º£¨ £©

£¨A£©Dim a100 As Integer £¨B£©Dim a(1-100) As Integer £¨C£©Dim a(1£¬100) As Integer £¨D£©Dim a(1 To 100) As Integer 10. ÔÚ Visual Basic ÖУ¬±í´ïʽ Sqr(9)µÄÖµÊÇ£¨ £© £¨A£©-3 £¨B£©3 £¨C£©9 £¨D£©81

11£®ÔÚ Visual Basic ¹¤³ÌÉè¼ÆÖУ¬ ÒªÔÚÎı¾¿òText1 ÖÐÏÔʾ¡°ÄãºÃ¡±£¬ÔòÏÂÁвÙ×÷ÕýÈ·µÄÊÇ£¨ £©

£¨A£©ÔÚ Text ÊôÐÔÃûÖÐÊäÈë¡°ÄãºÃ¡± £¨B£©ÔÚ Caption ÊôÐÔÃûÖÐÊäÈë¡°ÄãºÃ¡± £¨C£©ÔÚ Font ÊôÐÔÃûÖÐÊäÈë¡°ÄãºÃ¡± £¨D£©ÔÚ Name ÊôÐÔÃûÖÐÊäÈë¡°ÄãºÃ¡± 12. Èç¹ûÒÔÏÂÊÇÒ»¸öÍêÕûµÄ Visual Basic ForÓï¾ä £¬Ôò»®Ïß´¦µÄÓï¾äÓ¦¸ÃÊÇ£¨ £© For i=1 To 10 a=a+i ________

£¨A£©Loop £¨B£© End For £¨C£© Next i £¨D£©End

13£®ÏÂÁÐÄܱíʾ¡°xСÓÚ10 ÇÒ y ´óÓÚ 0¡±µÄ Visual Basic Âß¼­±í´ïʽÊÇ£¨ £© £¨A£©x<10 And y>0 £¨B£©x<10:y>0 £¨C£©x<10 Or y>0 £¨D£©x<10,y>0

14£®Visual Basic º¯ÊýFix(x)µÄ×÷ÓÃÊǽصôÊý¾ÝµÄСÊý²¿·Ö¡£ÒÑÖª aÊÇʵÊý£¬µ±¹ØÏµ±í´ïʽFix(a)=a ÎªÕæÊ±£¬Ôò±íʾ a ÊÇ£¨ £©

£¨A£©¸ºÊý (B)ÕýÊý (C) ÕûÊý (D)СÊý

ËÄ¡¢³ÌÐòÉè¼ÆÌ⣨±¾ÌâÓÐ 4 СÌ⣬µÚ 1£­3 СÌ⣬ÿСÌâ 4 ·Ö£¬µÚ 4 СÌâ 6 ·Ö£¬¹² 18 ·Ö£©

1£®ÓÐÈçÏ Visual Basic ³ÌÐò¶Î£º a=15 b=5 a=a-b

¸Ã³ÌÐò¶ÎÔËÐк󣬱äÁ¿ a µÄÖµÊÇ___10________¡£ 2£®ÓÐÈçÏ Visual Basic ³ÌÐò¶Î£º x=110

If x>100 Then

Label1.Caption = \Ä㳬ËÙÁË!\Else

Label1.Caption = \Äãû³¬ËÙ! \End If

¸Ã³ÌÐò¶ÎÔËÐкó, Label1 ±êÇ©ÉÏÏÔʾΪ__Ä㳬ËÙÁË!_________¡£

3£®ÏÂÃæ Visual Basic ³ÌÐòµÄ¹¦ÄÜÊÇ£º¼ÆËã±í´ïʽ 1¡Á2+3¡Á4+5¡Á6+7¡Á8+9¡Á10 µÄÖµ¡£ÔË

ÐиóÌÐòºó£¬Óï¾ä sum=sum+i*(i+1)¹²Ö´ÐÐÁË 5 ´Î¡£ Private Sub Command1_Click()

Dim sum As Integer£¬ i As Integer sum = 0

For i = 1 To 9 Step 2

sum = sum + i * (i+1) Next i

Text1.Text=Str(sum) End Sub

4. ¸ç¸ç¿¼µÜµÜÒ»µÀÊýѧÌ⣬ÌâÄ¿ÊÇ£º¡°ÓÐÒ»¿ð¼¦µ°£¬2 ¸ö 2 ¸öÊý¶à 1 ¸ö£¬3 ¸ö 3 ¸öÊý¶à 2¸ö£¬4 ¸ö 4 ¸öÊý¶à 3 ¸ö£¬5 ¸ö 5 ¸öÊýÕýºÃÊýÍ꣬ÎÊÕâ¿ð¼¦µ°×îÉÙÊǼ¸¸ö£¿¡±

Ϊ½â¾ö´ËÎÊÌ⣬µÜµÜ±àÁËÒ»¸öÈçÏ Visual Basic ³ÌÐò£¬ÆäÖÐ s ±íʾ¼¦µ°Êý£¬t ÓÃÓÚ¿ØÖÆÑ­»·¡£µ«´Ë³ÌÐò´æÔÚÁ½´¦´íÎó£¬ÒÑ·Ö±ðÓû®Ïß¼°¢Ù¡¢¢Ú±ê×¢¡£Çë¸ÄÕýÕâ¶þ´¦´íÎ󣬲¢½«ÕýÈ·ÄÚÈݰ´Ë³ÐòÌîдÔÚ³ÌÐòÏ·½¢ÙºÍ¢Ú»®Ïß´¦¡£ Private Sub Command1_Click()

Dim s As Integer, t As Boolean s = 5 t = False

Do While Not t

s = s + 1

t = (s Mod 2 = 1) And (s Mod 3 = 2) And (s Mod 4 = 3) And (s Mod 5 <> 0) '¢Ù Next '¢Ú

Text1.Text = Str(s) End Sub

³ÌÐòÖл®Ïß´¦¢Ù¸ÄΪ ( s Mod 5 = 0 ) ³ÌÐòÖл®Ïß´¦¢Ú¸ÄΪ LOOP

Ëã·¨Óë³ÌÐòÉè¼ÆÌ⣨µÚÆßÌ×£©

Ò»¡¢Ñ¡ÔñÌ⣨±¾ÌâÓÐ 14 СÌ⣬ÿСÌâ 3 ·Ö£¬¹² 42 ·Ö¡£Ñ¡³ö¸÷ÌâÖÐÒ»¸ö·ûºÏÌâÒâµÄÕýÈ·Ñ¡Ï²»Ñ¡¡¢¡¢¶àÑ¡¡¢´íÑ¡¾ù²»¸ø·Ö¡££©

1.¶àýÌåÐÅÏ¢Êý×Ö»¯ºóÊý¾ÝÁ¿ºÜ´ó£¬ÎªÁËÌá¸ß´æ´¢¡¢´¦ÀíºÍ´«ÊäЧÂÊ£¬ÐèÒª¶ÔÕâЩÊý¾Ý½øÐÐѹËõ£¬ÏÂÁÐѹËõ±ê×¼ÓÃÓÚÒôƵѹËõµÄÊÇ£¨ £©

£¨A£©JPEG B)MPEG-1 C)MPEG-2 (D)MP3 2£®Ê®½øÖÆÊý10 ת»»³É¶þ½øÖÆÊýÊÇ£¨ £©

£¨A£©(10)2 £¨B£©(1001) 2 £¨C£©(1010)2 £¨D£©(1011)2 3£®ÏÂÁÐÖ÷ÒªÓÃÓÚÍøÒ³ä¯ÀÀµÄÈí¼þÊÇ£¨ £©

£¨A£©Word £¨B£©Excel £¨C£©Intern Explorer £¨D£©Access 4£®ÏÂÁÐÃèÊöËã·¨µÄÁ÷³Ìͼ·ûºÅÖÐÊôÓÚ¿ªÊ¼¡¢½áÊø¿ò·ûºÅµÄÊÇ£¨ B £©

5£®Òª½«Ã÷ÌìµÄÌìÆøÇé¿ö¸æËß¹«ÖÚ£¬ÏÂÁÐÐÅÏ¢±í´ï·½Ê½²»Ç¡µ±µÄÊÇ£¨ £© £¨A£©½«ÆøÏóÐÅÏ¢Ó¡Ë¢³ÉÊé £¨B£©Í¨¹ýµçÊÓ·¢²¼ÐÅÏ¢ £¨C£©Í¨¹ý¹ã²¥·¢²¼ÐÅÏ¢ £¨D£©Í¨¹ýÌØ¶¨µÄÍøÕ¾·¢²¼

6£®°Ñµç×ÓÓʼþ·¢Ë͵½ÊÕ¼þÈ˵ĵç×ÓÐÅÏäÖУ¬Ëù²ÉÓõÄÓʼþ´«ÊäЭÒéÊÇ£¨ £© £¨A£©FTP £¨B£©TCP/IP £¨C£©POP3 £¨D£©SMTP

7.Ö»Äܱ»1 »ò±¾ÉíÕû³ýµÄ´óÓÚ 1 µÄ×ÔÈ»Êý³ÆÎªËØÊý¡£ÅжϴóÓÚ1 µÄij×ÔÈ»Êým ÊDz»ÊÇËØÊýµÄËã·¨»ù±¾Ë¼ÏëÊÇ£º°Ñ m ×÷Ϊ±»³ýÊý£¬½« 2 µ½ m-1 ÖеÄ×ÔÈ»Êý×÷Ϊ³ýÊý£¬ÖðÒ»½øÐÐÏà³ý£¬Èç¹û¶¼³ý²»¾¡£¬m¾ÍÊÇËØÊý£¬·ñÔò m ¾Í²»ÊÇËØÊý¡£ÕâÖÖÅж¨ËØÊýµÄËã·¨Ö÷ÒªÊôÓÚ£¨ £© £¨A£©Ã¶¾ÙËã·¨ £¨B£©½âÎöËã·¨ £¨C£©µÝ¹éËã·¨ £¨D£©ÅÅÐòËã·¨ 8.СÍõͬѧÐÇÆÚÌìµÄ¼Æ»®ÊÇ£º¡°8:00 Æð´²¡¢³ÔÔç²Í£¬10:00 ÖÁ 11:30 ѧϰ£¬12:30 ¿´Ò»²¿µçÓ°£¬14:30´òÀºÇò¡±¡£ÓÃËã·¨ÃèÊöÕâÒ»¼Æ»®£¬ºÏÊʵÄËã·¨½á¹¹ÊÇ£¨ £©

£¨A£©Ë³Ðòģʽ £¨B£©Ñ¡Ôñģʽ £¨C£©Ñ­»·Ä£Ê½ £¨D£©Ê÷ÐÍģʽ 9. ÔÚ Visual Basic ÖУ¬±íʾ×Ö·û´®Ð͵ÄÊý¾ÝÀàÐÍÃûÊÇ£¨ £© £¨A£©Long £¨B£©Integer £¨C£©String £¨D£©Boolean 10£®ÔÚ Visual Basic ÖУ¬ÇóʵÊý x µÄËãÊõƽ·½¸ùµÄº¯ÊýÊÇ£¨ £© £¨A£©Int(x) £¨B£©Sqr(x) £¨C£©Abs(x) £¨D£©Log(x) 11.ÔÚ Visual Basic´úÂë´°¿ÚÖУ¬Óï¾äBook1.Text=\²Ù×÷ϵͳ\ÖеÄBook1ÊÇ£¨ £© £¨A£©ÊôÐÔÃû £¨B£©ÊôÐÔÖµ £¨C£©´°¿ÚÃû £¨D£©¶ÔÏóÃû

12£®Èç¹ûÒÔÏÂÊÇÒ»¸öÍêÕû Visual Basic ¿é If Óï¾ä£¬Ôò»®Ïß´¦µÄÓï¾äÓ¦¸ÃÊÇ£¨ £© If a>b Then max=a Else

max=b ________

£¨A£©End £¨B£©End Sub £¨C£©End If £¨D£©If End

13£®ÏÂÁÐÊôÓÚÕýÈ·µÄ Visual Basic ±í´ïʽ£¨ £©

£¨A£©2ab £¨B£©2¡Áa¡Áb £¨C£©2¡¤a¡¤b £¨D£©2*a*b

14£®ÔÚ Visual BasicÖУ¬ÒÑÖª a¡¢x¡¢y ¾ùÊÇÕýÕûÊý£¬µ±Âß¼­±í´ïʽ(a mod x = 0) And (a mod y=0)ÎªÕæÊ±£¬Ôò±íʾ£¨ £©

£¨A£© a ÊÇ x µÄ±¶Êýµ«²»ÊÇyµÄ±¶Êý £¨B£©a ¼ÈÊÇ x µÄ±¶Êý£¬Ò²ÊÇ y µÄ±¶Êý

£¨C£© a ÊÇ x µÄ±¶Êý»òÕßÊÇ y µÄ±¶Êý £¨D£© a ¼È²»ÊÇ x µÄ±¶Êý£¬Ò²²»ÊÇ y µÄ±¶Êý

ËÄ¡¢³ÌÐòÉè¼ÆÌ⣨±¾ÌâÓÐ 4 СÌ⣬µÚ 1£­3 СÌ⣬ÿСÌâ 4 ·Ö£¬µÚ 4 СÌâ 6 ·Ö£¬¹² 18 ·Ö£©

1£® ÓÐÈçÏ Visual Basic ³ÌÐò¶Î£º a=8 b=10 b=a*b/2

¸Ã³ÌÐò¶ÎÔËÐк󣬱äÁ¿ b µÄֵΪ 40 ¡£ 2£®ÓÐÈçÏ Visual Basic ³ÌÐò¶Î£º a=5 b=10 max=a

If b>max Then max=b

¸Ã³ÌÐò¶ÎÔËÐк󣬱äÁ¿ max µÄֵΪ 10 ¡£

3£®ÏÂÃæ³ÌÐòµÄ¹¦ÄÜÊÇ£º¼ÆËã±í´ïʽ 1¡Á2¡Á3¡Á??¡Á10 µÄÖµ£¬²¢ÔÚÎı¾¿ò Text1 ÖÐÊä³ö±í´ïʽµÄÖµ¡£ÎªÁËʵÏÖÕâÒ»¹¦ÄÜ£¬³ÌÐòÖл®Ïß´¦µÄÓï¾äÓ¦¸üÕýΪ____t=1______________¡£ Private Sub Command1_Click()

Dim i As Integer£¬ t As Long t=0 For i=1 To 10

t=t*i Next i

Text1.Text=Str(t) End Sub

4£®ÎÒ¹úÊÇÈ˿ڴó¹ú£¬2007 Äê³õ£¬ÎÒ¹úÈË¿Ú×ÜÊýÒÑ´ï 13 ÒÚ 5ǧÍò¡£¼ÙÉèÎÒ¹úÄêÈË¿ÚÔö³¤ÂÊΪ 0.5%£¬Ôò´Ó 2007 ÄêÆð¶àÉÙÄêºóÎÒ¹úÈ˿ھͻá´ïµ½»ò³¬¹ý 15 ÒÚ£¿

½â¾ö´ËÎÊÌâµÄÁ÷³ÌͼÈç VB-1 Ëùʾ¡£¸ù¾ÝÁ÷³ÌͼVB-1 ±àдµÄ Visual Basic ³ÌÐòÈçÏ£¬Ôڢٺ͢ڻ®Ïß´¦£¬ÌîÈëºÏÊʵÄÓï¾ä»ò±í´ïʽ£¬°Ñ³ÌÐò²¹³äÍêÕû¡£ Private Sub Command1_click()

Dim n As Integer, r As Single Dim p As Double r = 0.5/100 p = 13.5

  • ÊÕ²Ø
  • Î¥¹æ¾Ù±¨
  • °æÈ¨ÈÏÁì
ÏÂÔØÎĵµ10.00 Ôª ¼ÓÈëVIPÃâ·ÑÏÂÔØ
ÍÆ¼öÏÂÔØ
±¾ÎÄ×÷Õߣº...

¹²·ÖÏí92ƪÏà¹ØÎĵµ

Îĵµ¼ò½é£º

£¨A£©Ë³Ðòģʽ £¨B£©Ñ¡Ôñģʽ £¨C£©Ñ­»·Ä£Ê½ £¨D£©Ê÷ÐÍģʽ £¹£®ÔÚVisual BascicÖУ¬ Òª¶¨ÒåÒ»¸öÊý×é a£¬ ÓÃÓÚ´æ´¢100¸öÕûÊýÐÍÊýÖµ£¬ÔòÕýÈ·µÄÊý×鶨ÒåÓï¾äÊÇ£º£¨ £© £¨A£©Dim a100 As Integer £¨B£©Dim a(1-100) As Integer £¨C£©Dim a(1£¬100) As Integer £¨D£©Dim a(1 To 100) As Integer 10. ÔÚ Visual Basic ÖУ¬±í´ïʽ Sqr(9)µÄÖµÊÇ£¨ £© £¨A£©-3 £¨B£©3 £¨C£©9 £¨D£©81 11£®ÔÚ Visual Basic ¹¤³ÌÉè¼ÆÖУ¬ ÒªÔÚÎı¾¿òText1 ÖÐÏÔʾ¡°ÄãºÃ¡±£¬ÔòÏÂÁвÙ×÷ÕýÈ·µÄÊÇ£¨ £©

¡Á ÓοͿì½ÝÏÂÔØÍ¨µÀ£¨ÏÂÔØºó¿ÉÒÔ×ÔÓɸ´ÖƺÍÅŰ棩
µ¥Æª¸¶·ÑÏÂÔØ
ÏÞÊ±ÌØ¼Û£º10 Ôª/·Ý Ô­¼Û:20Ôª
VIP°üÔÂÏÂÔØ
ÌØ¼Û£º29 Ôª/Ô ԭ¼Û:99Ôª
µÍÖÁ 0.3 Ôª/·Ý ÿÔÂÏÂÔØ150·Ý
ȫվÄÚÈÝÃâ·Ñ×ÔÓɸ´ÖÆ
VIP°üÔÂÏÂÔØ
ÌØ¼Û£º29 Ôª/Ô ԭ¼Û:99Ôª
µÍÖÁ 0.3 Ôª/·Ý ÿÔÂÏÂÔØ150·Ý
ȫվÄÚÈÝÃâ·Ñ×ÔÓɸ´ÖÆ
×¢£ºÏÂÔØÎĵµÓпÉÄÜ¡°Ö»ÓÐĿ¼»òÕßÄÚÈݲ»È«¡±µÈÇé¿ö£¬ÇëÏÂÔØÖ®Ç°×¢Òâ±æ±ð£¬Èç¹ûÄúÒѸ¶·ÑÇÒÎÞ·¨ÏÂÔØ»òÄÚÈÝÓÐÎÊÌ⣬ÇëÁªÏµÎÒÃÇЭÖúÄã´¦Àí¡£
΢ÐÅ£ºfanwen365 QQ£º370150219
Copyright © ÔÆÌ⺣ All Rights Reserved. ËÕICP±¸16052595ºÅ-3 ÍøÕ¾µØÍ¼ ¿Í·þQQ£º370150219 ÓÊÏ䣺370150219@qq.com