小张编写 VB 程序，实现如下功能：在前 100 个偶自然数中，计算恰好有四位为 1 的二进制数的个数，如图所示，单击&ldquo;计算&rdquo;按钮 Co...

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

浙江省温州市十五校联合体2017 -2018学年高二上学期信息技术期中考试试题

小张编写 VB 程序，实现如下功能：在前 100 个偶自然数中，计算恰好有四位为 1 的二进制数的个数，如图所示，单击“计算”按钮 Command1，在文本框 Text1 中显示符合条件的个数，在列表框 List1 中显示符合条件的二进制数。VB 程序代码如下：

提示：本题“除 2 取余倒排法”的方法将十进制转化为二进制，算法如下：例如十进制数“97”转化为二进制的过程如右图所示：

因此“97”二进制值为：1100001

（1）、解决此问题主要采用的算法是（选填字母）

A、解析算法 B、枚举算法

（2）、为了实现程序的功能，请在划线处填入合适的代码。Private Sub Command1_Click()

Dim a As Integer, c As Integer, w As Integer, i As Integer

Dim s As String, k As String

c = 0

For m = 1 To 100

k = ""

i = 2 * m

Do While i > 0

a=i Mod 2

k = str(a) + k

Loop

For n = 1 To Len(k)

s = Mid(k, n, 1)

If s = "1" Then w = w + 1

Next n

If w = 4 Then

c = c + 1

End if

Next m

Text1.Text = Str(c) End Sub

举一反三

在Visual Basic中，能随机产生一个小写字母的表达式是（）

已知x=78，则VB表达式(x Mod 10)*10+x\10/2的值为（）

列出所有可能的情况，逐个判断有哪些符合问题所要求的条件，从而解决问题，这是（）思路

设有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

{#blank#}1{#/blank#}

End If

Next j

Next i

For j=1 To n

If {#blank#}2{#/blank#} Then List1.AddItem Str(j)

Next j

End Sub

图 a

图 b

请回答下列问题：

编写一个加密程序，功能如下：输入明文和一串数字密钥，显示加密后的密文，加密算法如下：

①将明文逆序排列，如明文“Python.org”，逆序后为“gro.nohtyP”；

②循环利用数字密钥串的每一位数字 k，依次对字符串中的每个英文字母右移 k 个字母替代，其他字符保持不变。如：输入的数字密钥串为“2024”，“gro.nohtyP”的“n”是第 4个字母，使用密钥串“2024”中的第 4个数字“4”进行右移 4个字母替代，即“n”往后移 4个字母，得到的是“r”，如下表所示：

③经过数字密钥串处理后，将字符串中的每个字符转换为 8位二进制 ASCII码值（不足 8位的左边补 0，补足 8位），并分成两段（左边 4位为高四位，右边 4位为低四位），如字符“i”的二进制 ASCII码值为 01101001，高四位为 0110，低四位为 1001；

④将高四位转化为十六进制数（如 0110转化为 6）；

⑤将低四位与高四位执行异或（⊕）操作后转化为十六进制数（提示：0⊕0=0，0⊕1=1，1⊕0=1，1⊕1=0，如 1001⊕0110=1111，1111转化为 F）；

⑥依次连接④⑤得到的两位十六进制数，即为该字符的密文，如“i”的密文为“6F”；

⑦将每个字符的密文按照顺序依次连接即为最终的密文。程序运行结果如图所示。

实现上述功能的 Python程序如下，请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心