题库 高中信息

题干

   问题描述:山顶上共有10个洞,一只兔子和一只狐狸相遇了,狐狸要吃兔子。兔子对狐狸说:“你可以吃掉我,但必须先找到我。我就藏在这10个洞的其中一个洞中(注:第1~10个洞的编号分别为:1、2、3、4、5、6、7、8、9、0)。你先到1号洞找我,若没找到,则第二次隔一个洞找我,即3号洞;第三次隔两个洞找我,即6号洞;以后以此类推,找到就可以吃掉我。”狐狸答应了,但是狐狸进进出出100次后,也没找到兔子,请问兔子躲藏在哪个洞?


根据规则,前面5次进洞的情况如下表所示。

第i次进洞

洞的实际编号

1

1

2

3

3

6

4

0

5

5

……

……

 

解决此问题的VB程序界面如右图所示,单击“运行”按钮,在列表框List1中显示兔子可能躲藏的山洞编号。

模拟上述过程的VB程序代码如下。
Private Sub  Run_Click()
Dim i As Integer , k As Integer
Dim hole(0 To 9) As Boolean    'hole(0)表示第10号洞
For i = 0 To 9
hole(i) = True
Next i
k=
For i = 1 To 100
k = k + i
hole(k Mod 10) = False
Next i
For i = 0 To 9
If   Then List1.AddItem Str(i)    '输出兔子可能躲藏的洞(编号)
Next i
End Sub
(1)结合程序设计界面和代码,可知“运行”按钮的对象名为____________________。
(2)程序中划线①处应填入___________________,②处应填入___________________。上面加框程序主要用到的是____________________(填:解析/枚举)算法。
(3)狐狸第10次所进洞的编号是____________________。
上一题 下一题 0.99难度 填空题 更新时间:2019-05-07 09:41:17

答案(点此获取答案解析)

同类题1

查找最短26个字母字符串: 在文本框Text1中输入任意一串仅包含小写字母的字符串(长度n>=26),要求找到长度最小的一段区间,能够包含全部26个小写英文字母。小王设计了VB程序用于搜索最短字符串,单击“查找”按钮 Command1,若无解,则在标签 Label1中输出“无解!”,反之程序在标签 Labell中输出该最小区间的长度以及字符的开始位置,并在文本框Text2中输出相应的最短字符串,程序界面如图所示。
查找最短26个字母字符串的算法可描述为:
1)确定初始右边界: 从第1个字符开始,向右搜索到包含全部26个字母的子串,并因此而确定右边界,同时记录每个字母在子串中出现过的次数。
2)调整子串左边界: 若左边界有重复的字母则表明该子串可缩短,故左边界可右移1位,……直到找到一个符合条件的子串并记录,然后子串左边界再右移1位。
3)调整子串右边界: 子串右边界继续右移,在新子串符合条件后,记录并进行比较。重复2)各调整步骤,直至遍历完整个字符串,获得并输出满足条件的最小长度字符串。
    
实现上述功能的VB程序如下,请回答下列问题:
(1)对于字符串“ qbwcadsgeqbdatcy”,包括字母 abcde的最短字符串长度为___________(填数字)
(2)请在划线处填入合适的代码。
Const n=200
Dim i As Integer, k As Integer, length As Integer, L As Integer
Dim pos As Integer, sl As String, res As String
Dim f(1 To 26) As Integer    '数组f记录每个小写英文字母的出现次数
Dim s(1 To n)As Integer '数组s记录每个输入字符在字母表中的位置
Private Sub Command1_ Click

res=" "

s1=Textl. Text

For i=1 To Len(s1)

s(i)= _____________
Next i
k=0: pos=1: length=n
For i=1 To 26
f(i)=0
Next i
For i=1 To Len(sl)
If f(s(i))=0 Then k=k+1
f(s(i))=f(s(i))+1
Do While___________
f(s(pos))=f(s(pos))-1
If______________Then
k=k-1
If i-pos+1<length Then
length=i-pos+1
res=Mid (sl, pos, length)
L=pos
End If
End If
pos=pos+1
Loop
Next i
If res<>""Then

Text2 Text=res

Labell. Caption="最短长度: "+Str( length)+"开始位置: "+Str(L)Else

Labell. Caption="无解!"

End if

End Sub