河北广播电视大学2019-2020年度第一学期开放教育本科期末考试《6051Visual Basic程序设计》试卷

1、学号班级名称学生姓名试卷号：6051 座位号：河北广播电视大学20192020年度第二学期开放教育本科补修课考试得 分评卷人Visual Basic程序设计 试题 2019年12月题号一二三四总分得分得 分评卷人一、 单项选择题（该题共有10个小题，每题3分，共30分）1、下列不属于VB应用程序构成的是（ ）。 A、res文件 B、ocx文件 C、pas文件 D、frx文件2、对于窗体Form1的各个属性，不能通过代码编辑窗口来设置的是（ ）。 A、Caption B、Picture C、BorderStyle D、Visible3、在Visual Basic中，程序执行的顺序是（ ）。 A、

2、由Visual Basic开发系统决定 B、随意执行 C、由事件驱动 D、由代码行的顺序决定4、可通过设置一个普通窗体的（）属性，将它转变成MDI子窗体？ A、MDIChild=False B、MDIChild=True C、WindowState=Normal D、WindowState=Maximized5、Timer控件不同于其它VB控件，它只有一个事件（ ）。A、Click B、Load C、Timer D、Move 6、不论何控件，共同具有的是（ ）属性。A、Tex B、Name C、ForeColor D、Caption 7、执行语句a=5 mod 3，则a的值是（ ）。 A、0

3、B、1 C、2 D、1.668、下列图形不能用Shape控件绘制的是（ ）。A、矩形 B、正方形 C、三角形 D、椭圆9、在VB中，Access数据库属于（ ）。 A、本地数据库 B、网络数据库 C、外部数据库 D、远程数据库10、ActiveX EXE文件的后缀是（ ）。 A、EXE B、OCX C、DLL D、CLS二、 填空题（该题共10个空，每空2分，共20分）1、VB中一般用关键字 声明常量，用 声明变量。2、要求窗体Form2以模态方式显示的语句是 。3、面向对象编程方法的四个基本机制是抽象、 、继承和 。4、用Dim A(5,3 to 5)语句声明二维数组后，数组A的元素共有 个

4、。5、菜单控件的唯一事件是 事件。6、在Do While循环中，可以通过 语句来退出循环。7、在程序运行过程中，可以使用 语句来修改数字的上下界。8、VB应用程序与数据库进行通信的主要机制是 。得 分评卷人三、阅读程序题（该题共4个小题，每小题5分，共20分）阅读下列程序并写出程序运行结果 1、Private Sub Commandl_Click( )Textl.Text= “VB”End SubPrivate Sub Command2_C1ick( )Textl.Text = “程序”End Sub单击Command2按钮，又单击Command1按钮，在文本框中显示 。2、Private S

5、ub Form_Click()Dim i As Integeri = 6DoPrint ii = i + 1Loop While i <= 5End Sub运行结果是： 3、Private Sub Form_Click()Dim var1, var2, var3var1 = "52"var2 = 5var3 = var1 + var2Print var3End Sub 运行结果是： 4、Private Sub Form_Click( )Static Sum As IntegerFor I = l To 10Sum = Sum+ INext IPrint SumEnd

6、Sub得 分评卷人运行结果是: 。四、完善程序题（该题共10小空，每空3分，共30分）倒计时程序，要求在文本框输入倒计时的分钟数，点击开始按钮，以秒为单位开始倒计时，计时完毕弹出提示对话框，结束计时。程序运行如图所示：程序如下，请补充完整： （1） '强制显示声明变量Dim m Long （2） '定义长整形变量mPrivate Sub Command1_ () （3） '按钮Command1按钮的单击事件 = True （4） '使计时器控件开始工作m = Val(Text1.Text) * 60Label1.Caption = "现在开始倒计时&q

7、uot;Command1. = False （5） '使命令按钮不可见End SubPrivate Sub () （6）'为Timer1控件编写事件m = m 1If Then （7） '如果倒计时结束，则：Timer1.Enabled = False "时间到!", 0, "倒计时" （8）Label1.Caption = "请输入倒计时的分钟数"Text1.Text = ""Command1.Visible = True （9） Text1.Text = m （10） End Sub 试卷号：6051Visual Basic程序设计试题答案三、 单项选择题（该题共有10个小题，每题3分，共30分）1-5：CCCBC 6-10：BCCAA二、填空题（该题共10个空，每空2分，共20分）1、Const、Dim2、Form2.Show 13、封装、多态性4、185、Click6、Exit Do7、Redim8、数据引擎三、阅读程序题（该题共4个小题，每小题5分，共20分）1、VB 2、6 3、57 4、55四、完善程序题（该题共10小空，每