首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明和Visual Basic代码,将相应文字填入(n)处,并写在对应栏内。 [说明] 以下Visual Basic代码实现了对位图(BMP)进行旋转显示。以下程序共实现了对BMP位图图形进行 180°旋转、90°旋转(顺时针)、90°旋转
阅读以下说明和Visual Basic代码,将相应文字填入(n)处,并写在对应栏内。 [说明] 以下Visual Basic代码实现了对位图(BMP)进行旋转显示。以下程序共实现了对BMP位图图形进行 180°旋转、90°旋转(顺时针)、90°旋转
admin
2009-02-15
49
问题
阅读以下说明和Visual Basic代码,将相应文字填入(n)处,并写在对应栏内。
[说明]
以下Visual Basic代码实现了对位图(BMP)进行旋转显示。以下程序共实现了对BMP位图图形进行 180°旋转、90°旋转(顺时针)、90°旋转(逆时针)、水平翻转、垂直翻转共5项处理。显示界面如图12-8所示。仔细阅读[代码7-1]至[代码7-3],完成(n)代码,并写在对应栏内。
[代码7-1]
Begin VB. Form Form1
AutoRedraw =-1 ’True
Caption="图像的施转"
//...窗体描述( 略 )
Begin VB. CommandButton Command7
Caption="退出"
//...窗体描述(略 )
End
Begin VB.CommandButton Command6
Caption = "复位"
//...窗体描述(略)
End
Begin VB.CommandButton Command5
Caption= "垂直翻转"
//...窗体描述(略)
End
Begin VB.CommandButton Command4
Caption="水平翻转"
//...窗体描述(略)
End
Begin VB.CommandButton Command3
Caption= "90°(逆时针)"
//...窗本描述(略)
End
Begin VB.CommandButton Command2
Caption= "90°(顺时针)"
//...窗体描述(略)
End
Begin VB.PictureBox Picture2
//...窗体描述(略)
End
Begin VB.CommandButton Command1
Caption="180°"
//...窗体描述(略)
End
Begin VB.PictureBox Picture 1
//...窗体描述(略)
End
End
[代码7-2]
Private Declare Function BitBlt Lib "gdi32" ( ByVal hDestDC As Long,
ByVal x As Long,
ByVal y As Long,
ByVal n Width As Long,
ByVal nHeight As Long,
ByVal hSrcDC As Long,
ByVal xSrc As Long,
ByVal ySrc As Long,
ByVal dwRop As Long ) As Long
Const srcopy = &HCC0020
Dim h As Integer
Dim w As Integer
Private Sub Form_Load ( )
Picture2.Picture = LoadPicture ( App.Path & "\a01.bmp") ’导入图片’
h = Picture 1 .Height
w = Picture 1.Width
End Sub
[代码7-3]
Private Sub Commandl_Click ( ) 旋转180°
Picture2.Picture = LoadPicture ( "" )
For j = 0 To h Step 1
For i = 0 To w Step 1
(1)
Next i
Next j
End Sub
Private Sub Command2_Click ( ) ’顺时针施转90°’
Picture2.Picture = LoadPicture ( "" )
For i-h To 0 Step-1
For j - 0 To w Step 1
(2)
Next j
Next i
End Sub
Private Sub Command3_Click ( ) ’逆时针旋转90°’
Picture2.Picture = LoadPicture ("")
For j =w To 0 Step -1
For i = 0 To h Step 1
(3)
Next i
Next j
End Sub
Private Sub Command4 Click ( ) ’水平翻转
Picture2.Picture = LoadPicture ( "" )
For i = w To 0 Step -1
For j = 0 To h Step 1
(4)
Next j
Next i
End Sub
Private Sub Command5_Click ( ) ’垂直翻转
Picture2.Picmre = LoadPicmre ( "" )
Forj = 0 To h Step 1
For i = 0 To w Step I
(5)
Next i
Next j
End Sub
Private Sub Command6_Click ( ) ’复位
Picture2.Picture = LoadPicmre ( "" )
For i = 0 To w Step 1
For j = 0 To h Step 1
(6)
Next j
Next i
End Sub
选项
答案
(1)BitB1t Picture2.hDC, i, j, 1, 1, Picture1.hDC w-i, h-j, srcopy (2) BitB1t Picture2.hDC, i, j, 1, 1, Picture1.hDC w-j, h-i, srcopy (3) BitB1t Picture2.hDC, i, j, 1, 1, Picture1.hDC j, i, srcopy (4) BitB1t Picture2.hDC, i, j, 1, 1, Picture1.hDC i, j,
解析
本题中Visual Basic代码实现了对位图(BMP)进行旋转显示。(1)为旋转180*时对BMP的操作。(2)为顺时针旋转90°时对BMP的操作。(3)为逆时针旋转90°时对BMP的操作。(4)为水平翻转时对BMP的操作。(5)为垂直翻转时对BMP的操作。
做题中注意阅读前后代码。
转载请注明原文地址:https://kaotiyun.com/show/8rDZ777K
本试题收录于:
软件设计师下午应用技术考试题库软考中级分类
0
软件设计师下午应用技术考试
软考中级
相关试题推荐
给定关系模式R(A,B,C,D)、S(C,D,E),与π1,3,5等价的SQL语句如下:SELECT(22)FROMR,sWHERE(23);下列查询B=“信息”且E=“北京”的A、B、E的关系代数表达式中,查询效率
对于逻辑表达式((a‖(b&c))‖(C&&d)),需要___________个测试用例才能完成条件组合覆盖。
一条Bug记录应包括__________。①编号②Bug描述③Bug级别④Bug所属模块⑤发现人
软件复杂性是指理解和处理软件的难易程度,其度量参数不包括___________。
软件测试的对象不包括________。
在程序控制流图中,有8条边,6个节点,则控制流程图的环路复杂性V(G)等于(55)。
在软件工程中,不属于软件定义阶段的任务是______。A.制定验收测试计划B.制定集成测试计划C.需求分析D.制定软件项目计划
以下关于模块耦合关系的叙述中,耦合程度最低的是__________(39),其耦合类型为___________(40)耦合。(40)
在结构化分析方法中,利用分层数据流图对系统功能建模。以下关于分层数据流图的叙述中,不正确的是___________(32)。采用数据字典为数据流图中的每个数据流、文件、加工以及组成数据流或文件的数据项进行说明,其条目不包括____________(33)。
零件关系P(零件名,条形码,供应商,产地,价格)中的(12)属性可以作为该关系的主键。查询产于西安且名称为“P2”的零件,结果以零件名、供应商及零件价格分列表示,对应的SQL语句为:SELECT零件名,供应商,价格FROMPWHE
随机试题
Roddidnothingbut()trickonme.
心悸伴晕厥可见于
测定血中磷浓度时,会造成结果偏高的是
成人体外循环灌注流量的灌注量一般是
患者,女,80岁。生活能自理,每5~6天排便1次,量少、干硬,需要别人协助才能便出。措施不妥当的是
依据委托监理合同示范文本规定,( )属于额外的监理工作。
外汇储备资产中的一级储备特点的是()。
意大利音乐家普契尼创作的歌剧《图兰朵》描述的是中国故事,其中还用了许多中国的音乐,如民歌()。
在考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tEmployee”和查询对象“qEmployee”,同时还设计出以“qErnployee”为数据源的报表对象“rEmployee”。试在此基础上按照以下要求补充报表设计:
Astheoldempireswerebrokenupandnewstateswereformed,newofficialtonguesbeganto______atanincreasingrate.
最新回复
(
0
)