Visual Basic程序设计补休课复习资料

1、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后，就意味着要建立一个新（ ）。A文件 B窗体C程序 D工程5在

2、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.Print"myfrm" BForm.Print"myfrm" CFo

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

4、xit For CExit Do D End Do14表达式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若工程文件中有多个窗体，可以根据需要

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

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

7、Aopen"text.dat" For wrire As # 1 Bopen"text.dat" For Binary As # 1 Copen"text.dat" For Input As # 1Dopen"text.dat" For Random As # 1二、填空题1用Line方法画直线后,当前坐标在 。2.在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按 键。3应用程序打包后，其包文件的后缀为 。4如果要每隔10s产生一个Timer事件，则Interval属性应设置为 。

8、 5每个应用程序都有开始执行的入口，在VB中将这种窗体称为 。6控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。7数学关系15x<45表示成正确的VB表达式为 。8以窗体Form1的中心为圆心，画一个半径为300的圆的语句是 。 9假设ADOrs为一个Recordset对象，那么从Table1表中获取所有记录的语句是 10在VB中，将Foxpro称为 ，Access称为 ，SQL Server称为 。11设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到4，第二维下标从-1到4，则相应的数组声明语句为 。12若窗体Form1左上角坐标为（0，5

9、00），右下角的坐标为（800，-200）。则X轴的正向向 ，Y轴的正向向 。13全局变量在整个应用程序中有效，一般在模块代码编辑器的顶部用 语句声明。14列表框中项目的序号是从 开始的。15Winsock控件主要用来编制 或 协议的通话程序。16Vb应用程序与数据库进行通信的主要机制称为 。17Image控件的Stretch属性设置为 时，图像框可自动改变大小以适应其中的图形。18在整个程序运行时，用Static声明的局部变量是静态的，其值可以在该过程所在的模块运行期间 ，而用Dim声明的变量只能在 才存在。三、阅读程序题阅读下列程序并写出程序运行结果1Private Sub Form_Cl

10、ick() Static Sum As Integer For I = 1 To 5 Sum = Sum + I Next I Print SumEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。2Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 0c = 1For j = 1 To 6 If j > 4 Then c = c + 5 Exit For Else k = k + 1End IfNext jPrint c, kEnd Sub写出程序运行时单击窗体后，c,k的值分别是：

11、3 .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的输出结果是：4.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 X

12、End Sub 写出程序运行时单击命令按钮后，窗体Form1上的输出结果。5.Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 2 c = c + 2 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 6 For i = 1 To 3 Print F(a) Next iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。6.Private Sub Form_Click() Dim A(1 To 4

13、) 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 cEnd Sub写出程序运行时单击窗体后，窗体Form1上的结果： 四、完善程序题1列表框应用程序。要求从文本框中输入姓名，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表

14、框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。List1Command3Command2Command1Text1 图 1程序如下，请补充完整。Private Sub Form_Load() List1.AddItem "李敏" List1.AddItem "张华" List1.AddItem "吕晓烨" List1.AddItem "赵巍"

15、; List1.AddItem "袁莉" List1.AddItem "王津" List1.AddItem "何小渴" List1.AddItem "崔宁" List1.AddItem "何月"End SubPrivate Sub Command1_Click() If Text1.Text <> "" Then 1 Text1.Text = "" Else MsgBox "请在文本框中输入信息！" End IfEnd Su

16、bPrivate Sub Command2_Click() 2 End Sub Private Sub Command3_Click() If Command3.Caption = "修改"Then Text1.Text = 3 Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Caption = 4 Else 5 Command1.Enabled = True Command2.Enabled = True Text1.Text = 6 Command3.Caption =

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

18、Path = 2 3 = Drive1.DriveEnd SubPrivate Sub Dir1_Change() 4 Text1.Text = 5 End SubPrivate Sub File1_click() Picture1. 6 = LoadPicture(File1.Path + "" + File1.FileName) FileName = File1.Path + "" + File1.FileName Text1.Text = 7 End Sub3已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存

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

20、=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1 "If ADOcn Is Nothing Then Set ADOcn =2 3 strDB End IfEnd SubPrivate Sub Command1_Click()'增加学生记录Dim strSQL As StringDim ADOrs As 4 5 ADOrs.Open “Select 学号 From Students Where 学号=”+” “+Text1+” “If Not ADOrs.EOF Then MsgBox “你输入的学号已存在，不能新增加！”Else

