求高手 几道简单的VB编程题

来源：百度知道 编辑：UC知道 时间：2024/06/23 01:44:14
1.要求在列表中输出所有的水仙花数
2.打印(正三角)5行 6行 7行
3.随机生成一个3行4列的矩阵(数值0-100之间 要求在窗体中显示矩阵和它
的转置矩阵)

第一题：
Private Sub Command1_Click()
Dim I As Long
For I = 100 To 1000
'输出100~1000之间的，如果不是这个区间，请自己更改
If I = SumNumber(I) Then
Print I
End If
Next
End Sub
Function SumNumber(N As Long) As Long
Dim S As String
S = CStr(N)
For I = 1 To Len(S)
SumNumber = SumNumber + Val(Mid(S, I, 1)) ^ 3
Next
End Function

第二题：
题目不清楚，不知道你要打印出什么样的东西

第三题：
Private Sub Command1_Click()
Dim A(1 To 3, 1 To 4) As Integer
Randomize
Cls
Print "原矩阵为："
For I = 1 To 3
For j = 1 To 4
A(I, j) = Int(Rnd * 101)
Print Tab(j * 5 - 4); A(I, j);
Next
Next
Print Tab(1); "转置后的矩阵为："
For j = 1 To 4
For I = 1 To 3
Print Tab(I * 5 - 4); A(I, j);
Next