2019ɽ¶«Ê¡ÐÅÏ¢¼¼ÊõºÏ¸ñ¿¼¸´Ï°ÌâË㷨ģ¿é(ÀúÄêÕæÌâ) ÏÂÔØ±¾ÎÄ

For i=3 To 6

a(1)=a(i-1)+a(i-2) Next i Print a(6)

ÉÏÊö³ÌÐòÔËÐкó£¬Êä³öa(6)µÄÖµÊÇ_________________________¡££¨6·Ö£© 2.·ÖÎö²¢ÍêÉÆ³ÌÐò

ÒÔÏÂÊǼÆËãs=1*2*3*¡­*10µÄ³ÌÐò´úÂ룬Ç벹ȫ³ÌÐò¡££¨6£© Dim s As Long Dim i As Integer s=__________ For i=1 To 10

s=__________ Next i Print s

3.Ëã·¨Éè¼ÆÓë³ÌÐòʵÏÖ ¹´¹ÉÊý

Çó³ö100ÒÔÄÚÂú×ãa

Dim a As Integer Dim b As Integer Dim c As Integer For a=1 To 100 For b=1 To 100 For c=1 To 100 If ________Then

Print a;b;c End If Next c Next b Next a

1.±¾Ìâ²ÉÓõÄËã·¨ÊÇ__________£¨Ìîд£º½âÎö·¨/ ö¾Ù·¨/ÅÅÐò·¨/µÝ¹é·¨£©¡£ 2.³ÌÐò´úÂëÖпհ״¦Ó¦ÌîдµÄÌõ¼þÊÇ________£¨Ìîд×Öĸ£ºA/B/C/D£©. A.a

ÐÅÏ¢¼¼ÊõºÏ¸ñ¿¼¸´Ï°Ìâ Ëã·¨£¨°Ë£©

Ò»¡¢Ñ¡ÔñÌâ

1.ÏÂÁÐÑ¡ÏîÖУ¬ÄÜ×÷ΪVB³ÌÐò±äÁ¿ÃûµÄÊÇ£¨ £©¡£

A. s+1 B.3stu C.true D.s1

2.ÏÂÁÐÄĸö³ÌÐò¶ÎµÄÔËÐнá¹ûÈçͼËùʾ£¿£¨ £©

****** ****** ****** ******

for i=1 to5

for j=1 to 6 Print¡± *¡± next j print next i

B . for i=1 to5

for i=1 to 6 print¡± *¡± next i print next i

C. for i=1 to5

For j=1 to 6 Print¡± *¡± next j print next j

D. for i=1 to5

For j=1 to 6 Print¡± *¡± next j print next i

3.ÔÚVBÖУ¬Int(x) º¯ÊýµÄ¹¦ÄÜÊÇ·µ»Ø²»´óÓÚxµÄ×î´óÕûÊý£¬Éèa=3 £¬b=4£¬c=5£¬ÔòÏÂÁбí´ïʽµÄÔËËã½á¹ûÖÐÖµ×î´óµÄÊÇ£¨ £©¡£

A. Sqr(c) B.Abs(a-b) C.Int(2*a-c/b) D.a^2+b^2-c^2

4.ÔÚVBÖУ¬ÓñäÁ¿code´æ´¢Ñ§ÉúµÄ½èÔÄ¿¨±àÂ루code=¡±N020170502¡±£©£¬Ôò±äÁ¿code µÄÊý¾ÝÀàÐÍÓ¦¶¨ÒåΪ£¨ £©¡£

A.Integer B.Double C.String D.Single 5.Visual Basic³ÌÐòÉè¼ÆÓïÑÔÊôÓÚ£¨ £©¡£

A.»ã±àÓïÑÔ B.×ÔÈ»ÓïÑÔ C.¸ß¼¶ÓïÑÔ D.»úÆ÷ÓïÑÔ ¶þ¡¢²Ù×÷Ìâ

1.ÔĶÁ³ÌÐò£¬Ð´³öÔËÐнá¹û Dim i As Integer Dim x As Integer Dim y As Integer y=30

For i=1 To 3

x=Val(InputBox(¡°x=¡±)) If y< x Then y=x End If Next i Print y

³ÌÐòÔËÐкó£¬ÒÀ´ÎÊäÈ룺36 87 51 ÔËÐкóÊä³ö½á¹ûÊÇ_________________¡££¨6·Ö£© 2.Ëã·¨Éè¼ÆÓë³ÌÐòʵÏÖ

£¨Í϶¯¹ö¶¯Ìõä¯ÀÀÈ«²¿ÊÔÌâÄÚÈÝ£¬µã»÷ÓÒ²àͼ±ê¿ÉÇл»ÊäÈë·¨£©

GDPÔö³¤ÎÊÌâ: ijʡ2016ÄêµÄGDPÊÇ6.7ÍòÒÚÔª£¬Èç¹ûÿÄê°´7%µÄ±ÈÀýÔö³¤£¬ÎʶàÉÙÄêÒÔºó´ËÊ¡µÄGDP³¬¹ý15ÍòÒÚ£¿ ¡¾Ëã·¨·ÖÎö¡¿

