UC知道高分求解（VB高手进）定会追加！！！
来源：百度知道 编辑：UC知道 时间：2024/06/07 06:04:38
1、有一个n×m的矩阵，编写程序，找出其中最大的元素所在的行和列，并输出其值和行号、列号。
2、编写程序，输出n=10“杨辉三角形”（共11行）
3、编写程序，判断某数是否是“水仙花数”。并用此函数输出100~999之间的所有水仙花数。所谓“水仙花数”是指一个3位数，其各位数字立方和等于该数本身。
4、用函数过程判断某数是否是素数。利用此函数完成：
（1）输出3~100之间的所有素数
（2）验证哥德巴赫猜想（每一个大于二的偶数都可以表示为两个素数的和）。即对于一个偶数，输出它的所有素数和的形式。
要求：VB语言编程，要速度验证正确后追加50分
2、编写程序，输出n=10“杨辉三角形”（共11行）
3、编写程序，判断某数是否是“水仙花数”。并用此函数输出100~999之间的所有水仙花数。所谓“水仙花数”是指一个3位数，其各位数字立方和等于该数本身。
4、用函数过程判断某数是否是素数。利用此函数完成：
（1）输出3~100之间的所有素数
（2）验证哥德巴赫猜想（每一个大于二的偶数都可以表示为两个素数的和）。即对于一个偶数，输出它的所有素数和的形式。
要求：VB语言编程，要速度验证正确后追加50分
1. 添加按钮控件1，label控件1
Private Sub Command1_Click()
Dim i, j As Integer
Dim Arr(1, 3) As Integer
Dim Amax As Integer
Dim x, y As Integer
Arr(0, 0) = 1
Arr(0, 1) = 2
Arr(0, 2) = 3
Arr(0, 3) = 4
Arr(1, 0) = 9
Arr(1, 1) = 8
Arr(1, 2) = 7
Arr(1, 3) = 6
Amax = Arr(0, 0)
For i = 0 To 1
For j = 0 To 3
If Amax < Arr(i, j) Then
Amax = Arr(i, j)
x = i
y = j
End If
Next j
Next i
Label1.Caption = "最大的数值是:" & Amax & "最大的行数在" & x & "最大的列数在" & y
End Sub
2. 添加 按钮控件1
Option Base 1
Private Sub Command1_Click()
Dim a(), b(), i, j, k As Integer
i = 11
ReDim Preserve a(1)
ReDim Preserve b(1)
a(1) = 1
b(1) =