模拟图像局部区域处理。随机生成n*n(n≤100,且为偶数)个“0”或“1”字符,将字符按行输出,构成一个n行n列初始矩阵,对该矩阵中的m行m列子矩阵(与初始矩阵同中心)进行水平翻转。例如,当n为8,m为4时,构成初始矩阵如图a所示,将子矩阵进行水平翻转后得到处理结果,如图b所示。
编写程序,实现上述功能:在文本框Text1中输入偶数n,单击“生成”按钮Command1,在列表框List1中显示初始矩阵,在文本框Text2中输入偶数m(2≤m≤n),单击“处理”按钮Command2,在列表框List2显示处理结果。程序运行界面如图c所示。

请回答下列问题:
(1)根据程序的运行界面,“处理”是按钮Command2的 DD(单选,填字母:A.对象名/B.属性名/C.方法/D.属性值)。
(2)请在横线处填入合适的代码。
(3)程序中加框处代码有错,请改正。
Dim n As Integer
Dim a(1 To 100*100)As String
Private Sub Command1_Click ( )
Dim i As Integer
n=Val(Text1.Text)
If n<=100 And n>=2 And n Mod 2=0 Then
For i=1 To n*n
a(i)=Chr ( Int(Rnd*2)+48Int(Rnd*2)+48)'字符“0“的ASCII码值为48
'将初始矩阵显示列表框List1中,代码略
Next i
Else
List1.AddItem“输入有误“
End If
End Sub
Private Sub Command2_Click ( )
Dim b(1 To 100*100)As String,s As String
Dim m As Integer,y As Integer,i As Integer,R As Integer,C As Integer
m=Val(Text2.Text)
If m>=2 And m<=n And m Mod 2=0 Then
y=(n-m)/2(n-m)/2
s=““
For i=1 To n*n
R=(i-1)\n+1:C=(i-1)Mod n+1
If R<=y Or R>n-y Or C<=y Or C>n-y Then
b(i)=a(i)
Else
b(i)=a(n*C-R+1)'(3)
End If
s=s+b(i)
If i Mod n=0 Then
List2.AddItem s
s=““
End If
Next i
Else
List2.AddItem“输入有误“
End If
End Sub
【考点】应用程序的试运行和保存.
【答案】D;Int(Rnd*2)+48;(n-m)/2
【解答】
【点评】
声明:本试题解析著作权属菁优网所有,未经书面同意,不得复制发布。
发布:2024/6/27 10:35:59组卷:2引用:1难度:0.5
相似题
-
1.大部分社交软件都有好友推荐的功能,当用户 A 和用户 B 的共同好友数量超过阈值 p 时,由系统向用户 A 推荐用户 B。
编写 VB 程序,实现好友推荐功能。运行程序,列表框 Listl 中显示用户 id 及好友列表,在文本框 Textl 中 输入推荐目标用户 id,在文本框 Text2 中输入阈值 p,点击“推荐”按钮,在列表框List2 中显示用户之间的关系,在标签 Label5 中显示向目标用户推荐的好友列表。程序运行界面如图:
(1)根据如图所示数据,若输入用户 id 为“3”,输入阈值为“3”,则推荐好友为:
(2)实现上述功能的 VB 程序如下,请在横线处填入合适的代码。发布:2025/1/2 10:30:2组卷:0引用:1难度:0.3 -
2.某学校开展了艺术节活动,数组a中存储了n个节目的编号和得分数据,数组存储结构如图所示:
小明使用选择排序思想对上述n个节目按得分进行降序排序(得分相同的按编号升序排列),并依据得分插入各个节目的排名信息,处理后数组a的存储结构如图所示:
程序运行时,单击命令按钮Command1后读取数据到数组a中并显示在列表框List1中,单击命令按钮Command2后将节目按照上述规则进行排序,并将排名结果显示在列表框List2中。
实现上述功能的VB程序如下,请回答下列问题:
(1)已知窗体名称为Forml,要使程序加载时,窗体标题自动显示为“第15题程序”,则可在
(2)请在横线处填入合适的代码。
(3)加框处代码有误,请改正。发布:2025/1/2 10:30:2组卷:0引用:1难度:0.3 -
3.小明用python语言中对大小为100*100像素的图像“上.jpg”(如图所示)进行简单处理,部分代码如图:
程序执行后的图像效果是( )发布:2024/12/20 9:30:2组卷:3引用:5难度:0.4