UC知道请教几题题目
来源：百度知道 编辑：UC知道 时间：2024/06/16 21:41:20
1.矩阵转置
(编写程序将2*3的矩阵转置，即转换成3*2的矩阵.要求二维数组)
2.随机产生10个递增的100-400的随机数,存放在数组中,并显示结果(防止死循环)
3.分类统计输入一串字符,统计各字母出现的次数,不区分字母大小写
4.掷骰子游戏.编程序统计掷N次（N尽量的大，例如100000次）后各点数出现的次数。
(编写程序将2*3的矩阵转置，即转换成3*2的矩阵.要求二维数组)
2.随机产生10个递增的100-400的随机数,存放在数组中,并显示结果(防止死循环)
3.分类统计输入一串字符,统计各字母出现的次数,不区分字母大小写
4.掷骰子游戏.编程序统计掷N次（N尽量的大，例如100000次）后各点数出现的次数。
第一题：
Dim A(1 To 3, 1 To 3), B(1 To 3, 1 To 3)
Private Sub Form_Load()
Me.Show
A(1, 1) = 1: A(1, 2) = 2: A(1, 3) = 3: A(2, 1) = 4: A(2, 2) = 5: A(2, 3) = 6
For I = 1 To 3
For J = 1 To 3
B(I, J) = A(J, I)
Next J
Next I
For I = 1 To 2
For J = 1 To 3
Print "A(" & CStr(I) & "," & CStr(J) & ")=" & CStr(A(I, J)) & " ";
Next J
Print
Next I
Print
Print
For I = 1 To 3
For J = 1 To 2
Print "B(" & CStr(I) & "," & CStr(J) & ")=" & CStr(B(I, J)) & " ";
Next J
Print
Next I
End Sub
第二题
Dim A(1 To 10), B, I
Private Sub Form_Load()
Me.Show
For I = 1 To 10
Randomize
A(I) = Int(300 * Rnd + 100)
Next I
For I = 1 To 9
For J = 1 To 10 - I
If A(J) > A(J + 1) Then
B = A(J)
A(J) = A(J + 1)
A(J + 1) = B
End If
N