vb大作业算法vb大作业算法
1、 If p 0 Then
X1 = ((-b) + Sqr(p)) / (2 * a)
Text4.Text = X1
X2 = ((-b) - Sqr(p)) / (2 * a)
Private Sub Form_Load() Text5.Text = X2 Label1.Caption = "武汉理工大学欢 End If
迎您" End Sub
Show 3、
Label1.Move 0, 200
End Sub
Private Sub Timer1_Timer() ...
vb大作业算法
1、 If p < 0 Then
MsgBox "无实数解"
ElseIf p = 0 Then
X1 = (-b) / (2 * a)
Text4.Text = Str(X1)
X2 = X1
Text5.Text = Str(X2)
ElseIf p > 0 Then
X1 = ((-b) + Sqr(p)) / (2 * a)
Text4.Text = X1
X2 = ((-b) - Sqr(p)) / (2 * a)
Private Sub Form_Load() Text5.Text = X2 Label1.Caption = "武汉理工大学欢 End If
迎您" End Sub
Show 3、
Label1.Move 0, 200
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = True
If Label1.Left < Form1.ScaleWidth
Then
Label1.Left = Label1.Left + 30
ElseIf Label1.Left >=
Form1.ScaleWidth Then
Label1.Top = Label1.Top - 30
End If
End Sub
2、 Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Randomize
a = Int((90) * Rnd + 10)
Text1.Text = a
b = Int((90) * Rnd + 10) Private Sub Command1_Click() Text2.Text = b
Dim a As Double c = a + b
Dim b As Double End Sub
Dim c As Double Private Sub Command2_Click()
Dim p As Double If c = Text3.Text Then
a = Val(Text1.Text) MsgBox ("正确")
b = Val(Text2.Text) Else
c = Val(Text3.Text) MsgBox ("错误")
p = (b * b - 4 * a * c) End If
End Sub
本文档为【vb大作业算法】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。