[这个贴子最后由王山而在 2006/01/07 06:09pm 第 6 次编辑]

上传几个VB小程序，请指导！
一元二次方程求根

我们没学到什么“方程求根”的，但是我可以给你的VB程序的界面提一点意见
首先，你可以Form1的BorderStyle属性设置成“1 - Fixed Single”，然后把下面的MinButton设置为Ture。因为这个窗口不需要最大化，最大化了反而不好看。
然后，单击“清除再求”以后，建议给“a=”后面的文本框设置焦点。如果这个文本框是Text1，那么设置焦点就用Text1.SetFocus。
以后我们多多交流！

[这个贴子最后由王山而在 2005/06/21 10:31am 第 1 次编辑]

谢谢你的帮助和指导!
试过了,你说的不好使——可能我没理解好。

[这个贴子最后由王山而在 2005/06/21 03:27pm 第 2 次编辑]

详见这里_http://bbs.eduol.com.cn/dispbbs. ... D=164332&page=1

建议你把源代码传上来
还有，即使delta小于0也不能说方程无解，应该是无实根

我觉得楼主做得不是很好

这是信息技术课本上的
Private Sub Command1_Click()
Dim a, b, c, dlt, x, y, er As String
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
dlt = b * b - 4 * a * c
If dlt > 0 Then
x = (-b + Sqr(dlt)) / (2 * a)
y = (-b - Sqr(dlt)) / (2 * a)
Text4.Text = Str(x)
Text5.Text = Str(y)
End If
If dlt = 0 Then
x = (-b + Sqr(dlt)) / (2 * a)
Text4.Text = Str(x)
Text5.Text = Str(x)
End If
If dlt < 0 Then
Text4.Text = "无解"
Text5.Text = "无解"
End If
End Sub

我给个恶作剧程序代码，在98下通过，XP、2000可以用ctrl+alt+del终止
将窗体visible属性设置为false
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function SystemParametersInfo Lib "user32" _
   Alias "SystemParametersInfoA" (ByVal uAction As Long, _
   ByVal uParam As Long, lpvParam As Any, _
   ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97
Sub OpenCDDoor()
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub
Sub CloseCDDoor()
mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub
Private Sub Form_Load()
Dim ret As Integer
Dim pOld As Boolean
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
Do
OpenCDDoor
CloseCDDoor
Loop
End Sub
结果就是光驱不断进出，98下无法终止

今晚闲着没事干，编了一个vbscript脚本模仿了楼主的程序功能。。 [html]

Y=aX2+bX+c
一元二次方程的求解VBScript脚本
a=		b=		c=
求 方 程 的 解
脚本制作:风云 QQ:155120699

[/html]

如果楼主的求解器能求虚根就更好了。

[这个贴子最后由王山而在 2005/06/22 03:55pm 第 1 次编辑]

成绩查询.rar
详见这里_http://bbs.eduol.com.cn/dispbbs.asp?boardID=39&ID=164332&page=1

楼上的，
密码是什么的？

谢谢关注!
鼠标指向文本框后有提示。

行了，可以进去了。
得罪一句，你的程序有点……不敢恭维。

引用:

下面引用由Bill6189在 2005/06/22 10:25pm 发表的内容：
行了，可以进去了。
得罪一句，你的程序有点……不敢恭维。

盼望说出来！
不妨把您做的也发上来。

我为什么做了六次《成绩查询》
    我这个年近七旬的老头子，不会英文。两年前用了将近一个月的时间读了一本关于VB6.0的书，照葫芦画瓢式地将书中的例题做了一遍。觉得也没什么用处，就放下了。
    直到2005年5月在K12上讨论“取消按成绩排名后怎么办”，我提到“离均率”，为了计算方便，于是我想用VB做一个小程序。可是两年前学过的已经忘得差不多了，只好边做边翻书。就这样在做完关于求离均率的小程序之后，又做了《倒计时器》《求储蓄利息》《百分折算器》《九九口诀验算器》《等差数列计算器》《一元二次方程求根》《判断素数》《乘方与开方》等等。
    上面这些有的是对书中原例题加以改造，有的是将QBASIC上的事例移到VB上来。仍然是一个做习题的过程。后来我想到突破自己。我手中的VB和QB教材关于排序是从小到大，于是我想到成绩排名中的从大到小，我从3到5再到10，进行从大到小排序，于是做了《大到小排序》。开始我只能求两数的最大公约，然后再用已经得到的最大公约求最小公倍，后来能用VB一次求出了。这样就有了《求最大公约与最小公倍1—3》。关于等级评语开始只能评3个等级，后来能评4个等级、5个等级了，于是关于评等的就有了几个。VB教材中用Array（）函数查12个月中的某个月，我想到用考号查询成绩，于是做了《成绩查询（1）》。这个函数的缺点是要从输入的数值中减去1，于是我又做了《成绩查询（2）》。《成绩查询（1）》中按考号查用的是Array（）函数，按姓名查用的是数组[m（n）]。实际是两个程序。《成绩查询（2）》中按考号查用的是Choose( ) 函数, 按姓名查用的是Switch( ) 函数。我觉得用两个程序不妥，于是做了《成绩查询（3）》。即在《成绩查询（2）》的基础上，又加上了复选按钮。后来又在《成绩查询（3）》的基础上，把复选按钮改为选项按钮，这一步对于我来说也挺难。后来又在《成绩查询（4）》的基础上添了一个窗体，加了密码。这就是《成绩查询（5）》。后来在QB教材上见到一道从班级代号查班级人数的例题，于是又做了《成绩查询（6）》，这里面按考号查用的是Select Case语句, 按姓名查用的也是Select Case语句。
    上面这些对专家能人来说，可能类似计算1+2，但是对我来说，实在不是一件轻而易举之事。我不会绘画，控件布局不受看；另一个原因我注重的是程序本身，是这些小程序的工具性。传上来请网友们帮助改进。希望见到网友们自己的力作。

引用:

下面引用由王山而在 2005/06/23 04:36am 发表的内容：
盼望说出来！
不妨把您做的也发上来。

我没做过成绩查询类的软件哦。

呵呵，王老爷子玩起编程来了
致敬~~~~~~   ：）
  

方程太粗糙了，你以后还要多加努力。不过有个好的开始也是不错的。

引用:

下面引用由vagrant在 2005/06/23 12:23pm 发表的内容：
方程太粗糙了，你以后还要多加努力。不过有个好的开始也是不错的。

多谢!
把你编的发上来学习一下.