可以用二分法来求算术平方根近似值。对f(x)=x2来说，在x∈[1,2]的范围内，f(x)单调递增，这就给二分法创造了条件，例如求解√2，由于√2是无理数，因此_刷题宝

题干

可以用二分法来求算术平方根近似值。对f(x)=x²来说，在x∈[1,2]的范围内，f(x)单调递增，这就给二分法创造了条件，例如求解√2 ，由于√2 是无理数，因此只能获得它的近似值，我们以一定精度为例来逼近√2。
（1）如果f(mid)>2，说明mid>√2，应当在[left,mid]的范围内继续逼近，故令right=mid。
（2）如果f(mid)<2，说明mid<√2，应当在[mid,right]的范围内继续逼近，故令left=mid。
为实现这一算法，编写VB程序如下：
Function f(x As Single) As Single
f = x ^ 2
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Single, m As Single
Dim n As Inte

ger
n = Val(text1.Text)
i = 1: j = 2
Do While j - i > 10 ^ -5
m = (i + j) / 2
If f(m) > n Then j = m Else i = m
Loop
label1.Caption = Str(n) & "的算术平方根近似值为" & Str(m)
End Sub
下面说法错误的是（）

A．该程序不可用于计算10的算术平方根

B．该程序的精度j、i差值小于等于10^-5

C．代码“Function f(x As Single) As Single”不可修改为“Function f(x As Double) As Single”

D．代码中j=m可修改为j=m-1

上一题下一题 0.99难度填空题更新时间:2019-05-15 10:46:57

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

同类题1

某算法流程图如下图所示，图框①②③中应填入的内容分别是
(1)输出 m = ①

(2) 输入 x=4，则输出 x = ②

(3) 执行完该流程图，s 的值为 ③

同类题2

（加试题）王老师在使用 VB 程序要实现 n! 的功能。
Private Sub Command1_Click()
Dim p As Integer
Dim sum As Long
　p = Val(Text1.Text)
　sum = fx(p)
　Text2.Text = CStr(sum)
End Sub
Function fx(x As Integer) As Long
　If x = 1 Then
　　 fx = 1
　Else
　　 fx =____________________
　End If
End Function
要该程序实现此功能，横线处的代码为（　　）

D．fx(x-1)*(x-1)

同类题3

数学帝忘记了自己的E-Mail邮箱密码，但她需要接收一封很重要的来信，于是她求助科技达人帮她尽可能找出密码。她零星记得自己密码的相关信息：密码是六位数字，前面两位为31；最后两位数字相同；能被16和46整除。
科技达人轻松地用VB写了个小程序，帮数学帝找到了所有可能的密码。
科技达人的程序运行界面如下图所示。

科技达人的程序段如下：
Private Sub Command1_Click()
Dim a As Integer, s As long, b As Integer, i As Integer
For i =" 0" To 9999    ④
s =" 310000" + i
If s Mod 46 =" 0" Then
⑤
b =" (s" Mod 100) \ 10
If a =" b" Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
请分析任务，完成下列题目。
（1）在程序运行界面中出现了三种控件，它们分别属于列表框、命令按钮、标签，请你在序号后写出其对应的控件类型：
① ② ③
（2）在程序运行界面中控件 ①上显示了“帮助找回密码”字样，这是通过改变    属性的值实现的。
（3）解决问题常用的算法有枚举算法、解析算法、排序算法、查找算法等，那么从上述程序段看，解决此问题的算法是。
（4）程序段中出现了“Command1_Click”字样，表示这是一个面向对象的事件，这里的对象是___________________，事件是_______________。
（5）从程序段看，这段程序结构属于三种基本程序结构中的。
（6）在程序段的变量定义语句中，先后出现了integer和long两种数据类型，他们分别是型和     型。
（7）请在程序段中④和⑤处填充合适的内容，使程序完整。
程序中④处应填入______________
程序中⑤处应填入______________
（8）程序段中的语句 b =" (s" Mod 100) \ 10，目的在于计算s的十位数字，这里“\”实现了____________计算。

同类题4

某算法流程图如图所示，若输入m和n的值分别为189和161，执行这部分流程后，变量m的值为（）

同类题5

Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "TaizhouShusheng"
c =" Mid(a," Len (a) \ 2 + 1, 8)
Text1.Text = c
End Sub
该程序段运行后，在文本框Text1上显示的是( )

A．“Shusheng ”

B．“Taizhou”

相关知识点