首页 范文大全 古典文学 职场知识 中国文学 公文书信 外国名著 寓言童话 百家讲坛 散文/诗歌 美文欣赏 礼仪知识 民俗风情
  • 工作总结
  • 工作计划
  • 心得体会
  • 竞聘演讲
  • 会议发言
  • 爱国演讲
  • 就职演说
  • 开业开幕
  • 思想学习
  • 征文演讲
  • 经验材料
  • 述职报告
  • 调研报告
  • 工作汇报
  • 年终总结
  • 申报材料
  • 学习体会
  • 企划方案
  • 活动方案
  • 技巧经验
  • 模板范例
  • 思想宣传
  • 经济工作
  • 工作报告
  • 组织人事
  • 反腐倡廉
  • 慰问贺电
  • 先进事迹
  • 思想汇报
  • 入党申请书
  • 党会发言
  • 先进性教育
  • 入团申请书
  • 个人简历
  • 演讲稿
  • 调查报告
  • 实习报告
  • 和谐社会
  • 观后感
  • 读后感
  • 作文范文
  • 自我鉴定
  • 讲话稿
  • 自查报告
    • 蒲公英阅读网 > 范文大全 > 思想汇报 > 正文

    计算机程序设计期末考试试卷

    时间：2021-04-22 20:09:31 来源：蒲公英阅读网 本文已影响人 蒲公英阅读网手机站

    相关热词搜索：程序设计 期末考试 试卷

    　 计算机程序设计 期末考试试卷

    　一、判断题( ( 每题 1 1 分，共 0 10 分) )

    　1．事件是由 Visual Basic 预先定义的对象能够识别的动作。

    　2．过程中的静态变量是局部变量，当过程再次被执行时，它的值是上一次过程调用后值。

    　3．不论步长是正值或负值，当循环变量的值大于终值时，结束循环。

    　4．用 DIM 定义数值变量时，该数值变量自动赋初值为 0。

    　5．单选按钮控件和复选框控件都具有 Value 属性，它们的作用完全一样。

    　6．可以通过合理设置组合框的 MultiSelect 属性使组合框支持简单复选或扩展复选。

    　7．滚动条控件可作为用户输入数据的一种方法。

    　8．用 OutPut 模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。

    　9．在图片框中添加的控件，其 Top 和 Left 属性值是相对图片框而言的，与窗体无关。

    　10．通用对话框的 FileName 属性返回的是一个输入或选取的文件名字符串。

    　二、单选题( ( 每题 1 1 分，共 0 20 分) ) 1．在 Visual Basic 中，称对象的数据是

    　。

    　 A、属性

    　B、方法

    　 C、事件

    　 D、封装 2．语句 Print “5*5”的执行结果为

    　。

    　 A、25

    　 B、“5*5”

    　C、5*5

    　 D、出现错误 3．输入对话框 InputBox 的返回值类型是

    　 。

    　 A、字符串

    　 B、整数

    　 C、浮点数

    　D、长整数 4．若 I 的初值为 8，则下列循环语句的循环次数为

    　次。

    　Do While I <= 17

    　 I = I + 2

    　Loop

    　 A、3 次

    　 B、4 次

    　C、5 次

    　D、6 次 5．在下列关于 Select Case 的叙述中，错误的是

    　。

    　 A、Case 10 To 100

    　表示判断 Is 是否介于 10 与 100 之间

    　 B、Case "abc","ABC" 表示判断 Is 是否和"abc"、"ABC"两个字符串中的一个相同

    　 C、Case "X"

    　 表示判断 Is 是否为大写字母 X

    　 D、Case -7,0,100

    　 表示判断 Is 是否等于字符串"-7，

    　 0，100" 6．标签控件的标题和文本框控件的显示文本的对齐方式由

    　属性决定。

    　 A、WordWrap

    　B、AutoSize

    　C、Alignment

    　 D、Style 7．以下

    　语句将删除列表框 List1 中的最后一项。

    　List1.RemoveItem List1.ListCount List1.Clear List1.List（List1.ListCount-1）＝“” List1.RemoveItem List1.ListCount-1 8．文本框中选定的内容，由下列

    　属性来反映。

    　 A、Seltext

    　 B、Sellenght

    　C、Text

    　 D、Caption 9．单击滚动条两端的任意一个滚动箭头，将触发滚动条的

    　事件。

    　 A、KeyDown

    　B、Change

    　C、Scroll

    　D 、Click 10．将图片框的

    　属性设置为 True 时，可使图片框根据图片调整大小。

    　 A、Picture

    　B、Stretch

    　 C、AutoSize

    　 D、

    　 AutoRedraw 11．设计动画时通常用时钟控件

    　属性来控制动画速度。

    　 A、Interval

    　B、Timer

    　C、Move

    　 D、Enabled 12 ． 语 句 “ Circle(1000,1000),800,,-3.1415926/3,-3.1415926/2”绘制的是

    　。

    　 A、弧

    　 B、椭圆

    　 C、扇形

    　D、同心圆 13．在 VB 中，以下控件不能作为其他控件的容器的是

    　。

    　 A、框架

    　B、图片框

    　C、影像框

    　 D、窗体 14．形状（Shape）控件所显示的图形不可能是

    　 。

    　 A、圆

    　B、椭圆

    　 C、圆角正方形

    　D、等边三角形 15．Visual Basic 用下列哪一条指令来绘制直线

    　。

    　 A、Line 方法

    　B、Pset 方法

    　 C、Point 方法

    　 D、Circle 方法 16．将通用对话框类型设置为“另存为”对话框，应修改

    　属性。

    　 A、Filter

    　B、Font

    　C、Action

    　D、FileName 17．每创建一个菜单，它的下面最多可以有

    　 级子菜单。

    　 A、1

    　B、3

    　 C、5

    　 D、6 18．语句“open c:\dat.txt for output”用于打开一个顺

    　 序文件，该语句的一个重要错误是没有

    　 。

    　 A、指定打开方式

    　B、指定文件号

    　C、指定文件名

    　D、指定打开类型 19．已知 A、B、C 中 C 最小，则判断 A、B、C 可否构成三角形三条边长的逻辑表达式是

    　 。

    　A、A>=B And B>=C And C>0

    　B、A+C>B And B+C>A And C>0

    　C、(A+B>=C Or A-C<=C) And C>0

    　D、A+B>C And A-B>C And C>0 20．若目录列表框控件 Dir1 的 Path 属性当前值为“C：\”，双击该列表框的表项“Pwin2000”后，控件 Dir1 的 Path 属性当前值为

    　 。

    　A、“c:\Pwin2000”

    　 B、“c:\\Pwin2000\”

    　 C、“c:\Pwin2000\”

    　 D、“c:Pwin2000\”

    　三、填空题( ( 每题 1 1 分，共 0 10 分) ) 1．用 Dim X(2 to 5) As Integer 语句定义的数组占用

    　 个字节的内存空间。

    　2．算术式 ln(x)+sin(30°)的 VB 表达式为

    　。

    　3. 语句 Print Not 10 > 15 And 8 < 5 + 2 的输出结果

    　 为

    　。

    　4．运行时，若需要命令按钮为灰色，即不被击活，在设计时可以通过

    　属性来实现。

    　5．组合框具有文本框和

    　 两种控件的基本功能。

    　6．定时器控件只能接收

    　 事件。

    　7．以窗体 Form1 的中心为圆心，画一个半径为 800 缇的圆的方法是

    　。

    　8．在图片框中加一幅图片（从磁盘装入）可用

    　 函数来实现。

    　9．文件的当前读写位置是否到达文件末尾，应用

    　函数。

    　10．在设计菜单时，可在 VB 主窗口的菜单栏中选择

    　，单击后从它的下拉菜单中选择 “菜单编辑器”菜单项。

    　四、程序阅读题（每题 5 5 分，共 0 20 分）

    　 程序 1：当程序运行时，输入 n 的值为 7，写出图片框上的输出结果。

    　Private Sub Command1_Click()

    　Dim i As Byte, j As Byte, n As Byte

    　Do

    　 n = InputBox("n=","输入 1-9 之间的整数")

    　Loop While n<1 Or n>9

    　For i = 1 To n

    　 Picture1.Print Tab(n - i + 1);

    　For j = 1 To 2 * i - 1

    　Picture1.Print Trim(Str(i));

    　Next j

    　 Print

    　 Next i

    　 End Sub

    　2．程序 2：写出下列程序运行时单击窗体后屏幕上的显示结果 Dim x as Integer Private Sub Form_Click()

    　 Dim y as Integer, z as Integer

    　 y = 1: z = 2

    　 Call init (y, z)

    　 Print "y="; y, "z="; z

    　 y = op(y, z)

    　 Print "x="; x, "y="; y, "z="; z End Sub Private Sub init(ByVal a As Integer, b As Integer)

    　 a = a + 2: b = b + 2: x = x + 1 End Sub Private Function op(a As Integer, b As Integer) As Integer

    　 a = a + 1: b = b + 1: op = a + b End Function

    　3．程序 3：写出下列程序运行时单击窗体后屏幕上的显示结果 Private Sub Form_Click()

    　Dim a(6) As Integer, k As Integer, j As Integer

    　Open "c:\a1.dat" For Output As #1

    　For i% = 1 To 6

    　 j = i% * i% : Print #1, j;

    　Next i%

    　Close #1

    　Open "c:\a1.dat" For Input As #2

    　k = 0

    　Do While Not EOF(2)

    　 k = k + 1 : Input #2, a(k)

    　Loop

    　Close #2

    　For i% = k To 1 Step -1 : Form1.Print a(i%); : Next i% End Sub 写出程序运行时单击窗体后，a1.dat文件的结果和窗体上的输出结果。

    　4．程序4：已知控件Hscroll1的属性设置如下 Hscroll1.Min =1 Hscroll1.Max=9 Hscroll1.Value=1 Hscroll1.SmallChange=2 Hscroll1.LargeChange=4 下列程序运行时,4次单击滚动条右端箭头,写出各次单击时 Text1 上的显示结果。

    　Dim y As Integer

    　 Private Sub HScroll1_Change()

    　Dim x2 As Integer, i As Integer

    　Static x1 As Integer

    　x2 = HScroll1.Value

    　For i = x1 To x2

    　 y = y + i

    　Next i

    　Print "y="; y

    　x1 = i End Sub

    　五、程序( ( 选择 ) 填空题( ( 每空 2 2 分，共 0 20 分) ) 1．【程序说明】下列程序用来在窗体上输出如下数据。

    　1 0 0 0 1 0 1 0 1 0 0 0 1 0 0 0 1 0 1 0 1 0 0 0 1 Private Sub Form_Click() Dim a(1 To 5, 1 To 5) As Integer, i As Integer, j As

    　 Integer For i = 1 To 5

    　 For j = 1 To 5

    　 if ______（1）________ then

    　 ______(2)_________

    　 End If

    　 Next j Next i For i = 1 To 5

    　 For j = 1 To 5

    　 Print a(i, j);

    　 Next j

    　 _____(3)__________ Next I：End Sub （1）A、i=j

    　 B、i=j and i+j=6

    　 C、i=j or i+j=6

    　D、i<>j and i+j<>6 （2）A、a(i, j)=0

    　B、a(i, j)=1

    　 C、Print a(i, j)

    　D、Print a(i, j); （3）A 、Print

    　 B、 Print i

    　 C、 i=i+1

    　D、 a(i, j)=i

    　2．【程序说明】创建一个彩色的演示程序，要求在 Picture1中画出水平方向半径较长的彩色椭圆 50 个，圆心均在一条水平线上，椭圆的长轴与短轴之比 a/b=2。

    　Dim r!, g!, b! Dim i% Sub circledemo()

    　Dim radius!

    　r = 255 * Rnd

    　g = 255 * Rnd

    　b = 255 * Rnd

    　xpos = Picture1.ScaleWidth * Rnd

    　ypos =

    　（4）

    　radius = ((xpos * 0.9) + 1) * Rnd

    　Picture1.

    　（5）

    　 End Sub Private Sub Command1_Click()

    　For i = 1 To 50

    　 Call

    　（6）

    　Next i

    　 End Sub （4）A、Picture1.Scaleheitht*rnd

    　B、Picture1.Scaleheight*rnd

    　C、Picture1.Scalewidth*rnd

    　D、Picture1.ScaleHeight / 2 （5）A、Circle (xpos, ypos), radius, RGB(r, g, b), , ,1 / 2

    　B、Circle (xpos, ypos), radius, RGB(r, g, b), 1 / 2

    　C、Circle (xpos, ypos), radius, RGB(r, g, b), 2

    　D、Circle (xpos, ypos), radius, RGB(r, g, b), , , 2 （6）A、Sub circledemo

    　B、circledemo

    　C、circledemo(50)

    　D、Sub circledemo()

    　3.【程序说明】利用 1 个计时器、1 个标签框和 2 个命令按钮制作一个动态秒表。

    　各控件名称取缺省值，控件 Command1、Command2 标题分别

    　 为“开始”、“结束”。运行时，单击“开始”秒表开始记时，并在标签上显示总秒数；单击“结束”记时结束，在窗体上显示出运行的时间。（折算成小时，分钟和秒数）

    　Dim x As Long Private Sub Form_Load()

    　Timer1.Interval = 1000

    　Timer1.Enabled = False End Sub Private Sub Command1_Click()

    　 Cls

    　 x=0

    　（7）

    　End Sub Private Sub Command2_Click()

    　Dim h As Integer, m As Integer, s As Integer

    　Timer1.Enabled = False

    　h =

    　（8）

    　 ‘小时数 m =

    　（9）

    　 ‘分数 s = x Mod 3600 Mod 60 print "运行" + Str(h)+"小时"+Str(m)+"分"+Str(s)+"秒

    　 " End Sub Private Sub Timer1_Timer()

    　（10）

    　 Label1.Caption=x End Sub （7）A、Timer1.Enabled=False

    　B、Timer1.Enabled=True

    　C、Timer1.Enabled=Fales

    　D、Timer1.Visible=False （8）A、x\3600

    　B、x/3600

    　C、x mod 60

    　D、x mod 3600\60 （9）A、x\3600

    　B、(x mod 3600)\60

    　C、x mod 3600 \60

    　D、x\60 （10）A、Timer1.Enabled=True

    　B、Label1.Left=Label1.left+1

    　C、x=x+1

    　D、Timer1.Enabled=False

    　 六、程序设计题( ( 每题 0 10 分，共 0 20 分) )

    　1．编程，通过文本框输入 x 值，按下式计算并在图片框上输出 y 值。

    　 用户界面如图 1 所示，用于实现左右两个列表框中数据的传递功能。程序开始运行时，在左边列表框框中随机生成 10个三位正整数，现要求完成：

    　单击“>>”按钮，左边列表框的 10 个列表项中的偶数复制到右边列表框，并使所有的偶数按由小到大顺序排列。如图    0 01 03 13 3 ln) (2xx xx xx xx f y

    　 2 所示。

    　单击“结束”按钮，结束程序运行。

    　所有控件的标题属性都已经完成设置。请分别写出两个命令按钮的单击事件和窗体的 Load 事件。

    　图 1

    　图 2

  • 记账凭证日期怎么填【记账凭证上的日期】
  • [幼儿园游戏课后反思] 教案体育反思
  • 八年级下册数学知识点 八年级下册历史1至1
  • [给高中朋友留言幽默的语句] 幽默朋友留言
  • 【市场规划方案范文_市场开拓计划书范文】
  • [正确的跑步减肥方法] 跑步减肥正确方法
  • 大便一直不成形是肠癌 [大便不成形是什么
  • [和女孩聊天的话语] 和女生聊天的幽默话语
  • 小米平板电脑怎么查看配置_小米平板3配置
    • 范文大全
    • 职场知识
    • 精美散文
    • 名著
    • 讲坛
    • 诗歌
    • 礼仪知识
    最新文章

    推荐访问

    大反思大讨论活动 保安全” 筑防线 “查思想 贡献伟大时代” “以青春之我 工作评议报告 创建活动综述 市社保局党支部 自述报告 “党员先锋示范岗” 党建德育工作 达标创星活动 “星级党支部”创建 评星定级管理 社会组织党支部 第四巡察组 新进年轻干部 委厅机关 党性教育培训班 履职能力建设专题培训班 新考录社区工作者 “头雁领航”重点培训班 党组织业务培训 能力提升培训会 赋能经济高质量发展 “五好”园区 三年攻坚行动 行政管理能力建设提升班 高质量发展能力提升培训班 市疾控系统 中基层管理人员 专业能力提升专题培训班 新发展预备党员 进驻工作 迎接审计组 讲评推进大会 “三抓三促”行动动员 “永不过时的红岩精神” 市委党史研究室 科学绿化现场会 深化以案促改 一体推进不敢腐不能腐不想腐 奋斗精神 专题辅导讲稿 坚守使命追求 涉密 《党史学习教育工作条例》 百年新征程 “百年定位” 党课教育

    本文计算机程序设计期末考试试卷由蒲公英阅读网整理提供，版权归原作者、原出处所有。

    Copyright © 蒲公英阅读网 All Rights Reserved.