VB练习题.docx

1、VB练习题 综合练习题 一、单项选择题 （每小题 2 分） 1 在界面设计时，双击窗体中的对象后， VisualBasic 将显示的窗口是（ ）。 A 立即窗口 B 属性窗口 C 代码窗口 D 工程资源管理器窗口 2 后缀为 .vbp 的文件表示 VB 的（） A 窗体文件 B 类模块文件 C 工程文件 D 标准类模块文件 3 要在窗体 Form1 内显示“ myfrm ”，使用的语句是（ ） A Form.caption=myfrm B Form1.caption=myfrm C Form1.print myfrm D Form. print myfrm 4 表达式 8+13 Mod 2*4

2、+3 （ ）。 A 8 B 16 C 15 D 12 5 文本框没有（ ）属性 A 、 Text B 、 Name C 、 Caption D 、 BorderStyle 6.下列赋值语句正确的是（ ） A B+C =A B A=B+C C -B=A D 5=A+B 7 如果准备向随机文件中写入数据，正确的语句是（ ） A Write # 1,rec B Print # 1,rec C Get # 1,rec D Put # 1,rec 8 Winsock 控件的 LocalHostName 属性的作用是（） A 仅返回所用端口 B 返回本地计算机的名称 C 返回或设置所用端口 D 返回本地计

3、算机的 IP 地址 9.要以读方式打开D盘的一个顺序文件 Test . doc，应使用的语句是（ ） BA Open Test . doc For Output As #1 B Open D: Test . doc For Input As #1 C Open D: Test . doc For Output As #1 D Open Test . doc For Input As #1 10 Dim Abc(2,3) 所定义的数组元素个数是（ ） A 、 6 B 、 5 C 、 12 D 、 9 11 在 Visual Basic 中，默认的数据类型是（ ） A Integer B Doub

4、le 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 引擎 C BDE D OLE DB 15 全局变量必须在（ ）中定义 A 、 标准模块 B 、 窗体模块 C 、 类模块 D 、 任意模块 16 改变驱动器列表框的 Drive 属性值，将激活（）事件。 A Change

5、 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 ） 19下列变量名中合法的是（ ） AIF B7AB CAB7 DAB_7 20. 要退出ForNext循环，应使用的语句是（ ）。 AExit BExit For CContinue DStop Loop 21.

6、在下列选项中，不能将图像装入图片框和图像框的是（ ） A在界面设计时，通过Picture属性装入 B在界面设计时，手工在图像框和图片框中绘制图形 C在界面设计时，利用剪贴板把图像粘贴上 D在程序运行期间，用LoadPicture函数把图形文件装入 22下面选项中，能绘制填充矩形的语句是（ ） A Line (200, 200)-(500, 500),B B Line (200, 200)-(500, 500), , BF C Line (200, 200)-(500, 500), BF D Line (200, 200)-(500, 500) 23.ADOrs为Recordset对象，从Tab

7、el中获取所有记录的语句是（ ） AADOrs.New Select * From Tabel BADOrs.Open Select * From Tabel CADOrs.Execute Select * From Tabel DADOrs. Select Select * From Tabel 24.当改变驱动器列表框中的驱动器时，为了使目录列表框中的内容同步跟着改变，应当（ ） A在Dir1_Change()事件中加入代码Dir1.Path=Drive1.Drive B在Dir1_Channge()事件中加入代码Drive1.Drive =Dir1.Path C在Dirve1_Chann

8、ge()事件中加入代码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程序开发有三种模式，即 模式、 模式和 模式 。 4执行指令Line(200,300)-(400,500)后，Current

9、X= 。 设 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，所使用的语句为 。 8 设某个程序中要用到一个二维数组，要求数组名为 A ，类型为字符串类

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

11、数的返回值是 。 13 Vb 应用程序与数据库进行通信的主要机制称为 。 14 Winsock控件主要用来编制 或 协议的通话程序。 15 假设 ADOcn 为一个 Connection 对象，那么在 VB 程序中声明 ADOcn 的语句是 。 16 在 VB 中，将 Foxpro 称为 ， Access 称为 ， SQL Server 称为 。 17 常用的 VB 网络编程控件主要有 、 、 三种。 18 以 (600,600) 为圆心，以 800 为半径，用 ForeColor 颜色绘制一个圆形，其实现的代码是 。 19以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情

12、况。将程序段补充完整。 Private Sub Drive1_Change() End Sub Private Sub Dir1_Change() End Sub 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 = Str(x) Text3.T

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

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

