相关试卷
-
1、下列VB程序的功能是：求得1000以内的所有水仙花数，并在list1中显示。水仙花数是指一个n位数（n）=3），它的每个位上的数字的n次幂之和等于它本身（例如：1^3+5^3+3^3=153）
Private Sub Command1_Click()
List1.clear
Dim a As Integer
For i = 1 To 1000
s = 0
i= Len(Str(i)) - 1
For j = 0 To i - 1
a =
s = s + a ^ 3
Next j
If i = s Then
List1.AddItem i
End If
Next i
End Sub
横线处应填写 （ ）
A、i / 10 ^ j Mod 10 B、i \ 10 ^ j Mod 10 C、i \ 10 ^ (j Mod 10) D、(i \ 10) ^ j Mod 10 -
2、现有36个人搬36块砖，男的搬4块，女的搬3块， 2个小孩抬一块。要求一次正好全搬完，问男、女、小孩各需多少人？如果用编程的方法求解，以下算法最合适的是（ ）。A、解析法 B、枚举法 C、冒泡排序法 D、选择排序法
-
3、设有n盏灯，放在一排。从1 到 n依次顺序编号。有 n个人也从1到n依次编号。第1个人（1号）将灯全部关闭，第2个人（2号）将凡是2的倍数的灯打开，第3个人（3号）将凡是3的倍数的灯做相反处理（该灯如果为打开的，则将它关闭，如关闭的将它打开），以后的人和3号一样，将凡是自己号数倍数的灯做相反处理。问当n个人操作后，哪几盏灯是亮的。（亮灯为0，关闭为1）
为了实现这一目标，完善下列程序，使之能完成该功能。
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 i=1 To n
For j=1 To n
If j Mod i=0 Then
End If
Next j
Next i
For j=1 To n
If Then List1.AddItem Str(j)
Next j
End Sub
-
4、《孙子算经》中有一个“物不知其数”的问题，某数以3除余2，以5除余3，以7 除余 2。下面的 VB 程序用于求 1000 以内满足该条件的自然数及个数，请在程序划线处应填入合适的表达式。
Private Sub Command1_Click()
Dim c As Integer, n As Integer c = 0 : n = 9
Do While n <= 1000
If n Mod 3 = 2 And n Mod 5 = 3 Then
List1.AddItem Str(n)
c =
End If
n =
Loop
Label1.Caption = "1000 以内满足条件的数有" & Str（c）& "个"
End Sub
-
5、数学中的“自守数”：如果一个数的平方数的末几位等于该数本身，这个数就是自守数。例如：
5*5=25
6*6=36
25*25=625
76*76=5776
……
那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Command1，将符合要求的自守数显示在列表框 List1 中，统计个数显示在标签 Label1 中，运行界面如图所示。
(1)、程序运行时要在按钮上显示“统计”，应设置该按钮的属性。(2)、为实现上述功能，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim n As Single, k As Integer, t As Integer, c As Integer
List1.Clear c=0
For n = 5 To 10000
k = Len(Trim(n)) 'Trim()函数用于删除字符串前后的空格
t = (n * n) Mod ①
If t = n Then
List1.AddItem Str(n)
②
End If
Next n
Label1.Caption = "自守个数为：" + Str(c)
End Sub
为实现上述功能，划线处应填入的代码分别为
① ②
(3)、解决该问题采用了（选填：枚举/解析）算法。 -
6、一辆卡车运矿石，晴天每天运20次，雨天每天最多运12次，他一共运了8天，共112次，则晴天和雨天各有几天。用VB程序来解决这个问题，单击按钮Command1，在文本框Text1中输出晴天的天数，在文本框Text2中输出雨天的天数，程序代码如下：
Private Sub Command1_Click()
i＝1
j＝7
Do While _______
i＝_______
j＝________
Loop
Text1.Text＝Str(i)
Text2.Text＝Str(j)
End Sub
则下列说法正确的是( )
A、①应填的代码为 i*20＋j*12<>112 B、②应填的代码为i－1 C、③应填的代码为j＋1 D、描述该算法的思想为解析算法 -
7、古希腊著名科学家毕达哥拉斯把1、3、6、10、15、21、28……称为三角形数。这些三角形数序列有一定的规律，后一个数与前一个数的差刚好构成一个等差数列2、3、4、5、6、7、……，所以，第2位的“3”等于序列的第1位数“1”加上等差数“2”，第3位的6等于序列的第2位数“3”加上等差“3”……，第n位数m等于序列的第n-1位数加上等差数n。小金利用这个规律编写了一个判断三角形数的VB程序，在文本框Text1中输入一个大于1的正整数，单击“判断”按钮Command1，在标签Label1中显示判断结果。程序设计界面如图所示。
(1)、在设计程序界面时，要清空标签中显示的内容“Label1”，应修改该标签的属性。(2)、VB程序代码如下，请在划线处填入合适代码。Private Sub Command1_Click( )
Dim n As Integer, s As Integer
s = 0
n = Val(Text1. text)
If n > 1 Then
For i = 1 To n
s =
If n = s Then
Label1. Caption = Str(n) +“是一个三角形数。”
Exit For
Label1. Caption = Str(n) +“不是一个三角形数。”
Exit For
End If
Next i
Else
Labell.Caption = “请输入一个大于1的正整数”
End If
End Sub
(3)、若文本框Text1中输入的内容为“27”，单击按钮Command1后，标签Label1中显示的内容是 -
8、穷举法的适用范围是（ ）A、一切问题 B、解的个数极多的问题 C、解的个数有限且可以一一列举 D、不适合设计算法
-
9、列出所有可能的情况，逐个判断有哪些符合问题所要求的条件，从而解决问题，这是（ ）思路A、递归算法 B、顺序查找算法 C、穷举法 D、解析法
-
10、设计算法，求同时满足以下条件的所有四位正整数之合s。①不大于n(n的值由键盘输入)，②能被9整除，③十位数是2。算法流程图如下所示：
(1)、解决上述问题的算法属于（ ）A、枚举法 B、擂台法 C、解析法 D、对分法(2)、判断x能被9整除的设计思路是()；取x十位上数字的设计思路是( )。A、x除以9的余数为0；先求x除以10的余数，再求该余数除以10的商 B、x除以9的商为0；先求x除以10的余数，再求该余数除以100的商 C、x除以9的商为0；先求x除以100的余数，再求该余数除以100的商 D、x除以9的余数为0；先求x除以100的余数，再求该余数除以10的商(3)、小明根据上述思路，设计了一段不完整的程序。请完善划线处内容，完成上述功能。Dim n as Integer, x as Integer, s as long
s=0
n=InputBox(“输入四位数上限值”)
For
If and Then
s=s+x
End If
Next
-
11、珠心算是在大脑中以算珠表象作为载体，运用珠算法则所进行的计算。某学校的珠心算老师采用一种快速考查珠心算加法能力的测验方法，他随机给出一个正整数集合，集合中的数各不相同，然后要求学生回答：其中共有多少个数恰好等于集合中另外两个（不同的）数之和，例如集合{1，2，3，4}，一共有2个数等于集合中另外两个数之和，它们是3、4（4=3+1，3=2+1）。将上述算法编写成程序，其功能如下：程序运行时产生n个范围在[1，100]内的不同的随机整数存储在数组a中，并在列表框List1中显示，单击按钮Command1后，在标签Label1上输出结果，如图所示。
(1)、集合{1，2，3，4，5，6}中一共有个数等于集合中另外两个数之和。(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Const n=12
Dim a(1 To n) As Integer
Dim flag(1 To 100) As Boolean
Private Sub Form_Load()
Dim i As Integer, t As Integer
For i=1 To 100
flag(i)=False
Next i
i=1
Do While i <=n
t=Int(Rnd * 100)+1
If Not flag(t) Then
List1.AddItem Str(t)
flag(t)=True
i=i+1
End If
Loop
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, ans As Integer
ans=0
For i=1 To n
For j=i+1 To n
If a(i)+a(j)<=100 Then
If Then
ans=ans+1
flag(a(i)+a(j))= False
End If
Next j
Next i
Label1.Caption="共有"+Str(ans)+"个数!"
End Sub
-
12、使用穷举法解决问题，在列举问题可能解的过程中（ ）。A、不能遗漏，但可以重复 B、不能遗漏，也不应重复 C、可以遗漏，但不应重复 D、可以遗漏，也可以重复
-
13、学校使用Access软件设计学生考勤系统，实现刷卡签到功能，有关两张数据表相互关联，数据库设计的部分界面如图所示。
下列说法正确的是（ ）
A、“考勤表”中必须包含与“学生表”中“姓名”字段内容相同的字段 B、“考勤表”包含与“学生表”中“卡号”字段相匹配的字段 C、“学生表”只有在设计视图状态下，才能增加一个名为“联系电话”的字段 D、在不知道学生卡号的情况下，可以添加一条卡号为空的学生记录 -
14、建立数据库的基本过程有（ ）。
①分析信息特征 ②定义数据库结构 ③收集相关信息 ④编辑数据库 ⑤确定特征之间关系
以下较为合理的排序是（ ）。
A、①②③④⑤ B、④⑤①③② C、③①⑤②④ D、④⑤①②③ -
15、李浩在网上购物后，即可在网上查询到自己的购物订单，这些订单存放在（ ）。
A、文本文件 B、Word文档 C、电子表格 D、数据库 -
16、张兵在南京的一个售票点买到了成都到拉萨的往返火车票，这体现了（ ）。A、数据库的共享性能好 B、张兵比较幸运 C、售票点机器性能较好 D、张兵认识售票员
-
17、学校图书馆利用数据库系统管理图书，学生可以在任何一台联网计算机上查阅图书相关信息，这主要体现了数据库系统（ ）的优越性。A、数据共享 B、安全保密 C、计算快捷 D、只能查询
-
18、对数据库的更新维护主要包括（ ）
①追加数据 ②删除数据 ③建立查询 ④数据备份 ⑤制作数据
A、①④⑤ B、①②④ C、②③④ D、②④⑤ -
19、学习完《信息技术基础》必修模块后，王晓敏同学共完成了以下几个作品：①电子报刊《爱鸟报》；②学生学籍管理系统；③100米决赛成绩排序程序；④制作《学习雷锋》幻灯片。以上作品中，使用到数据库的是（ ）。A、① B、② C、③ D、④
-
20、数据库中的数据表通过相同的字段联系起来，所有的关系组合在一起，就构成了关系数据库。下图是某个关系数据库中的两个数据表，他们是通过（ ）联系起来的。
A、课程号 B、课程名称 C、学生编号 D、姓名