Private Sub Command1_Click()
Dim s&,i&
i = 2
While i Mod 11 5 Or i Mod 17 3 ‘先找到符合条件的第一个i
i = i + 2
Wend
For i = i To 5000 Step 374 ’步长值是11与17及2的积1（11*17*2=374）
s = s + i * i '加入i的平方
Next i
Print s
End Sub
输出答案是：
106837484
最新问答： 小刚想用电流表、电压表测量一段电阻丝R x 的电阻值（大约几欧），他已连接了如图甲所示的部分电路． 怎么从酒精溶液里提纯出酒精 照样子写词语,疏密：＿＿, 下列哪项生态系统是地球上最大的（ ） younger是什么意思 小孩数字歌,1像铅笔细又长 最新的鲁教版八年级下语文课本中,《出师表》是上还是下? 把装满海水的油桶沉入海底,缚在沉船上,然后压缩空气将油桶内的海水排出,现在海底20米深处有一艘25t的铁制沉船,问:(1 英语中经常看见有人说什么补语,补语是不是就是宾语不足语 二甲基亚硝酸是由几种元素组成? 描写长江和黄河的诗 extensive knowledge广博的知识 extensive connection 广泛联系 已知圆：X2+Y2-2X-4X-3=0,直线LY=X=b 若直线L与圆相切,求实数B的值 将所有的病人与对照组在年龄,性别上进行匹配,英语怎么说? 《自己的花是让被人看的》·······“耐人寻味”是因为它体现了什么? 英语翻译Bridge Street is a good place to have fun .It is a very 怎么知道是完全反应还是有剩余,就是关于化学表格,计算题的 张大爷用篱笆围一块梯形菜地,一面靠墙（如下图）.篱笆全长45M,如果每平方米收白菜10千克,这快地一共可以收白菜多少千克 有关英文做的中秋节介绍 后面跟中文翻译 一个口袋里装有编号为1到8的8个球,现在随机地将8个球先后全部取出,从右到左排成一个8位数,比如63487521,它正好
