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中字符串的双引号都是半角的; 求问:vb6怎么嵌入一张已经有数据的excel表?多谢! API函数如何使用?请问在哪儿能够找到这方面的书籍? VB动态添加控件时,如何取得事件 关于获得菜单句柄,求救! 如何用API函数控制UpDown控件? 为什么我的VB6没有microsoft internet transfer控件,我下载了sp4,sp5,都还是没有 怎样写代码自动修改odbc数据源? ADO,向高手请教 怎么用mscomm开发远程通讯程序? 请问怎么用vb实现对usb不同设备的开关? 请大神帮忙看一下串口接收的数据为什么接收不完整 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