题目

（聪明的猪）某屠宰厂每天决定宰杀若干头猪（1<=n<=100），把每天待宰杀的猪按顺序编号后排成一排，每次将排在单号位置的猪杀掉；然后把剩下的猪按上一次相对的位置排好，重新编号，再次将排在单号位置的猪杀掉；以后每次重复前面的过程，直到仅剩下一头猪时停止宰杀，将这头幸运的猪放回；有一头猪聪明的猪，每天都能躲避被屠宰。利用VB编写一个程序，根据每天杀猪的数量，求出当天这头聪明的猪的原始编号。VB程序界面设计如下： 控件属性设置如下： 对象 属性 属性值 说明 Form1 Caption 幸运的猪 窗体的标题 Label1 Caption 当天要杀猪的数量 标签显示 文字 Label2 Caption 幸运猪的原始编号 标签显示的文字 Text1 Text 空白 文本框的文本 Text2 Text 空白 文本框的文本 Image1 Picture Pig.gif 显示的图片 Command1 Caption 计算 按钮显示的文字 （1） 完成以上功能的程序代码如下，请在划线处填入正确的语句。 Private Sub Command1_Click()   Dim sum, i, pos, last, count As Integer   Dim a(1 To 100) As Integer     For i = 1 To sum     a(i) = 1                            '初始状态为1表示还没被杀掉   Next i   count=0   Do while                '要杀掉sum-1头猪     Pos=0     For i = 1 To sum         If a(i) <>0  Then             pos = pos + 1                    'pos表示报数             If   Then            '报到奇数的猪被屠宰                 count = count ＋ 1                  a(i) = 0             End If         End If     Next i   Loop   For i = 1 To sum     If a(i) = 1 Then         Text2.Text = Str(i)     End If   Next i End Sub （2） 屠宰场每天有100头猪被屠宰，这头聪明的猪，需要初始排在号位置上才能避免被屠宰掉。 （3） 还是这100头猪，如果屠宰场改变杀猪规则，第一次杀奇数，第二次杀偶数，第三次杀奇数，第四次杀偶数……，依次轮流，100头猪中幸运的猪的原始编号是。 答案： 【1】sum=Val（Text1.text）【2】count+1<sum【3】pos Mod 2=1 【1】64 【1】86

查看本题答案和解析