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

一江春水向西流

程序人生

 
 
 

日志

 
 
关于我

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

网易考拉推荐

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

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

  下载LOFTER 我的照片书  |

一、单项选择题

1.在下列有关Visual Basic的叙述中,错误的是(     )。

A采用了事件驱动的编程机制            B是面向对象的编程语言   

C是可视化的程序设计语言              D是面向过程的程序设计语言    

2.应用程序打包后,其包文件的后缀为(     )。

A.exe             B.txt

C.cab             D.ocx

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

A列表框                         B通用对话框

C驱动器列表框                   D图片框

4设窗体的名称为Form1,则在程序运行过程中,单击窗体时,被执行的事件过程的名称是(    )。

A.Form1_Click()           B. Form1_DbClick()

C.Form_Click()            D.Form_DbClick()

5对于定时器(Timer)控件,设置其定时是否开启的属性是(    )。

AIndex         BTag          CEnabled          DInterval

6.在Visual Basic中,工程文件的扩展名为(    )。

A.frm             B.vbp     

C.cls              D.bas

7.有程序代码如下:

      Text1.Text = "欢迎走进VB世界!"

Text1Text ,和"欢迎走进VB世界!"分别代表(     )。

A对象,值,属性          B.对象,属性,值  

C对象,方法,属性        D.属性,对象,值    

8以下叙述中正确的是(    )。

A窗体的Name属性指定窗体的名称,用来标识一个窗体                 

B窗体的Name属性的值是显示在窗体标题栏中的文本

C可以在运行期间改变对象的Name属性的值                   

D对象的Name属性值可以为空

9. VB提供了结构化程序设计的三种基本结构是(    )。

A选择结构、过程结构、顺序结构              

B选择结构、循环结构、顺序结构

C过程结构、转向结构、递归结构             

D递归结构、选择结构、循环结构

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

A.take_1         B.take        C.take_1_2         D.   take-1

11.下列说法中正确的是(    )。

  为了保存一个Visua Basic应用程序,应当

A只保存窗体文件         

B只保存工程文件 

C分别保存工程文件和标准模块文件            

D.分别保存工程文件、窗体文件和标准模块文件

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

A.Width或Height                  B.Width和Height

C.Top和Left                      D. Top或Left

13.确定一个窗体或控件的大小的属性是(  )

AWidthHeight            BWidthHeight 

CTopLeft                 DTopLeft 

14.当一个工程含有多个窗体时,其中的启动窗体是(   )。

A.第一个添加的窗体            B.最后一个添加的窗体 

C.包含控件最多的窗体          D.在“工程属性”对话框中指定的窗体

15在一个语句行内写多条语句时,语句之间应该用(    )分隔。

   A逗号           B冒号            

C顿号           D分号

16.要设置命令按钮的背景图形,必须设置的两个属性是(    )。

AStylePicture                    BStyleIcon

CCaptionPicture                  DValueIcon    

17.目录列表框的Path属性的作用是(    )。

A.显示当前驱动器或指定驱动器上的某目录下的文件名              

B.只显示当前路径下的文件 

C.显示根目录下的文件名

D.显示当前驱动器或指定驱动器上的路径  

18.将数据" China"项添加到列表框(List1)中成为第一项应使用的语句是(    )。

AList1.AddItem 0, " China"                 BList1.AddItem 1, " China"    

CList1.AddItem " China,0                 DList1.AddItem " China,1 

19要绘制多种形状的图形,需要设置Shape控件的(    )属性。

AStyle                     BBorderstyle

CFillStyle                   DShape

20.下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为(     )。

APicture1=" pic1.jpg "                 

BPicture1 =LoadPicture("pic1.jpg")  

