- 二一组卷

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

浙江省绍兴市诸暨中学2017-2018学年高二上学期信息技术期中考试试卷

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

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

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

（1）、应用程序界面设计时，为添加“ List1”对象，应使用图2所示的“控件工具箱”中的（填写相应编号）。

（2）、请根据题意将解决此问题的相应程序补充完整。

Private Sub Command1_click ()

Dim x As Integer, s As Long,

Dim y As Integer, i As Integer

For i = 0 To 9999

S = 590000 + i

If ① Then

x= s mod 10

y = ②

If x = y Then

List1.AddItem Str(s)

End If

Next i

End Sub

（3）、该模块采用的算法是（）

A、

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

举一反三

两个整数的平方差称为好数，如 $\text{[math]}$ ，，按从小到大的次序，则第一个好数是3。编写VB程序代码，求出第n个好数是多少。实现如下功能：在文本框Text1中输入要求的第几个好数n，点击“计算”按钮Command1，则在Label2上显示结果，程序运行界面如下图所示：

质数又称为素数，除了1和它本身以外不再有其他因数的数成为素数。找到100到999以内的素数，并依次在列表框List1上输出的VB程序段如下：

For i = 100 To 999 lag = True: j = 2

Do While j < i And flag

Loop

If flag Then List1.AddItem Str(i) Next i

方框中的代码由以下四部分组成：①End If ②If i Mod j = 0 Then ③j = j + 1

④flag = False。代码顺序正确的是（）

（加试题）小李同学碰到了一个数学问题：400个同学按顺序进行编号后围成一个大圈，按1至2报数（从1号位置开始），报到2的同学出列，以此一直循环报数下去，问最后剩下的那位同学他的编号是几号？

例如以6个同学编号为例，按1至2报数（从1号位置开始）依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学。

为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表list1显示出列的顺序编号，文本框text1中显示最后留下的编号，程序代码如下（测试界面如下图）：

Private Sub Command1_Click()

Dim s, f, t As Integer

Dim a(1 To 400) As Boolean

For i = 1 To 400

a(i) = False

Next i

s = 0

f = 0

i = 0

Do While f < 399

i = i + 1

If i = 401 Then i = {#blank#}1{#/blank#}

If a(i) = False Then s = s + 1

If s = 2 Then

{#blank#}2{#/blank#}

List1.AddItem Str(i)

a(i) = True

f = {#blank#}3{#/blank#}

End If

Loop

For i = 1 To 400

If {#blank#}4{#/blank#} Then text1.text=str(i)

Next i

End Sub

在程序划线处填入合适的代码。

小王编写了一个VB程序，该程序的功能是：15个数形成环状，现要分别找出3个相邻的数：使其相加之和最大或最小。如15个数依次为：18，14，42，61，13，19，14，13，28，52，61，58，30，则相邻三数之和最大为62（30+18+14），相邻三数之和最小为31（4+26+1）。

程序运行时，先随机生成15个[1，30]区间内的整数，存储在数组a(0)至a(14)，并在文本框Text1中显示；单击“计算”按钮Command1，则在标签Labe14中显示连续三数最大和，在标签Label5中显示连续三数最小和，程序运行界面如图所示。

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

Const n=14

Dim a(n) As Integer

Private Sub Form_Load()

'随机生成15个数,存储在数组元素a(0)～a(14)中,并显示在文本框Text1中

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim imax As Integer, imin As Integer

Dim smax As Integer, sum As Integer, smin As Integer

smax=0:smin=100

For i=0 To 14

j= {#blank#}1{#/blank#}

k= {#blank#}2{#/blank#}

sum=a(i)+a(j)+a(k)

If sum>smax Then

smax=sum

imax=i

End If

If sum<smin Then

smin=sum

imin=i

End If

Next i

Label4.Caption=Str(smax)

Label5.Caption=Str(smin)

End Sub

尼克斯彻定理：任何一个大于等1的整数的立方等于一串连续奇数之和，如：13=1，23=3+5，33=7+9+11。编写一个VB程序验证尼克斯彻定理，程序运行时，在文本框Text1中输入一个于等于1的整数，单击“验证”按钮Command1，在文本框Text2中显示验证结果，运行界面如图所示。

实现上述功能的VB代码如下，请完善代码：

Private Sub Command1_Click()

Dim n As Integer, i As Integer, t As Integer, sum As Long, s As String

n=Val(Text1.Text)

For i=1 To n^3 step 2 '变量i表示连续奇数的首个整数

sum=0:t=i:flag=False

Do While sum<n^3 And flag= False

sum= {#blank#}1{#/blank#}

t=t+2

If {#blank#}2{#/blank#} Then flag=True

Loop

If flag=True Then Exit For

Next i

s=Str(n)+ "^"+Str(3)+ "="

Do While sum>0

{#blank#}3{#/blank#}

If sum= 0 Then

s=s+Str(i)

Else

s=s+Srt(i)+ "+"

End If

i=i+2

Loop

Text2.Text=s

End Sub

某密码强度判断程序功能如下：在文本框Text1中输入由大写字母、小写字母、数字和其他字符4种不同类型字符组成的密码字符串，单击“判断”按钮Cmd1，在标签框Label3中显示判断结果。程序运行界面如图所示。

密码强度判断条件如下：密码长度小于6，则强度为“弱”。在密码长度大于等于6的情况下，若只出现一种字符，则密码强度为“弱”；若出现两种不同字符，则密码强度为“中”，出现三种以上不同字符，则密码强度为“强”。

相关试卷

公司介绍

服务介绍

帮助中心