15、框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图 1 所示。 图 1 程序如下，请补充完整。 Private Sub Form_Load() List1.AddItem 北京 - 上海 List1.AddItem 北京 - 广州 List1.AddItem 北京 - 四川 List1.AddItem 北京 - 西安 List1.AddItem 北京 - 哈尔滨 List1.AddItem 北京 - 沈阳 List1.AddItem 北京 - 长春 End Sub Private Su

16、b Command1_Click() If Text1.Text Then 1 将文本框中的内容加到列表框中 Text1.Text = 2 MsgBox 请在文本框中输入信息！ End If End Sub Private Sub Command2_Click() 3 删除选定的项目 End Sub Private Sub Command3_Click() If Command3.Caption = 4 Then Text1.Text = 5 Text1.SetFocus Command1.Enabled = False Command2.Enabled = 6 Command3.Captio

17、n = 修改确认 Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = 7 Command3.Caption = 修改 End If End Sub 2 在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框 Drive1 的默认驱动器设置为 D 盘，选择 File1 中所列的图片文件（ *.bmp,*.gif 和 *.jpg ） , 则相应的图片显示在图片框 Picture1 中，文件的路径

18、显示在文本框中。程序运行结果如图 2 所示。 图 2 程序代码如下，请补充完整 Private Sub Form_Load() Drive1.Drive = 1 File1.Pattern = *.bmp;*.gif;*.jpg End Sub Private Sub Drive1_change() Dir1.Path = 2 Text1.Text = Drive1.Drive End Sub Private Sub Dir1_Change() 3 Text1.Text = 4 End Sub Private Sub File1_click() Picture1. 5 = LoadPictur

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

20、当点击“保存”按钮 (Command3) 时，将 Text1 中的内容保存在 exam.txt 文件中。当点击“退出”按钮 (Command4) 时关闭本窗体。 图 3 程序代码如下，请补充完整 Private Sub Command1_Click() Dim A As String Text1 = Open 1 Do While Not EOF(1) Input #1, A Text1 = Text1 + 2 Loop 3 End Sub Private Sub Command2_Click() 4 End Sub Private Sub Command3_Click() Open C:F1

21、.Txt For Output As #1 5 Close #1 End Sub Private Sub Command4_Click() Unload Me End Sub 4 已知存在一名为“学生”的 SQL Server 数据库，其中的“ students ”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向 students 表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接 SQL Server 数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向 students 表中添加学生记录。其运行界面如图 4 所示。 图 4

22、程序如下，请补充完整。 声明对象变量 ADOcn ，用于创建与数据库的连接 Private ADOcn As Connection Private Sub Form_Load() 连接 SQL Server 数据库 Dim strDB As String strDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1 If ADOcn Is Nothing Then Set ADOcn = 2 ADOcn.Open strDB End If End Sub Private Sub Command1_Click() 增加学生记录 D

23、im strSQL As String Dim ADOrs As 3 Recordset ADOrs.ActiveConnection=ADOcn ADOrs.Open “Select 学号 From Students Where 学号 =”+” “+Text1+” “ If Not 4 Then MsgBox “ 你输入的学号已存在，不能新增加！ ” Else StrSQL=”Insert Into students ( 学号 , 姓名 , 籍贯 , 性别 ) StrSQL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+tex

24、t4+” )” ADOrs.Execute 5 MsgBox “ 添加成功，请继续！ ” End If Private Sub Command2_Click() Unload Me End Sub 5 创建一个绘图程序。当程序运行时，单击“绘图“按钮，在窗体的 Picture 控件上画出 - p ， p 即 -3.14,3.14 区间的余弦曲线。要求将图片框的坐标系定义为左上角为（ - 4，2 ），右下角为（ 4，-2 ），并在图片框中画出坐标的 x 轴和 y 轴。程序运行界面如图 5 所示。 图 5 Private Sub Command1_Click() 1 定义窗体坐标 Picture1

25、.Line (-4, 0)-(4, 0) 画 x 轴 2 画 y 轴 Picture1.CurrentX = 0.2 Picture1.CurrentY = -0.1 Picture1.Print 0 标记原点 Picture1.CurrentX = -3.2 Picture1.CurrentY = -0.1 Picture1.Print 3 标记“ - ” Picture1.CurrentX = 3.3 Picture1.CurrentY = -0.1 Picture1.Print Picture1.CurrentX = 0.2 Picture1.CurrentY = 0.9 Picture

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