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

1、CGet # 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 DOpen For Input As #1 15Winsock控件的LocalIP属性的作用是（） 18修改控件属性，一般可以使用属性窗口，也可以通过（ ）为属性赋值。 A、命令 B、对

2、象 C、方法 D、代码19要在命令按纽上显示图形，应首先设置的属性是（ ）AEnabled BStyleCCaption DIcon20Dim Abc（5）所定义的数组元素个数是（ ） A、5 B、6 C、4 D、1021在VB应用程序中，进行逐语句调试的按键是（）。AF9键BCtrl+F9键CF8键DCtrl+F8键22在窗体上画三个单选按纽，组成Command1的命令按纽，用于标识各个控件数组元素的参数是（ ）ATag BIndex CListIndex DName23目录列表框的Path属性的作用是（ ）A显示当前驱动器或指定驱动器上的路径 B显示当前驱动器或指定驱动器上的某目录下的文件

3、名C显示根目录下的文件名D只显示当前路径下的文件24当Winsock控件处于关闭状态时，其State属性的值是（）A1 B0C2 D325执行指令”Line（200,200）-step（500,500）”后，CurrentX=（ ）A500 B200C300 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的

4、值为 。10为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为 。11数学表达式cox2x+12设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从0到5，第二维下标从-2到5，则相应的数组声明语句为 。13Visual Basic一般用4种类型的文件保存，分别是扩展名为 的窗体文件，扩展名为 的标准模块文件，扩展名为 的类模块文件和扩展名为 的工程文件。14Visual Basic程序开发有三种模式，即 模式、 模式和 模式。15Visual Basic中变量依据其作用域不同可以分为过程级变量（局部变量）、窗体

5、级变量和全局变量3类。过程级变量是指在过程内部声明的变量，其作用域是 。窗体级变量是指在窗体或模块的代码声明段用Dim或Private声明的变量，其作用域是 ，全局变量在整个应用程序中有效，其作用域是 。16在Visual Basic的转换函数中将数值转换为字符串的函数是 ；将数字字符串转换为数值的函数是 ；将字符转换为相应的ASCII码的函数是 。17“公共对话框”控件提供了几种不同类型的对话框，可以通过 属性或相应的方法确定对话框的类型。“公共对话框”Name属性的默认名称 。18将图片框PictureBox的AutoSize属性设置成 时，图片框能自动调整大小，以适应其中的图片。19若已

6、建立了Form1和Form2两个窗体，默认启动窗体为Form1。通过 菜单 菜单项，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行 语句。20若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向 ，Y轴的正向向 。21 Left（“abcd”,2）函数的返回值是 ; Right（“abcd”,2）函数的返回值是 。22Vb应用程序与数据库进行通信的主要机制称为 。23Winsock控件主要用来编制 或 协议的通话程序。24假设ADOcn为一个Connection对象，那么在VB程序中声明ADOcn的语句是 。25在VB中，将Fox

7、pro称为 ，Access称为 ，SQL Server称为 。26常用的VB网络编程控件主要有 、 、 三种。27以（500,500）为圆心，以300为半径，用ForeColor颜色绘制一个圆形，其实现的代码是 。28按文件的存取方式，可将文件分为顺序文件、 和 。29有变量定义语句“Dim Str1,Str2 As String *10”，其中Str1变量的类型应为 ，其中Str2变量的类型应为 。30Visual Basic提供的常见鼠标事件中，鼠标按下所引发的事件为 ；鼠标按下后松开时引发的事件为 ；移动鼠标光标所引发的事件为 。三、阅读程序题阅读下列程序并写出程序运行结果1Privat

8、e 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 = 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.Tex

9、t = Val（Text1.Text） + Val（Text2.Text）文件框Text3的结果是：3. Dim Sum1 As Integer, 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 Sum1 写出程序运行时单击命令按纽后，窗体上的输出结果。4. Private Sub Command1_Click（） Dim x As IntegerStatic s As Integer x = Val（Inp

10、utBox（请输入一个正整数=） If x 3 Then a = a + 4 a = a + 1 Next iPrint i, a 写出程序运行时单击窗体后，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 sub Dim a As Integer, b As Integer a = 3: b = 4Change a, b Print a,b 写出程序运行时单击窗体后，Form1上的输出结果11. Private Sub Form

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

12、 图 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 Then Text1.Text = 5 Text1.SetFocus Command1.Enabled = False Com

13、mand2.Enabled = 6 Command3.Caption = 修改确认 List1.List（List1.ListIndex） = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = 7 修改2已知SQL Server数据库管理系统中存在名称为“学生”的数据库，其中的“students”数据表的结构及初始记录如表1所示。要求使用ADO对象和MSFlexGrid控件设计数据库列表显示程序。程序的设计界面和运行结果如图2、图3所示。表1学号姓名专业2004001张红软件专业2004003李强会计

14、专业2004002王丽图2图3声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn As ConnectionReadFromTable过程Private Sub ReadFromTable（） Dim strtmp As String Dim ADOrs As 1 ADOrs.ActiveConnection = ADOcn ADOrs.Open 2 MSFlexGrid1.Clear MSFlexGrid1.Rows = 0 MSFlexGrid1.Cols = 3 strtmp = 学号 + vbTab + 姓名专业 MSFlexGrid1.AddItem strtm

15、p Do While Not ADOrs.EOF strtmp = ADOrs（） + vbTab + ADOrs（） 3 MSFlexGrid1.FixedCols = 0 MSFlexGrid1.FixedRows = 1 定义数据库连接字符串 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数据库 ReadFromTable 调用过程显示students表中的记录 Unload Me3创建一个绘图程序。当程序运行时，单击“绘图