vbs求解一元二次方程通解 求求大佬帮我解答一下,这个作业真的不会。改了好多次也没懂18行哪里错了。顺便想求解一下3-2的题,拜托了! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你定义变量的时候不定义其数据类型,于是都是Variant类型你从inputbox输入的是字符串,赋值给abc变量的时候,这三个变量就自动转换成字符串了。后续你的计算就出错了 Dim a ,b ,c, delta a = cdbl(InputBox("输入a")) b = cdbl(InputBox("输入b")) c = cdbl(InputBox("输入c")) delta = b ^ 2 - 4 * a * c If delta < 0 Then MsgBox "无解" Else Dim X1,X2 X1 = ((-b) + Sqr(delta)) / (2 * a) X2 = ((-b) - Sqr(delta)) / (2 * a) MsgBox "两解:" & vbCrLf & X1 & vbCrLf & X2 End If 请确认一下最后一个msgbox中字符串的双引号都是半角的; 打包 水晶报表在VB应用程序中的导出 如何将PictureBox传到DLL,然后在DLL中,在PictrueBox上画图。 vb主从表输入用什么方法做好 如何截管其它应用程序的事件或消息(高难度的) 抓包抓到的 Cookie 中的 login_time 值是怎么算出来的 最小化时隐藏任务... 请问在key_down事件中,keycode=17代表什么物理键? 300分送上:如何把在VB里画的图形保存为wmf格式! 我的软件想放到网上让别人下载,我要怎么做安装程序? 请大神帮忙看一下串口接收的数据为什么接收不完整 Win7 64位 vb6.0 不能加载 msxml.dll
你从inputbox输入的是字符串,赋值给abc变量的时候,这三个变量就自动转换成字符串了。后续你的计算就出错了
Dim a ,b ,c, delta
a = cdbl(InputBox("输入a"))
b = cdbl(InputBox("输入b"))
c = cdbl(InputBox("输入c"))
delta = b ^ 2 - 4 * a * c
If delta < 0 Then
MsgBox "无解"
Else
Dim X1,X2
X1 = ((-b) + Sqr(delta)) / (2 * a)
X2 = ((-b) - Sqr(delta)) / (2 * a)
MsgBox "两解:" & vbCrLf & X1 & vbCrLf & X2
End If