第19卷 图像和图形设计《Visual Basic程序设计》内蒙古计算机类 考纲百套卷

编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第19卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：绘制图形，显示图片。 内蒙古对口招生《计算机类考纲百套卷》 第19卷 《Visual Basic程序设计》 图形与图像设计 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共25道小题，每题2分，共50分） 1. 用来设置所绘线条宽度的属性是 A.DrawWidth B.BorderWidth C.DrawStyle D.BorderStyle 2. 下列颜色设置语句中，正确的是 A.Form1.BackColor = RGB(128,0,256) B.Form1.BackColor = QBColor(16) C.Form1.Color = &HFF0000 D.Form1.BackColor = vbGreen 3. 使图形能自动按控件大小而改变的控件是 A.标签框 B.框架 C.图片框 D.图像框 4. 把当前目录下的图形文件pic1.jpg装入图片框Picture1中的正确语句为 A.Picture1.Picture = "pic1.jpg" B.Picture1.Handle = "pic1.jpg" C.Picture1.Picture = LoadPicture("pic1.jpg") D.Picture1.LoadPicture "pic1.jpg" 5. 命令Picture1.Circle(500,800),800能够在图片框Picture1中画出的图形是 A.半径为800的圆 B.细而高的椭圆 C.扁而平的椭圆 D.以(500,800)为圆心的圆 6. 下列语句中，不能正确执行的是 A.Print 25 B.Picture1.Print 25 C.Text1.Print 25 D.Debug.Print 25 7. 图片框Picture1的AutoSize属性为True时，若加载的图片较大，则 A.图片被压缩显示 B.图片框自动扩大以显示完整图片 C.只显示图片的一部分 D.程序报错 8. Image控件的Stretch属性为True时，表示 A.图像自动调整大小以适应控件 B.控件自动调整大小以适应图像 C.图像保持原始大小 D.控件大小固定不变 9. 如果在图片框上使用绘图方法绘制一个圆，则图片框的属性不会对该圆的外观产生影响。 A.BackColor B.ForeColor C.DrawWidth D.DrawStyle 10. 运行时，要向图片框Pic中加载"C:\windows\beer.bmp"图像文件，应使用语句 A.Pic.Picture = "C:\windows\beer.bmp" B.Pic.Picture = LoadPicture("C:\windows\beer.bmp") C.Pic.Picture = LoadPicture(C:\windows\beer.bmp) D.Picture1.Picture = LoadPicture("beer.bmp") 11. 系统自动控制图形重绘的属性是 A.AutoSize B.Stretch C.AutoRedraw D.Enabled 12. 关于Shape控件说法错误的是 A.Shape控件可以画出6种不同图形 B.Shape控件形状通过Shape属性设置 C.对Shape控件的FillColor设置颜色后，效果是对控件进行实心填充 D.Shape控件画出的图形用Circle方法不一定能全部画出 13. Cls方法可以清除窗体或图片框中的 A.设计时放置的控件 B.运行时所产生的图形和文字 C.设计时在Picture中所加载的背景图案 D.所有内容 14. 关于Image控件说法正确的是 A.通过Print方法可以在其中输出其他图形，也可以输出文本 B.清空Image控件中图形的方法之一是加载一个空图形 C.Image控件比PictureBox控件占用内存多 D.用AutoSize属性可以自动调整Image控件中图形的大小 15. 对DrawWidth进行设置后，将影响 A.Line、Circle、PSet、Point方法 B.Line控件、Shape控件以及Picture控件 C.Line、Circle、PSet方法 D.Line控件、Shape控件 16. 下列指令错误的是 A.Line (500,500)-(1000,1000), ,B B.Line (500,500)-(1000,1000),RGB(255,0,0),B C.Line (500,500)-(1000,1000), ,F D.Line (500,500)-(1000,1000), ,BF 17. 不能作为容器使用的对象是 A.窗体 B.框架 C.图形框 D.图像框 18. 窗体中有一图形框和一按钮控件，单击按钮则装入D:\T1.JPG图片的正确代码为 A.Picture1.Picture = "D:\T1.JPG" B.Picture1.Picture = LoadPicture("D:\T1.JPG") C.Picture1.Picture = LoadPicture(D:\T1.JPG) D.Picture1.LoadPicture "D:\T1.JPG" 19. 对画出的图形进行填充，使用的属性是 A.FillStyle B.FillColor C.BackStyle D.ForeColor 20. 下面 属性用来设置边框类型。 A.FillStyle B.BorderWidth C.DrawWidth D.BorderStyle 21. 指令"Form1.Circle(500,500),300, , , ,2"的功能是在窗体上画出 A.圆 B.圆弧 C.椭圆 D.扇形 22. 指令"Line (500,500)-(1000,1500)"执行后，CurrentY＝ A.500 B.1500 C.1000 D.0 23. 在 VB 中，可以改变坐标度量单位的是 A. Scale方法 B. ScaleMode属性 C. DrawStyle属性 D. BorderStyle属性 24. 重定义坐标系使用 A.Scale方法 B.ScaleMode属性 C.DrawStyle属性 D.BorderStyle属性 25. 关于AutoRedraw属性，下列说法正确的是 A.AutoRedraw为True时，绘图输出不保存在内存中 B.AutoRedraw为False时，窗体被遮盖后恢复会自动重绘 C.AutoRedraw为True时，窗体被遮盖后恢复会自动重绘 D.AutoRedraw属性只能在设计时设置 二、填空题（本大题共10小题，每题2分，共20分） 1. 为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的Stretch属性设置为______。 2. 图片框的默认属性为______。 3. 在图片框Picture1中，以(1000,1000)处为圆心，画一个半径为500的圆的命令是______。 4. 容器的实际可用高度和宽度由属性______和属性______决定。 5. 使用语句Scale(-300,200)-(300,-150)自定义坐标系以后，则坐标系的X轴正向是向______。 6. 如果窗体的AutoRedraw属性为False，则在事件Form_Load中使用语句Circle(300,300),200后，程序运行的结果是窗体上______。 7. 当Shape属性值为0时，它的表现形式是______。 8. 用Line方法画线时，如果DrawWidth设置大于1时，这时如果DrawStyle属性值为1～4，都是产生______线效果。 9. Point方法返回的值是______。 10. 容器控件取缺省坐标系，则坐标原点在容器______，单位刻度为______。 三、程序填空题（本大题共2小题，每题15分，共30分） 1.下列程序在图片框Picture1中画一个以两点为对角的矩形，每次点击图片框Picture1时，擦除上次所画的图案，并随机产生两点坐标，然后以这两点为对角画填充色为红色的矩形。 其代码为： Dim x0!, y0!, x1!, y1! Private Sub Picture1_Click() ______(1）________________ x0 = Rnd * Picture1.Width: y0 = Rnd * Picture1.Height x1 = Rnd * Picture1.Width: y1 = Rnd * Picture1.Height Picture1.FillStyle = 0 Picture1.FillColor = RGB(255, 0, 0) Picture1._____(2）___________, , B End Sub 2.下面代码为一个简单的图片浏览器，假设窗体有两个按钮Command1、Command2，Command1用来打开文件通用对话框并加载图片，Command2用来清除图片。其代码如下： Private Sub Command1_Click() '打开文件 Dim fn As String CommonDialog1.InitDir = "d:\" CommonDialog1.Filter = "图片文件|*.jpg|所有文件|*.*" CommonDialog1.ShowOpen fn = CommonDialog1.FileName ________(1）_______________ End Sub Private Sub Command2_Click() '清除图片 ________(2）___________ End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第19卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：绘制图形，显示图片。 内蒙古对口招生《计算机类考纲百套卷》 第19卷 《Visual Basic程序设计》 图形与图像设计 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共25道小题，每题2分，共50分） 1. 用来设置所绘线条宽度的属性是 A.DrawWidth B.BorderWidth C.DrawStyle D.BorderStyle 【答案】A 【解析】DrawWidth 设置绘图方法所画线条的宽度，取值范围1～32767，默认值为1。 2. 下列颜色设置语句中，正确的是 A.Form1.BackColor = RGB(128,0,256) B.Form1.BackColor = QBColor(16) C.Form1.Color = &HFF0000 D.Form1.BackColor = vbGreen 【答案】D 【解析】vbGreen 是VB内置颜色常量；RGB参数范围0～255，256越界；QBColor参数0～15；&HFF0000格式不完整，应为&H00BBGGRR形式。 3. 使图形能自动按控件大小而改变的控件是 A.标签框 B.框架 C.图片框 D.图像框 【答案】D 【解析】Image控件的Stretch属性为True时，图形自动缩放以适应控件大小；Stretch为False时，控件自动调整大小以适应图形。 4. 把当前目录下的图形文件pic1.jpg装入图片框Picture1中的正确语句为 A.Picture1.Picture = "pic1.jpg" B.Picture1.Handle = "pic1.jpg" C.Picture1.Picture = LoadPicture("pic1.jpg") D.Picture1.LoadPicture "pic1.jpg" 【答案】C 【解析】LoadPicture函数返回Picture对象，需赋值给控件的Picture属性；语法为：控件.Picture = LoadPicture(文件路径)。 5. 命令Picture1.Circle(500,800),800能够在图片框Picture1中画出的图形是 A.半径为800的圆 B.细而高的椭圆 C.扁而平的椭圆 D.以(500,800)为圆心的圆 【答案】D 【解析】Circle(500,800),800表示以(500,800)为圆心、半径为800画圆；选项D描述正确。原题选项有误，正确答案为画出圆。 6. 下列语句中，不能正确执行的是 A.Print 25 B.Picture1.Print 25 C.Text1.Print 25 D.Debug.Print 25 【答案】C 【解析】文本框Text1不支持Print方法；窗体、图片框、Immediate窗口（Debug）均支持Print方法。 7. 图片框Picture1的AutoSize属性为True时，若加载的图片较大，则 A.图片被压缩显示 B.图片框自动扩大以显示完整图片 C.只显示图片的一部分 D.程序报错 【答案】B 【解析】AutoSize为True时，图片框自动调整大小以适应所加载图片的大小；Stretch是Image控件的属性。 8. Image控件的Stretch属性为True时，表示 A.图像自动调整大小以适应控件 B.控件自动调整大小以适应图像 C.图像保持原始大小 D.控件大小固定不变 【答案】A 【解析】Stretch=True时，图像缩放以适应Image控件；Stretch=False时，控件缩放以适应图像。 9. 如果在图片框上使用绘图方法绘制一个圆，则图片框的属性不会对该圆的外观产生影响。 A.BackColor B.ForeColor C.DrawWidth D.DrawStyle 【答案】A 【解析】BackColor是背景色，不影响所画图形颜色；圆的颜色由ForeColor或Circle语句中的color参数决定；DrawWidth影响线条宽度，DrawStyle影响线型。 10. 运行时，要向图片框Pic中加载"C:\windows\beer.bmp"图像文件，应使用语句 A.Pic.Picture = "C:\windows\beer.bmp" B.Pic.Picture = LoadPicture("C:\windows\beer.bmp") C.Pic.Picture = LoadPicture(C:\windows\beer.bmp) D.Picture1.Picture = LoadPicture("beer.bmp") 【答案】B 【解析】LoadPicture函数的参数必须是字符串，且路径中的反斜杠需转义为\\；赋值语句为控件.Picture = LoadPicture(文件路径)。 11. 系统自动控制图形重绘的属性是 A.AutoSize B.Stretch C.AutoRedraw D.Enabled 【答案】C 【解析】AutoRedraw为True时，VB自动将绘图输出保存在内存中，窗体或控件被遮盖后恢复时会自动重绘图形。 12. 关于Shape控件说法错误的是 A.Shape控件可以画出6种不同图形 B.Shape控件形状通过Shape属性设置 C.对Shape控件的FillColor设置颜色后，效果是对控件进行实心填充 D.Shape控件画出的图形用Circle方法不一定能全部画出 【答案】C 【解析】仅设置FillColor不够，还需将FillStyle设为0（实心）才能看到填充效果；Shape=2或3时Circle也能画椭圆或圆。 13. Cls方法可以清除窗体或图片框中的 A.设计时放置的控件 B.运行时所产生的图形和文字 C.设计时在Picture中所加载的背景图案 D.所有内容 【答案】B 【解析】Cls清除运行时用Print、Line、Circle等方法输出的图形和文字；设计时放置的控件和背景图案不受影响。 14. 关于Image控件说法正确的是 A.通过Print方法可以在其中输出其他图形，也可以输出文本 B.清空Image控件中图形的方法之一是加载一个空图形 C.Image控件比PictureBox控件占用内存多 D.用AutoSize属性可以自动调整Image控件中图形的大小 【答案】B 【解析】Image控件不支持Print方法；Image占用内存少于PictureBox；Image用Stretch调整图形大小，PictureBox用AutoSize。 15. 对DrawWidth进行设置后，将影响 A.Line、Circle、PSet、Point方法 B.Line控件、Shape控件以及Picture控件 C.Line、Circle、PSet方法 D.Line控件、Shape控件 【答案】C 【解析】DrawWidth影响绘图方法（Line、Circle、PSet）的线条宽度；Point是读取点颜色，不受DrawWidth影响；Line和Shape是控件，不受DrawWidth影响。 16. 下列指令错误的是 A.Line (500,500)-(1000,1000), ,B B.Line (500,500)-(1000,1000),RGB(255,0,0),B C.Line (500,500)-(1000,1000), ,F D.Line (500,500)-(1000,1000), ,BF 【答案】C 【解析】Line方法语法：Line(x1,y1)-(x2,y2),color,BF；B表示画矩形边框，F表示实心填充；F不能单独使用，必须与B连用为BF。 17. 不能作为容器使用的对象是 A.窗体 B.框架 C.图形框 D.图像框 【答案】D 【解析】窗体、框架、图片框（图形框）均可作为容器在其中放置其他控件；图像框Image不能作为容器。 18. 窗体中有一图形框和一按钮控件，单击按钮则装入D:\T1.JPG图片的正确代码为 A.Picture1.Picture = "D:\T1.JPG" B.Picture1.Picture = LoadPicture("D:\T1.JPG") C.Picture1.Picture = LoadPicture(D:\T1.JPG) D.Picture1.LoadPicture "D:\T1.JPG" 【答案】B 【解析】LoadPicture函数正确语法：LoadPicture("文件路径")，路径字符串中反斜杠需转义；结果赋值给Picture属性。 19. 对画出的图形进行填充，使用的属性是 A.FillStyle B.FillColor C.BackStyle D.ForeColor 【答案】A 【解析】FillColor设置填充颜色；FillStyle需设为0（实心）才能看到填充效果；两者配合使用。 20. 下面 属性用来设置边框类型。 A.FillStyle B.BorderWidth C.DrawWidth D.BorderStyle 【答案】D 【解析】BorderStyle设置边框样式（0无边框、1固定单线等）；BorderWidth设置边框宽度；DrawWidth设置绘图线条宽度。 21. 指令"Form1.Circle(500,500),300, , , ,2"的功能是在窗体上画出 A.圆 B.圆弧 C.椭圆 D.扇形 【答案】C 【解析】Circle方法最后一个参数aspect不等于1时画椭圆；aspect=2>1，画出高>宽的椭圆（竖椭圆）。 22. 指令"Line (500,500)-(1000,1500)"执行后，CurrentY＝ A.500 B.1500 C.1000 D.0 【答案】B 【解析】Line方法执行后，CurrentX和CurrentY自动更新为终点坐标；本题终点为(1000,1500)，故CurrentY=1500。 23. 在 VB 中，可以改变坐标度量单位的是 A. Scale方法 B. ScaleMode属性 C. DrawStyle属性 D. BorderStyle属性 【答案】B 【解析】ScaleMode属性设置坐标度量单位（如vbTwips=1、vbPixels=3等）；Scale方法用于自定义坐标系的原点和范围。 24. 重定义坐标系使用 A.Scale方法 B.ScaleMode属性 C.DrawStyle属性 D.BorderStyle属性 【答案】A 【解析】Scale方法（如Scale(x1,y1)-(x2,y2)）重新定义坐标系的原点和刻度范围；ScaleMode仅设置度量单位，不改变原点。 25. 关于AutoRedraw属性，下列说法正确的是 A.AutoRedraw为True时，绘图输出不保存在内存中 B.AutoRedraw为False时，窗体被遮盖后恢复会自动重绘 C.AutoRedraw为True时，窗体被遮盖后恢复会自动重绘 D.AutoRedraw属性只能在设计时设置 【答案】C 【解析】AutoRedraw=True时，VB将绘图输出保存在内存中，窗体被遮盖或最小化后恢复时会自动重绘；该属性运行时也可设置。 二、填空题（本大题共10小题，每题2分，共20分） 1. 为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的Stretch属性设置为______。 【答案】True 【解析】Stretch=True时，图像自动缩放以适应Image控件大小；Stretch=False时，控件自动调整大小以适应图像。 2. 图片框的默认属性为______。 【答案】Picture 【解析】Picture是图片框的默认属性，引用时可省略属性名，如Picture1=LoadPicture(f)等价于Picture1.Picture=LoadPicture(f)。 3. 在图片框Picture1中，以(1000,1000)处为圆心，画一个半径为500的圆的命令是______。 【答案】Picture1.Circle (1000,1000),500 【解析】Circle方法语法：对象.Circle(x,y),radius；x和y为圆心坐标，radius为半径。 4. 容器的实际可用高度和宽度由属性______和属性______决定。 【答案】ScaleHeight、ScaleWidth 【解析】ScaleHeight返回容器内部可用高度，ScaleWidth返回容器内部可用宽度，不包含标题栏、滚动条、边框等。 5. 使用语句Scale(-300,200)-(300,-150)自定义坐标系以后，则坐标系的X轴正向是向______。 【答案】右 【解析】自定义坐标系中，第一个坐标为左上角，第二个坐标为右下角；X从-300到300递增，正向向右；Y从200到-150递减，正向向下。 6. 如果窗体的AutoRedraw属性为False，则在事件Form_Load中使用语句Circle(300,300),200后，程序运行的结果是窗体上______。 【答案】什么也不显示 【解析】Form_Load事件中窗体尚未显示，绘图输出不会被看到；若AutoRedraw=False，输出不会保存在内存中，故运行后窗体上不显示该圆。 7. 当Shape属性值为0时，它的表现形式是______。 【答案】长方形（矩形） 【解析】Shape属性：0=矩形、1=正方形、2=椭圆、3=圆、4=圆角矩形、5=圆角正方形；共6种形状。 8. 用Line方法画线时，如果DrawWidth设置大于1时，这时如果DrawStyle属性值为1～4，都是产生______线效果。 【答案】实 【解析】DrawWidth>1时，DrawStyle的虚线、点线、点划线等线型均失效，统一显示为实线。 9. Point方法返回的值是______。 【答案】窗体或图形框上指定点的RGB颜色值 【解析】Point(x,y)方法返回指定点的RGB颜色值（Long型），可用于读取屏幕上某点的颜色。 10. 容器控件取缺省坐标系，则坐标原点在容器______，单位刻度为______。 【答案】左上角、Twip 【解析】缺省坐标系原点在控件左上角，X轴正向向右，Y轴正向向下，度量单位为Twip（1缇=1/1440英寸）。 三、程序填空题（本大题共2小题，每题15分，共30分） 1.下列程序在图片框Picture1中画一个以两点为对角的矩形，每次点击图片框Picture1时，擦除上次所画的图案，并随机产生两点坐标，然后以这两点为对角画填充色为红色的矩形。 其代码为： Dim x0!, y0!, x1!, y1! Private Sub Picture1_Click() ______(1）________________ x0 = Rnd * Picture1.Width: y0 = Rnd * Picture1.Height x1 = Rnd * Picture1.Width: y1 = Rnd * Picture1.Height Picture1.FillStyle = 0 Picture1.FillColor = RGB(255, 0, 0) Picture1._____(2）___________, , B End Sub 【答案】(1)Picture1.Cls (2)Line (x0,y0)-(x1,y1) 【解析】（1）Cls清除上次绘制的图形，确保每次点击重新绘制；（2）Line方法画矩形，B表示画矩形边框；FillStyle=0表示实心填充，FillColor=RGB(255,0,0)设置填充色为红色。 2.下面代码为一个简单的图片浏览器，假设窗体有两个按钮Command1、Command2，Command1用来打开文件通用对话框并加载图片，Command2用来清除图片。其代码如下： Private Sub Command1_Click() '打开文件 Dim fn As String CommonDialog1.InitDir = "d:\" CommonDialog1.Filter = "图片文件|*.jpg|所有文件|*.*" CommonDialog1.ShowOpen fn = CommonDialog1.FileName ________(1）_______________ End Sub Private Sub Command2_Click() '清除图片 ________(2）___________ End Sub 【答案】(1)Image1.Picture = LoadPicture(fn) (2)Image1.Picture = LoadPicture("") 【解析】（1）将通用对话框选中的文件名通过LoadPicture函数加载到Image控件的Picture属性中；（2）LoadPicture("")加载空图片，达到清除Image控件中图片的效果。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $