首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明和Visual Basic代码,将相应文字填入(n)处,并写在对应栏内。 [说明] 以下Visual Basic代码实现了对位图(BMP)进行旋转显示。以下程序共实现了对BMP位图图形进行 180°旋转、90°旋转(顺时针)、90°旋转
阅读以下说明和Visual Basic代码,将相应文字填入(n)处,并写在对应栏内。 [说明] 以下Visual Basic代码实现了对位图(BMP)进行旋转显示。以下程序共实现了对BMP位图图形进行 180°旋转、90°旋转(顺时针)、90°旋转
admin
2009-02-15
62
问题
阅读以下说明和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
软件设计师下午应用技术考试
软考中级
相关试题推荐
以下关于用例图的叙述中,不正确的是(44)。图书馆管理系统需求中包含“还书”用例和“到书通知”用例,对于“还书”用例,应先查询该书是否有人预定,若有则执行“到书通知”。“还书”用例和“到书通知”用例是(45)关系,以下用例图中,(46)是正确的。管理员处
模块A的功能为:从数据库中读出产品信息,修改后存回数据库,然后将修改记录写到维护文件中。该模块内聚类型为(38)内聚。以下关于该类内聚的叙述中,正确的是(39)。(38)
已知函数f()、g()的定义如下所示,调用函数f时传递给形参x的值是5。若g(a)采用引用调用(callbyreference)方式传递参数,则函数f的返回值为(12);若g(a)采用值调用(callbyvalue)的方式传递参数,则函数f
可用于编写独立程序和快速脚本的语言是()。
以下关于模块耦合关系的叙述中,耦合程度最低的是__________(39),其耦合类型为___________(40)耦合。(40)
在面向对象系统中,对象的属性是()。
某财务系统在使用过程中,因个人所得税政策变化,需修改计算工资的程序。这种修改属于______维护。
某企业职工关系EMP(E_no,E_name,DEPT,E_addr,E_tel)中的属性分别表示职工号、姓名、部门、地址和电话;经费关系FUNDS(E_no,E_limit,E_used)中的属性分别表示职工号、总经费金额和已花费金额。若要查询部门为“开
随机试题
Whatshouldwedofirstwhenwemakemistakes?Weshouldacknowledgethem_________________.
A.DukesA期B.DukesC2期C.DukesB期D.DukesC1期E.DukesD期结肠癌有淋巴结转移,但仅限于癌肿附近者属于()
肺阴虚型虚劳的主方是肺热伤津型痿证的主方是
男,24岁,右下肢外伤后,未得到正确的处理而导致破伤风。为其伤口换药后污染敷料的处理方法是
企业本年度应纳税所得额为100万元,按25%的所得税税率计算,本年度应缴所得税为25万元,则该项经济业务涉及的账户有()。
李源潮说干部要三个敬畏——“敬畏历史、敬畏群众、敬畏人生”,你怎么看这句话?
某被试的韦氏智力测验分数比同年龄常模团体的均值高一个标准差,其IQ是()
教育观察研究
在PowerPoint中,旋转图片的最快捷方法是
Auctionsarepublicsalesofgoods,conductedbyanofficiallyapprovedauctioneer.Heaskedthecrowdtogatherintheauction
最新回复
(
0
)