算法和程序设计分析及试题附答案 - 08-算法和程序设计(7)

解答，这种思想的算法属于

(A) 排序算法 (B) 对分查找 (C) 解析算法 (D) 枚举算法

二、综合题

1．有如下VB程序段：

n = 123 s = 0

Do While n > 1 s = s + n \\ 5 n = n \\ 5 Loop

执行该程序段后，变量s的值是

2．下面Visual Basic程序的功能是：计算表达式1+1/3+1/5+…+1/99的值，并在文本框Text1中输出

该表达式的值。为了实现这一功能，则程序中划线处的语句应更正为 （1） （2） Private Sub Command1_Click() Dim sum As Single, i As Integer sum = 0

For i = 1 To 99 Step 2 sum = sum + i （1） Next i

Text2.Text = Str(sum) （2） End Sub

3．我国是人口大国，2007年初，我国人口总数已达13亿5千万。假设我国年人口增长率为0.5%，则从2007年起多少年后我国人口就会达到或超过15亿？

解决上述问题的Visual Basic程序如下，为了实现这一目标，在划线处，填入合适的语句或表达式是

（1） （2） Private Sub Command1_click() Dim n As Integer, r As Single Dim p As Double r = 0.5/100 p = 13.5 n = 0

Do While p < 15

（1） n = n + 1

（2） Text1.Text = Str(n) End Sub

4．下列程序段实现以下功能，求1 + (1 + 2) + (1 + 2 + 3) + … + (1 + 2 + 3 + n)，n由用户输入。 为了实现这一目标，在划线处，填入合适的语句或表达式是

（1） （2）

- 147 -

（3） Private Sub Form_Click() n = Val(Text1.Text) Sum = 0

For i = 1 To n Sum1 = 0

For j = 1 To （1） （2） Next j

（3） Next i

Text2.Text = Str(Sum) End Sub

5．下面程序求1到n之间的完全数。分析：所谓完全数是指小于该数本身的因子之和等于它本身，如6＝1+2+3，6即是一个完全数。

其中，上述界面中“开始处理”按钮的名称是“Command1”，布尔型函数perfect(x)作用判断x是否为完全数，若x是完全数，其值为True，否则为False。

请在下列程序代码的基础上按照要求设计该程序。 Dim n As Integer, a As Integer

Function perfect (x as integer) As Boolean

End Function

Private Sub Command1_Click() n = Val(Text1.Text) For a = 1 To n

If perfect (a) Then List1.AddItem (Str(a))

Next a End Sub 操作要求：

（1）完善程序中的Function perfect (x)部分

（2）在子程序Private Sub Command1_Click()中，主要采用的算法是：__________。

- 148 -

模拟练习题（第4套）

一、选择题

1．控件工具箱中的工具

是。

(A) 文件列表 (B) 单选按钮 (C) 图片框 (D) 标签框 2．能被对象所识别的动作是

(A) 事件 (B) 方法 (C) 属性 (D) 过程

3．在Visual Basic代码窗口中，语句Command1.Caption=\运行完成!\中的Command1是

(A) 属性名 (B) 属性值 (C) 窗口名 (D) 对象名 4．若要使某文本框获得控制焦点，可使用的方法是

(A) LostFocus (B) SetFocus (C) PointD (D) value 5．在Visual Basic中，语句Dim x As String的作用是将变量x定义为

(A) 字符串型 (B) 整数型 (C) 逻辑型 (D) 日期型

6．在Visual Basic中，要定义一个一维数组a，用于存储100个整数型数值，则正确的数组定义语句是

(A) Dim a100 As Integer (B) Dim a(1-100) As Integer (C) Dim a(1, 100) As Integer (D) Dim a(1 To 100) As Integer 7．表达式Abs(-3.6)*Sqr(100)的值是

(A) -360 (B) 360 (C) -36 (D) 36 8．随机数因子Rnd的取值范围是下列的哪个？

(A) [0，1]区间的实数 (B) （0，1）区间的实数 (C) （-1，1）区间的实数 (D) [-1，1]区间的实数 9．能完全正确表示“year是闰年”的逻辑表达式是

