如何用VB解这个解线性方程组代码 vb？？解线性方程组代码 vb比较复杂，望大神指导，谢谢谢谢谢谢谢谢！！！

来源：蜘蛛抓取(WebSpider) 时间：2015-05-05 08:09 标签： vb解一元二次方程
VB中Setwindowpos怎么用，最好例子加解说，谢谢_百度知道
VB中Setwindowpos怎么用，最好例子加解说，谢谢
提问者采纳
Private Declare Function SetWindowPos Lib &user32& (ByVal hwnd As Long, ByVal hWndInsertAfter_As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags_As Long) As LongConst HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2Const
SWP_NOMOVE=&H2Const
SWP_NOSIZE=&H1**************************************************Private Sub Form_Load()SetWindowPos Me.hwnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, &H1 Or &H2SetWindowPos Me.hwnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, SWP_NOMOVE
Or SWP_NOSIZEEnd Sub
不好意思，能说一下什么意思不，看不懂。3Q
SetWindowPos Me.hwnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, SWP_NOMOVE
Or SWP_NOSIZEMe.hwnd即当前窗体HWND_TOPMOST
使窗体在最上（顶）层HWND_NOTOPMOST 取消最顶层窗体SWP_NOMOVE
Or SWP_NOSIZE
不能移动 不能调整大小
提问者评价
来自团队：
其他类似问题
为您推荐：
setwindowpos的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁用vb解方程，那里不对 请高手支招 谢谢_百度知道
用vb解方程，那里不对 请高手支招 谢谢
Private Sub Command1_Click()a = Val(Text1)b = Val(Text3)c = Val(Text2)If b ^ 2 - 4 * a * c &= 0 ThenX1 = -b + Sqr(b ^ 2 - 4 * a * c)X2 = -b - Sqr(b ^ 2 - 4 * a * c)ElseX1 = &解&X2 = &解&End IfEnd Sub
我有更好的答案
a能等于0判定
先不考虑那个
现在这个程序运行不了
应该是a=Val(text1.text)
没有输出Private Sub Command1_Click()a = Val(Text1)b = Val(Text3)c = Val(Text2)If b ^ 2 - 4 * a * c &= 0 ThenX1 = -b + Sqr(b ^ 2 - 4 * a * c)X2 = -b - Sqr(b ^ 2 - 4 * a * c)Print X1Print X2ElseX1 = &无解&X2 = &无解&Print X1Print X2End IfEnd Sub
加2个text框试一下Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text3)
c = Val(Text2)
If b ^ 2 - 4 * a * c &= 0 Then
X1 = -b + Sqr(b ^ 2 - 4 * a * c)
X2 = -b - Sqr(b ^ 2 - 4 * a * c)
X1 = &无解&
X2 = &无解&End IfText4 = X1Text5 = X2End Sub
其他类似问题
为您推荐：
解方程的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁用VB语言来设计来解下列方程，麻烦各高手帮小弟一个忙，先谢谢各位高手啦.._百度知道
用VB语言来设计来解下列方程，麻烦各高手帮小弟一个忙，先谢谢各位高手啦..
LMP = T(C + logτ)
LMP = a0 + a1* (logσ) + a2* (logσ) 2 + a3* (logσ) 3 其 C=20
a0 、a1 、a2 、a3 给定数σ= 65MPa , T = 540 ℃求未知数τ再谢谢啦....
提问者采纳
搞定没?&没搞定找我吧&happyq6&&放6Label,1Command,1Text控件数组（03）拷贝代码Const&T&=&813Const&C&=&20Const&Gama&=&'LMP&=&T(C&+&log&&O)'LMP&=&a0&+&a1*&(log&&O)&+&a2*&(log&&O)&2&+&a3*&(log&&O)&3'&AE&&OÐ&C=20&&&&a0&&&a1&&&a2&&&a3&&I&&&&¨³&&E&'&&O=&65MPa&,&T&=&540&&&'&Có&I&&O&&E&&&OPrivate&Sub&Command1_Click()Dim&a(3)&As&Single,&LMP&As&Single,&temp&As&Single,&Tuo&As&Single,&str&As&StringLMP&=&0str&=&&Follow&the&formula:&&&&vbCrLfstr&=&str&&&&LMP&=&T(C&+&log&&O)&&&&vbCrLfstr&=&str&&&&LMP&=&a0&+&a1*&(log&&O)&+&a2*&(log&&O)&2&+&a3*&(log&&O)&3&&&&vbCrLf&&&vbCrLftemp&=&Log(Gama)str&=&str&&&&Log&&O=&&&&temp&&&vbCrLfFor&i&=&0&To&3a(i)&=&Val(Text1(i).Text)LMP&=&LMP&+&a(i)&*&temp&^&iNextstr&=&str&&&&a0=&&&&a(0)&&&&&&&&&a1=&&&&a(1)&&&&&&&&&a2=&&&&a(2)&&&&&&&&&a3=&&&&a(3)&&&vbCrLfstr&=&str&&&&LMP=&&&&LMP&&&vbCrLftemp&=&LMP&/&Tstr&=&str&&&&LMP/T=&&&&temp&&&vbCrLftemp&=&temp&-&Cstr&=&str&&&&LMP/T-C=&&&&temp&&&vbCrLfTuo&=&Exp(temp)Tuo&=&Format(Tuo,&&.00E&)str&=&str&&&&&&O=Exp(LMP/T-C)=&&&&TuoLabel6.Caption&=&strEnd&SubPrivate&Sub&Form_Load()Text1(0).Text&=&&&Text1(1).Text&=&&&Text1(2).Text&=&&&Text1(3).Text&=&&&Label1.Caption&=&&a0=&Label2.Caption&=&&a1=&Label3.Caption&=&&a2=&Label4.Caption&=&&a3=&Label6.Caption&=&&&Command1.Caption&=&&Calculate&Label5.Caption&=&&T=540&Degree&C&=813K&&&&vbCrLf&&&vbCrLf&&&&&&O=65&MPa&&&&vbCrLf&&&vbCrLf&&&&C=20&End&Sub我觉T应该计算绝温度&Gama应该Pa单位&觉应该用别单位改改数据&要程序mail&me吧&给
提问者评价
谢谢 已经解决了 下次再找你帮忙哦
其他类似问题
为您推荐：
vb语言的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁问题已关闭
代为完成的个人任务
提问需要满足：其他人可能遇到相似问题，或问题的解决方法对其他人有所助益。如果通过其他方式解决遇到困难，欢迎提问并说明你的求知过程。
求解方程的具体过程，求VA和VB 谢谢?
m约掉之后，Vo已知，就是二元二次方程了啊。请高手用VB.NET帮我编写个如下方程的计算程序哦！
[问题点数：100分，结帖人egg_fairy]
请高手用VB.NET帮我编写个如下方程的计算程序哦！
[问题点数：100分，结帖人egg_fairy]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2010年 总版技术专家分年内排行榜第一2009年 总版技术专家分年内排行榜第一
2011年 总版技术专家分年内排行榜第二
2009年2月 .NET技术大版内专家分月排行榜第三
2010年11月 总版技术专家分月排行榜第二2010年9月 总版技术专家分月排行榜第二2010年8月 总版技术专家分月排行榜第二
2010年7月 总版技术专家分月排行榜第三
2010年11月 总版技术专家分月排行榜第二2010年9月 总版技术专家分月排行榜第二2010年8月 总版技术专家分月排行榜第二
2010年7月 总版技术专家分月排行榜第三
2010年11月 总版技术专家分月排行榜第二2010年9月 总版技术专家分月排行榜第二2010年8月 总版技术专家分月排行榜第二
2010年7月 总版技术专家分月排行榜第三
2010年11月 总版技术专家分月排行榜第二2010年9月 总版技术专家分月排行榜第二2010年8月 总版技术专家分月排行榜第二
2010年7月 总版技术专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。

我要回帖

更多关于 vb解一元二次方程 的文章

 

随机推荐