设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › VB编一元二次方程过程，但测试时提示有错，请高手修改， ...

VB编一元二次方程过程，但测试时提示有错，请高手修改，谢谢

[复制链接]
查看11 | 回复0 | 2011-5-5 11:33:35 | 显示全部楼层 |阅读模式
DimaAsSingle,bAsSingle,cAsSingle
Dimsng1AsSingle,sng2AsSingle
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
Ifa=0Then
Text4.Text=\"方程无解。\"
Text5.Text=\"方程无解。\"
Else
Text4.Text=-c/b
Text5.Text=\"方程只有一个实根。\"
EndIf
Else（在此提示没有ELSE没有IF是怎么回事）
sng1=b*b-4*a*c
sng2=Sqr(Abs(sng1))/Abs(2*a)
Ifsng10Then
Text4.Text=CStr(-b/(2*a))defds123\"\"defds123CStr(sng2)defds123\"i\"
Text5.Text=CStr(-b/(2*a))defds123\"-\"defds123CStr(sng2)defds123\"I\"


Else
Text4.Text=-b/(2*a)Abs(sng2)
Text5.Text=-b/(2*a)-Abs(sng2)
EndIf
EndIf
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行