VB中分别统计1到100 中满足3的倍数和7的倍数的数到底有多少

1）互为相反数3+(-3)=02×（3）－3×(-3)＝15（2）和为109+1=102×（9）－3×(1)＝15再问：可以用一元一次方来解吗？再答：可以（1）设第一个数为x，则第二个数为-x，根据题

不是很难Function fn(a As Integer, b As Integer) As Integer 

这个采用枚举算法：枚举的关键：一一列举,逐个检验一一列举：用循环逐个检验：用选择n3=0'存放3的倍数的个数n7=0'存放7的倍数的个数Fori=1To100ifiMod3=0Thenn3=n3+1i

(1)互为相反数2×(3)-3×(-3)=15(2)和为102×(9)-3×(1)=15

A1输入公式=TEXT(DEC2BIN(ROW()-1),"000")向下填充至A8复制A1:A8》在原位置右击》选择性粘贴》值》数据》分列》固定宽度》在每位数字间单击一下增加分列标志》完成BTW：如

Dimi,tjAsIntegertj=0Fori=100To10000IfiMod7=0AndiMod3=0Thentj=tj+1NextMsgBox"个数为"&tj

先在窗体上添加一个TextBox文本框（将其Multiline属性设置为True,并调整宽高以便能较好的显示出100个随机数）和一个Button按钮.然后双击Button按钮跳转到代码编辑窗口,粘帖以

PrivateSubCommand1_Click()Doa=Val(InputBox("输入整数,-1结束:"))IfaMod2=0Thens=s+1LoopUntila=-1Print"共有";s;

在等式“2×（）-3×（）=15”的括号中分别填入一个数,是这两个数满足：1、互为相反数；3-32、和为1091

10千克*1.04/1000=10.4克100千克*1.04/1000=104克1000千克*1.04/1000=1040克

100以内的质数共有25个,这些质数我们经常用到,可以用下面的两种办法记住它们.一、规律记忆法首先记住2和3,而2和3两个质数的乘积为6.100以内的质数,一般都在6的倍数前、后的位置上.如5、7

A1=COUNTIF(A4:A10000,0)A2=COUNTIF(A4:A10000,1)A3=COUNTIF(A4:A10000,3)

PrivateSubCommand1_Click()Fori=1To100IfiMod7=0Thenn=n+1EndIfNextiPrintnEndSu

PrivateSubCommand1_Click()Dimm%,n%Fori=1To100IfiMod3=0Thenm=m+1IfiMod7=0Thenn=n+1NextiPrint"统计1~100中

C水M水*甲（温度变化）=C球M球*（100-40）-------1C水M水*乙（100-T）=C球M球*（T-40）------------2两个方程联合求解就OK了,可以求出T了

1、互为相反数2×（3）-3×（-3）=152、和为22×（21/5）-3×（-11/5）=15

PrivateSubCommand1_Click()Dimi%,j3%,j7%Fori=1To100IfiMod3=0Thenj3=j3+1IfiMod7=0Thenj7=j7+1NextPrint"

PrivateSubCommand1_Click()Dima(),b(),blnFlagAsBoolean,F%Dimi%,j%,k%ReDima(1To6,1To2)a(1,1)="2"a(1,2)

10.41041040

n(HCl)=n(NaOH)=0.1L×3mol/L=0.3mol2Al+6HCl====2AlCl3+3H22630.10.3mol0.15mol2Al+2NaOH+2H2O===2NaAlO2+3