UC知道有关vb的题目，大虾们帮忙啊。。。
来源：百度知道 编辑：UC知道 时间：2024/07/07 20:39:51
1.如果一个数等于他的所有的因子之和，这个数就称为“完数”，请编程找出1000以内的所有完数
2.有一序列：2/1，3/2，5/3，8/5，13/8，21/13，…求前20项之和
3.给出一个5行5列的矩阵，数值由用户输入；求出这个矩阵的鞍点（如果有的话）鞍点：是所在行的最大同时是所在列的最小
注：鞍点不是一定有的
4.参照课件上的myreplace函数，编写myinstr函数，头部为myinstr(s$,s1$)，返回值为s中s1的起始位置，没有返回0
5.打印n行的杨晖三角形（n由用户确定）
一共五道,要完整的编程，最好有说明的，会加分，谢谢~~~
2.有一序列：2/1，3/2，5/3，8/5，13/8，21/13，…求前20项之和
3.给出一个5行5列的矩阵，数值由用户输入；求出这个矩阵的鞍点（如果有的话）鞍点：是所在行的最大同时是所在列的最小
注：鞍点不是一定有的
4.参照课件上的myreplace函数，编写myinstr函数，头部为myinstr(s$,s1$)，返回值为s中s1的起始位置，没有返回0
5.打印n行的杨晖三角形（n由用户确定）
一共五道,要完整的编程，最好有说明的，会加分，谢谢~~~
'全部做完了,不加分,不像话啊
'**********************************************
Private Sub Command1_Click()
'第一题
Dim i As Long
For i = 2 To 1000
If 因数之和(i) = i Then
Print i
End If
Next
End Sub
Function 因数之和(N As Long) As Long
因数之和 = 1
For i = 2 To Sqr(N)
If N Mod i = 0 Then
因数之和 = 因数之和 + i + N \ i
End If
Next
End Function
'**********************************************
Private Sub Command2_Click()
'第二题
a = 2 '分子
b = 1 '分母
S = 2
For i = 2 To 20
a = a + b
b = a - b
S = S + a / b
Next
Print S
End Sub
'**********************************************
Private Sub Command3_Click()
'第三题
Dim i As Integer, j As Integer
Dim a(5, 5) As Integer, FindMin As Boolean, FindAd