Private Sub Command1_Click() Dim a(100) As Boolean For i = 2 To 100 a(i) = True Next i For i = 2 To 10 If a(i) Then j = i + i Do While j <= 100 a(j) = False j = j + i Loop End If Next i k = 0 For i = 2 To 100 If a(i) Then For j = i To 100 If a(j) Then k = k + 1 Text1.Text = Text1.Text & i * j & " " If k Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf End If Next j End If Next i End Sub
最新问答： 英语动词配时态变化的填空题1.i came into the classroom,______(laugh)happil DIN1.4034不锈钢（GB 4Cr13不锈钢）可以用来制作做不锈钢手术器械么? 用排水法集气时.用排水法集气时,有时长进短出有时候短进长出,是不是和气体的密度有关.还是只要气体不溶都短进长出.具体是什 上下字同样上下结构的字有哪些 如图是用5个相同的小立方块搭成的几何体，请你分别画出它的主视图、左视图和俯视图． 阅读理解求答案,急I was born with a kind of illness — my arms are sho 两个自然数a、b，他们的最小公倍数与最大公约数的差记为△，已知6△x=27，求x的值． 一只鸟,真奇怪,飞不动,跑得快,敌人来,藏脑袋.（打一动物） 7.8*0.125怎么简算? 英语翻译关于订单中有些不明白的地方,希望您能讲解下（有的产品没有注明数量,有些产品没有注明单价,具体我已经在表格中用红色 求表达思念的英文短句!不用太长,短一些的就行,我想用来做个性签名 哪些合适就写来吧! 怎么形容买车高兴的心情短语 集合和不等式的数学题1.集合A=（-∞,-1）∪[1,+∞）,B={x│（x-a-1）（2a-x）>0},（a Mary是什么意思 4、关于体温计，下列说法中不正确的的是（ ） 握手 作文 “十二五”如何应对气候变化? 一个物体所受的重力为10N，将其全部浸没在水中时，排开的水受到的重力为20N，此时它所受的浮力为______N，浮力的方 解方程：三分之二x+1-(x-5)=二分之三 生物体的一切形状都受到什么控制
