Dim s As Integer Private Sub Command1_Click() '求整数的真约数之和,真约数不包括自身 Randomize n = Int(51 * Rnd) + 50 Print n; Call js(n) ———— '输出结果,请选择正确的选项填空 End Sub Sub js(x) s = 0 For i = 1 To x - 1 If x Mod i = 0 Then s = s + i End If Next i End Sub 以上程序是求整数的真约数之和,请选择正确选项填空。