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


二级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程序设计二级题库】以上就是【vb程序设计二级题库,二级vb上机题库】相关内容 。

    推荐阅读