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

1、Visual Basic程序设计期末综合练习Visual Basic程序设计期末综合练习一、单项选择题1Visual Basic应用程序处于运行模式时，这时（ ）。A既不能设计界面，也不能编写代码 B可以编辑代码，不能设计界面 C可以设计界面，不能编辑代码 D既能设计界面，也能编写代码2下列选项中，属于VisualBasic程序设计方法的是（ ）。A面向对象、顺序驱动 B面向对象、事件驱动 C面向过程、事件驱动 D面向过程、顺序驱动3在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（ ）。A立即窗口 B属性窗口 C代码窗口 D工程资源管理器窗口4后缀为.cls的文件表示V

2、B 的（）A窗体文件 B类模块文件 C工程文件 D标准类模块文件 5要在窗体Form1内显示“myfrm”，使用的语句是（ ）AForm.caption=myfrm BForm1.caption=myfrmCForm1.print myfrm DForm. print myfrm 6将定时器的时间间隔设置为1秒，则定时器的Interval属性值应设为（ ） A1 B100 C1000 D10 7用于把字符串型数据转换为数值型数据的函数是（ ）。AVal BStr CAsc DChr8表达式8+13 Mod 2*4+3（ ）。A8 B16 C10 D129下列图形中用Shape控件不能绘制的有（

3、 ）A矩形 B三角形C正方形 D椭圆10如果要改变窗体的标题，则需要设置的属性是（ ）A、Caption B、Name C、BackColor D、BorderStyle11.下列赋值语句正确的是（ ）AB+C =A B A=B+CC-B=A D5=A+B12设a=”Visual Basic”，下面使b=”Basic”的语句是（）。Ab=left(a,8,12) Bb=mid(a,8,5)Cb=right(a,5,5) Db=left(a,8,5) 13键盘事件的执行顺序是（）AKeyPress、KeyDown、KeyUpBKeyDown、KeyPress、KeyUpCKeyUp、KeyDow

4、n、KeyPressDKeyUp、KeyPress、KeyDown14如果准备向随机文件中写入数据，正确的语句是（ ）AWrite # 1,rec BPrint # 1,recCGet # 1,rec DPut # 1,rec 15Winsock控件的LocalIP属性的作用是（）A仅返回所用端口 B返回本地计算机的名称C返回或设置所用端口 D返回本地计算机的IP地址16.要以读方式打开D盘的一个顺序文件 Test.doc，应使用的语句是（ ）AOpen Test.doc For Output As #1 BOpen D: Test.doc For Input As #1COpen D: Te

5、st.doc For Output As #1 DOpen Test.doc For Input As #1 15Winsock控件的LocalIP属性的作用是（）A仅返回所用端口 B返回本地计算机的名称C返回或设置所用端口 D返回本地计算机的IP地址 18修改控件属性，一般可以使用属性窗口，也可以通过（ ）为属性赋值。 A、命令 B、对象 C、方法 D、代码19要在命令按纽上显示图形，应首先设置的属性是（ ）AEnabled BStyleCCaption DIcon20Dim Abc(5)所定义的数组元素个数是（ ） A、5 B、6 C、4 D、1021在VB应用程序中，进行逐语句调试的按键

6、是（）。AF9键BCtrl+F9键CF8键DCtrl+F8键22在窗体上画三个单选按纽，组成Command1的命令按纽，用于标识各个控件数组元素的参数是（ ）ATag BIndex CListIndex DName23目录列表框的Path属性的作用是（ ）A显示当前驱动器或指定驱动器上的路径 B显示当前驱动器或指定驱动器上的某目录下的文件名C显示根目录下的文件名D只显示当前路径下的文件24当Winsock控件处于关闭状态时，其State属性的值是（）A1 B0C2 D325执行指令”Line(200,200)-step(500,500)”后，CurrentX=( )A500 B200C300

7、D70026不属于VB数据库引擎的是（）AODBC BBDECJet引擎 DOLE DB27数学关系8x30表示成正确的VB表达式为（ ）A、8=x30 B、8=x AND30 C、8=x AND x30 D、8=x OR xb and Not ca Or cb And ca+b的值是 。9日期表达式#2/24/02#-#2/12/02的值为 。10为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为 。11数学表达式cox2x+写成等价的Visual Basic表达式为 。12设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类

8、型，第一维下标从0到5，第二维下标从-2到5，则相应的数组声明语句为 。13Visual Basic一般用4种类型的文件保存，分别是扩展名为 的窗体文件，扩展名为 的标准模块文件，扩展名为 的类模块文件和扩展名为 的工程文件。14Visual Basic程序开发有三种模式，即 模式、 模式和 模式。15Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、窗体级变量和全局变量3类。过程级变量是指在过程内部声明的变量，其作用域是 。窗体级变量是指在窗体或模块的代码声明段用Dim或Private声明的变量，其作用域是 ，全局变量在整个应用程序中有效，其作用域是 。16在Vi

9、sual Basic的转换函数中将数值转换为字符串的函数是 ；将数字字符串转换为数值的函数是 ；将字符转换为相应的ASCII码的函数是 。17“公共对话框”控件提供了几种不同类型的对话框，可以通过 属性或相应的方法确定对话框的类型。“公共对话框”Name属性的默认名称 。18将图片框PictureBox的AutoSize属性设置成 时，图片框能自动调整大小，以适应其中的图片。19若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。通过 菜单 菜单项，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行 语句。20若窗体Form1左上角坐标为（0，600），右下角

