题型:综合题 题类:常考题 难易度:普通
浙江省温州市十校联合体2016-2017学年高二上学期期末技术联考试卷(信息技术部分)
Private Sub Command1_Click()
Dim n, i, a, b As Integer Randomize list1.Clear n = i = 0
Do While i < n a = Int(rnd * 100) b = Int(rnd * 100) If b <> 0 Then if then i = i + 1
list1.AddItem Str(i) + "、" + Str(a) + "/" + Str(b) + "="
End If
End If
Loop
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
试题篮