1、第 3 次作业一、填空题（本大题共 20 分，共 10 小题，每小题 2 分）1. 为了保留动态数组中原有的数据不丢失，可以使用带 进行动态定义 。2. 运行语句：t = MsgBox(“Hello“, 64, “Come“)后，在信息提示框内显示的内容是_。3. 数学中完数是指这样的整数：该数的各因子之和是它的本身。例如，6 的因子是 1，2，3，而 6=1+2+3，所以 6 是完数。下列程序是找出 21000 以内的完数，并显示结果，其中，函数 isWs（m as integer） as Boolean 用来判断参数 m 是否是完数。Function isWs(m As Integer)
2、As BooleanDim i As Integer, s As IntegerFor i = 1 To m - 1If Thens = s + iEnd IfIf (m = s) ThenElseisWs = FalseEnd IfNext iEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerFor i = 2 To 1000If Then Print i; Next iEnd Sub4. 建立控件数组的方法有 、 和三种。5. 以下程序段的输出结果是_。Num=0While num 0 Thenj = j + 1Print a(i);If j Mod 10 = 0 ThenPrint vbCrLfEnd IfEnd IfNext iPrint vbCrLfPrint “满足条件的数的个数为：“ a(0,0)Print “ 两个反面的次数为:“; a(1,l)Print “一正一反的次数为:“; a(0,1)+a(1,0)End Sub解题方案：定义一个二维数组 a(1,1)，其各元素的含义为：a（0,0）为累计“两个正面”的次数。a（1,1）为累计“两个反面”的次数。a（0,1）和 a(1,0)为累计“一正一反”或“一反一正”的次数。评分标准：
