问答题

[说明]
图12-5中显示一张交通违章处罚通知书。每一个交通违章通知书有一个惟一的编号。交通违章通知书包含了收到处罚的违章者记录、涉及违章的机动车记录、违章记录、处罚记录以及经办警察记录等信息。所根据这张通知书所提供的信息回答下面问题。


1.[问题1]
根据这张通知书所提供的信息，设计了一个E-R模型，如图12-6所示。请将 (n) 处补充完整。

【参考答案】

司机(驾照号，姓名，地址，邮编，电话) PK=驾照号
机动车(牌照号，型号，制造......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
<上一题 目录 下一题>
热门 试题

问答题
[说明] 以下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 iEnd Sub
问答题
(1)j=i+1； (2)j＞0& &R[j].key＜R[j-1].key (3)R[j]=R[j-1]; 反序，则交换数据 (4)j--；(或j=j-1；)
相关试题