10、的坐标为（800，-200）。则X轴的正向向 ，Y轴的正向向 。21 Left(“abcd”,2)函数的返回值是 ; Right(“abcd”,2)函数的返回值是 。22Vb应用程序与数据库进行通信的主要机制称为 。 23Winsock控件主要用来编制 或 协议的通话程序。24假设ADOcn为一个Connection对象，那么在VB程序中声明ADOcn的语句是 。25在VB中，将Foxpro称为 ，Access称为 ，SQL Server称为 。26常用的VB网络编程控件主要有 、 、 三种。27以(500,500)为圆心，以300为半径，用ForeColor颜色绘制一个圆形，其实现的代码是

11、。28按文件的存取方式，可将文件分为顺序文件、 和 。29有变量定义语句“Dim Str1,Str2 As String *10”，其中Str1变量的类型应为 ，其中Str2变量的类型应为 。30Visual Basic提供的常见鼠标事件中，鼠标按下所引发的事件为 ；鼠标按下后松开时引发的事件为 ；移动鼠标光标所引发的事件为 。三、阅读程序题 阅读下列程序并写出程序运行结果1Private Sub Form_Click() Dim s As Long, f As Long, n As Integer, i As Integer n = 3 For i = 1 To n f = f + i s

12、= s + f Next Print s=; sEnd Sub写出程序运行时单击窗体后，窗体Form1上的输出结果。2Private Sub Command1_Click() x = 0 Do While x 100 x = (x + 2) * (x + 4) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x) Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub文件框Text3的结果是： 3.Private Sub Command1_Click() Dim Sum1 As Inte

13、ger, Sum2 As Integer Sum1 = 0: Sum2 = 1 For I = 1 To 4 For J = 1 To I Sum2 = Sum2 * J Next J Sum1 = Sum1 + Sum2Next IPrint Sum1End Sub 写出程序运行时单击命令按纽后，窗体上的输出结果。4. Private Sub Command1_Click() Dim x As IntegerStatic s As Integer x = Val(InputBox(请输入一个正整数=) If x 3 Then a = a + 4 Else a = a + 1 End If N

14、ext iPrint i, aEnd Sub 写出程序运行时单击窗体后，Form1上的输出结果。10.Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=x x=y y=t Print x,yEnd subPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 3: b = 4Change a, b Print a,bEnd Sub 写出程序运行时单击窗体后，Form1上的输出结果 11. Private Sub Form_Click( ) S

15、tatic Sum As Integer I=1 While i=3 Sum=Sum+I I=I+1 Wend Print Sum End Sub点击两次后，Sum的值应该是： 四、完善程序题 1列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。 图 1程序如下，请补

16、充完整。Private Sub Form_Load() List1.AddItem 北京-上海 List1.AddItem 北京-广州 List1.AddItem 北京-四川 List1.AddItem 北京-西安 List1.AddItem 北京-哈尔滨 List1.AddItem 北京-沈阳 List1.AddItem 北京-长春End SubPrivate Sub Command1_Click() If Text1.Text Then 1 将文本框中的内容加到列表框中 Text1.Text = 2 MsgBox 请在文本框中输入信息！ End IfEnd SubPrivate Sub C

17、ommand2_Click() 3 删除选定的项目End SubPrivate Sub Command3_Click() If Command3.Caption = 4 Then Text1.Text = 5 Text1.SetFocus Command1.Enabled = False Command2.Enabled = 6 Command3.Caption = 修改确认 Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = 7 C

18、ommand3.Caption = 修改 End IfEnd Sub2已知SQL Server数据库管理系统中存在名称为“学生”的数据库，其中的“students”数据表的结构及初始记录如表1所示。要求使用ADO对象和MSFlexGrid控件设计数据库列表显示程序。程序的设计界面和运行结果如图2、图3所示。表1学号姓名专业2004001张红软件专业2004003李强会计专业2004002王丽软件专业图2图3程序如下，请补充完整。声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn As ConnectionReadFromTable过程Private Sub ReadFro

19、mTable() Dim strtmp As String Dim ADOrs As 1 ADOrs.ActiveConnection = ADOcn ADOrs.Open 2 MSFlexGrid1.Clear MSFlexGrid1.Rows = 0 MSFlexGrid1.Cols = 3 strtmp = 学号 + vbTab + 姓名 + vbTab + 专业 MSFlexGrid1.AddItem strtmp Do While Not ADOrs.EOF strtmp = ADOrs(学号) + vbTab + ADOrs(姓名) + vbTab + ADOrs(专业) MSFl

20、exGrid1.AddItem strtmp 3 Loop MSFlexGrid1.FixedCols = 0 MSFlexGrid1.FixedRows = 1 End Sub Private Sub Form_Load() 定义数据库连接字符串 Dim strDB As String 用于连接SQL Server数据库，其中: Server为服务器名称 User ID为登录账号 Password为登录口令 Database为具体的数据库名 strDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database =学生 如果还没有建立与数据库的连接，则用以下代码创建。 If ADOcn Is Nothing Then Set ADOcn = 4 ADOcn.Open 5 连接SQL Server数据库 End If ReadFromTable 调用过程显示students表中的记录End SubPrivate Sub Command1_Click() Unload MeEnd Sub3创建一个绘图程序。当程序运行时，单击“绘图