Visual Basic程序设计期末复习二已排版.docx

1、Visual Basic程序设计期末复习二已排版Visual Basic程序设计期末复习二一、单项选择题1刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。A单选按纽 B图片框 C通用对话框 D文本框2与传统的程序设计语言相比，Visual Basic最突出的特点是（ ）A结构化程序设计 B程序开发环境 C事件驱动编程机制 D程序调试技术3将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（ ）。A缺少.frm窗体文件 B运行的机器上无VB系统C该可执行文件有病毒 D以上原因都不对 4启动VB后，就意味着要建立一

2、个新（ ）。A文件 B窗体C程序 D工程5在VB环境中，标准类模块文件的扩展名是（ ）。A.vbp B.frm C.bas D .frx6Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（ ）。A设计模式 B执行模式C中断模式 D编写代码模式7下列4项中合法的变量名是（ ）。A45 xyz BSingleCx-yz Dx_yz8表达式64 / 2 - 2 3 * 9 / 3 Mod 8 3（）A0 B32C20 D49. 要在窗体的标题内显示“myfrm”,使用的语句是（ ）AForm1.Printmyfrm BForm.Printmyfrm CForm

3、.caption=myfrm DForm1.caption=myfrm10无论何种控件，共同具有的属性是（）AText BNameCCaption DForeColor11按照变量的作用域可将变量划分为（ ） A公有、私有、系统 B全局变量、模块级变量、过程级变量 C动态、常数、静态 DPublic、 Private、 Protected12确定一个控件在窗体上位置的属性是（ ）AWidth或Height BWidth和Height CTop或Left DTop和Left13要退出DoLoop循环，可使用的语句是（ ）语句。 AExit BExit For CExit Do D End Do1

4、4表达式8+10 Mod 22+3的值是（ ）A、4 B、11 C、12 D、1315.下列关于变量的说法不正确的是（ ）。A局部变量是指那些在过程中用Dim语句或Static语句声明的变量 B局部变量的作用域仅限于声明它的过程C静态局部变量是在过程中用Static语句声明的 D局部变量在声明它的过程执行完毕后就被释放了16以下叙述中错误的是（ ）。A一个工程中只能有一个Sub Main过程 B窗体的Show方法的作用是将指定的窗体载入内存并显示该窗体C窗体的Hide方法和Unload方法的作用完全相同 D若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体17要绘制多种形状的图形，需要

5、设置Shape控件的（ ）属性ABorderstyle B ShapeCFillStyle DStyle18VB程序中通常不会产生错误提示的是（）。A编译错误B实时错误C运行时错误D逻辑错误19当Winsock控件处于关闭状态时，其State属性的值是（ ）A0 B 1C2 D620下列正确的赋值语句是（ ）。Ax+y=50 By=*r*r Cy=x+50 D3y=x21使图像框Image控件中的图像自动适应控件的大小应（）。A将控件的 Stretche属性设为True B将控件的 Stretche属性设为FalseC将控件的 AutoSize属性设为True D 将控件的 AutoSize属

6、性设为False 22目录列表框的Path属性的作用是（ ）A显示当前驱动器或指定驱动器上的路径 B显示当前驱动器或指定驱动器上的某目录下的文件名C显示根目录下的文件名D只显示当前路径下的文件23下列数据对象模型中采用OLE DB访问数据库的是（）。ADAOBADOCRDODRDO和ADO24使用ADO数据模型时，使Recordset和 Connection对象建立连接的属性是（）。ACommandType BActiveConnection COpen DExecute25如果准备读文件，打开顺序文件”text.dat”的正确语句是（ ）Aopentext.dat For wrire As

7、# 1 Bopentext.dat For Binary As # 1 Copentext.dat For Input As # 1Dopentext.dat For Random As # 1二、填空题1用Line方法画直线后,当前坐标在 直线终点 。2.在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按 F1 键。3应用程序打包后，其包文件的后缀为 cab 。4如果要每隔10s产生一个Timer事件，则Interval属性应设置为 10000 。 5每个应用程序都有开始执行的入口，在VB中将这种窗体称为 启动窗体 。6控件数组的名字由 Name 属性指定，而

8、数组中的每个元素由 Index 属性决定。7数学关系15x45表示成正确的VB表达式为 15=x AND x 4 Then c = c + 5 Exit For Else k = k + 1End IfNext jPrint c, kEnd Sub写出程序运行时单击窗体后，c,k的值分别是：答案： 7 43 .Private Sub Command1_Click()Dim s As DoubleDim i As Integer s = 5 i = 1 Do While i 9 i = i + 2 s = s + i Loop Text1.Text = sEnd Sub文件框Text1的输出结果

