注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

一江春水向西流

程序人生

 
 
 

日志

 
 
关于我

夫君子之行,静以修身,俭以养德.非澹泊无以明志, 非宁静无以致远.夫学须静也,才须学也,非学无以广才,非志无以成学,淫漫则不能励精,险躁则不能治性,年与时驰,意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!

网易考拉推荐

Visual Basic程序设计期末综合练习二  

2009-06-19 10:50:39|  分类: VB |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

一、单项选择题

1.后缀为.bas的文件表示(    )。

A类模块文件             B窗体文件        

C标准类模块文件         D窗体二进制数据文件

2Visual Basic是一种面向对象的可视化编程语言,采取了(     )的编程机制。

A事件驱动                   B按过程顺序执行       

C从主程序开始执行           D按模块顺序执行

3.多窗体程序是由多个窗体组成。在缺省情况下,VB在应用程序执行时,总是把(    )指定为启动窗体。

A.不包含任何控件的窗体             B.设计时的第一个窗体

C.最后一个添加的窗体               D.命名为Frm1的窗体

4.Visual Basic6.0集成开发环境有三种工作模式,下列不属于三种工作模式之一的是(     )。

A设计模式              B执行模式

C中断模式              D编写代码模式

5.当运行程序时,系统自动执行启动窗体的(    )事件过程。

ALoad                 BUnload

CClick                 DGotFocus

6下列关于变量的说法不正确的是(    )。

A.局部变量是指那些在过程中用Dim语句或Static语句声明的变量     

B.局部变量的作用域仅限于声明它的过程

C.静态局部变量是在过程中用Static语句声明的        

D.局部变量在声明它的过程执行完毕后就被释放了

7.能够改变标签(Label)控件显示标题的属性是(  )。

AName                        BText

CCaption                      DClick

8. 工程文件的扩展名是(    )。

A.frm                    B.bas

C.vbp                    D.frx

9.启动VB后,系统为用户新建的工程名称是(     )。

A窗体1             B窗体

C工程            D工程

10要在窗体的标题内显示“myfrm,使用的语句是(    )。

AForm.caption="myfrm"                  BForm1.caption="myfrm" 

CForm1.Print"myfrm"                     DForm.Print"myfrm" 

11.在设计动画时,用时钟控件来控制动画速度的属性是(    )   

  AEnabled                        BInterval      

CTimer                          DMove

12.在VB中,下列变量名不合法的是(    )。

A.ab_1         B.ab        C.ab-1         D.ab_1_2

13.用于设置在文本框中显示字符的属性是(    )。   

  AAutoSizi                 BPasswordchar

CMultiLine                DScrollBars

14要从ForNext循环中退出循环,应使用(    )语句。

A.Exit      B.Exit For    C.Continue     D.Stop Loop

15.下列赋值语句正确的是(   )。

Ax = y + z        By + z = x    

C-y = x          D4 = x +y

16.要利用公用对话框控件来显示“打开文件”对话框,需要调用控件的(    )方法。

AShowPrinter    BShowOpen      CShowSave     DShowColor

17.在Visual Basic中,变量的默认类型是(  )。

ADouble         BVariant

CCurrency        DInteger

18.确定一个控件在窗体上位置的属性是(     )

AWidthHeight              BWidthHeight 

CTopLeft                  DTopLeft  

19KILL语句在VB语言中的功能是(     )。

A清内存                       B清病毒

C删除磁盘上的文件             D清屏幕

20如果希望以模态方式显示窗体Form1,下列正确的语句是(     )

AForm1.Show 0                BForm1.Show

CForm1.Show 1                D.以下都不正确

21在新建一个“标准EXE”工程后,不在工具箱中出现的控件是(    )。

A.通用对话框    

B.列表框

C.文本框      

D.命令按纽

22.如果创建了命令按钮的控件数组,那么Click事件的参数是(   )。

ACaption                   BIndex

CTag                      D.没有参数

23.为了使图像框中的图形自动适应图像框的大小,则应(    )。

A将其AutoSize属性值设置为True      B将其AutoSize属性值设置为False

C将其Stretch属性值设置为True        D将其Stretch属性值设置为False

24.如果要在窗体代码编辑器的通用部分定义私有Sub过程,则正确的语句是(  )。

APublic Sub                 BPrivate Sub

CPublic Function             DPrivate Function

25.不属于VB数据库引擎的是(    )。

AODBC         

BOLE DB 

CJet引擎        

DBDE  

26. 下列叙述不正确的是(    )。

A.注释语句是非执行语句,仅对程序的有关内容起注释作用,客观存在不被解释和编译            

B.注释语句不能放在代码中的任何位置  

C.注释语句可以放在代码中的任何位置                            

D.代码中加入注释语句的目的是提高程序的可读性 

27ADO对象模型含有七种对象,其中用于建立一个和数据源的连接的对象是(      )。 

ACommand                   BConnection  

CRecordset                    DField

28ADO对象模型含有七种对象,其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是(      )。 

