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

1、Visual Basic程序设计期末综合练习题Visual Basic程序设计期末综合练习题 （2005年12月）一、单项选择题1工程文件的扩展名是（ ）A.frm B.vbpC.bas D.fix2要在窗体Form1内显示“新年快乐”，使用的语句是（ ）AForm.caption=新年快乐 BForm1.caption= CForm. print 新年快乐 DForm1.print 新年快乐 3语句Text1.Text = Visual Basic,分别代表（ ）A对象、值、属性 B对象、方法、属性C对象、属性、值 D属性对象、值 4若要将窗体从内存中卸载，应使用的方法是（ ）。AShow

2、BUnloadCLoad DHide5在VB中，下列各项合法的变量名是（ ）。 AInteger B ab-cC56abc D a_bc 6表达式1010Mod23+3的值是 A7 B 9C15 D 10 7下列正确的赋值语句是（ ）。 Am=m-1 Bm+1=mC3m=n+x D-m=n+18Winsock控件的LocalPort属性的作用是（）A仅返回所用端口 B返回或设置所用端口 C仅设置所用端口 D返回或设置IP地址9Winsock控件的LocalIP属性的作用是（ ）A返回本地计算机的名称 B返回或者设置所用的端口C返回远程机器的IP地址 D返回本地计算机的IP地址10Dim A(5

3、, 5) As Integer定义的数组包含的元素个数是（ ）A25 B36C30 D动态变化 11要清除List列表框控件中的所有项目，可采用的方法是（ ）AClear BErase CClick DDelete12如果希望以模态方式显示窗体Form1，下列正确的语句是（ ）AForm1.Show 0BForm1.ShowCForm1.Show 1D以下都不正确 13如果准备向随机文件中写入数据，正确的语句是（ ）APrint # 1,rec BWrite # 1,recCPut # 1,rec DGet # 1,rec 14在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的

4、值，则应使用（ ）关键字在过程中定义局部变量。ADim BPublic CPrivate DStatic 15在过程定义中用( )表示形参的传值。 AVar BByDefCByVal DValue16将数据项“China”添加到列表框（List1）中成为地一项，应使用的语句是（ ）AList1.AddItemChina,0 BList1.AddItemChina,1CList1.AddItemChina, DList1.AddItem1,China17引用列表框（List1）最后一个数据项应使用的语句是（ ）AList1.List (List1.ListCount) BList1.List (

5、List1.ListCount1)CList1.List (ListCount) DList1.List (ListCount1)18可用来改变坐标度量单位的是（ ）ADrawstyle属性 BDrawWidth属性CScale方法 DScaleMode属性19要使窗体在运行时不可改变窗体的大小并没有最大化和最小化按钮，通过设置可达到此要求的属性是（）AMaxButton BMinButtonCWidth D BorderStyle 20数学关系8y28表示成正确的VB表达式为（ ）A、8=y28 B、8=y AND28 C、8=y AND y28 D、8=y OR y 3 Then c =

6、c + 4 Exit For Else k = k + 1End IfNext jPrint c, kEnd Sub 写出程序运行时单击窗体后，c,k的值分别是：2Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 2 y = y + 3 Form1.Print x=; x, y=; yEnd SubEnd Sub写出程序运行时连续单击三次窗体后，Form1上的输出结果。3Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 5

7、i = 1 Do While i 9 i = i + 2 s = s + i Loop Text1.Text = s End Sub文件框Text1的输出结果是： 4.Private Sub Form_Click() Dim I as integer,j as integer Dim c as integerc=0For i = 1 To 3 For j=1 to 3 c=c+1 Next jNext IPrint cEnd Sub 写出程序运行时单击窗体后，c的输出结果：5.Function F(a As Integer) b = 0 Static c b = b + 1 c = c + 2

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

9、 Loop Text1.Text = A(1) Text2.Text = A(2)End Sub7.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 = 10: b = 20Change a, b Print a, bEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。四、完善程序题1列表框应用程序。要求在文本框T