(A) year mod 4 = 0 (B) year mod 400 = 0 or year mod 4 = 0 and year mod 100 <> 0 (C) year mod 400 = 0 (D) year mod 400 = 0 and year mod 4 = 0 or year mod 100 <> 0 10．将文本框Text1内输入的数据送到数值型变量n中，则应使用的语句是

(A) n=text1 (B) n=text1.text (C) n=val(text1.name) (D) n=val(text1.text) 11．下面程序执行的结果是

Private Sub Form_Click() A=\C=Val(A)+Val(B) Print C\\100 End Sub (A) 123 (B) 3 (C) 5 (D) 579 12．有如下程序段：

e=0: f=1 For i=1 To 3 e=e+f f=f+e Next i

该程序运行后，f的值是 (A) 12 (B) 8 (C) 13 (D) 15

13．图书管理系统对图书管理是按图书的序号从小到大进行管理的，若要查找一本已知序号的书，则能快速的查找算法是

- 149 -

(A) 枚举算法 (B) 解析算法 (C) 对分查找 (D) 冒泡排序

二、综合题

1．有如下VB程序段：

I=1: X=0

Do While I<=20

If I Mod 2 = 1 Then X=X+1 Else

X=X-1 End if I=I+1 Loop Print I

执行该程序段的结果是 2．哥哥考弟弟一道数学题，题目是：“有一筐鸡蛋，2个2 个数多1个，3个3个数多2个，4个4个数多3个，5个5个数正好数完，问这筐鸡蛋最少是几个？”

为解决此问题，弟弟编了一个如下Visual Basic程序，其中s表示鸡蛋数，t用于控制循环。为了实现这一功能，则程序中划线处的语句应更正为

（1） （2） Private Sub Command1_Click() Dim s As Integer, t As Boolean s = 5 t = True （1） Do While Not t s = s + 1

t = (s Mod 2 = 1) And (s Mod 3 = 2) And (s Mod 4 = 3) And (s Mod 5 <> 0) （2） Loop

Text1.Text = Str(s) End Sub

3．某人走楼梯，方法是每步跨1个台阶或跨2个台阶。现要计算有20个台阶的楼梯，共有多少种不同的走法？

经分析，台阶数与走法种数如下表：

台阶数： 走法数： 1 1 2 2 3 3 4 5 5 8 6 13 7 21 8 35 9 56 ? ? 解决上述问题的Visual Basic程序如下，为了实现这一目标，在划线处，填入合适的语句或表达式是

（1） （2） Private Sub Command1_Click()

Dim a As Long, b As Long, c As Long, n As Integer a = 1

- 150 -

b = 2 c = a + b

For n = 4 To （1） a = b b = c

（2） Next n

Text1.Text = Str(c) End Sub

4．下列程序的功能是将0到255之间的十进制整数转换为二进制数的表示形式。

为了实现这一目标，在划线处，填入合适的语句或表达式是 （1） （2） （3） Private Sub Command1_Click() Dim a , i As Integer Dim s As string

Dim c(1 to 8) As Integer a = Val(Text1.Text)

If （1） Then

Text2.Text = “输入数据错误，请重新输入！” Else

For i = 1 to 8

（2） （3） s = str ( c (i ) ) + s Next i

Text2.Text =s End If End Sub

5．利用Function过程计算阶乘，求组

合数。设计界面如图1所示。运行时，OLE1 在文本框Text1和Text2中输入n和m

值，单击“＝”按钮计算组合数，结Text1 果显示于文本框Text3中。

请在下列程序代码的基础上按照要求设计该程序。 Text2

(1) Private Sub Command1_Click()

Dim m As Integer, n As Integer, c As Double m = Val(Text2.Text) n = Val(Text1.Text)

c = fact(m) / (fact(n) * fact(m - n)) Text3.Text = Str(c) End Sub

- 151 -

Command1 Text3

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库算法和程序设计分析及试题附答案 - 08-算法和程序设计(7)在线全文阅读。