- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省临海市白云高级中学2018-2019学年高一下学期信息技术期中考试试卷

下列VB程序功能可以找出1000以内的完全数，并在标签中一一列出来。

Private Sub Command1_Click()

Dim i As Integer, m As Integer, n As Integer

Label1.Caption = "1000以内的完全数如下："

For i = 1 To 1000

n = 0

For m = 1 To i \ 2

If i Mod m = 0 Then n = n + m

If n = i Then Label2.Caption = Label2.Caption & "" & Str(i)

End Sub

该过程采用的算法是（）

A、枚举 B、查找 C、排序 D、解析

举一反三

编写VB程序，实现如下功能：有一个四位数，此数十位上的数字是7，且这个四位数是一个完全平方数，现要找出符合以上要求的所有四位数，并统计共有几个数。单击Command1按钮，将符合要求的四位数显示在列表框List1中，统计个数显示在标签Label2中，界面如图所示。

如图1所示，这是一个城市街道简图，小明从 A 点出发，到达 B 点，如果在每一个路口只能向右或向上走（0 表示向上走，1 表示向右走），问小明有多少条行走路线，并请输出每条路线。程序界面如图2所示。

算法分析：从A点到B点共有7个路口，即可以有一个7位二进制数表示所走路线。观察以上路线，枚举所有满足路线特征的7位二进制数，再去掉不满足的二进制数即可。

VB程序设计。某微群采用问题验证的加入方式，如图1所示：

图1

徐明设计了一个VB程序用于寻找这个以211开头、可被2012整除的6位数。其算法流程图如图2所示，程序界面如图3所示，程序的代码编辑窗口如图4所示。

图2

某单位招考公务员，2010年和2011年分别有4 020名和2 000名考生报名，下列VB程序用于统计两次考试都参加的考生信息。程序界面设计如图所示，2010年和2011年的考生信息分别显示在List1和List2中，点击“统计”按钮，在List3中显示两次考试都参加的考生信息和总人数。

用VB编程解决一个问题：求所有五位数中满足能被17整除且十位数字为5的数之和。

如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框List1中显示100以内的所有孪生质数对（运行效果如图所示）。

实现上述功能的VB代码如下。

Dim a(1 To 50) As Integer

Private sub Command1_Click()

Dim i As Integer

k=0: i=3

Do While i<= 100

If Not prime(i) Then

k=k+1

End If

i=i+2

Loop

For i=2 To k

If Then

List1 AddItem Str(a(i-1))+"和"+ Str(a(i))

End if

Next i

End Sub

Function prime (x As Integer)As Boolean

prime=False

For i=2 To Int(sar(x))

If x Mod i=0 Then

prime=True

Exit for

End If

Next i

End Function

相关试卷

公司介绍

服务介绍

帮助中心