VB练习题Word格式.docx

1、D Open 10 Dim Abc（2,3） 所定义的数组元素个数是（ ） A 、 6 B 、 5 C 、 12 D 、 9 11 在 Visual Basic 中，默认的数据类型是（ ） A Integer B Double C Currency D Variant 12 当 Winsock 控件处于关闭状态时，其 State 属性的值是（） A 1 B 0 C 2 D 3 13 执行指令 ”Line（200,200）-step（500,500）” 后， CurrentX=（ ） A 500 B 200 C 300 D 700 14 不属于 VB 数据库引擎的是（） A ODBC B Jet

2、 引擎 C BDE D OLE DB 15 全局变量必须在（ ）中定义 A 、 标准模块 B 、 窗体模块 C 、 类模块 D 、 任意模块 16 改变驱动器列表框的 Drive 属性值，将激活（）事件。A Change B Scoll C KeyDown D KeyUp 17如果将文本框的（ ）属性设置为True，则运行时不能对文本框中的内容进行编辑。A Locked B MultiLine C TabStop D Visible 18 数学式子 Sin25 写成 VB 表达式是（ ）。A Sin25 B Sin （ 25 ） C SIN （ 25 ） D Sin （ 25*3.14/180

3、 ） 19下列变量名中合法的是（ ） AIF B7AB CAB7 DAB_7 20. 要退出ForNext循环，应使用的语句是（ ）。AExit BExit For CContinue DStop Loop 21.在下列选项中，不能将图像装入图片框和图像框的是（ ） A在界面设计时，通过Picture属性装入 B在界面设计时，手工在图像框和图片框中绘制图形 C在界面设计时，利用剪贴板把图像粘贴上 D在程序运行期间，用LoadPicture函数把图形文件装入 22下面选项中，能绘制填充矩形的语句是（ ） A Line （200, 200）-（500, 500）,B B Line （200, 20

4、0）-（500, 500）, , BF C Line （200, 200）-（500, 500）, BF D Line （200, 200）-（500, 500） 23.ADOrs为Recordset对象，从Tabel中获取所有记录的语句是（ ） AADOrs.New Select * From TabelBADOrs.Open CADOrs.Execute DADOrs. Select 24.当改变驱动器列表框中的驱动器时，为了使目录列表框中的内容同步跟着改变，应当（ ） A在Dir1_Change（）事件中加入代码Dir1.Path=Drive1.Drive B在Dir1_Channge（

5、）事件中加入代码Drive1.Drive =Dir1.Path C在Dirve1_Channge（）事件中加入代码Dir1.Path=Drive1.Drive D在Dirve1_Channge（）事件中加入代码Drive1.Drive =Dir1.Path 25 . VB 程序中通常不会产生错误提示的（）。A 编译错误 B 实时错误 C 运行时错误 D 逻辑错误 二、填空题 （每空 1分） 1 数学表达式 写成等价的 Visual Basic 表达式为 。2 删除在 C 盘 TEMP 目录下所有以 tmp 为后缀的文件的语句为 。3Visual Basic程序开发有三种模式，即 模式、 模式和

6、 模式 。4执行指令Line（200,300）-（400,500）后，CurrentX= 。 设 CurrentX=50,CurrentY=100 ，执行指令“ Line（100,20）-Step（300,500） ”后， CurrentY = 。5 ADO 数据模型中一般可通过 Connection 对象的 方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。6 已知 a=3,b=4,c=5, 表达式 a.b and Not ca Or cb And ca+b 的值是 。7 为了在运行时把当前路径下的图形文件 picturefile.jpg装入图片框Picture1，所使用的语句

7、为 。8 设某个程序中要用到一个二维数组，要求数组名为 A ，类型为字符串类型，第一维下标从 0 到 5 ，第二维下标从 -2 到 5 ，则相应的数组声明语句为 。9 Visual Basic一般用4种类型的文件保存，分别是扩展名为 的窗体文件，扩展名为 的标准模块文件，扩展名为 的类模块文件和扩展名为 的工程文件 。10 将图片框 PictureBox的AutoSize属性设置成 时，图片框能自动调整大小，以适应其中的图片。11 若窗体 Form1 左上角坐标为（ 0 ， 600 ），右下角的坐标为（ 800 ， -200 ）。则 X 轴的正向向 ， Y 轴的正向向 。12 Left（“ab

8、cd”,2） 函数的返回值是 ; Right（“abcd”,2） 函数的返回值是 。13 Vb 应用程序与数据库进行通信的主要机制称为 。14 Winsock控件主要用来编制 或 协议的通话程序。15 假设 ADOcn 为一个 Connection 对象，那么在 VB 程序中声明 ADOcn 的语句是 。16 在 VB 中，将 Foxpro 称为 ， Access 称为 ， SQL Server 称为 。17 常用的 VB 网络编程控件主要有 、 、 三种。18 以 （600,600） 为圆心，以 800 为半径，用 ForeColor 颜色绘制一个圆形，其实现的代码是 。19以下程序段简要说

9、明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。将程序段补充完整。Private Sub Drive1_Change（） End Sub Private Sub Dir1_Change（） 20 . 在 Visual Basic 程序中实现复制文件 ”d:text.doc” 到 e: 盘根目录下的语句为 三、阅读程序题 阅读下列程序并写出程序运行结果 1 Private Sub Command1_Click（） x = 0 Do While x 20 x = （x + 1） * （x +3） n = n + 1 Loop Text1.Text = Str（n） Text2.Text

