- 二一组卷

题型：综合题题类：常考题难易度：普通

高中信息技术综合库——枚举算法3

一个十进制整数的二进制表示中，如果数字“1”的个数多于数字“0”的个数，则称该整数为A类数。如十进制整数26的二进制表示为11010，26是一个A类数。下列VB程序的功能是：统计前1000个自然数中A类数的个数，并在文本框中输出。请在划线处填入合适代码。

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim s As Integer, t As Integer, k As Integer

s = 0

For i = 1 To 1000

n = i

t = 0

k = 0

Do While n > 0

If n Mod 2 = 1 Then t = t + 1 Else k = k + 1

Loop

If Then s = s + 1

Next i

Text1.Text = Str(s)

End Sub

举一反三

下面程序的功能是：统计输入信息有多少个英文大写字母、小写字母、数字字符。程序运行时，在文本框Text1中输入信息，单击“确定”按钮后，分别在文本框Text2、Text3、Text4中显示大写字母、小写字母和数字字符的个数。程序运行效果如图所示。

Private Sub Command1_Click()

Dim getStr As String

Dim a As String

Dim i As Integer，s As Integer

Dim q As Integer，l As Integer

s=0：q=0：l=0

getStr=Text1.Text

For i = 1 To ① ’对字符串中所有字符逐一判断

a = ②

If a >= "a" And a <= "z" Then s = s + 1

If a >= "A" And a <= "Z" Then q = q + 1

If a >= "0" And a <= "9" Then l = l + 1

Next i

Text2.Text = Str（s）

Text3.Text = Str（q）

Text4.Text = Str（l）

End Sub

下列问题中适合使用枚举算法解决的是（）

小明设计了一个Visual Basic程序：求 1～n(不超过10000)之间能被5整除但不能被3整除的自然数。其设计界面如图1所示、代码编辑窗口如图2所示。

图1

图2

求孪生素数。孪生素数是指两个相邻奇数且都是素数，由于它们是最近的素数，就像孪生兄弟一样。下列Visual Basic程序用于查找100以内的所有孪生素数，其中函数f用于判断一个数是否是素数，程序运行界面如图(图1)所示，Command1鼠标单击事件过程的流程图如图(图2)所示。

程序代码如下：

Private Sub Command1_Click()

Dim i As Integer

List1.Clear '清除列表框内容

For i = 3 To 97 ___①___

If f(i) And f(i+2)=true Then

List1.AddItem Str(i) + " 和 " + Str(i + 2)

End If

Next i

End Sub

Private Function f(x As Integer) As Boolean '判断是否为素数，若是返回true,若不是则返回false

………

End Function

小强在双十一购物期间忘记了支付宝账户密码，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：

①密码是六位数字，前面两位为59；②最后两位数字相同；③能被12和38整除。

程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

下列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

横线处应填写（）

相关试卷

公司介绍

服务介绍

帮助中心