程序与算法练习配答案

算法与程序练习1

姓名：班级

1．A班一组同学的英语听力成绩分别为24、27、16、15、24、18，下列采用排序算法及第二遍的排序结果分别为: 原始数据 第一遍 第二遍 第三遍 第四遍 第五遍 24 27 27 27 27 27 24 24 24 24 16 16 24 24 24 15 15 15 18 18 24 24 16 16 16 18 18 18 15 15 A. 冒泡排序，27 24 16 15 24 18 B. 冒泡排序，27 24 18 16 15 24 C. 选择排序，27 24 16 15 24 18 D. 选择排序，27 24 18 16 15 24 2．VB语句List1.addItem d(i) 的作用是把数组d的数据添加到列表框对象List1中。该语句中的“addItem”是（）

A.属性名 B.属性值 C.方法 D. 事件

3．小明想用VB编程制作一个名次计算器，首先将同学的成绩录入到计算机中，同时存放在数组a中，显示在左边列表框中。点击“排序”按钮后，程序会将成绩从高到低依次排序显示在右边的列表框中。运行界面如图所示，请在两个划线处填入代码。

Dim a(1 To 100) As Single Dim shu As Integer

Private Sub Command1_Click() Dim i, j, k As Integer Dim t As Single

For i = 1 To shu - 1 k = i

For j = i + 1 To shu If ① Then

t = a(j): a(j) = a(k): a(k) = t End If Next j

试卷第1页，总5页

Next i

For i = 1 To shu

List2.AddItem \第\名：\ Next i End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) Dim cj As Single

If KeyAscii = 13 Then cj = Val(Text1.Text) If cj > 0 Then ②

List1.AddItem Str(shu) & \：\ a(shu) = cj End If

Text1.Text = \ End If End Sub

4．数组a共有6个元素构成：49、45、61、46、58、57，若采用选择排序算法进行从大到小排序，则元素的比较次数和排序需要几遍才能完成（）

A.15次，4遍 B.15次，5遍 C.30次，4遍 D.30次，5遍 5．Sub test3()双重循环运行输出图形与3重复,但3已改题 For i = 1 To 5 step 1 s = \

For j = 1 To 2 * i - 1 s = Str(j) + s Next j

List1.AddItem s Next i End Sub

该程序的运行后列表框输出的第三行是（）

A、33333 B、55555 C、12345D、54321 6．Sub test2()

a = 12：b = 12：c = 5 Label1.Caption = \ Label2.Caption = \

If a > b Or Not b

Label2.Caption = \ End If

Label3.Caption = Label1.Caption+ Label2.Caption End sub

该程序段运行后，在标签Label3的Caption属性值是( ) A、\、\、\、\

7．在窗体上画一个命令按钮，名称为command1，单击命令按钮，执行如下事件过程： Private Sub Command1_Click() Dim a As String Dim c As String

试卷第2页，总5页

a = \ c = Mid(a, 14, 8) Text1.text = c End Sub

则在文本框Text1中显示的信息是（） A、software and hardware B、software C、hadrware D、and

8．在数组变量A中，A（1）、A（2）、?、A(10依次放了1号、2号、?、10号同学的成绩，下面一段程序的功能是实现反次序在列表框list1中输出这10个同学成绩，即输出次序为：A（10）、A（9）、?、A(1)，程序段如下： Dim A(-20 To 20) As Integer for i=① to ② step ③ List1.AddItem A(④) Next i

上程序中的①,②,③,④依次填入有下面几个可能答案： （1）、10，1，-1，i （2）、1，10，1，11-i （3）、 -5，4, 1, 5-i

（4）、0.2, 2, 0.2, 11-i/0.2 上面答案中，正确的有（） A、1个B、2个C、3个D、4个

9．下列关于\控件\属性的说法正确的是( ) A、控件的每一个属性都具有同样的默认值； B、所有对象都具有同样的属性；

C、控件的属性只能在设计时设置，不能在运行时修改；

D、单击窗体中的某控件，在属性窗口中的属性列表框中找到所要设置的属性，即可设置其属性值；

10．以下算法中，需要通过多重循环一一列举出解决问题的所有可能解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解；而需要从实际问题中归纳出数学表达式，就此求出解；这两个算法分别是（） A、穷举法、公式法B、循环法、递归法 C、查找法、函数法D、枚举法、解析法

11．一只漂亮的酒杯被摔碎了，则漂亮、酒杯、摔、酒杯被摔碎了分别代表的是（） A、对象，属性，事件，方法 B、对象，属性，方法，事件 C、属性，对象，方法，事件 D、属性，对象，事件，方法

12．以下只能用解析算法求解的是（ ）。 A．已知边长a、b、c，求三角形面积。

B. 求用10元、20元和50元三种纸币组合支付360元的不同方案。 C．求2000以内的素数。

D. 求所有的水仙花数的总和。

13．下列关于事件的叙述中不正确的是( )

A.事件是系统预先为对象定义的能被对象认别的动作 B.事件可分为用户事件与系统事件两类

C.VB为每个对象设置好各种事件，并定义好事件过程的过程名,但过程代码必须由用户

试卷第3页，总5页

自行编写

D.VB中所有对象的默认事件都是Click

14．下列程序的功能是在text1中输入的自然数，分解为3个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显示在左边的列表框中。例如，输入20，那么在列表框中会显示如下图所示结果。其中，上述界面中“分解”按钮的名称是“Command1”，程序中函数f(x)的功能是判断x是否为质数，如果是质数则返回值为true，否则返回false.

请在下列程序代码的基础上按照要求设计该程序, 完善程序中的划线部分。 Dim n As Integer, a1 As Integer, a2 As Integer, a3 As Integer Function f(x) As Boolean f = True

For i = 2 To Sqr(x)

If x Mod i = 0 Then _____( 1 )_____ Next i

End Function

Private Sub Command1_Click() n = _______( 2 )_______ For a1 = 2 To n For a2 = a1 To n For a3 = a2 To n

If _______( 3 )_______ And f(a1) And f(a2) And f(a3) Then List1.AddItem (Str(a1) + \tr(a3)) End If Next a3 Next a2 Next a1 End Sub

试卷第4页，总5页