UC知道几道关于VB的题目
来源：百度知道 编辑：UC知道 时间：2024/06/20 14:04:14
2.如果一个整数的所有因子（包括1，但不包括本身）之和与该数相等，则称这个数为完数。例如6=1+2+3，所以6是一个完数，编写一个函数isws(m),判断m是否为完数，函数的返回值是一个逻辑型，主调程序在列表框里显示1000以内的完数。如图教材p279的图F.4所示：
提示：判断一个数m是否是完数，算法思想是：将m依次除以1-m/2，如果能整除，就是m的一个因子，进行累加，循环结束，若m与累加因子之和相等，m就是完数。
3.VB语言程序调试第01题，modify.bas模块中的Summary过程是用于计算1!+2!+...+20!，并打印出计算结果。Modify.Bas模块中的nFactor函数过程用于计算n!。
提示：
用循环结构语句，在循环体中把每一项表示出来，每一项i!=前面一项*I;i=i+1,再在循环体中进行累加，求出和。
4.VB语言程序调试第17题，Modify.Bas模块中的 Prime 过程是求出100到200之间所有的素数，并打印出来。
提示：
素数m的定义：只能被1和它本身m整除的数，用循环结构判断是否能被2-m-1之间的数整除，如果有，则不是素数，如果没有，就是素数。
提示：判断一个数m是否是完数，算法思想是：将m依次除以1-m/2，如果能整除，就是m的一个因子，进行累加，循环结束，若m与累加因子之和相等，m就是完数。
3.VB语言程序调试第01题，modify.bas模块中的Summary过程是用于计算1!+2!+...+20!，并打印出计算结果。Modify.Bas模块中的nFactor函数过程用于计算n!。
提示：
用循环结构语句，在循环体中把每一项表示出来，每一项i!=前面一项*I;i=i+1,再在循环体中进行累加，求出和。
4.VB语言程序调试第17题，Modify.Bas模块中的 Prime 过程是求出100到200之间所有的素数，并打印出来。
提示：
素数m的定义：只能被1和它本身m整除的数，用循环结构判断是否能被2-m-1之间的数整除，如果有，则不是素数，如果没有，就是素数。
command1 是添加按扭
command2 是修改按扭
command3 是删除按扭
Dim listnum As Integer
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "内容为空！"
Exit Sub
End If
List1.AddItem Text1.Text
Text1.Text = ""
End Sub
Private Sub Command2_Click()
If listnum = 0 Then
MsgBox "没有选定内容！"
Exit Sub
End If
If Text1.Text = "" Then
MsgBox "内容为空！"
Exit Sub
End If
List1.List(listnum) = Text1.Text
Text1.Text = ""
lsitnum = 0
End Sub
ff