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

Function fact(n As Integer) As Double

End Function

操作要求：

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

（2）如果在text1中输入5，text2中输入8，点击command1后text3中的内容是

- 152 -

模拟练习题（第5套）

一、选择题

1．结束当前程序的语句是。

(A)Quit (B) Exit (C) End (D) Sub 2．窗体能够响应的事件是

(A) ActiveForm (B) Drive (C) Load (D) Change 3．下列各组控件都具有Caption属性的是

(A) 按钮、文本框 (B) 标签、列表框 (C) 按钮、标签 (D) 文本框、列表框 4．能显示窗体的方法是

(A) Visible (B) Show (C) New (D) Open 5．在Visual Basic中，语句Dim b As Double所定义的变量b是

(A) 整数型 (B) 单精度实数型 (C) 双精度实数型 (D) 长整数型 6．定义a由a(1)~a(20)组成的一维数组整数类型变量，下列定义语句正确的是

(A) Dim a(1 To 20) As Double (B) Dim a(20 To 1) As Integer (C) Dim a(20) (D) Dim a(1 To 20) As Integer 7．Len(\的值是

(A) 6 (B) 7 (C) 8 (D) 9 8．假定X是一个数值型变量，那么由函数组成的表达式x mod 2 = 0的作用是

(A) 用于测试工X是否为偶数 (B) 返回一个整数 (C) 返回一个奇数 (D) 用于测试X是否为整数 9．下列能表示“x小于10且y大于0”的Visual Basic逻辑表达式是

(A) x<10 And y>0 (B) x<10: y>0 (C) x<10 Or y>0 (D) x<10,y>0 10．语句x=x+1的正确含义是

(A) 变量x与x+1的值相等 (B) 将变量x的值加到x+1中去 (C) 将变量x的值加1后赋值给变量x (D) 变量x的值为1 11．以下程序段执行后，整型变量n的值为

year=2001

n=year\\4+year\\400-year\\100 (A) 495 (B) 505 (C) 500 (D) 485 12．有如下Visual Basic程序段：

s=0

For k = 1 To 4

If 8/k >=3 Then s=s+k Next

该程序段运行后，变量s的值是 (A) 1 (B) 2 (C) 3 (D) 10

13．以下算法中，需通过多重循环一一列举出解决问题的所有可能解，并在逐一列举的过程中，检验每个可能的解是否是向题的真正解的是哪种，而需要从实际问题中归纳出数学解析式，就此设计出合适的算法的是哪种

(A) 解析法，枚举法 (B) 递归法，解析法 (C) 枚举法，解析法 (D) 枚举法，递归法

二、综合题

1．有如下VB程序段：

Dim n As Integer

- 153 -

Dim m As Integer m = 0

For n = 1 To 10

m = m + n mod 3 Next n

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

2．在平面直角坐标系中存在某点A(x，y)，输入该点坐标值，求它所在象限！

为了实现这一功能，则程序中划线处的语句应更正为 （1） （2） Private Sub Command1_Click() Dim x, y As Single x = Val(Text1.Text) y = Val(Text2.Text)

If x=0 and y=0 Then （1） Print \在坐标轴上\Else

If x >=0 Then （2）

If y > 0 Then Print \在第一象限\在第四象限\Else

If y > 0 Then Print \在第二象限\在第三象限\End If End If End Sub

3．将一张面值为100元的人民币等值换成5元、1元的零钞共40张，要求每种零钞不少于1张，问5元和1元面值的零钞各多少张？

设x、y分别为5元和1元面值的零钞张数，通过分析可得出该问题的数学表达式为：

?5x?y?100 ?x?y?40且1?x?20?解决上述问题的Visual Basic程序如下，为了实现这一目标，在划线处，填入合适的语句或表达

式是

（1） （2） Private Sub Command1_Click() Dim x As Integer, y As Integer y = 0 : x = 1

Do While （1） y = y + 5

（2） Loop

Label1.Caption = \元钞\张\Label2.Caption = \元钞\张\End Sub

4．有N盏灯放在一排，从1到N依次编号，有N个人也从1到N依次编号，第一个人将灯全部打开，第二个人将凡是2的倍数的灯全部关闭，第三个人将凡是3的倍数的灯作相反处理，第4、5、??、

- 154 -

N个人都把自己编号的倍数的灯作相反处理。问第N个人走过后，哪些灯是开着的？

为了实现这一目标，在划线处，填入合适的语句或表达式是 （1） （2） （3） Private Sub command1_click() Const n = 20

Dim i As Integer, j As Integer Dim a(1 To n) As Integer For j = 1 To n a(j) = 0 Next j

For j =2 To n For i = 1 To n

If （1） Then （2） End If Next j Next i

For i = 1 To n

If （3） Then List1.AddItem Str(i) Next i End Sub

5．要在以下的数列中进行查找某个数：

12 23 34 35 46 55 67 80 99

设以上有序数依次保存在数组元素A(1)，A(2)，??，A(9)中，查找的数存放在Number变量中。

VB的事件过程如下：

Private Sub Command1_Click()

Dim mid As Integer, low As Integer, hig As Integer Number = Val(InputBox(\请输入要查找的数\k = 0: low = 1: hig = n Do While low <= hig mid = (low + hig) / 2 If Number = a(mid) Then k = mid Exit Do Else

End If Loop

If k > 0 Then

MsgBox \所找的数在第\个位置\Else

- 155 -

MsgBox \没找到\End If End Sub

操作要求：

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

（2）该程序中，主要采用的算法是：_______________

- 156 -

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