求解一道VB题，希望大家帮帮忙
求解一道VB题：如果一个整数的所有因子（包括1，但不包括本身）之和与该数相等，则称这个数为完数。例如6=1+2+3，所以6是一个完数。编写一个函数IsWs（m）判断m是否为完数，函数的返回值使逻辑行。主调程序在列表框显示1000以内的完数
Private Sub Form_Click()
Dim i As Integer, s As Long
Dim x As Integer
For x = 1 To 1000
s = 0
For i = 1 To x - 1
If x Mod i = 0 Then s = s + i
Next i
If x = s Then List1.AddItem x
Next x
End Sub
这个是函数IsWs（m）
Private Function isws(ByVal m As Integer) As Boolean
Dim i As Integer, s As Long
For i = 1 To m - 1
If m Mod i = 0 Then s = s + i
Next i
If m = s Then isws = True
End Function
Private Sub Command1_Click()
Dim x As Integer
x = Val(InputBox("请输入要判断的数"))
Print isws(x)
End Sub
求助:一道VB题,请大家帮忙,谢谢
准确的说fun返回的是a除以n所得值的整数部分，就是 fun=int(a\/n)原因是当a>=n时。进行循环（while a>=n）第一次，a值减掉一个N，M为1（M初始为0），你可以这样理解：当a\/n时，为了使=号成立，可以写成这样，a\/n=m 余(a-n) 照这样看来第一次就是这样：a\/n=1 余a-n,同理，如...
一道VB题 希望各位大侠帮忙
1、a（0）就是下标为零的数组元素，也就是后面说的“第一个元素”；2、imin是指最小元素（min）的下标，这里imin = 0就是暂时将a（0）当做最小的元素；3、sum是指个元素之和，这里sum = a(0)首先把第一个元素写到sum里，后面通过um = sum + a(i)依次将其他元素加进来。所有的a（0）...
VB编程这题有人会吗帮忙下谢谢!!好的就直接采纳了
分析题目: 需要用到的程序结构是循环: 打印字母,每行6个,一共6行, 那么就是打印36次, 所以循环应该是0到35次 或者1到36次;需要用的主要运算是 Mod取模; \\整除运算 Private Sub Form_Load()Form1.Show '窗口显示出来Print '换行.离上边框远点PrintDim i As Integer '定义一个整数iFor i ...
请VB高手帮忙解决一下问题,要具体一点的分析过程哦,谢谢了! 阅读下列...
第一个问题：Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)这个事件是窗体自带的事件，鼠标在窗体上移动就会被触发。事件中Button 是表示，移动鼠标时你按下了鼠标的哪个键 不按鼠标 Button =0 按鼠标左键 Button =1 按鼠标右键 Button =2 同...
求VB大神帮帮忙,解一下两个编程题!在线等,急!拜托了,谢谢(ฅ>ω<*...
第二题：Dim str As StringPrivate Sub Command1_Click()Form1.Clsstr = InputBox(请输入五分制成绩等级, 请输入五分制成绩等级, "A")If str = "A" Then Print "大于等于90分"ElseIf str = "B" Then Print "80分到90分之间"ElseIf str = "C" Then Print "70分到80分之间"...
VB的题目也,新手帮忙解释一下
2=0”这句意为X\/2的余数为0（那就等于是X能被2整除）C:“FIX”也是取整函数。X\/2的值要等于将X\/2的值取整数，就是间接说X要能被2整除 (INT与FIX区别：Int 和 Fix 函数都删除 number 参数的小数部分并返回以整数表示的结果。Int 和 Fix 函数的区别在于如果 number 参数为负数时，Int 函数...
vb选择题 高手帮忙
cbdb adad cbd 他们的答案 cbaa aacc cbdc dad cbd bbaa badd abda dccd cba 解释一下同他们不一样的：第12题：A）Student．name=”张红”'Student是类型名，需要定义变量使用 B）Dim s As Student s.name＝”张红”C）Dim s As Type Student '定义类型变量，不需要关键字Type D)Dim s As...
急!问一道vb语句的题
3 a=a-b 'a-b中的a=3,b=2 所以a=1 b=a+b 'a=1,b=2 相加得b=3 过程是:Private sub cmd1_click()Counst a=3:Counst b=2 a=a-b b=a+b print str(b)End sub
鸡兔同笼问题 vb 请大家帮帮忙啊~!
Private Sub Form_Activate()F = InputBox("输入鸡与兔的头总数：")H = InputBox("输入鸡与兔的脚总数：")Y = H \/ 2 - F X = F - Y MsgBox ("鸡有：" & X & "只")MsgBox ("兔有： " & Y & "只")End Sub
VB题,高手来帮帮忙,感激不尽!求解释下代码和答案!谢谢!好人好报...
2. 字符串的比较,首先左对齐,然后依次比较,第一位与第一位比较...比较的是ascii码, B的是65, b的是98 3.定义了一个函数,这个函数的功能是:如果是偶数,值就不变,如果是奇数,值就变成1 然后依次输入1 2 3 4 5 输出的就是 1 2 1 4 1 ...
