【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了“可视化程序设计(VB)试卷试题下载-样卷doc - 生活指南“提供大家参考，希望对大家有所帮助!

可视化程序设计VB试卷试题下载-样卷.doc 《可视化程序设计》试卷一 班级______________ 姓名_____________ 学号__________ 得分__________ 一、单项选择题每小题2分共30分 1.VB是用于开发 环境下应用程序的工具。

     ADOS BWindows CDos和Windows DUnix 2窗体上有一个命令按钮和一个文本框名称分别为Command1和Text1。

    程序运行单击命令按钮时执行如下事件过程: Private Sub Command1_Click Dim a as string b as string asoftware and hardware bRighta8 Text1.textMidb53 End Sub 则文本框中显示的内容为 Asoftware Band Cwar Dhardware 3通用对话框中能打开颜色对话框的方法是 AShowOpen BShowColor CShowSave DShowPrinter 4在通用对话框 “打开”或“另存为”对话框中用户可选择或指定文件名和路径。

    文件名和路径可通过通用对话框的 属性来获得。

     Acolor Bfilename Cfilititle Dfileindex 5可向工具栏提供图象库的控件是 Apicturebox Bimage Cimagelist Dshape 6. 当文本框用来输入密码时我们不希望文本框中显示通过键盘输入的真实的字符而希望显示的时候用某一个字符代替。

    比如“”这时应将文本框的______属性设置为“”。

     AText BMultiline CCaption DPasswordchar 7程序运行时执行列表框的_______方法可将新的列表项添加到列表框中。

     APrint BAddItem CClear DRemoveItem 8为了向树型控件中添加新的节点编写代码时应首先定义一个 类型的变量。

     ANode BT reeview CVariant DTvwchild 9在建立多文档应用程序时若要使新添加的窗体成为MDI窗体的子窗体应将该窗体的 属性设置为true。

     AVisible BEnabled CMdichild DMoveable 10通过代码对进度条ProgressBar控件的 属性进行设置可以使进度条ProgressBar控件在程序运行时显示系统完成某个任务的进度。

     ALeft BMin CMax DValue 11如果在被调用过程中改变了形参值只影响副本而不会影响实参变量本身这种参数传递方式称为________传递。

     A按地址 B按值 C按实参 D按形参 12下列表达式正确的运算结果是_______。

     74 15 / 5 Mod 5 A9 B2 C4 D1 13利用Access数据库管理系统建立的数据库文件其后缀名为 。

     A dbf B mdb C vfp D vbp 14执行下列语句在窗体上画出的图形为 。

     Line 1000 2000-2000 2000 Line 1000 1000-1000 3000 A B C D 15 欲打开顺序文件将数据写到文件尾部应采用下列 语句打开文件 Aopen “E:liudata.txt” for output as 11 Bopen “E:liudata.txt” for append as 11 Copen “E:liudata.txt” for input as 11 Dopen “E:liudata.txt” for random as 11 二、填空题每空格2分共40分 1.在VB中利用DATA数据访问控件进行数据库编程时通过设置DATA控件的相关属性可以快速建立与数据库的连接其中 1 属性确定DATA控件所要连接的数据库的类型 2 属性确定DATA控件所要连接的数据库文件 3 属性确定DATA控件所要连接的数据表。

     2要使数据绑定控件能够显示记录集中的数据必须对这些绑定控件的两个属性进行设置设置 4 属性确定数据源设置 5 属性确定数据源字段名称。

     3执行下列代码程序循环了 6 次窗体上输出的结果是 7 。

     Dim I As Integer n As Integer n 16 3 For I 2 n To 2 Step -2 n n – 1 II1 Next I Print I n 4运行下面的程序当单击窗体时窗体上显示的第一行内容是 8 第二行内容是 9 。

     Private Sub Factbyval x As Integer x x 3-1 If x 6 Then Call Factx End If x x 2 1 Print x End Sub Private Sub Form_click Call Fact2 End Sub 5下列表达式的值为 10 。

     NOT “aBcd” ”abc” and 35 OR Instr “adcedf” ”d” 2 6执行下列程序代码窗体上输出的结果为 11 。

     A456 XA Mod 10 X1A 10 YX1 Mod 10 ZX1 10 BXYZ Print X1B 7执行下列程序代码程序共执行循环 12 次。

     I0 Do while I5 then Exit Do End If Loop 8写出产生在区间30150范围内的一个随机整数的表达式 13 。

     9执行下列程序代码当第一个输入窗口出现时通过键盘输入3当第二个输入窗口出现时输入4则输出结果为 14 。

     Dim x as string y as string z as string XInputBox“请输入x的值””输入窗口1”100 Y InputBox“请输入y的值””输入窗口2”100 ZXY Print Z 10在VB中设计数据报表需要使用到两个设计器其中一个为 15通过它可建立数据报表的数据来源另一个为Datareport即数据报表设计器。

    两个设计器都要通过“工程”菜单中相关命令项添加到工程中。

     11在VB中按文件的不同访问方式可将文件分为顺序文件和 16 。

     12为建立弹出式菜单设计菜单时应将该菜单的菜单标题的“可见”选项设置为不选中状态除此之外还应编写少量的代码假设该菜单名称为menu3请完善下列代码 Private Sub Form_MouseDownButton As Integer Shift As Integer X As Single Y As Single If Button 2 Then 17 menu3 End If End Sub 13为使定时器控件每隔5秒钟产生一个Timer事件应将该控件的Interval属性设置为 18 。

     14根据下图填空zInputbox___19 ___ “输入窗口” 128 15运行下列程序单击窗体后窗体上输出第三行内容是 20 。

     Option Base 1 Private Sub Form_Click Dim A As Integer I As Integer ReDim A3 A1 34: A2 28: A3 73 For I 1 To UBoundA Print AI Next I Print ReDim Preserve A4 A4 87 For I 1 To UBoundA Print AI Next I Print ReDim A5 A5 91 For I 1 To UBoundA Print AI Next I Print End Sub 三、综合题共计30分 在使用VB的“外部数据管理器”建立的Access数据库student . mdb中 有两张数据表数据表名分别为 xsda学生档案和banji班级名称和班级编码对照表两张数据表的结构描述如下 xsda数据表 字段名 数据类型 数据长度 字段含义 XA01 Text 8 学生姓名 XA02 Text 2 性别 XA03 Text 10 学号 XA04 Text 8 所在班级编码 XA05 Date/Time 8 出生日期 XA06 Text 30 家庭地址 Banji数据表 字段名 数据类型 数据长度 字段含义 XB01 Text 20 班级名称 XB02 Text 8 班级编码 1根据数据表xsda和Banji的结构和下面的要求进行填空每个空格2分共10分。

     ⑴ 查询语句 select from xsda where xa02”男” 的功能是 。

     ⑵如果要查询出生在“江苏扬州”的所有女生 select语句应写为 。

     ⑶ 如果要统计出生在1986年的所有学生人数select语句应写为 。

     ⑷查询语句 select xa02 countxa02 from xsda group by xa02 的功能是 。

     ⑸查询语句 select xa01 xb01 from xsda banji where banji.xb02xsda.xa04 功能是 。

     2 下图为程序运行时的界面。

    界面上主要元素有文本框text1至text5从上至下、dbcombo1、command1至command5从左至右另有两个data控件分别为data1和 data2 。

    data1和 data2都和数据库student相连接data1的recordsource属性值为xsdadata2的recordsource属性值为banji。

     各文本框控件及dbcombo1控件已和data1控件相绑定请根据上图完善下面的表格每个空格1分共15分 控件名 Datasource Datafield Rowsource listfield boundcolumn Text1 × × × Text2 × × × Text3 × × × Text4 × × × Text5 × × × Dbcombo1 3参照上图程序运行时的界面完善下列代码每个空格1分共5分 Private Sub Command1_Click Data1.Recordset. End Sub Private Sub Command2_Click Data1.Recordset. Data1.Recordset.Movenext If Data1.Recordset. then Data1.Recordset. End if End Sub Private Sub Command4_Click Data1.Recordset. End Sub