A.Command                   B.Connection  

C.Recordset                    D.Field

29.下列只能用程序代码设置,不能通过属性窗口设置的属性是(    )。

ADrive属性    BPattern属性    CVisible属性    DIndex属性

30要发送数据,通常使用Winsock控件的(  )。

AGetDate方法               BListen方法    

CAccept方法                  DSendData方法

二、填空题

1. 工程文件的扩展名是         ,窗体文件的扩展名是          

2.一个VB应用程序可以包含         vbp文件。

3.定时器(Timer)控件可识别的事件是         ,发生该事件的时间间隔由定时器的              属性设置。

4.表达式8 + 17 \ 2 * 3 Mod 2的值是              

5.表达式6 + 13 Mod 4 * 2 + 2的值是         

6.列表框中项目的序号是从           开始的。 

7变量的声明方法有隐式和          声明两种。任何变量在声明后均有一个初始值,一般情况下,数值型变量的初始值为       

8.为了在运行时把当前路径下的图形文件pictureflower.jpg装入图片框Picture1,所使用的语句为                                 

9.过程级变量是指在过程内部声明的变量,只有在该过程中的代码才能访问这个变量。模块级或窗体级变量的作用域是                  ,全局变量在整个应用程序中有效,其作用域是                    

10. VB中的程序错误类型主要有                                   等三种。

11.VB中进行程序调试时,若需要逐语句调试按       键,若要设置断点,需按

         键。

12.数据库应用程序属于一种非常典型的前后台软件结构,而前后台之间进行通信的主要机制称为                 

13.设某个程序中要用到一个二维数组,要求数组名为A,类型为字符串类型,第一维下标从13,第二维下标从-13,则相应的数组声明语句为                             

14.Dim A(4,4)语句声明二维数组后,数组A的元素共有             个。

15执行赋值语句a = "123" + "456"后,变量a的值是                

16.欲设置定时器的时间间隔为2秒,则属性Interval的值为              

17VB应用程序可分为单窗体、多窗体和           

18.若窗体Form1左上角坐标为(0600),右下角的坐标为(800-200)。则X轴的正向向          Y轴的正向向          

19Winsock控件主要用来编制                 协议的通话程序。

20VB中将数据库分为本地数据库、                    三种类型。

三、阅读程序题 

阅读下列程序并写出程序运行结果

1.

Private Sub Form_Click()

   Dim x As Integer

   Static y As Integer

     x = x + 4

     y = x + y

   Form1.Print "x="; x, "y="; y

End Sub

写出程序运行时连续单击三次窗体后,Form1上的输出结果。

2.

Private Sub Form_Click()

  Static a As String

  Dim b As String

  a = a + "A"

  b = b + "B"

  Text1 = a

  Text2 = b

End Sub

写出程序运行时连续单击三次窗体后,文本框Text1Text2显示结果。

3.

Private Sub Form_Click()

Dim c As Integer, j As Integer, k As Integer

k = 1

c = 2

For j = 1 To 5

  If j > 3 Then

    c = c + 6

    Exit For

  Else

    k = k + 3

End If

Next j

Print c, k

End Sub      

写出程序运行时单击窗体后,Form1上的输出结果。

 

4.

Private Sub Command1_Click()

  Dim A(1 To 5) As Integer

  Dim x As Integer

  For i = 1 To 5

    A(i) = i

  Next i

  i = 1

  Do While x < 5

    A(i) = A(i) + x

    x = x + 2

    i = i + 1

  Loop

  Text1.Text = A(1)

  Text2.Text = A(3)

End Sub

写出程序运行时单击窗体后,Form1上的输出结果。

    

5. 

Private Sub Command1_Click()

  Dim n As Integer, y As Integer, x As Integer

  a = 1

Do While a < 8

    n = n + 1

    b = b + 1

    a = a * (a + 1)

Loop

  Text1.Text = n

  Text2.Text = a

  Text3.Text = b

End Sub

写出程序运行时单击Command1后,文件框Text1 Text2 Text3的输出结果。

6. 

Private Sub Command1_Click()

    Dim X As Integer, Y As Integer

    X = 1 : Y = 1

    For i = 1 To 3

       For j = 1 To i

        Y = Y + j

       Next j

       X = X + Y

    Next i

    Print X

End Sub  

写出程序运行时单击命令按钮后,窗体Form1上的输出结果。

7. 

Function F(a As Integer)

   Dim b As Integer

   Static c As Integer

   b = b + 3

   c = c + 3

   F = a + b + c

End Function

Private Sub Command1_Click()

  Dim a As Integer

  a = 4

  For i = 1 To 3

    Print F(a)

  Next i

End Sub

写出程序运行时,单击命令按钮在窗体上的输出结果。

8. 

Function F(a As Integer, b As Integer) As Integer

   F = a + b

End Function

Private Sub Form_Click()

  Dim a As Integer, b As Integer, z As Integer

  a = 2: b = 3

z = F(a, b)

  Print z

End Sub   

