1.VB编程:输入整数n，输入n×n矩阵各元素的值，输出最大值及其所在的行和列。

私有子命令1_Click()

Dim a(20，20)为整数

n = CInt(InputBox("N= "))

Print " N =n

打印

使不规则化

i1 = 1: j1 = 1

对于i = 1至n

对于j = 1至n

a(i，j) = Int(Rnd * 100)

打印标签(5 * j)；a(i，j)；

如果a(i，j) a(i1，j1)则

i1 = i

j1 = j

如果…就会结束

下一个j

打印

接下来我

打印

打印“max = a(&；i1 & amp“，”& ampj1 & amp")=";a(i1，j1)

末端接头

私有子命令1_Click()

Dim a(20，20)为整数

n = CInt(InputBox("N= "))

Print " N =n

打印

使不规则化

i1 = 1: j1 = 1

对于i = 1至n

对于j = 1至n

a(i，j) = Int(Rnd * 100)

打印标签(5 * j)；a(i，j)；

如果a(i，j) a(i1，j1)则

i1 = i

j1 = j

如果…就会结束

下一个j

打印

接下来我

打印

打印“max = a(&；i1 & amp“，”& ampj1 & amp")=";a(i1，j1)

末端接头

2.vb编程随机生成1到100之间的10个整数，然后奇偶分类显示？

private Sub command 1 _ Click()Dim I As Integer，j As Integer，k As Integer Dim a As String，b As String For i = 1到10 k = Fix(Rnd * 100) + 1如果k Mod 2 = 0，则b = b & ampk & amp" "否则a = a & ampk & amp" "如果下一次打印，则结束打印b结束Sub