浙教版高中信息技术浙江高考复习资料算法和程序设计分析及试题附答案 08-算法和程序设计

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

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

141

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

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()中，主要采用的算法是：__________。

142

模拟练习题（第2套）

一、选择题

1．在Visual Basic工程设计中，双击窗体中的对象后，出现的是

(A) 工程窗口 (B) 工具箱 (C) 代码窗口 (D) 属性窗口 2．如果要把某个图片作为程序窗体的背景，下列方法最合理的是

(A) 直接修改窗体的Picture属性实现插入图片。

(B) 在窗体中插入Image控件，再修改该控件的Picture属性插入图片。

(C) 在窗体中插入PictureBox控件，再修改该控件的Picture属性插入图片。 (D) 选择“插入”→“图片”菜单命令实现。

3．在Visual Basic代码窗口中，语句Student.Text=\宋知国\中的Text是

(A) 属性名

(B) 属性值

(C) 对象名

(D) 窗口名

(D) Caption (D) Boolean

4．命令按钮中设置控件是否可用的属性为

(A) Enabled (B) Visible (C) Font 5．在Visual Basic中，表示字符串型的数据类型名是

(A) Long (B) Integer (C) String 6．下列可以作为Visual Basic的变量名是

(A) Man_1 (B) A*123 (C) A>B (D) A&B

7．Visual Basic函数Fix(x)的作用是截掉数据的小数部分。已知a是实数，当关系表达式Fix(a)=a为真时，则表示a是

(A) 负数

(B) 正数

(C) 整数

(D) 小数

8．随机产生一个两位正整数的VB表达式是

(A) 1+Int(100*Rnd) (B) 10+Int(90*Rnd) (C) Int(100*Rnd) (D) Int(90*Rnd)

9．圆周长的计算公式为L=2πa，其中a为圆半径。在Visual Basic中，能正确表示2πa的表达式是 (A) 2πa (B) 2*π*a (C) 2?π?a (D) 2*3.1416*a 10．设a=2，b=3，c=4，d=5，表达式a>b AND c<=d OR 2*a>c的值是 (A) True (B) False 11．有如下程序段：

a=Sqr(3) b=Sqr(2) c=a>b

该程序段运行后，c的值为

(A) -1 (B) 0 (C) False (D) True

12．下面的程序段用于计算 s=1*2+3*4+5*6+7*8+9*10，则在程序的划线处应该填上

s=0

for k=1 to 10 Step_______

s=s+k*(k+1)

Next k (A) 0 (B) 1 (C) 2 (D) k

13．只能被1或本身整除的大于1的自然数称为素数。判断大于1的某自然数m是不是素数的算法基本思想是：把m作为被除数，将2到m-1中的自然数作为除数，逐一进行相除，如果都除不尽，m就是素数，否则m就不是素数。这种判定素数的算法主要属于

(A) 枚举算法 (B) 解析算法 (C) 递归算法 (D) 排序算法

143

(C) -1 (D) 1

二、综合题

1．有如下程序段：

Dim x, y, z As Integer x = 12 y = 32

x = x Mod 10 y = y \\ 8

z = x + y

该程序段运行后，z 的值为

2．下面程序的功能是：计算表达式1×2×3×……×10的值，并在文本框Text1中输出表达式的值。为了实现这一功能，则程序中划线处的语句应更正为

（1）

（2） Private Sub Command1_Click() Dim I As Integer, t As Long t = 0 （1） For i = 1 To 10 t = t * i Next i

Text1.caption = Str( t )

（2）

End Sub

3．会员积分的计算。超市会根据会员顾客的一次性消费总额给予一定的积分，会员可在年终依据积分换得相应的商品。每次消费时，计算机会自动累加所购商品的总价并折算成积分。

超市折算积分的规则是这样的：每满100元（不到150元）消费就给1积分，如果总消费额达150元及以上，那么每40元消费可以获得0.5积分。

下列程序可根据已经输入的所有已购买商品的价格（已经保存在数组a中），计算总消费并折算成积分，最后显示当前一次性总消费额（显示在标签Label2中）以及所获得的积分总值（显示在标签Label4中）。

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

（1） （2）

Const n = 10 Dim a(n) As Single Dim i As Integer

Dim ans As Single, total As Single Private Sub Command1_Click() total = 0: ans = 0 For i = 1 To n

（1） Next i

If total < 150 and total>=100 Then

（2） Else

ans = Fix(total / 40) / 2

144