题目

珠心算是在大脑中以算珠表象作为载体，运用珠算法则所进行的计算。某学校的珠心算老师采用一种快速考查珠心算加法能力的测验方法。他随机给出一个正整数集合，集合中的数各不相同，然后要求学生回答:其中共有多少个数恰好等于集合中另外两个(不同的)数之和?例如对于集合{1，2，3，4}，一共有2个数等于集合中另外两个数之和，它们是3、4(4=3+1，3=2+1)。将上述算法编写成程序，其功能如下:程序运行时产生n个范围在[1，100]内的不同的随机整数存储在数组a中，并在列表框List1中显示。单击按钮Command1后，在标签Label1上输出结果，如图所示。 （1） 对于集合{1,2,3,4,5,6},一共有个数等于集合中另外两个数之和。 （2） 实现上述功能的VB程序如下,请在划线处填入合适代码。 Const n=12 Dim a(1 To n) As Integer Dim flag(1 To 100) As Boolean Private Sub Form_Load() Dim i As Integer, t As Integer For i=1 To 100   flag(i)=False Next i i=1 Do While i <=n   t=Int(Rnd * 100)+1   If Not flag(t) Then        List1.AddItem Str(t)     flag(t)=True     i=i+1   End If Loop End Sub Private Sub Command1_Click() Dim i As Integer, j As Integer, ans As Integer ans=0 For i=1 To n   For j=i+1 To n    If a(i)+a(j) <=100 Then      IfThen        ans=ans+1        flag(a(i)+a(j))=False      End If      Next j Next i Label1.Caption="共有"+Str(ans)+"个数!" End Sub 答案： 【1】4 【1】a(i)=t【2】flag(a(i)+a(j))或flag(a(i)+a(j))=True【3】End If

查看本题答案和解析