写出程序运行时单击窗体后,Form1上的输出结果。

四、完善程序题

1.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后,驱动器列表框Drive1的默认驱动器设置为e盘,选择File1中所列的图片文件(*.bmp,*.gif*.jpg,则相应的图片显示在图片框Picture1中,文件的路径显示在文本框中。程序运行结果如图1所示。

Visual Basic程序设计期末综合练习二 - cucme - 一江春水向西流

1

程序如下,请补充完整。

Private Sub Form_Load()

       [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]      = LoadPicture(File1.Path + "\" + File1.FileName)

  FileName = File1.Path + "\" + File1.FileName

  Text1.Text = FileName 

End Sub

2.假设用Access创建了一个名为“学生.MDB”的数据库,并在其中创建了一张名为“学生基本情况”的数据表,表中存放了学生的基本信息,如图2所示。

现在要求利用VB编写一个数据库查询程序,程序的运行界面如图3所示,基本逻辑是:首先文本框(Text1)中输入希望查询的学生学号,然后点击“查询”按钮(Command1),如果数据库中存在该学号,则分别在Text2Text3Text4中显示学号、姓名、籍贯信息,否则提示用户“记录不存在”并使Text1获得焦点,要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。

 

2Access创建的学生基本情况数据表

查询程序运行界面

程序如下,请补充完整。

Private ADOcn As Connection

Private Sub Form_Load()

          [1]           

          [2]     "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\学生.MDB"

End Sub

Private Sub Command1_Click()

    Dim strSQL As String

    Dim ADOrs As  [3]   Recordset

    ADOrs.ActiveConnection =     [4]        

    strSQL = "Select * From 学生基本情况 Where 学号=" + " ' " + Text1 + " ' "

           [5]            

    If Not ADOrs.EOF Then

        Text2 = ADOrs.Fields("学号")

        Text3 = ADOrs.Fields("姓名")

        Text4 = ADOrs.Fields("籍贯")

    Else

        MsgBox "要查询的学号不存在,请重新输入!", vbOKOnly, "信息提示"

        Text1 = ""

     Text1.SetFocus

    End If

End Sub

  Private Sub Command2_Click()

     UnLoad Me

  End

五、编写程序题

1.编写一程序,要求单击“开始”按钮(Command1),在列表框(List1)中输出200~300之间不能被3整除的数,单击清除按钮(Command2),清除文本框中的全部内容。程序运行结果如图4所示。

         图4                           

2.编写一工资调整程序。若基本工资大于等于2000元,增加工资20%,若小于2000元大于1500元,则增加工资15%;若小于1500元则增加工资10%。要求在文本框Text1中输入某职工的基本工资,单击“计算”按钮,在标签框Label1中输出增加后的工资。程序运行界面如图5所示。

               

                           图5

答案

一、单项选择题

1.C  2.A  3.B   4.D   5.A   6.D  7.C   8.C  9.D    10.B  11.B   12.C    13.B  14.B  15.A  

16.B  17.B  18.C  19.C  20.C  21.A  22.B  23.C  24.B  25.D   26.C  27.B   28.  29.A   

30.D

 

二、填空题(每空1分,共15分)

1.vbp  .frm

21

3Timer  Interval

48

513

60

7.显示   0

8.Picture1. Picture = LoadPrcture("pictureflower.jpg")

9整个模块或窗体    整个应用程序(或工程中所有的模块和所有的过程)

10.编译错误  实时错误  逻辑错误

11F8   F9            

12.数据库引擎

13. Dim A(1To 3,-1To 3) As String

1425 

15.123456

16.2000

17.MDI窗体

18. 右   上

19.TCP/IP  UDP       

20.外部数据库   远程数据库 

三、阅读程序题

1.

x=4   y=4

x=4   y=8

x=4   y=12

2.

AAA   B

3.

8       10

4.

1    7

5.

       3

       42

       3

6.

      19

7.

   10

13 

16    

8.

5

四、完善程序题(共10分)

1

[1] Drive1.Drive ="e:\"

[2] Drive1.Drive

[3] File1.Path = Dir1.Path

[4] Dir1.Path

[5] Picture

2

[1] Set ADOcn = New Connection

[2]ADOcn.Open

[3] New

[4] ADOcn

[5] ADOrs.Open strSQL

五、编写程序题

1.参考答案:

Private Sub Command1_Click()

  Dim x As Integer

  x = 100

  Do Until x > 200

  If x Mod 3 <> 0 Then

   List1.AddItem x

  End If

  x = x + 1

  Loop

End Sub

Private Sub Command2_Click()

  List1.Clear

End Sub

2.参考答案:

Private Sub Command1_Click()

  Dim x As Integer, y As Single

  x = Val(Text1.Text)

  Select Case x

    Case Is >= 2000

    y = x * 1.2

    Case Is >= 1500

    y = x * 1.15

    Case Else

    y = x * 1.1

  End Select

  Label3.Caption = y

End Sub

  评论这张
 
阅读(1301)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017