10、= Str（x） Text3.Text = Val（Text1.Text） + Val（Text2.Text） 文件框 Text3 的结果是：2. Private Sub Command1_Click（） Dim x As Integer Static s As Integer x = Val（InputBox（请输入一个正整数=） If x 3 Then a = a + 5 a = a + 2 Next i Print i, a 写出程序运行时单击窗体后，Form1上的输出结果。8. Sub Change（ByVal x As Integer, ByVal y As Integer） Dim

11、 t As Integer t=x x=y y=t Print x,y End sub Dim a As Integer, b As Integer a = 3: b = 4 Change a, b Print a,b 写出程序运行时单击窗体后，Form1上的输出结果 四、 完善程序题 1 列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改

12、后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图 1 所示。图 1 程序如下，请补充完整。Private Sub Form_Load（） List1.AddItem 北京 - 上海 北京 - 广州 北京 - 四川 北京 - 西安 北京 - 哈尔滨 北京 - 沈阳 北京 - 长春 If Text1.Text Then 1 将文本框中的内容加到列表框中 2 MsgBox 请在文本框中输入信息！Private Sub Command2_Click（） 3 删除选定的项目 Private Sub Command3_Click（） If Command3.Caption = 4 The

13、n Text1.Text = 5 Text1.SetFocus Command1.Enabled = False Command2.Enabled = 6 Command3.Caption = 修改确认 List1.List（List1.ListIndex） = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = 7 修改 2 在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框 Drive1 的默认驱动器设置为 D 盘，选择 File1 中所列的图片文件（

14、 *.bmp,*.gif 和 *.jpg ） , 则相应的图片显示在图片框 Picture1 中，文件的路径显示在文本框中。程序运行结果如图 2 所示。图 2 程序代码如下，请补充完整 Drive1.Drive = 1 File1.Pattern = *.bmp;*.gif;*.jpgPrivate Sub Drive1_change（） Dir1.Path = 2 Text1.Text = Drive1.Drive 3 Text1.Text = 4 Private Sub File1_click（） Picture1. 5 = LoadPicture（File1.Path + + File1

15、.FileName） FileName = File1.Path + + File1.FileName Text1.Text = FileName 3 使用顺序文件读写方式编写一个简单的记事本应用程序，其运行界面如图 3 所示。基本逻辑是：假设在以 D 盘的根目录下有一个名为 exam.txt 的文本文件。当点击“打开”按钮 （Command1） 时，程序将 exam.Txt 文件中的内容显示在文本框 （Text1） 中，当点击“新建”按钮 （Command2） 时，清空 Text1 中的内容；用户可以在 Text1 中进行编辑操作，当点击“保存”按钮 （Command3） 时，将 Text1

16、 中的内容保存在 exam.txt 文件中。当点击“退出”按钮 （Command4） 时关闭本窗体。图 3 Dim A As String Text1 = Open 1 Do While Not EOF（1） Input #1, A Text1 = Text1 + 2 4 Open C:F1.Txt5 Close #1 Private Sub Command4_Click（） Unload Me 4 已知存在一名为“学生”的 SQL Server 数据库，其中的“ students ”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向 students

17、表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接 SQL Server 数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向 students 表中添加学生记录。其运行界面如图 4 所示。图 4 声明对象变量 ADOcn ，用于创建与数据库的连接 Private ADOcn As Connection 连接 SQL Server 数据库 Dim strDB As String strDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1 If ADOcn Is Nothing Then Set ADOc

18、n = 2 ADOcn.Open strDB 增加学生记录 Dim strSQL As String Dim ADOrs As 3 Recordset ADOrs.ActiveConnection=ADOcn ADOrs.Open “Select 学号 From Students Where 学号 =”+” “+Text1+” “ If Not 4 Then MsgBox “ 你输入的学号已存在，不能新增加！ ” StrSQL=”Insert Into students （ 学号 , 姓名 , 籍贯 , 性别 ） StrSQL=strSQL+Values（”+” “+text1+” , “+t

19、ext2+” , “+text3+” , “+text4+” ）” ADOrs.Execute 5 MsgBox “ 添加成功，请继续！5 创建一个绘图程序。当程序运行时，单击“绘图“按钮，在窗体的 Picture 控件上画出 - p ， p 即 -3.14,3.14 区间的余弦曲线。要求将图片框的坐标系定义为左上角为（ - 4，2 ），右下角为（ 4，-2 ），并在图片框中画出坐标的 x 轴和 y 轴。程序运行界面如图 5 所示。图 5 定义窗体坐标 Picture1.Line （-4, 0）-（4, 0） 画 x 轴 2 画 y 轴 Picture1.CurrentX = 0.2 Pict

20、ure1.CurrentY = -0.1 Picture1.Print 0 标记原点 Picture1.CurrentX = -3.2 Picture1.Print 3 标记“ - ” Picture1.CurrentX = 3.3 Picture1.CurrentY = 0.9 1 标记“ 1 ” Picture1.CurrentY = -0.8 -1 标记“ -1 ” For i = 4 End 五、编写程序题 1请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（ 1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；在窗体上添加两个文本框和一个命令按钮，要求在 Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序运行结果如图1所示。 程序运行界面如图 6 所示。图 6 6 窗体的左上角坐标（ 8 ， 6 ），右下角坐标为（ 8 ， 6 ）。以厘米为单位，以坐标原点为圆心，以窗体宽度与高度中最小