试卷代号：C 中央广播电视大学 学年度第 学期期末考试 理工级第学期VisualBasic程序设计试题 2008年3月 题号 三 @ 五 总分 分数 得分 评卷人 一、单项选择题（每小题2分，共30分） 1.在Visual Basic中，窗体文件的扩展名为()。 A..vbp B..frm C..cls D.bas 2.如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的 正确格式是() A.Text.Mytext B.Mytext.Text C.Mytext.(Text) D.Mytext*Text 3.关于对象的属性不正确的是()。 A.对象的属性一般有属性名和属性值 B.可通过属性窗口设置属性的值 C.可通过程序代码设置属性的值 D.对象的所有属性值均可在设计时设计 4.在设计阶段，双击窗体上的某个控件时，打开的窗体是()。 A.工程资源管理器窗口 B.工具箱窗口 C.代码编辑器窗口 D.属性窗口 5.下列符号不能作为VB中变量名的是()。 A.ABCD B.X00000 C.60XYZ D.xyz 6.在设计动画时，用时钟控件来控制动画速度的属性是()。 A.Enabled B.Move VB试题C第1页（共6页）
VB 试题 C 第1页（共 6 页） 试卷代号：C 中央广播电视大学 学年度第 学期期末考试 理工 级第 学期 VisualBasic 程序设计试题 2008 年 3 月 题号 一 二 三 四 五 总分 分数 得分 评卷人 一、单项选择题（每小题 2 分，共 30 分） 1．在 Visual Basic 中，窗体文件的扩展名为（ ）。 A．.vbp B．.frm C．.cls D．.bas 2．如果对象的名称为 Mytext，而且对象有一个属性 Text，那么在代码中引用该属性的 正确格式是（ ） A．Text.Mytext B．Mytext.Text C．Mytext.(Text) D．Mytext*Text 3．关于对象的属性不正确的是（ ）。 A．对象的属性一般有属性名和属性值 B．可通过属性窗口设置属性的值 C．可通过程序代码设置属性的值 D．对象的所有属性值均可在设计时设计 4．在设计阶段，双击窗体上的某个控件时，打开的窗体是（ ）。 A．工程资源管理器窗口 B．工具箱窗口 C．代码编辑器窗口 D．属性窗口 5．下列符号不能作为 VB 中变量名的是（ ）。 A．ABCD B．X00000 C．60XYZ D．xyz 6．在设计动画时，用时钟控件来控制动画速度的属性是（ ）。 A．Enabled B．Move
C.Timer D.Interval 7.文本框ScrollBars属性设置了非零值，却没有效果，原因是()。 A.文本框中没有内容 B.文本框的Locked属性为True C.文本框的MultiLine属性为True D.文本框的MultiLine属性为False 8.下列赋值语句正确的是()。 A.x y +z B.y +z=x C.-y=x D.4 x +y 9.VB程序中设置断点的按键是( )。 A.F5键 B.F6键 C.F9键 D.F10键 10.用语句DimA(-2To3)As Integer所定义的数组的元素的个数是(). A.3 B.4 C.5 D.6 1l.要向图片框Picture1中加载“d:\hainan\zhiwu.bmp”图像文件，应使用语句( )。 A.Picturel.Picture="d:\hainan\zhiwu.bmp B.Picturel.Picture=LoadPicture("d:\hainan\zhiwu.bmp " C.P1.Picture=LoadPicture(d:\hainan\zhiwu.bmp) D.P1.Picture=LoadPicture("d:\hainan\zhiwu.bmp " 12.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书 写，可以在行末使用续行字符()，表示下一行是当前行的继续。 A.一个空格加一个下划字符”_” B.一个下划字符”_” C.直接回车 D.一个空格加一个连字符(-) 13.VB程序中通常不会产生错误提示的是()。 A.编译错误 B.实时错误 C.运行时错误 D.逻辑错误 l4.使用AD0模型时，建立Recordset和Connection对象的连接的属性是()。 A.Execute B.CommandType C.Open D.ActiveConnection 15.下列只能用程序代码设置，不能通过属性窗口设置的属性是()。 A.Drive属性B.Pattern属性C.Visible属性D.Index属性 VB试题C第2页（共6页）
VB 试题 C 第2页（共 6 页） C．Timer D．Interval 7．文本框 ScrollBars 属性设置了非零值，却没有效果，原因是（ ）。 A．文本框中没有内容 B．文本框的 Locked 属性为 True C．文本框的 MultiLine 属性为 True D．文本框的 MultiLine 属性为 False 8．下列赋值语句正确的是（ ）。 A．x = y +z B．y + z = x C．-y= x D．4 = x +y 9．VB 程序中设置断点的按键是（ ）。 A．F5 键 B．F6 键 C．F9 键 D．F10 键 10．用语句 Dim A(-2To 3)As Integer 所定义的数组的元素的个数是（ ）。 A．3 B．4 C．5 D．6 11．要向图片框 Picture1 中加载“d:\hainan\zhiwu.bmp”图像文件，应使用语句（ ）。 A．Picture1.Picture=" d:\hainan\zhiwu.bmp " B．Picture1.Picture=LoadPicture("d:\hainan\zhiwu.bmp ") C．P1.Picture=LoadPicture(d:\hainan\zhiwu.bmp) D．P1.Picture=LoadPicture("d:\hainan\zhiwu.bmp ") 12．在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书 写，可以在行末使用续行字符（ ），表示下一行是当前行的继续。 A．一个空格加一个下划字符”_” B．一个下划字符”_” C．直接回车 D．一个空格加一个连字符(-) 13．VB 程序中通常不会产生错误提示的是（ ）。 A．编译错误 B．实时错误 C．运行时错误 D．逻辑错误 14．使用 ADO 模型时，建立 Recordset 和 Connection 对象的连接的属性是（ ）。 A．Execute B．CommandType C．Open D．ActiveConnection 15．下列只能用程序代码设置，不能通过属性窗口设置的属性是（ ）。 A．Drive 属性 B．Pattern 属性 C．Visible 属性 D．Index 属性
得分 评卷人 二、填空题（每小题2分，共20分） l.欲设置定时器的时间间隔为2秒，则属性Interval的值为 2.列表框中项目的序号是从 开始的。 3.表达式3+10Mod23+2的值是 4.执行赋值语句a="123”+"456”,变量a的值是 5.在VB中，将Foxpro称为外部数据库，Access称为 SQL Server称 为 6.若窗体Forml左上角坐标为(0,600)，右下角的坐标为(800，-200)。则X轴的正 向向 ,Y轴的正向向 7.设某个程序中要用到一个二维数组，要求数组名为A,类型为字符串类型，第一维下 标从0到3，第二维下标从1到2，则相应的数组声明语句为 8.如果不适先确定变量的数据类型，则可以把它声明为 变量。 9.Stretch属性设置为 时，图像框可自动改变大小以适应其中的图形。 10.Winsockl.Listen语句的含义是 得分 评卷人 三、阅读程序题（共25分） 阅读下列程序并写出程序运行结果 1.(6分) Private Sub Form_Click() Static Sum As Integer For i 1 To 3 Sum Sum +i Next i VB试题C第3页（共6页）
VB 试题 C 第3页（共 6 页） 二、填空题（每小题 2 分，共 20 分） 1. 欲设置定时器的时间间隔为 2 秒，则属性 Interval 的值为 。 2．列表框中项目的序号是从 开始的。 3．表达式 3+ 10 Mod 2^3 + 2 的值是 。 4．执行赋值语句 a = "123" + "456"，变量 a 的值是 。 5．在 VB 中，将 Foxpro 称为外部数据库，Access 称为 ，SQL Server 称 为 。 6．若窗体 Form1 左上角坐标为（0，600），右下角的坐标为（800，-200）。则 X 轴的正 向向 ，Y 轴的正向向 。 7．设某个程序中要用到一个二维数组，要求数组名为 A，类型为字符串类型，第一维下 标从 0 到 3，第二维下标从1 到 2，则相应的数组声明语句为 。 8．如果不适先确定变量的数据类型，则可以把它声明为 变量。 9．Stretch 属性设置为 时，图像框可自动改变大小以适应其中的图形。 10．Winsock1.Listen 语句的含义是 。 得 分 评卷人 三、阅读程序题（共 25 分） 阅读下列程序并写出程序运行结果 1．(6 分) Private Sub Form_Click() Static Sum As Integer For i = 1 To 3 Sum = Sum + i Next i 得分 评卷人
Print Sum End Sub 写出程序运行时点击窗体两次后，变量Sum的值。 2.(6分) Private Sub Form Click() Dim c As Integer,j As Integer,k As Integer k=2 c=3 For j=1 To 5 If i>3 Then c=c+5 Exit For Else k=k+5 End If Next j Print c,k End Sub 写出程序运行时单击窗体后，Forml上的输出结果。 3.(6分) Private Sub Command1_Click() Dim A(1 To 5)As Integer Dim b As Integer For b 1 To 5 A(b)=b Next b Text1.Text =A(b-2) End Sub 写出程序运行时单击Commandl后，文件框Textl中的输出结果。 VB试题C第4页（共6页）
VB 试题 C 第4页（共 6 页） Print Sum End Sub 写出程序运行时点击窗体两次后，变量 Sum 的值。 2．(6 分) Private Sub Form_Click() Dim c As Integer, j As Integer, k As Integer k = 2 c = 3 For j = 1 To 5 If j > 3 Then c = c + 5 Exit For Else k = k + 5 End If Next j Print c, k End Sub 写出程序运行时单击窗体后，Form1 上的输出结果。 3. (6 分) Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim b As Integer For b = 1 To 5 A(b) = b Next b Text1.Text = A(b - 2) End Sub 写出程序运行时单击 Command1 后，文件框 Text1 中的输出结果
4.(7分) Function F(a As Integer) Dim b As Integer Static c As Integer b=b+2 c=c+2 F a +b c End Function Private Sub Commandl Click( Dim a As Integer a=5 For i 1 To 3 Print F(a) Next i End Sub 写出程序运行时，单击命令按钮在窗体上的输出结果。 得分 评卷人 四、完善程序题（共10分） 列表框应用程序 要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名程添加到列表框中： 当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项：当选择列表框中某一 项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。 在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且 “修改确认”按钮变为“修改”。程序运行结果如图1所示。 VB试题C第5页（共6页）
VB 试题 C 第5页（共 6 页） 4. (7 分) Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 2 c = c + 2 F = a + b + c End Function Private Sub Command1_Click() Dim a As Integer a = 5 For i = 1 To 3 Print F(a) Next i End Sub 写出程序运行时，单击命令按钮在窗体上的输出结果。 四、完善程序题（共 10 分） 列表框应用程序 要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名程添加到列表框中； 当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一 项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。 在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且 “修改确认”按钮变为“修改”。程序运行结果如图 1 所示。 得分 评卷人
.Form1 x Visual Basic程序设计 QL SERVER数痦库应用 计算机专业英语 Textl 信息管理系统 P原理应用 网碰络实用技术基础 规范与文档编写 信息系统 添加 Commandl 计算机应用基础 删除 Command2 修改 Command3 图1 程序如下，请补充完整。 Private Sub Form Load() Listl.AddItem"Visual Basic程序设计" Listl.AddItem"SQL SERVER数据库应用" List1.AddItem"信息管理系统" Listl.AddItem"ERP原理与应用” Listl.AddItem"网络实用技术基础 List1.AddItem"系统开发规范与文档编写" Listl.AddItem"信息系统测试” End Sub Private Sub Command1_Click() If Text1.Text <>"Then [1] Textl.Text '将文本框中的内容加到列表框中 Text1.Text [21 MsgBox"请在文本框中输入信息！” End If End Sub VB试题C第6页（共6页）
VB 试题 C 第6页（共 6 页） 图 1 程序如下，请补充完整。 Private Sub Form_Load() List1.AddItem "Visual Basic 程序设计" List1.AddItem "SQL SERVER 数据库应用" List1.AddItem "信息管理系统" List1.AddItem "ERP 原理与应用" List1.AddItem "网络实用技术基础" List1.AddItem "系统开发规范与文档编写" List1.AddItem "信息系统测试" End Sub Private Sub Command1_Click() If Text1.Text <> "" Then [1] Text1.Text '将文本框中的内容加到列表框中 Text1.Text = "" [2] MsgBox "请在文本框中输入信息！" End If End Sub List1 Command3 Command2 Command1 Text1
Private Sub Command2 Click() [3] Listl.ListIndex ’删除选定的项目 End Sub Private Sub Command3_Click() If Command3.Caption [4] Then Text1.Text =[5] Text1.SetFocus Command1.Enabled False Command2.Enabled =False Command3:.Caption="修改确认” Else List1.List(List1.ListIndex)=Text1.Text Commandl.Enabled True Command2.Enabled True Text1.Text = Command3.Caption="修改" End If End Sub 得分 评卷人 五、编写程序题（共15分） 请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优 惠办法，每位顾客一次购物(1)在300元以上者，按九五折优惠：(2)在500元以上者，按 九折优惠：(3)1000元以上者，按八折优惠。在窗体上添加两个文本框和一个命令按钮，要 求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序运行结果 如图2所示。 VB试题C第7页（共6页）
VB 试题 C 第7页（共 6 页） Private Sub Command2_Click() [3] List1.ListIndex '删除选定的项目 End Sub Private Sub Command3_Click() If Command3.Caption = [4] Then Text1.Text = [5] Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Caption = "修改确认" Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text ="" Command3.Caption = "修改" End If End Sub 五、编写程序题（共 15 分） 请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优 惠办法，每位顾客一次购物（1）在 300 元以上者，按九五折优惠；（2）在 500 元以上者，按 九折优惠；（3）1000 元以上者，按八折优惠。在窗体上添加两个文本框和一个命令按钮，要 求在 Text1 中输入购物商品总金额，单击命令按钮，在 Text2 中输出优惠价。程序运行结果 如图 2 所示。 得分 评卷人
购物忧惠程序 ☒ 购物商品总金领 忧惠价为 900 810 计算 图2 VB试题C第8页（共6页）
VB 试题 C 第8页（共 6 页） 图 2
试卷代号：C 中央广播电视大学 学年度第学期期末考试 理工级第学期VisualBasic程序设计试题答案及评分标准 (供参考) 2008年3月 一、单项选择题（每小题2分，共30分） 1.B2.B3.D4.C5.C6.D7.D8.A 9.C10.D 11.B12.A13.D14.D15.A 二、填空题（每小题2分，共20分） 1.2000 2.0 3.7 4.123456 5.本地数据库 远程数据库 6.右上 7.Dim A(OTo 3,ITo 2)As String 8.变体型(Variant) 9.False 10.使服务程序处于侦听状态 三、阅读程序题（共25分） 1.(6分) 6 12 2.(6分) 8 17 3.(6分) 4 4.(7分) 9 11 VB试题C第9页（共6页）
VB 试题 C 第9页（共 6 页） 试卷代号：C 中央广播电视大学 学年度第 学期期末考试 理工 级第 学期 VisualBasic 程序设计试题答案及评分标准 （供参考） 2008 年 3 月 一、单项选择题（每小题 2 分，共 30 分） 1.B 2.B 3.D 4.C 5.C 6.D 7.D 8.A 9.C 10.D 11.B 12．A 13．D 14.D 15.A 二、填空题（每小题 2 分，共 20 分） 1．2000 2．0 3．7 4．123456 5．本地数据库 远程数据库 6．右 上 7. Dim A(0To 3,1To 2) As String 8．变体型（Variant） 9．False 10．使服务程序处于侦听状态 三、阅读程序题（共 25 分） 1.（6 分） 6 12 2.（6 分） 8 17 3．（6 分） 4 4．（7 分） 9 11
13 四、完善程序题（共10分) [1]List1.AddItem [2]Else [3]List1.RemoveItem [4]"修改” [5]List1.Text 五、编写程序题（共15分） 参考答案： Private Sub Commandl ClickO Dim x As Single,y As Single x Val(Text1.Text) If x 300 Then y=x Else If x 500 Then y=0.95米x Else If x 1000 Then y=0.9*x Else y=0.8*x End If End If End If Text2.Text =y End Sub VB试题C第10页（共6页）
VB 试题 C 第10页（共 6 页） 13 四、完善程序题（共 10 分） [1]List1.AddItem [2]Else [3]List1.RemoveItem [4] "修改" [5] List1.Text 五、编写程序题（共 15 分） 参考答案： Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x < 300 Then y = x Else If x < 500 Then y = 0.95 * x Else If x < 1000 Then y = 0.9 * x Else y = 0.8 * x End If End If End If Text2.Text = y End Sub