分析完善程序。以下是求解一元二次方程ax2+bx+c=0(a≠0)的主要VB程序片段，请你补全代码：a=Val(InputBox(“a=”))b=Val(Inp

题干

分析完善程序。
以下是求解一元二次方程ax²+bx+c=0(a≠0)的主要VB程序片段，请你补全代码：
a=Val(InputBox(“a=”))
b=Val(InputBox(“b=”))
c=Val(InputBox(“c=”))
d=________________________’求判别式d
If d>0 Then
x1=(-b+Sqr(d))/(2*a)
x2=(-b-Sqr(d))/(2*a)
Print “x1=”;x1
Print “x2=”;x2
End If
If ________________ Then
Print”x=”;-b/(2*a)
End If
If d<0 Then
Print “无实数解！”
End If

上一题下一题 0.99难度 None 更新时间:2020-03-16 10:09:21

答案(点此获取答案解析）

同类题2

完全平方数之和。编写 VB 程序，实现如下功能：在文本框 Text1 中输入用逗号分隔的一系列整数（每个整数的绝对值不超过 1000，个数不超过 100 个），单击“计算”按钮 Command1，计算输入的整数中的完全平方数之和（完全平方数是指一个整数能表示成某个整数的平方的形式，例如 4 是完全平方数，可以表示成 2 的平方），并将结果显示在标签 Label1 中。程序运行效果如图所示。

（1）文本框 Text1不具备的属性为___（单选，填字母：

（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String
Dim i As Integer, j As Integer, ans As Long
Dim f As Boolean
ans = 0
s = Text1.Text: j = 1:____________
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch = , Then
x = Val(Mid(s, j, i - j))
If___________Then
ans = ans + x
f = True
j = i + 1
ElseIf ch = "-" Then
f = False
j = j + 1
End If
Next i
Label1.Caption = "完全平方数之和为： " + Str(ans)
End Sub
（3）若文本框 Text1 中输入的内容为“-4,4,4”（不包括双引号），则标签 Label1 中输出的内容为“完全平方数之和为：__”。

题干

答案(点此获取答案解析）

同类题1

同类题2

同类题3

同类题4

同类题5