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