¼ÙÉèn Äêºó´ËÊ¡µÄGDP³¬¹ý15ÍòÒÚÔª£¬¸ù¾ÝÌâÒâµÃ³öÊýѧ¹ØÏµÊ½£¿Çó×îСµÄn¡£ ¡¾²Î¿¼³ÌÐò¡¿

Dim p As Single ¡¯pÓÃÓڼǼGDPµÄÖµ

Dim r As Single ¡¯rÓÃÓڼǼGDPµÄÄêÔö³¤±ÈÀý Dim n As Integer ¡¯nÓÃÓÚͳ¼ÆÄêÊý p=6.7 r=0.07 n=0

Do While_________ p=p*(1+r) n=n+1 Loop

Print n & ¡±Äêºó£¬GDPµÄÖµ³¬¹ý15ÍòÒÚÔª¡£¡± ¸ù¾ÝÉÏÊö»Ø´ðÏÂÁÐÎÊÌ⣺£¨¹²6·Ö£¬Ã¿¿Õ3·Ö£©

(1)±¾Ìâ²ÉÓõÄËã·¨ÊÇ______________£¨Ìîд£º½âÎö·¨/ö¾Ù·¨/ÅÅÐò·¨/µÝ¹é·¨£©¡£ (2)д³ö³ÌÐòÖпհ״¦±í´ïʽ_______________________________¡£ 3.Ëã·¨Éè¼ÆÓë³ÌÐòʵÏÖ ÅжϳµÅƵĵ¥Ë«ºÅ ¡¾±³¾°ÖªÊ¶¡¿

ΪÁ˱£ÕÏ¿ÕÆøÖÊÁ¿£¬¼õÉÙÎíö²£¬Ä³Êоö¶¨µ±¿ÕÆøÎÛȾÑÏÖØÊ±£¬ÊµÐÐÆû³µµ¥Ë«ºÅÏÞÐУ¬Î¥·´¹æ¶¨µÄ³µÁ¾½«ÓèÒÔ´¦·£¡£ÈçºÎÈøßÇåÉãÏñÍ·×Ô¶¯ÅжϳµÅƵĵ¥Ë«ºÅ£¬½»¾¯·¸Á˳ËûÐèÒª±à³Ì¸ßÊÖµÄÄã°ï棬ÍêÉÆÏÂÃæµÄ³ÌÐò¡££¨Ìáʾ£º£¨1£©ËùÓгµÅƺÅÖж¼º¬ÓÐÊý×Ö£¬²¢ÇÒ³µÅƺŵij¤¶È¶¼ÊÇ6£»£¨2£©ÒÔ³µÅÆÖÐ×îºóһλ°¢À­²®Êý×ÖµÄÆæ¡¢Å¼À´¾ö¶¨µ¥Ë«ºÅ¡££© £¨1£©ÊäÈ룺AD2367 Êä³ö£ºµ¥ºÅ ×ÔÈ»ÓïÑÔ £¨2£©ÊäÈ룺A8888A Êä³ö£ºË«ºÅ (3)ÊäÈ룺A8963C Êä³ö£ºµ¥ºÅ Á÷³Ìͼ µÚ1²½£ºÊäÈë³µÅÆºÅ ¿ªÊ¼ µÚ2²½£ºÈ¡³µÅƺŵÄ×îºóһλx£» µÚ3²½£ºÅжÏxÊÇ·ñΪÊý×Ö£¬Èç¹ûÊÇ£¬×ªµÚ 4²½£»Èç¹û²»ÊÇ£¬ÔòÒÀ´ÎÈ¡µÃµ¹ÊýµÚ¶þ¡¢ Èý¡­¡­Î»Åжϣ¬ÖªµÀÕÒµ½Êý×ÖΪֹ£» µÚ4²½£ºÅжÏx ÊÇÆæÊý»¹ÊÇżÊý£¬È»ºóÊä³öÏàÓ¦µÄ½á¹û¡£ ¡¾Ëã·¨ÃèÊö¡¿

Çë¸ù¾ÝÉÏÊöËã·¨ÃèÊö²¹È«´úÂë Dim n As Integer

Dim s As String ¡¯¶¨Òås Ϊ×Ö·û´®ÀàÐÍ Dim x As String

s=InputBox(¡°s=¡±,s) ¡®½«ÊäÈëµÄ³µÅƺŸ³Öµ¸øs

n=6 ¡®³µÅƺŵij¤¶ÈΪ6

x=Mid(s,n,1) ¡®È¡³µÅƺÅsµÄµÚnλ

Do While x<¡±0¡± Or x>¡±9¡± ¡®x²»ÊÇÊý×Ö×Ö·û£¬ÔòÈ¡xµÄǰһλ _______¢Ù_______

x=Mid(s,n,1) ¡®È¡³µÅƺÅsµÄµÚnλ Loop

If _______¢Ú_______then