小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图1所示。阅读程序并完成后面的问题。图1

题型：综合题题类：模拟题难易度：困难

浙江省杭州市2016年信息技术高考模拟卷三

小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图1所示。阅读程序并完成后面的问题。

图1

（1）、设计应用程序界面时，为添加a所指向的对象，应使用2图所示的“控件工具箱”中的（填写相应编号）；在图3所示的“属性窗口”中，将属性值设置为“开始”，可使图2中b所指向的对象显示“开始”。

（2）、请根据题意将下列程序补充完整。

Private Sub Command1_Click()

Dim i as integer, j as integer, c As Integer

Dim n As Long

c = 0

For i = 0 To 99

n = 110800 + i

If ① Then

List1.AddItem Str(n) + " " + "5"

②

End If

Next i

Label2.Caption = "满足条件的数有：" + Str(c) + "组"

End Sub
① ②

举一反三

编“字符串缩写”程序，实现如下功能:在文本框Text1中输入Ascii字符串，字符串中如果有由Ascii表中相邻字符（升序）组成的子串，则把该子串缩写成由第一个字符、“-”和最后一个字符组成，比如“abcdfpxcba”则缩写成“a-dfpxcba”。程序运行界面如下图所示。

【加试题】字符串中任意个连续的字符组成的子序列称为该字符串的子串，如字符串“123”的子串有“1”“2”“3”“12”“23”“123”。输出字符串s所有子串的VB程序段如下：

s=Text1．Text

List1．Clear

Len1=Len(s) ‘①

For i=l To len1 ‘②

For j=1 To len1-i ‘③

List1．Addltem Mid(S，j，i) ‘④

Next j

Next i

运行时发现未输出所有子串，则修改（）

For i= 1 To 6

a(i)=i+1

Next i

程序运行后，变量i的值是：（）

某算法的部分流程图如图所示，以下运算结果正确的是（）

“奔跑吧，兄弟”栏目组要在全国各地挑选节目录制的地点。有来自K(1<=K<=25)个不同省份的N(K<=N<=100)个地区送来了各自的竞选材料。由于参选地区太多，没有办法同时呈现所有材料供评委进行选择。栏目组决定选择一段连续区间内的参选地区，这个区间内每个省份的参选地区至少要有1个，求满足要求的最小区间长度。

参选地区用数字1，2，3……N表示，每个地区所属的省份依次存入数组a(1)到a(N)，若1号地区的省份编号是3，即a(1)=3。分析可知，所求区间的长度至少为K(省份的数量)，最大为N(地区的数量)。我们可以通过二分K到N之间的数求得最小区间长度。例如有10个参选地区，分别来自于5个不同的省份，从左到右排列，地区编号依次为2，1，2，4，3，3，5，5，3，5，则最小的一段包含所有5个地区的区间是从第2个到第7个地区，区间长度为6。

某市要组织高中生参加竞技比赛。现要求在报名的n名学生中挑选出m名身高大于等于175cm的学生，被挑选出的学生两两组队，且队内两名成员的体重之和不能超过175公斤。

编写VB程序，实现上述挑选、组队功能。运行程序，在列表框List1中显示m名身高大于等于175cm的学生信息，且根据体重数值降序排序。单击“组队”按钮，在符合条件的情况下尽可能多的两两组队，并将组队结果显示在列表框List2中。程序运行界面如图所示，实现上述功能的VB程序如下。

请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心