询问高二VB题目（多题）

来源：百度知道编辑：UC知道时间：2024/05/03 11:07:06

'已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。
'填空完成程序，求方程的根。要求：如果方程无实数根，则输出"无实数根"，否则输出两个实数根。
Private Sub Command1_Click()
Dim a, b, c, d As Single
Dim x1, x2 As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a <> 0 Then '判断a是否等于0
d = _______
If d >= 0 Then '判断是否有实数根
x1 = _______
x2 = (-b - Sqr(d)) / (2 * a)
Label1.Caption = Str(x1)
Label2.Caption = Str(x2)
Else
Label3.Caption = _______
End If
End If
End Sub

'填空完成程序，打印如图所示的图案。
'*
'**
'***
'**
'*

Private Sub Form_Click()

Dim i As Integer '定义i为整型变量
Dim j As Integer '定义j为整型变量
For i = -2 To 2
For j = 1 To 3 - _________
_________
Next j

已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。
'填空完成程序，求方程的根。要求：如果方程无实数根，则输出"无实数根"，否则输出两个实数根。
Private Sub Command1_Click()
Dim a, b, c, d As Single
Dim x1, x2 As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a <> 0 Then '判断a是否等于0
d = b*b-4*a*c
If d >= 0 Then '判断是否有实数根
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Label1.Caption = Str(x1)
Label2.Caption = Str(x2)
Else
Label3.Caption ="无实数根"
End If
End If
End Sub

第二道：
填空完成程序，打印如图所示的图案。
'*
'**
'***
'**
'*

Private Sub Command1_Click()
Dim i As Integer '定义i为整型变量
Dim j As Integer '定义j为整型变量
For i = -2 To 2
For j = 1 To 3 - Abs(i)
Print "*";
Next j
Print '换行
Next i

End Sub

某公司每年的销售收入均比前一年增长10个百分点，按此速度

询问高二VB题目（多题）高二立体几何题目高二化学题目高二生物题目化学题目高二高二物理题目高二数学题目高二有机化学题目高二英语题目高二电学题目。