21、 StrSQL=”Insert Into students (学号,姓名,籍贯, 性别) StrSQL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+text4+” )”6 MsgBox “添加成功，请继续！”End IfPrivate Sub Command2_Click()Unload MeEnd Sub五、编写程序题1.编写一收款计算程序。要求用户输入商品的“单价”、“数量”和“折扣”后，单击“计算”按钮显示“应付款”，单击“清除”按钮，清除文本框中所有的数据。程序运行界面如下图所示。Text3Text1Text4Text

22、2Command1Command22编写一个摄氏温度与华氏温度之间转换的程序，程序运行界面如下图所示： 图1 要使用转换的公式是：F=9/5*C+32 其中F为华氏温度，C为摄氏温度。 3.设计一个计算程序。该程序用户界面如下图所示。要求程序运行后，用户选中单选按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。如用户选中加法单选按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。按结束，则退出。答 案一、单项选择题 1.C 2.C 3.B 4.D 5.C 6.D 7.D 8.B 9.D 10.B 11.B 12.D 13.C 14.D 15D 16.C 17.B 18

23、.D 19.A 20.C 21.A22.A 23. B 24.B 25.C 二、填空题1直线终点2F13.cab4100005启动窗体6Name Index 7. 15<=x AND x<458Circle(ScaleWidth/2,ScaleHeight/2),3009ADOrs Open”Select * From Table1”10外部数据库 本地数据库 远程数据库11Dim A(1To 4,-1To 4) As String12右 上13. Public140 15. TCP/IP UDP 16.数据库引擎17.False18. 一直存在 过程执行期间三、阅读程序题1. 1

24、52 7 43 294 155101214615四、完善程序题1.1List1.AddItem Text1.Text2List1.RemoveItem List1.ListIndex 3 List1.Text 4 "修改确认"5List1.List(List1.ListIndex) = Text1.Text6 ""2.1 Drive1.Drive ="D:"2 Drive1.Drive3 Text1.Text4 File1.Path = Dir1.Path5 Dir1.Path6 Picture7 FileName3.1学生2New

25、Connection3 ADOcn.Open4New Recordset5 ADOrs.ActiveConnection=ADOcn6 ADOrs.Execute str SQL五、编程题 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 = "" The

26、n Text3.Text = 1 Text4.Text = Text1.Text * Text2.Text * Text3.TextEnd Sub2.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

27、/ 9 End IfEnd Sub3. 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 SubVisual Basic编程模拟试题（

28、补修）一、填空题40分(每空2分)1 Visual Basic开发应用程序的步骤_、_、_。2菜单分为_菜单和_菜单，菜单总与_相关连，设计菜单需要在_中设计。3对象的方法用于当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为 。例如对窗体Form1使用Show方法，应写成 。 4Visual Basic的控件通常分为三种类型，即 、 、和 。其中， 不能从工具箱中删除。5若A=20，B=80，C=70，D=30，则表达式A+B>160 Or (B*C>200And Not D>60)的值是 。7Timer控件的 属性决定该控件是否对时间的推移做响应。将该属性设置

29、为False会关闭Timer控件，设置为True则打开它。8在Visual Basic的转换函数中将数值转换为字符串的函数是 ；将数字字符串转换为数值的函数是 ； 9要清除组合框Combo1中的所有内容，可以使用的语句是 。10使控件获得焦点的方法是 。11菜单控件只包含一个_事件。二、写出程序的运行结果：（30分，每小题5分） 1、x=15:y=15If X<Y Then A=15 A=-15 Print A2、A =85If A > 60 Then I = 1ElseIf A > 70 Then I = 2ElseIf A > 80 Then I = 3ElseIf

30、 A > 90 Then I = 4End IfPrint "I=" I3、 I = 0 For G = 10 To 15 Step 3 I = I + 1 Next G Print I4 N = 0 J = 1 Do Until N >3 N = N + 1 J = J + N * (N + 1) Loop Print N; J5 N = 0 For I = 1 To 4 For J = 5 To 1 Step -1 N = N + 1 Next J, I Print N; J; I6Sub Form_Click（） A = 10: b =20: c =30: d = 40 Print A; Spc(5); b; Spc(7); c Print A; Spc(8); b; Space$(5); c Print c; Spc(3); "+" Spc(3); d; Print Spc(3); "=" Spc(3); c + dEnd Sub三、编程题20分创建一个登录界面，由两个标签（ Label1、Labe12 ）和两个文本框 （txtName 、 txt Password ）组成。其中，口