题型：综合题 题类：模拟题 难易度：普通
浙江省教育绿色评价联盟2018届高三下学期信息技术选考适应性考试试卷
Private Sub Command1_Click()
Dim S As String
Dim n As Integer
Dim cnt As Integer
Dim i As Integer
Dim num As Single
Dim cd As Single
Dim ave As Single
s=Text1．Text
n=Len(s)
hum=0
cd=0
cnt=0
For i=1 To n
①
If c>“a”And c<=“z” Or c>=“A”And c<=“Z”Then
cnt=cnt+1
Elself c>=”0”And c<=”9”Then
cnt=cnt+1
Else
If cnt>0 Then
num=num+1
cd=cd+cnt
②
End If
End If
Next i
If cnt>0 Then
num=num+1
cd=cd+cnt
End If
Ave=cd／num
Label1．Caption=“总共有”+Str(num)+“个单词，平均长度为”+Str(ave)
End Sub
① ②
山顶上共有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
试题篮
