VB题计算S=πR2的值和V=4πR3的值

PrivateSubCommand1_Click()DimsumAsDoubleDimiAsLongDimnAsDoublen=((1/(10^-5))+1)/2'正好等于10^-5时候n的值

数学计算可以简化过程：因为1-2=-1,3-4=-1...所以得出-1+(-1)+...,重复(100/2)次,即代码为(这是最简单而且最快速的办法)：DimsAsInteger=-(100/2)如果

并联电路的总电阻的倒数等于各电阻倒数之和,如,两个电阻R1,R2并联,总电阻为R总：1/R总＝1/R1+1/R21/R总＝1/6+1/4＝10/24所以R总＝24/10＝2.4欧电阻越串越大（大于原来

这个很好做!R1=100欧R2=300欧U=IR串联电路电流相等,所以电阻比等于电压比就这样了,解答楼主不给财富值额~再问：R1和R2串联后介入电路图中后，两端所加的电压为28V，如果R1的电阻为40

220∠0°÷（20+2000j）=220∠0°÷[√（20^2+2000^2）∠actan(2000/2)]=220∠0°÷2000∠90°=(220/2000)∠(0-90)°=0.11∠-90°

一次都运行不起来,编译错误.next后面的变量必须和循环计数器相同也就是next或nexti都可以,nexts不行如果是nexti那么第一次,i=1,s=1步长为3,所以第一次执行到nexti,i=i

PrivateSubCommand1_Click()DimiAsDoubleDimnAsDoubleDimsumAsDoublesum=0IfNotIsNumeric(Text1.Text)Then'

PublicFunctions(n)Dimi,j,t,resFori=1Tont=1Forj=1Toit=t*jNextres=res+tNexts=resEndFunction

VC是(+E1),VB是(-E2),UBC就是(VB-VC),R1R2将VCVB分压,用电阻分压公式：(VC-VA)/R1=(VA-VB)/R2,就能解出VA来.再问：这个公式我不会算，你帮我用标题的

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

设声波是从一点传至另一点的,则s是两点间的距离,t是声波由一点传至另一点的时间

vb=6+(9-6)*50/(100+50)=7v

PrivateSubCommand2_Click()DimIAsLong,SAsLongForI=1To100IfIMod2=0ThenS=S-IElseS=S+IEndIfNextPrintSEnd

PrivateSubCommand1_Click()Dimi,j,tDimsumsum=1Fori=2To10t=1Forj=1Toit=t*2Nextjsum=sum+tNextiPrintsumE

R1和R2为并联关系由并联关系可知U2=U=12VR2=U2/I=12/0.2=60Ω

D.R1与滑动变阻.器R2串联,当R2最小为O欧姆时V的示数最大为18v,即为电源电压,当R2位于最大阻值时V最小为12v即为R1的电压,这时R2的电压为18v一12v=6v.则可由R1算出电流I=1

PrivateSubCommand1_Click()DimNAsLong,SAsLongDoN=N+1S=S+N*(N+1)IfS>5000ThenExitDoLoopPrint"结果="&SPrin

首先“落叶|无情”的代码很好,但是我想题目中所说“用Sub过程和Function过程两种方法来实现”的意思,应该是用这两个独立实现求阶乘和,而不是在Sub中还要调用Function.当然,在Sub过程

PrivateSubCommand1_Click()dimiasintegerfori=1to55step2m=m+inextiprintmendsu

用Sub过程实现：PrivateSubCommand1_Click()DimtAsLongs=0fac01,ts=s+tfac02,ts=s+tfac03,ts=s+tPrint"s=1!+2!+3!