vb程序设计二级题库（二级vb上机题库）

大家好,小问来为大家解答以上问题。vb程序设计二级题库，二级vb上机题库这个很多人还不知道,现在让我们一起来看看吧！

1、仅仅在窗体上放一个命令按钮(点按钮后结果在窗体上打印出来,只有3个数,6,60,90)Private Sub Command1_Click()Print "200以内的酉完全数"PrintDim n As Integer, i As Integer, k As Integer, j As Integer, min As Integer, a As IntegerFor n = 1 To 200a = 0For i = 1 To n - 1If n Mod i = 0 ThenIf i < n / i Thenmin = iElsemin = n / iEnd IfFor j = 1 To minIf i Mod j = 0 And n / i Mod j = 0 Thenk = jEnd IfNext jIf k = 1 Thena = a + iEnd IfEnd IfNext iIf a = n Then Print nNext nEnd Sub。

以上就是【vb程序设计二级题库，二级vb上机题库】相关内容。