计算机二级考试题库：VB填空题.pdfVIP

判断 N 是否为完全数（一个数等于它所有因子（不包括自身）之和，如 6=1+2+3 ）。 * 程序段如下： I = 1 S = 0 Do While I = N - 1 If N Mod I = 0 Then S = S + _____ I = I + 1 Loop If N = _____ Then Print 是完全数 Else I S 求 S=1 ！+2 ！+ , 10! * 程序段如下： s = _____ for i=1 to 10 t = 1 for j = 1 To i t= t * _____ next j s = s + t Next i Print s 0 i 使用冒泡排序法，将一维数组 A 按从大到小排序（降序） 。 * 程序段如下： Private Sub Command 启动 _Click() Dim a(10) As Integer Dim i As Integer, j As Integer, t As Integer For i = 1 To 10 a(i) = Int(90 * Rnd) + 10 Print a(i); Next i _____ Print For i = 10 To 2 Step -1 For j = 1 To ______ 1 If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i For i = 1 To 10 Print a(i); Next i: Print End Sub : 10 – 程序功能：统计二维数组 A(1 TO 6, 1 TO 6) 中是 3 的倍数元素之积并在窗体上输出其结果。 数组元素值为 [0 ， 100] 内的随机整数。 * 程序代码如下： Option Base 1 Private Sub Form_Click() Dim A(6, 6),s For I = 1 To 6 For J = 1 To 6 A(I, J) = Int(Rnd * 101) Print A(I, J); Next J Prin