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

模拟练习题（第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) 窗口名 4．命令按钮中设置控件是否可用的属性为

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

(A) Long (B) Integer (C) String (D) Boolean 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 (C) -1 (D) 1 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) 排序算法

二、综合题

- 142 -

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 End If

Label2.Caption = Str(total)

- 143 -

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() For i = 1 To 7

L(i) = Val(InputBox(\Next i

- 144 -

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

- 145 -

模拟练习题（第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) 长整数型 (D) 逻辑型 6．下列可以作为Visual Basic的变量名的是

(A) _abc (B) A123 (C) 4ABC (D) A12%3 7．表达式Int(Sqr(12))的值是

(A) 1 (B) 2 (C) 3 (D) 4 8．下列表示[-50，49]区间内的随机整数的式子正确的是

(A) Int(Rnd*49-50) (B) Int(Rnd*50+49) (C) Int(Rnd*100-50) (D) Int(Rnd*99+49) 9．数学表达式|x-31|对应的VB表达式是

(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 (C) 456123 (D) 123456 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．把问题所有可能的解一一地罗列出来，并对每一个可能的解进行判断，从中挑选出符合条件的

- 146 -

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