CPicture 1.Picture=LoadPicture(("pic1.jpg")         

DPicture 1.Picture=LoadPicture(("pic1 ")   

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

APublic Sub                 BPrivate Sub

CPublic Function             DPrivate Function

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

AODBC    BBDE    CJet引擎  DOLEDB

23. 在VB应用程序中,进行断点设置的按键是(  )。

ACtrl+F9键         BF9

CCtrl+F8键          DF8键    

24.如果准备读文件,打开顺序文件”text.dat”的正确语句是(    )。

Aopen"text.dat"For wrire As # 1 

Bopen"text.dat"For Binary As # 1 

Copen"text.dat"For Input As # 1

Dopen"text.dat"For Random As # 1

25使用ADO对象模型时,使RecordsetConnection对象建立连接的属性是(     )。

  AOpen                     BExecute

CCommandType             DActiveConnection

26.使用ADO对象模型时,使RecordsetConnection对象建立连接的属性是(     )。

     AOpen                     BExecute

CCommandType             DActiveConnection  

27.在VB中,一旦数据到达,将首先触发Winsock控件的(    )。

ADataArrival事件               BConnectionRequest事件    

CDataSend事件                   DGetGet事件      

28Winsock控件的LocalPort属性的作用是(  )

.仅返回所用断口              B.仅设置所用端口

C.返回或设置所用端口             D.返回或设置IP地址

二、填空题

1.每个应用程序必须有一个惟一的            文件。

2.窗体文件和类模块文件的扩展名分别是                      

3.表达式6 + 15 \ 2 * 2 Mod 2的值是               

4.表达式17\2-2^3*5MOD6的值是                 

5.计时器控件响应的事件是            。 

6.在Visual Basic中,变量的默认类型是               

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

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

9.Dim A(-2 to 3)语句声明二维数组后,数组A的元素共有             个。

10. VB中参数传递的机制有两种,一种是                    参数,另一种是

                   参数。

11. 控件数组的名字由            属性指定,而数组中的每个元素由             属性决定。

12.若窗体的左上角坐标为(-200250),右下角坐标为(300-150),则X轴的正向向           Y轴的正向向          

13.窗体、图片框或图像框中的图形通过对象           属性。

14.VB中,将Foxpro称为外部数据库,Access称为                  SQL Server称为                     

15vb应用程序与数据库进行通信的主要机制称为           

16.全局变量必须在           模块中定义,所使用的关键字为              。

17.全局变量是指那些在                   中有效的变量,一般在模块代码编辑器的顶部使用               声明。

    18Winsock控件主要用来编制                  协议的网络应用程序。

三、阅读程序题(共25分)

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

1.

Private Sub Command1_Click()

  Dim x As Integer

Static s As Integer

  x = Val(InputBox("请输入一个正整数="))

  If x < 5 Then

    s = s * x

  Else

    s = s + x

  End If

    Text1.Text = "s=" & Str(s)

End Sub

程序运行时连续3次单击Command1,且设输入的数据为654时,分别写出文本框Text1的值。

2.

Private Sub Form_Click()

  Static a As Integer

  Dim b As Integer

  a = a + 3

  b = b + 4

  Text1 = a

  Text2 = b

End Sub

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

3.

Private Sub Form_Click()

    Dim A(1 To 3) As String

    Dim c As Integer, j As Integer

    A(1) = "2"

    A(2) = "4"

    A(3) = "6"

    c = 2

    For j = 1 To 3

     c = c + Val(A(j))

    Next j

    Print c

 End Sub

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

      

4.

Private Sub Form_Click()

  n = 0

  For i = 1 To 2

     For j = 2 To 4

       If j Mod 2 <> 0 Then

          n = n + 1

       End If

       n = n + 2

     Next j

  Next i

  Print n

End Sub

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

5.

Private Sub Command1_Click()

    Dim a As Integer, b As Integer

    a = 2: b = 3

    For i = 1 To 3

       For j = 1 To i

        b = b + j

       Next j

      a = a + b

    Next i

    Print a

End Sub

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

6.

Private Sub Form_Click()

  Dim A(1 To 4) As String

  Dim c As Integer

  Dim j As Integer

  A(1) = "4"

  A(2) = "6"

  A(3) = "8"

  A(4) = "10"

  c = 1

  For j = 1 To 4

    c = c + Val(A(j))

  Next j

  Print c

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

7.

Sub Change(ByVal x As Integer, ByVal y As 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 = 10: b = 20

Change a, b

Print a, b

End Sub

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

8.

Function F(n As Integer) As Long

   Dim i As Integer, Temp As Long

   Temp = 1

   For i = 1 To n

      Temp = Temp * i

   Next i

   F = Temp

End Function

Private Sub Form_Click()

  Dim k As Integer, nj As Integer

  k = 5

  nj = F(k)

  Print k; "="; nj

End Sub

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

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

1.已知存在一名为“学生”的SQL Server数据库,其中的“students”数据表用来存储学生的基本情况信息,包括学号、姓名、籍贯、性别。请编写一个简单的应用程序,向students表中添加学生记录。程序的基本逻辑是:当窗体被加载时,程序联接SQL Server数据库;当点击“增加”按钮时,首先查询学号是否重复,如果不重复则向students表中添加学生记录。其运行界面如图1所示。

1

程序如下,请补充完整。

'声明对象变量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

   [2]                           

   [3]                          

End If

End Sub

Private Sub Command1_Click()

'增加学生记录

Dim strSQL As String

Dim ADOrs As [4]             

 [5]                      =ADOcn

ADOrs.Open “Select 学号 From Students Where 学号=”+” ‘ “+Text1+” ‘ “

[6]                 Then

   MsgBox “你输入的学号已存在,不能新增加!

Else

  StrSQL=”Insert Into students (学号,姓名,,籍贯, 性别

StrSQL=strSQL+Values(”+” ‘ “+text1+” ‘ , ‘ “+text2+” ‘,’ “+text3+” ‘,’ “+text4+” ‘)”

ADOrs.Execute [7]     

MsgBox “添加成功,请继续!

End If

Private Sub Command2_Click()

Unload Me

End Sub

2

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

                        2

程序如下,请补充完整。

Private Sub Form_Load()

Drive1.Drive =  [1]              

[2]             = "*.bmp;*.gif;*.jpg"

End Sub

Private Sub Drive1_change()

 [3]             = Drive1.Drive

   Text1.Text = Drive1.Drive

End Sub

Private Sub Dir1_Change()

 [4]                        

  Text1.Text = Dir1.Path

End Sub

Private Sub File1_click()

  Picture1. [5]             = LoadPicture(File1.Path + "\" + File1.FileName)

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

  Text1.Text =  [6]               

End Sub

五、编写程序题

1.按下述规定,编写一征收所得税程序。

(1)收入在1000元以内,不纳税;

(2)收入超过1000元以上的部分,纳税20%

(3)当收入达到5000元或超过时,5000元以上的部分,纳税22%。

程序运行界面如图3所示:

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

  图3

答案

一、单项选择题

1.D  2.C 3.B  4.C  5.C  6.B  7.B  8.A  9.B  10.D  11.D  12.C  13.B  14.D 15.B  16.A  17.D  18.C  19.D  20.C  21.B  22.B   23.B  24.C 25.D   26.D  27.A  28.C

           

二、填空题(每小题2分,共20分)

1.vbp

2.frm   .cls

37

44

5Timer

6Variant 或变体型

7.P1. Picture = LoadPrcture("show.jpg")

8.Dim A(0 To 2,1To 3) As Integer

96

10.引用参数传递(或按址传递)  按值传递

11.Name  Index 

12.右  上  

13Picture 

14.本地数据库、远程数据库

15.数据库引擎

16.标准   Public

17.整个应用程序    Public

18.CP/IP  UDP

三、阅读程序题

1.

s =6   s =11  s =44

2.  

3     4

6     4

9     4

3. 

14

    

4. 

14

5.

       26

 

6.

      29

7.

30   20

20   30

8.

 5!=120

四、完善程序题

1

[1]学生

[2] Set ADOcn =New Connection

[3]ADOcn.Open strDB

[4]New Recordset

[5] ADOrs.ActiveConnection

[6]If Not ADOrs.EOF

[7] str SQL

2

[1] "E:\"

[2]File1.Pattern

[3] Dir1.Path 

[4] File1.Path = Dir1.Path

[5] Picture  

[6] FileName

五、编写程序题

参考答案:

Private Sub Command1_Click()

  Dim x As Integer, tax As Single

  x = Val(Text1.Text)

    If x <= 1000 Then

       tax = 0

    ElseIf x <= 5000 Then

       tax = (x - 1000) * 0.2

    Else

       tax = (x - 5000) * 0.22 + 4000 * 0.2

    End If

  Label3.Caption = tax

End Sub

 

Private Sub Command2_Click()

   Unload Me

End Sub

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

历史上的今天

评论

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

页脚

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