vb 求虚数根

for语句fori=n1ton2[stepn3]...[exitfor]nexti对于对象集合有个特殊的For语句比如Text控件数组Text1(n)dimttasTextBoxForeachttin

解题思路：历史知识的积累解题过程：<三国演义>最终答案：略

解一元二次方程的Vb程序：在窗体上画一个命令按钮,输入下列代码,运行后可在窗体打印结果.PrivateSubCommand1_Click()dimaasdouble,basdouble,casdoub

解题思路：等比数列求和解题过程：varSWOC={};SWOC.tip=false;try{SWOCX2.OpenFile("http://dayi.prcedu.com/include/readq.

它简单易学、效率高,且功能强大可以与Windows专业开发工具SDK相媲美.在VisualBasic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口（

非递归：staticvoidf(intn){longp1=1,p2=1,p=1;for(inti=1;i

x²+zx+4+3i=0有纯虚数根设纯虚数根为ai,a≠0【等于零就为实数了】将ai带入x²+zx+4+3i=0得-a²+zai+4+3i=0所以z=(a²-4

dima%(1to10)max=0:k=0fori=1to10a(i)=int(rnd*(99-10+1)+10)text1=text1&a(i)&space(2)ifa(i)>maxthenmax=

我用VB6.0编写了一下,结果是“100”,如图：

解题思路：根据复数的运算法则可求解题过程：varSWOC={};SWOC.tip=false;try{SWOCX2.OpenFile("http://dayi.prcedu.com/include/r

指二次方程吧?判别式一样,只是此时必有两个复根ax^2+bx+c=0delta=b^2-4ac如果delta=0,则有两个相等复数根.如果delta0,则有两个不等复数根.

对于方程ax^2+bx+c=0,如果根为x1和x2,那么必然有：x1+x2=b/a,x1*x2=-c/a也就是他们的和,积都是实数.和为实数可以推出他们的虚部之和为0,所以不可能是一个实数一个虚数.若

PrivateSubCommand1_Click()x=InputBox("请输入x：")e=2.718281828SelectCasexCase-10To-1y=e^x+1Case0To5y=Abs

答案是C10程序共循环5次因为A的是是加2所以是两倍.就是10再问：不是很明白？能不能详细点？还有，a=a+2中，a一开始是多少？再答：vb里面所有未定义的变量初始值都是0明白了吧.第一次I的循环循环

设虚数z1,z2满足z1^2=z2,若z1,z2又是一个实系数一元二次方程的两个根,求z1,z2的值.解:设z1=a+bi,z2=c+dia,b,c,d为实数,z1,z2又是一个实系数一元二次方程的两

很正常啊,实数也属于复数范围再问：我是说如何判断虚数方程有无虚数根，别告诉我用△再问：错了，是实数根再答：我们这里不学虚数方程再问：。。。再问：。。。

原式=（a+i）（1+i）/（1-i）（1+i）=（a一1+（a+1）i）/2,a一1=0,即a=1

你的描述太乱了,看不懂,还是看我的吧定额.Text=Val(定额单价.Text)*Iif(Val(定额数.Text)超额.Text=Val(超额单价.Text)*Iif(Val(实际完成数.Text)

dimiaslongdimsaslong,osaslong,otaslongs=5000'------------------------输入的值ifs