UC知道求助！几道VB的题目
来源：百度知道 编辑：UC知道 时间：2024/06/03 08:35:28
1．
如果一个数等于他的所有的因子（不包括自身）之和，这个数就称为“完数”（如6=1+2+3），请编程找出1000以内的所有完数
2．
有一序列：2/1，3/2，5/3，8/5，13/8，21/13，…
求前20项之和
3．
输入一个长整型数，判断该数为几位数并加以输出（如：123是三位数，0算1位数）
4．
在文本框中输入一行字符，判断其中字母、数字的个数
如果一个数等于他的所有的因子（不包括自身）之和，这个数就称为“完数”（如6=1+2+3），请编程找出1000以内的所有完数
2．
有一序列：2/1，3/2，5/3，8/5，13/8，21/13，…
求前20项之和
3．
输入一个长整型数，判断该数为几位数并加以输出（如：123是三位数，0算1位数）
4．
在文本框中输入一行字符，判断其中字母、数字的个数
form上添加4个按钮,1个文本框,属性不要做任何改动
复制代码过去运行.就是你要的结果
Private Sub Command1_Click()
Print "第1题: "
Dim i As Integer
For i = 1 To 1000
If IsComplete(i) Then Print i
Next i
End Sub
Private Sub Command2_Click()
Print "第2题: "
Dim i As Integer, sum As Double, item As Double
Dim z As Integer, m As Integer, t As Integer
m = 1
z = 2
For i = 1 To 20
item = z / m
sum = sum + item
t = z + m
m = z
z = t
Next i
Print sum
End Sub
Private Sub Command3_Click()
Print "第3题: "
Dim i As Long
Do
i = InputBox("请输入一个长整形数:")
Loop While IsNumeric(i) = False
If i < 0 Then
i = -1 * i
End If
Print Len(CStr(i))
End Sub
Private Sub Command4_Click()
Print "第4题: "
If Len(Text1.Text) <> 0 Then
Dim iNum As Integer, iChar As