求1到m的倒数和 vb-搜答案-智慧作业帮

fori=1to20n=1/i^2m=m+nnexti

dimnum3,num7asintegerfori=1to1000ifimod3=0thennum3=num3+1endififimod7=0thennum7=num7+1endifnext最后num

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

1/n+1/m=2又7分之3+5又7分之3=7分之55所以1/n+1/m的倒数是55分之7

∵m，n互为相反数，∴m+n=0，∵c，d互为倒数，∴cd=1，∵a到原点的距离为1，∴a=±1，a=1时，3m+3n+2cd+a=3（m+n）+2cd+a=0+2+1=3，a=-1时，3m+3n+2

sub平方和()dimsumdimiaslongsum=0fori=1to100sum=sum+i*inextiendsu

248050247500再问：不是说结果的，而是说编程的再答：我不懂vb,只会用php或者其他的，简单的用basic写一下吧,大致思路是这样的。sum1=0sum2=0fora=100to10000i

法一：这个方法的思路很直接,数学味较浓.既然在VB6中没有阶乘的运算,那么我就自己造一个函数用来算一个整数的阶乘.FunctionTimeStep(NumberAsInteger)AsLongTime

在窗口上建立一个按钮：FunctionTotal(Num1,Num2)AsString'Num1为奇数和'Num2为偶数和Fori=1To100IfiMod20ThenNum1=Num1+iElseN

很容易,用高一的知识就能解,就是"数列求和"Sn＝1+1/2+1/3+1/4+……＋1／100Sn＝1＋（1－1／2）＋（1－2／3）＋（1－3／4）＋……＋（1－99／100）所有的1相加为100,

fori=1to50ifimod20thensum=sum+inextmsgboxsum

DimmAsInteger,nAsIntegerPrivateSubCommand1_Click()m=Val(InputBox("输入正整数"))n=Val(InputBox("输入正整数"))If

PrivateSubCommand1_Click()Dimi%DimsAsSingles=0Fori=1To10s=s+1/compu(i)NextiText1.Text=sEndSubFunctio

由题意得：m+n=0，cd=1，a=1或-1，当a=1时，原式=3（m+n）+2cd+a=0+2+1=3；当a=-1时，原式=3（m+n）+2cd+a=0+2-1=1，故选C

最大公约数就是几个数的共有约数之积最大公因子就是几个数的公有约数中最大的一个10和15的最大公约数和最大公因子都是5但是10和20的最大公约数是10,最大公因子是5Dimm%,n%PrivateSub

M=7/38,n=7/171/（1/m+1/n）=1/（38/7+17/7）=7/55

functionsum(n)fori=1tona=a+inextsum=aendfunction

a=-bc*d=1m=1或m=-1所以,a+b+cd+m=0+1+m=m+1当m=1时,最终等于2当m=-1时,最终等于0

再答：望采纳

一个for嵌套一个if,注意n要定义为int,倒数用1.00/n即可再问：哦哦，谢啦