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

Text2.Text = Str(st) End Sub 操作要求：

（1）完善程序中虚线框部分。

（2）该程序中，Do while语句循环次数可以参照哪个变量的值？_______________ 参考答案：（1） For i = 1 To 3

For j = i + 1 To 4 If a(i) < a(j) Then y = a(i) a(i) = a(j) a(j) = y End If Next j Next i （2）st

本题是补充一段程序，属于难题，主要考核排序设计的能力。

- 137 -

模拟练习题（第1套）

一、选择题

1．文本框控件和标签控件的区别

(A) 标签框能输入，文本框不能输入 (B) 两者都能输入 (C) 标签框不能输入，文本框能输入 (D) 两者都不能显示 2．下列关于添加“控件”的方法正确的是

(A) 单击控件图标，将指针移到窗体上，双击鼠标 (B) 双击工具箱中的控件，即在窗体上出现该控件 (C) 单击工具箱中的控件，将指针移到窗体上，再单击 (D) 用鼠标左键拖动工具箱中的某控件到窗体的适当位置

3．在Visual Basic工程设计中，要在标签对象Start上显示文字“欢迎使用本系统!”， 则下列属性中应改变的属性是

(A) Caption (B) Width (C) Font (D) Height 4．单选钮控件数组中用来区分不同对象的属性是

(A) Caption (B) Name (C) Index (D) Font 5．InputBox函数值的数据类型

(A) Integer (B) String (C) Boolean (D) Single 6．下列属于Visual Basic字符串常量的是

(A) 1/2 (B) Int(3.4) (C) \ (D) 1+2 7．在Visual Basic中，表达式Int(-4.5)的值是

(A) -5 (B) 4 (C) 4.5 (D) 5 8．设a=3，b=4，下列运算结果中，值最大的是

(A) Sqr(b/a) (B) b\\a (C) Int(b/a) (D) a Mod b

9．银行给用户计算利息时，结果中会产生很多位小数，但在支付时，是以“元”为单位，按“分”结算的，即结果保留二位小数，并对第三位小数进行四舍五入。假设结算的利息是x元，在Visual Basic中，上述算术问题的表达式应是

(A) Int(x*10+0.5)/100 (B) Int(x*100+0.5)/100 (C) Int(x*100)/10 (D) Int(x*100+0.5)/10

10．在Visual Basic中，已知a、x、y均是正整数，当逻辑表达式(a Mod x = 0) And (a Mod y = 0)为真时，则表示

(A) a是x的倍数，但不是y的倍数 (B) a既是x的倍数，又是y的倍数 (C) a是x的倍数或者是y的倍数 (D) a既不是x的倍数，也不是y的倍数 11．有如下程序段：

x=5: y=6

p=Not(x+y=11)

该程序段运行后，P的值是____________。 (A) 1 (B) 0 (C) True (D) False 12．下列程序段的执行结果为

a=0: b=1 Do

b=b+1 b=2 a=2;b=3 a=5;b=4 a=9;b=5 a=14 a=a+b

Loop While a<10 Print a; b

- 138 -

(A) 10 5 (B) 14 5 (C) 0 1 (D) 10 30 13．计算圆周长的算法描述如下：

①输入圆半径r；

②计算圆周长a(计算公式为a=2πr)； ③输出结果； ④结束。 上述算法属于 (A) 枚举算法 (B) 排序算法 (C) 递归算法 (D) 解析算法

二、综合题

1．有如下Visual Basic程序段：

a=\b=\c=a+b

该程序段运行后，变量c的值是 Goodbye

2．下面程序的功能是：计算表达式1+3+5+…+(2n-1)的值，在文本框Text1中输入n的值，结果在文本框Text2中输出。则程序中划线处的语句应更正为

（1） （2） Private Sub Command1_Click()

Dim sum As Long, i As Integer, n As Integer sum = 0

n = Val(Text1.Text)

For I = 1 To 2 * n - 1 Step 2

sum = sum + 2 （1） Next I

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

3．有一个有趣的兔子繁殖问题：第1个月买来1哀怜对小兔子，两个月后，这对兔子就会生1对小兔子，以后每个月都会生一对小兔子；而生下来的这对小兔子，两个月后又会开始生1对小兔子。依次类推，试问：几个月后，兔子将超过50对？

分析问题得出月份与兔子对数的关系如下表： 月份： 兔子： 1 1 2 1 3 2 4 3 5 5 6 8 7 13 8 21 9 35 ? ? 由表知兔子繁殖规律：从第3个月开始，以后每月的兔子对数都是它相邻的前面2个月的兔子对数之和。

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

（1） （2） Private Sub Command1_Click()

Dim a(1 To 100) As Integer, n As Integer a(1) = 1 a(2) = 1

a(3) = a(2) + a(1) n = 3

- 139 -

Do While a(n) <= 50

n = （1） a(n) = （2） Loop

Text1.Text = Str(a(n)) End Sub

4．如下程序段的功能是：随机产生10个1-100之间的正整数，按升序将10个数据排序输出。 为了实现这一目标，在划线处，填入合适的语句或表达式是

（1） （2） （3） Const n=10

Dim i , j , t , k as Integer For i = 1 To n

（1） Next i

For i = 1 To n-1 k = i

For j = i + 1 To n If （2） Then k = j

Next j

If （3） Then t = d(i): d(i) = d(k): d(k) = t End If Next i

5．下列程序的功能是把输入的自然数分解为3个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显示在左边的列表框中（如右图所示）。例如，输入20，那么在列表框中会显示下列数据：

2 5 13 2 7 11

其中，上述界面中“开始处理”按钮的名称是“Command1”，函数f(x)的功能是判断x是否为质数，如果是质数则返回值为True，否则返回False。

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

Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer Function f(x) As Boolean

End Function

Private Sub Command1_Click() n = Val(Text1.Text) For a1 = 2 To n

- 140 -

For a2 = a1 To n For a3 = a2 To n

If (a1 + a2 + a3 = n) And f(a1) And f(a2) And f(a3) Then List1.AddItem (Str(a1) + \ End If Next a3 Next a2 Next a1 End Sub 操作要求：

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

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

- 141 -

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