9、是：答案：294.Private Sub Command1_Click() Dim X As Integer, Y As Integer X = 0: Y = 1 For i = 1 To 3 For j = 1 To i Y = Y * j Next j X = X + Y Next i Print XEnd Sub 写出程序运行时单击命令按钮后，窗体Form1上的输出结果。答案： 155.Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 2 c = c + 2 F = a + b + cEnd Fun

10、ctionPrivate Sub Command1_Click() Dim a As Integer a = 6 For i = 1 To 3 Print F(a) Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。答案：1012146.Private Sub Form_Click() Dim A(1 To 4) As String Dim c As Integer Dim j As Integer A(1) = 2 A(2) = 4 A(3) = 6 A(3) = 8 c = 1 For j = 1 To 4 c = c + Val(A(j) Next j Print

11、 cEnd Sub写出程序运行时单击窗体后，窗体Form1上的结果： 答案：15四、完善程序题1列表框应用程序。要求从文本框中输入姓名，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。 图 1程序如下，请补充完整。Private Sub Form_Load() List1.AddItem 李敏 List1.A

12、ddItem 张华 List1.AddItem 吕晓烨 List1.AddItem 赵巍 List1.AddItem 袁莉 List1.AddItem 王津 List1.AddItem 何小渴 List1.AddItem 崔宁 List1.AddItem 何月End SubPrivate Sub Command1_Click() If Text1.Text Then List1.AddItem Text1.Text Text1.Text = Else MsgBox 请在文本框中输入信息！ End IfEnd SubPrivate Sub Command2_Click() List1.Remov

13、eItem List1.ListIndex End Sub Private Sub Command3_Click() If Command3.Caption = 修改Then Text1.Text = List1.Text Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Caption = 修改确认 Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1

14、.Text = Command3.Caption = 修改 End IfEnd Sub2在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如下图所示。程序如下，请补充完整。Private Sub Form_Load() Drive1.Drive =D: File1.Pattern = *.bmp;*.gif;*.jpgEnd SubPrivate Sub Dri

15、ve1_change() Dir1.Path = Drive1.Drive Text1.Text = Drive1.DriveEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.Path Text1.Text = Dir1.Path End SubPrivate Sub File1_click() Picture1. Picture = LoadPicture(File1.Path + + File1.FileName) FileName = File1.Path + + File1.FileName Text1.Text = FileName

16、 End Sub3已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图2所示。图2程序如下，请补充完整。声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn As ConnectionPrivate Sub Form_Load()连接SQL Server

17、数据库Dim strDB As StringstrDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database =学生If ADOcn Is Nothing Then Set ADOcn = New Connection ADOcn.Open strDB End IfEnd SubPrivate Sub Command1_Click()增加学生记录Dim strSQL As StringDim ADOrs As New Recordset ADOrs.ActiveConnection=ADOcn ADOrs.Open “Select 学号 F

18、rom Students Where 学号=”+” “+Text1+” “If Not ADOrs.EOF Then MsgBox “你输入的学号已存在，不能新增加！”Else StrSQL=”Insert Into students (学号,姓名,籍贯, 性别) StrSQL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+text4+” )”ADOrs.Execute str SQL MsgBox “添加成功，请继续！”End IfPrivate Sub Command2_Click()Unload MeEnd Sub五、编写

19、程序题1.编写一收款计算程序。要求用户输入商品的“单价”、“数量”和“折扣”后，单击“计算”按钮显示“应付款”，单击“清除”按钮，清除文本框中所有的数据。程序运行界面如下图所示。Private Sub Command1_Click() If Text1.Text = Then MsgBox 至少要输出单价！ Text1.SetFocus Exit Sub End If If Text2.Text = Then Text2.Text = 1 If Text3.Text = Then Text3.Text = 1 Text4.Text = Text1.Text * Text2.Text * Tex

20、t3.TextEnd Sub2编写一个摄氏温度与华氏温度之间转换的程序，程序运行界面如下图所示： 图1 要使用转换的公式是：F=9/5*C+32 其中F为华氏温度，C为摄氏温度。Private Sub Command1_Click() If Text1.Text Then Text2.Text = 9 / 5 * Text1.Text + 32 End IfEnd SubPrivate Sub Command2_Click() If Text2.Text Then Text1.Text = (Text2.Text - 32) * 5 / 9 End IfEnd Sub3.设计一个计算程序。该程

21、序用户界面如下图所示。要求程序运行后，用户选中单选按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。如用户选中加法单选按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。按结束，则退出。Private Sub Command1_Click() Unload MeEnd SubPrivate Sub Option1_Click() Text1.Text = 30 + 6End SubPrivate Sub Option2_Click() Text1.Text = 30 - 6End SubPrivate Sub Option3_Click() Text1.Text = 30 * 6End SubPrivate Sub Option4_Click() Text1.Text = 30 / 6End Sub