16. ÓÐÈçÏÂVisual Basic³ÌÐò¶Î£º£¨Ã¿¿Õ2·Ö£¬¹²4·Ö£© Dim i As Integer, s As Integer s = 0

i = 1: a = 5

Do While i <= 100 s = s + a * i i = i * 5 Loop

ÎÊ£º¸Ã³ÌÐò¶ÎÔËÐкó£¬

£¨1£©±äÁ¿iµÄÖµÊÇ____________¡£ £¨2£©±äÁ¿sµÄֵΪ____________¡£

17.ÓÃVB±à³Ì½â¾ö¡°ÕÒ³öÒ»¸öÕýÕûÊýµÄËùÓÐÒò×Ó¡±µÄÎÊÌ⣬Æä½çÃæÈçÏÂͼËùʾ£¬Í¨¹ýÎı¾¿ò txt_NumÊäÈëÈÎÒâÒ»¸ö´óÓÚ1µÄÕýÕûÊý£¬µ¥»÷ÃüÁî°´ Å¥Command1ÔËÐгÌÐò£¬ÔÚlb_Result±êÇ©ÉÏÏÔʾÒò ×Ó¸öÊý£¬²¢ÔÚÁбí¿òls_ResultÉÏÏÔʾËùÓÐÒò×Ó¡£³Ì Ðò´úÂëÈçÏ£º£¨Ã¿¿Õ2·Ö£¬¹²6·Ö£© Private Sub Command1_Click() Dim x As Integer, c As Integer Dim i As Integer

x = Val(txt_Num.Text) If x <= 1 Then

MsgBox \ÇëÊäÈëÒ»¸ö´óÓÚ1µÄÕýÕûÊý£¡\

Exit Sub End If c = 0

For i = 1 To x

If x Mod i = 0 Then c = c + 1

¢Ù End If Next

lb_Result.Caption = \¸ÃÊý¹²ÓÐ\¢Ú + \¸öÒò×Ó\End Sub

£¨1£©³ÌÐòÖл®Ïß´¦¢ÙÓ¦ÌîÈë ¡£ £¨2£©³ÌÐòÖл®Ïß´¦¢ÚÓ¦ÌîÈë ¡£

£¨3£©Èç¹ûÎı¾¿òÊäÈë100000£¬µ÷ÊÔ³ÌÐò»á³öÏÖʲô´íÎóÌáʾ ¡£

5

2015-2¸ßÒ»ÐÅÏ¢ÆÚÄ©ÊÔ¾í

´ðÌâÖ½

Ò»¡¢Ñ¡ÔñÌ⣨ÿÌâ2·Ö£¬¹²24·Ö£© 1 2 3 4 5 6 7 8 9

×ùλºÅ£º

10 11 12 ÐÕÃû£º °à¼¶ ¿¼ºÅ£º ¶þ¡¢Ìî¿ÕÌ⣨³ýÁË×¢Ã÷µÄ£¬ÆäËüÿ¿Õ1·Ö£¬¹²26·Ö£© 13.£¨1£© £¨2·Ö£© £¨2£© £¨2·Ö£© £¨3£©

14.£¨1£© £¨2£© £¨3£© £¨4£© £¨5£©

15.£¨1£© £¨2£© £¨3£© £¨4£© £¨5£© £¨2·Ö£© 16.£¨1£© £¨2·Ö£© £¨2£© £¨2·Ö£© £¨3£© £¨2·Ö£© 17.£¨1£© £¨2·Ö£© £¨2£© £¨2·Ö£©

6

2015-2¸ßÒ»ÐÅÏ¢ÆÚÄ©ÊÔ¾í´ð°¸

Ò»¡¢Ñ¡ÔñÌ⣨ÿÌâ2·Ö£¬¹²24·Ö£© 1 C 2 A 3 A 4 A 5 C 6 A 7 B 8 B 9 C 10 11 12 D C B ¶þ¡¢Ìî¿ÕÌ⣨³ýÁË×¢Ã÷µÄ£¬ÆäËüÿ¿Õ1·Ö£¬¹²26·Ö£© 13.£¨1£© =SUM(B9:E9) £¨2·Ö£© £¨2£© =F4-M4 £¨2·Ö£© £¨3£© ÁÐ¿í²»¹»

14.£¨1£© ħ°ô£¨2£©±äÁÁ £¨3£©ÎÄ×Ö²ãºÍÉÈ×Ӳ㣨Òâ¶Ô¼´¿É£©

£¨4£© ÀúÊ·¼Ç¼ £¨5£© jpg 15.£¨1£© 5 £¨2£© ӰƬ¼ô¼­ £¨3£© ¹Ø¼üÖ¡ £¨4£© ¶¯»­ £¨5£© on(release){fscommand(¡°quit¡±);}£¨2·Ö£© 16.£¨1£© 125 £¨2·Ö£©£¨2£© 155 £¨2·Ö£© 17.£¨1£© ls_Result.AddItem i £¨i¼ÓÓë²»¼Óstr¶¼¿É£© £¨2·Ö£© £¨2£© str(c) £¨×¢Ò⣺²»ÓÃStr£¬Ö±½ÓcÊÇ´íÎóµÄ£© £¨2·Ö£© £¨3£© Òç³ö £¨2·Ö£©

7