主题：[讨论]跪求三道编程题源码
程59186
[专家分：0] 发布于 2008-12-25 20:42:00
9.编写程序，建立并输出一个10*10的矩阵，该矩阵对角线元素为1，其余元素为0。
10.从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换，…，第5个元素与第6个元素互换。分别输出原来各元素的值和对换后的各个元素的值。
12、随机生成10个20到50范围内的正整数，显示它们的最大值和平均值。
回复列表 （共2个回复）
沙发
一江秋水 [专家分：9680] 发布于 2008-12-26 09:18:00
第9题：
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 10: Debug.Print to10(i, 11 - i): Next
End Sub
Function to10(a As Integer, b As Integer) As String
Dim st As String, j As Integer
For j = 1 To 10: st = st & IIf(j = a Or j = b, " 1", " 0"): Next
to10 = st
End Function
其余2题更加容易，你想想一定能做出来
板凳
一个人飞 [专家分：0] 发布于 2008-12-26 13:37:00
用什么语言编写?
我来回复
您所在位置：