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

End If

Label2.Caption = Str(total)

Label2.Caption = Str(ans) End Sub

4．下列程序的功能是在一个有序的序列中查找数值30，同时统计查找的次数并显示查找次数。

为了实现这一目标，在划线处，填入合适的语句或表达式是 （1） （2）

（3） Dim a(1 to 6) As Integer

Private Sub Command1_Click()

Dim m As Integer, I As Integer, j As Integer, x As Integer, total As Integer Dim f As Boolean

f = False: x = 30: i = 1: j = 6: total = 0

Do While （1） And f = False total = total + 1

m = （2） If a(m) = x Then

f = True Else

If x < a(m) Then j = m - 1 Else

i = m + 1

End If End If Loop

If f = True Then

Label1.Caption = （3） Else

Label1.Caption = \找不到该数值\

End If End Sub

5．下面程序是计算如图所示的面积。从图中可以看出，五边形的面积是三个三角形面积之和。程序中函数area (a,b,c)的功能就是已知三角形三边a、b、c，返回三角形面积area。

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

Dim L(1 to 7) As single, s As single, I as integer Function area(a, b, c As single) As single

End Function

Private Sub Form_Click()

145

For i = 1 To 7 L(i) = Val(InputBox(\

Next i

S = area(L(1), L(5), L(6) )+ area(L(2), L(6), L(7))+ area(L(3), L(4), L(7) ) Text1.Text = Str(s) End Sub 操作要求：

（1）完善程序中的Function area(a , b , c)部分

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

146

模拟练习题（第3套）

一、选择题

1．以下选项中，不是Visual Basic控件的是（）

(A) 文本框 (B) 定时器 (C) 窗体 (D) 命令按钮 2．下列关于CommandButton控件的叙述正确的是

(A) CommandButton控件的Caption属性决定按钮上显示的内容

(B) 单击VB应用程序中的按钮，则系统激活按钮控件对应的Change事件 (C) CommandButton控件的name属性决定按钮上显示的内容

(D) 以上都不对

3．在Visual Basic代码窗口中，语句Book1.Text=\操作系统\中的Book1是

(A) 属性名

(B) 属性值

(C) 窗口名

(D) 对象名

4．激发事件处理过程Command1_Click()的事件是

(A) click (B) Change (C) Dblclick (D) KeyPress

5．在Visual Basic中，变量a中的数值是整数而且可能在-32768～32767范围之外，则变量a的数据类型应定义为

(A) 日期型 (B) 整数型 (C) 长整数型 6．下列可以作为Visual Basic的变量名的是 (A) _abc (B) A123 7．表达式Int(Sqr(12))的值是

(C) 4ABC

(D) 逻辑型

(D) A12%3

(D) 4

(A) 1 (B) 2 (C) 3 8．下列表示[-50，49]区间内的随机整数的式子正确的是 (A) Int(Rnd*49-50) (B) Int(Rnd*50+49) 9．数学表达式|x-31|对应的VB表达式是

(C) Int(Rnd*100-50) (D) Int(Rnd*99+49)

(A) Sqr(x–31) (B) Val(x–31) (C) Abs(x–31) (D)Str(x–31) 10．对于Visual Basic语句If i=1 Then j=1，下列说法正确的是

(A) i=1和j=1均为赋值语句 (B) i=1和j=1均为关系表达式

(C) i=1为关系表达式，j=1为赋值语句 (D) i=1为赋值语句，j=1为关系表达式 11．有如下程序段：

Dim a as string Dim b as string Dim c as string a=\b=\

c=val(a+b)

该程序段运行后，c的值为 (A) 579 (B) 123 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

147

(C) 456123 (D) 123456

(D) 10

13．把问题所有可能的解一一地罗列出来，并对每一个可能的解进行判断，从中挑选出符合条件的解答，这种思想的算法属于

(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由用户输入。 为了实现这一目标，在划线处，填入合适的语句或表达式是

148