DOC《2018年10月稽阳联谊学校联考》

78 30

64 39

49 4

8 32

18 32 排序后

39 49

83 4

8 18

30 32

64 78 实现上述功能的VB程序如下,但加框处代码有误,请改正. Const n =

10 Dim d(1 To n) As Integer Private Sub Command1_Click() Dim i As Integer, j As Integer, t As Integer '

读取一组正整数,存储在数组d中,代码略 i =

1 Do While i d(i) Then '

(1) t = d(j): d(j) = d(j - 1): d(j - 1) = t End If Else '

(2) t = d(j): d(j) = d(j - 1): d(j - 1) = t End If Next j i = i +

1 Loop '

依次输出排序后的数据,代码略 End Sub 17.【加试题】计算机的基本功能是计算,信息加工处理本质上都是通过计算完成的.现有一图像模糊处理的算法,以10*10像素图像的模糊处理为例,具体算法如下: (1)各像素点的颜色信息值(介于0至255之间的一个正整数),存储至数组a中. (2)给定模糊处理的模糊中心位置p和模糊半径r(r>

1),中心位置p即为半径为1的区域, ①确定模糊中心点在如下数阵中的位置.若模糊中心为36时,该模糊中心在数阵中对应位置为第4行第6列;

第17题图a②根据中心点和模糊半径确定模糊处理........