设有VB函数:Private Function f(x As Single) As Single 可以返回f(x)的值(函数体没有给出)。下面程序的功能是从键盘输入2个实数x1、x2,判断在x1、x2之间是否存在零点。 Private Sub Comma

admin2020-06-30  57

问题 设有VB函数:Private Function f(x As Single) As Single  可以返回f(x)的值(函数体没有给出)。下面程序的功能是从键盘输入2个实数x1、x2,判断在x1、x2之间是否存在零点。
Private Sub Command1_Click()
    Dim x1 As Single, x2 As Single
    x1 = InputBox("请输入一个实数x1")
    x2 = InputBox("请再输入一个实数x2")
    If ( ____________ ) Then
        Print "在"; x1; "与"; x2; "之间存在零点"
    Else
        Print "不能确定在"; x1; "与"; x2; "之间是否存在零点"
    End If
End Sub
Private Function f(x As Single) As Single
    ……
End Function
为使上面程序可以实现该功能,程序代码中横线处应填写的代码是

选项 A、f(x1) >0 Or f(x2) < 0
B、f(x1) < 0 And f(x2) < 0
C、f(x1) * f(x2) < 0
D、f(x1) * f(x2) > 0

答案C

解析 判断x1和x2之间是否存在零点的条件是x1和x2符号相反。即x1和x2的积是负数。函数f可以返回f(x)的值,因此满足上述条件的表达式是f(x1) * f(x2) < 0,选C)。
转载请注明原文地址:https://jikaoti.com/ti/gJS0FFFM
0

最新回复(0)