10、ext1中输入课程名称，然后按“添加”按钮，把课程名称添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；按“统计”按钮，在文本框Text2中输出课程数量总数；按“结束”按纽，退出应用程序。程序运行结果如图1所示。 图1程序如下，请补充完整。Private Sub Form_Load() List1.AddItem 计算机应用基础 List1.AddItem 程序设计基础 List1.AddItem 软件技术基础 List1.AddItem VisualBasic程序设计 List1.AddItem SQLSERVER数据库应用 List1.AddItem 计算机专业

11、英语 List1.AddItem Delphi程序设计End SubPrivate Sub Command1_Click() If Text1.Text Then 1 Text1.Text = 2 Else MsgBox 请在文本框中输入信息！ 3 End SubPrivate Sub Command2_Click() List1.RemoveItem 4 End SubPrivate Sub Command3_Click() Text2.Text = 5 End SubPrivate Sub Command4_Click() Unload MeEnd Sub2.函数图形程序。用Pset方法在

12、图形框Picture1内绘制y=Sinx在-到之间的图形。运行结果如图8所示。 程序如下，请补充完整：Private Sub Command1_Click() Picture1.Scale (-4, 2)-(4, -2) 定义坐标系 Picture1.Line (-4, 0)-(4, 0) 画x轴 1 画y轴 Picture1.CurrentX = 0.2 设置原点横坐标 Picture1.CurrentY = -0.1 设置原点纵坐标 2 标记原点 Picture1.CurrentX = -3.2 Picture1.CurrentY = -0.1 Picture1.Print - 标记“-”

13、 Picture1.CurrentX = 3.3 Picture1.CurrentY = -0.1 Picture1.Print Picture1.CurrentX = 0.2 Picture1.CurrentY = 0.9 Picture1.Print 1 标记“1” Picture1.CurrentX = 0.2 Picture1.CurrentY = -0.8 Picture1.Print -1 标记“-1” For i = 3 Step 0.001 Picture1.PSet ( 4 ) Next iEnd SubPrivate Sub Command2_Click() 5 End S

14、ub五、编程题编写一程序，要求单击“开始”按钮(Command1)，在列表框(List1)中输出200300之间不能被5整除的数，单击清除按钮(Command2)，清除文本框中的全部内容。程序运行结果如图所示。注：其它类型的完善程序题和编程题，请参考上学期网上复习要点及练习。 练习题答案答案一、单项选择题1B 2D 3C 4B 5D 6C 7A 8B 9D 10B 11A12C 13C 14D 15C 16A 17B 18D 19D 20C21D 22B 23A 24B 25B 26C 27B 28A 29B 30C31C 32A 33D二、填空题1.设计界面2.F13. openD:text

15、.dat For Output As # 14. 5(1/2)*sin(30*3.14/180)， 或者Sqr(5)*sin(30*3.14/180)5.True6.本地计算机的IP地址 返回或设置远程计算机的名称7.右 上8.Connection9.ActiveConnection10.本地数据库 远程数据库11. ADOrs Open”Select * From Table1”12.选择结构 循环结构 顺序结构13.1500014.实时错误 逻辑错误15.Time16. Circle(ScaleWidth/2,ScaleHeight/2),80017.Name Index18.DAO RD

16、O ADO19.顺序文件 随机文件 二进制文件20. Timer Interval ms三、阅读程序题1. 5 32. x2 y=3x2 y=6x2 y=93. 294. 95. 5796. 1 37. 20 10 10 20四、完善程序题11 List1.AddItem Text1.Text2 3 End If4 List1.ListIndex5 List1.ListCount21 Picture1.Line (0, 2)-(0, -2) 2 Picture1.Print 0 3 -3.141 To 3.141 Step 0.0014 i, Sin(i) 5 End五、编程题Private Sub Command1_Click() Dim x As Integer x = 200 Do Until x 300 If x Mod 5 0 Then List1.AddItem x End If x = x + 1 LoopEnd Sub Private Sub Command2_Click() List1.ClearEnd Sub