阅读材料，完成下题。用计算机对《红楼梦》进行词频统计的研究，用计算机模拟水稻高产栽培的模型，“神舟飞船”发射指挥中心使用大量的计算机设备对飞船的指挥和控制等等，无不体现计算机的魅力和神秘莫测！计算机像人类的大脑一样充满智慧，像神仙一样神机妙算，这些都是归于计算机程序的功劳。

1. 阅读材料，完成下题。

用计算机对《红楼梦》进行词频统计的研究，用计算机模拟水稻高产栽培的模型，“神舟飞船”发射指挥中心使用大量的计算机设备对飞船的指挥和控制等等，无不体现计算机的魅力和神秘莫测！计算机像人类的大脑一样充满智慧，像神仙一样神机妙算，这些都是归于计算机程序的功劳。

(1) 关于用计算机程序解决问题的步骤，正确的是。 A. 设计算法、编写程序、提出问题、调试程序、得到答案 B. 分析问题、编写程序、设计算法、调试程序、得到答案 C. 分析问题、设计算法、编写程序、调试程序、得到答案 D. 设计算法、提出问题、编写程序、调试程序、得到答案

(2) 使用VB程序设计语言编写可以编写模拟飞行仿真程序，实现各种飞行训练功能。VB程序设计语言属于。 A. 汇编语言 B. 机器语言 C. 低级语言 D. 高级语言

(3) 程序有三种最基本的结构，分别是顺序结构、和循环结构。 A. 控制结构 B. 分支结构 C. 选择结构 D. 多分支结构

(4) 在Visual Basic程序设计语言中，定义字符串类型的是。 A. Integer B. Single C. String D. Boolean

(5) 穷举法的适用范围是 A. 一切问题 B. 解的个数极多的问题 C. 解的个数有限且可一一列举的问题 D. 不适合设计算法的问题

【考点】

计算机解决问题的过程; 算法的控制结构; 常见数据类型、数组; 枚举算法及程序实现; 计算机语言;

【答案】

您现在未登录，无法查看试题答案与解析。登录

综合题普通

1. 如果一个自然数恰好等于它的各因数之和，则称该效为完全数。这里的因素都是除去本身的正因数。例如：第一个完全数是6，它有因数1、2、3、6，除去它本身6外，其余3个数相加，1+2+3=6。寻找完全数并不是容易的事。经过不少数学家研究，到2013年2月6日为止，一共找到了48个完全数。

小明设计了一个VB程序，用于求解10000以内的所有完全数。点击按钮Command1，标签Label1显示完全数的个数，并在列表框中显示10000以内所有的完全数。

程序运行效果如图所示

实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Command1_Click( )

Dim i As Integer, j As Integer, c As Integer, s As Integer

c = 0 ‘用于存储完全数的个数

For i =1 To 10000

s=0 ‘用于存储各因数之和

For j = 1 To i - 1

If fac(i, j) Then

Next j

If i = s Then

Listl.AddIltem Str( i)

End If

Next i

Label.Caption =“10000 以内共有” +Str(c) + “个完全数!”

End Sub

Function fac(x As Integer, y As Integer) As Boolean

'如果y是x的因数返回True，否则返冋False

If Then

fac = True

Else

fac = False

End If

End Function

综合题普通

2. 【加试题】小张同学设计一个“简单数据筛选”程序。程序启动时运行界面如第17题图所示。程序运行时列表框List1中产生15个随机整数。在文本框Text1中输入筛选条件（大于或小于某个数）后单击“筛选”按钮Command1，右边列表框List2中显示符合筛选条件的数据，同时标签Label2上显示符合条件的数据个数。

实现上述功能的VB程序如下，但加框处代码有错误，请改正。

Dim a(1 To 15) As Integer

Dim n As Integer 'n为计数器

Dim key As Integer 'key存放筛选条件的数字部分

Dim f As String 'f存放筛选天健的符号部分：大于号或者小于号

Private Sub FormLoad()

Randomize

For i = 1 To 15

a(i) = Int(Rnd * 100)

List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command1Click()

Dim c As Integer

Dim st As String

n = 0

c = Len(st)

f = Mid(st, 1, 1)

If f = "<" Then Se2 '调用过程

If f = ">" Then Se1 '调用过程

Label2.Caption = "有" + Str(n) + "个筛选结果"

End Sub

Private Sub Se1() '筛选过程1

For i = 1 To 15

If a(i) > key Then

List2.AddItem Str(a(i))

n = n + 1

End If

Next i

End Sub

Private Sub Se2() '筛选过程2

For i = 1 To 15

List2.AddItem Str(a(i))

n = n + 1

End If

Next i

End Sub

(1) 处应改为

(2) 处应改为

(3) 处应改为

综合题困难

3. 用雨量计或雨量器测定，以mm为单位。目前，我国电视和广播节目中发布的日雨量为08~08时，代表前一天的雨量。从键盘输入前一天雨量（用来模拟传感器），点击判断雨量，然后从label3输出雨量

小雨:1d(或24h)降雨量小于10mm者。

中雨:1d(或24h)降雨量10~25mm者。

大雨:1d(或24h)降雨量25~50mm者。

暴雨:1d(或24h)降雨量50~100mm者。

大暴雨:1d(或24h)降雨量100~250mm者。

特大暴雨:1d(或24h)降雨量在250mm以上者。

Private Sub Command1_Click()

Dim a As Single

Dim s as ①

a = ②

If a > 250 Then

s = "特大暴雨"

ElseIf a > 100 Then

s = "大暴雨"

ElseIf a > 50 Then

s = "暴雨"

ElseIf a > 25 Then

s = "大雨"

ElseIf a > 10 Then

s= "中雨"

ElseIf ③ Then

s = "小雨"

Else

s = "无雨"

End If

Label3.caption= ④

End Sub

(1) 要想让A处在程序运行时显示空白，应设置Text1的属性。

综合题普通