Visual Basic程序设计复习要点及练习.doc

1、一、单项选择题（每小题2分）1在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（ C ）。A立即窗口 B属性窗口 C代码窗口 D工程资源管理器窗口2后缀为.vbp的文件表示VB 的（C）A窗体文件 B类模块文件 C工程文件 D标准类模块文件 3要在窗体Form1内显示“myfrm”，使用的语句是（ C ）AForm.caption=myfrm BForm1.caption=myfrmCForm1.print myfrm DForm. print myfrm 4表达式8+13 Mod 2*4+3（ B ）。A8 B16 C15 D125文本框没有（ C ）属性A、Text

2、B、Name C、Caption D、BorderStyle6.下列赋值语句正确的是（ B ）AB+C =A B A=B+C C-B=A D5=A+B7如果准备向随机文件中写入数据，正确的语句是（ D ）AWrite # 1,rec BPrint # 1,rec CGet # 1,rec DPut # 1,rec 8Winsock控件的LocalHostName属性的作用是（B）A仅返回所用端口 B返回本地计算机的名称C返回或设置所用端口 D返回本地计算机的IP地址9.要以读方式打开D盘的一个顺序文件 Test.doc，应使用的语句是（ B ）AOpen Test.doc For Output

3、 As #1 BOpen D: Test.doc For Input As #1COpen D: Test.doc For Output As #1 DOpen Test.doc For Input As #1 10Dim Abc(2,3)所定义的数组元素个数是（ C ） A、6 B、5 C、12 D、911在Visual Basic中，默认的数据类型是（ D ）AInteger BDouble CCurrency DVariant12当Winsock控件处于关闭状态时，其State属性的值是（B）A1 B0 C2D313执行指令”Line(200,200)-step(500,500)”后，C

4、urrentX=( D )A500 B200 C300 D70014不属于VB数据库引擎的是（C）AODBC B Jet引擎 CBDE DOLE DB15全局变量必须在（ A ）中定义A、标准模块 B、窗体模块 C、类模块 D、任意模块16改变驱动器列表框的Drive属性值，将激活（A）事件。AChange BScoll CKeyDown DKeyUp17如果将文本框的（ A ）属性设置为True，则运行时不能对文本框中的内容进行编辑。 ALocked BMultiLine CTabStop DVisible18数学式子Sin25写成VB表达式是（ D ）。ASin25 BSin（25） CS

5、IN（25） DSin（25*3.14/180）19下列变量名中合法的是（ D ）AIF B7AB CAB7 DAB_720. 要退出ForNext循环，应使用的语句是（ B ）。AExit BExit For CContinue DStop Loop21.在下列选项中，不能将图像装入图片框和图像框的是（ B ）A在界面设计时，通过Picture属性装入B在界面设计时，手工在图像框和图片框中绘制图形C在界面设计时，利用剪贴板把图像粘贴上D在程序运行期间，用LoadPicture函数把图形文件装入22下面选项中，能绘制填充矩形的语句是（ B ） ALine (200, 200)-(500, 50

6、0),B BLine (200, 200)-(500, 500), , BFCLine (200, 200)-(500, 500), BF DLine (200, 200)-(500, 500)23.ADOrs为Recordset对象，从Tabel中获取所有记录的语句是（ C ）AADOrs.New Select * From Tabel BADOrs.Open Select * From TabelCADOrs.Execute Select * From Tabel DADOrs. Select Select * From Tabel24.当改变驱动器列表框中的驱动器时，为了使目录列表框中的

7、内容同步跟着改变，应当（ C ）A在Dir1_Change()事件中加入代码Dir1.Path=Drive1.Drive B在Dir1_Channge()事件中加入代码Drive1.Drive =Dir1.Path C在Dirve1_Channge()事件中加入代码Dir1.Path=Drive1.DriveD在Dirve1_Channge()事件中加入代码Drive1.Drive =Dir1.Path 25.VB程序中通常不会产生错误提示的（D）。A编译错误B实时错误 C运行时错误 D逻辑错误二、填空题（每空1分）1数学表达式写成等价的Visual Basic表达式为10(1/2)*cos(

8、50*3.14/180)。2删除在C盘TEMP目录下所有以tmp为后缀的文件的语句为Kill C:TEMP*.tmp。3Visual Basic程序开发有三种模式，即 设计 模式、 运行 模式和 中断 模式。4执行指令Line(200,300)-(400,500)后，CurrentX= 400。设CurrentX=50,CurrentY=100，执行指令“Line(100,20)-Step(300,500)”后，CurrentY = 520 。5ADO数据模型中一般可通过Connection对象的Execute方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。6已知a=3,b=4

9、,c=5,表达式a.b and Not ca Or cb And ca+b的值是 True 。7为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为Picture1. Picture = LoadPrcture(picturefile.jpg)。8设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从0到5，第二维下标从-2到5，则相应的数组声明语句为Dim A(0To5,-2To5) As String。9Visual Basic一般用4种类型的文件保存，分别是扩展名为 .frm 的窗体文件，扩展名为 .bas 的

10、标准模块文件，扩展名为 .cls 的类模块文件和扩展名为.vbp的工程文件。10将图片框PictureBox的AutoSize属性设置成 Ture 时，图片框能自动调整大小，以适应其中的图片。11若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向 右 ，Y轴的正向向 上 。12 Left(“abcd”,2)函数的返回值是 ab ; Right(“abcd”,2)函数的返回值是 cd 。13Vb应用程序与数据库进行通信的主要机制称为 数据引擎 。 14Winsock控件主要用来编制TCP/IP 或UDP协议的通话程序。15假设ADOcn为一个Conne

11、ction对象，那么在VB程序中声明ADOcn的语句是 Dim ADOcn As Connection 。16在VB中，将Foxpro称为外部数据，Access称为本地数据，SQL Server称为 远程数据。17常用的VB网络编程控件主要有Winsock 、Internet Transfer、WebBrowser三种。18以(600,600)为圆心，以800为半径，用ForeColor颜色绘制一个圆形，其实现的代码是Circle(600,600),800。19以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。将程序段补充完整。Private Sub Drive1_Ch

12、ange() Dir1.Path=Drive1.Drive End SubPrivate Sub Dir1_Change() File1.Path=Dir1.Path End Sub20. 在Visual Basic程序中实现复制文件”d:text.doc”到e:盘根目录下的语句为 FileCopy”d:text.doc”,”e: text.doc”三、阅读程序题 阅读下列程序并写出程序运行结果1Private Sub Command1_Click() x = 0 Do While x 20 x = (x + 1) * (x +3) n = n + 1 Loop Text1.Text = St

13、r(n) Text2.Text = Str(x) Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub文件框Text3的结果是：262. Private Sub Command1_Click() Dim x As IntegerStatic s As Integer x = Val(InputBox(请输入一个正整数=) If x 3 Then a = a + 5 Else a = a + 2 End If Next iPrint i, aEnd Sub 写出程序运行时单击窗体后，Form1上的输出结果。7 218.Sub Change(B

14、yVal 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上的输出结果 4 33 4四、完善程序题 1列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表

15、框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。Private Sub Form_Load() List1.AddItem 北京-上海 List1.AddItem 北京-广州 List1.AddItem 北京-四川 List1.AddItem 北京-西安 List1.AddItem 北京-哈尔滨 List1.AddItem 北京-沈阳 List1.AddItem 北京-长春End SubPrivate Sub Comma

16、nd1_Click() If Text1.Text Then 1 List1.AddItem Text1.Text 将文本框中的内容加到列表框中 Text1.Text = 2 Else MsgBox 请在文本框中输入信息！ End IfEnd SubPrivate Sub Command2_Click() 3 List1.RemoveItem List1.ListIndex 删除选定的项目End SubPrivate Sub Command3_Click() If Command3.Caption = 4 修改 Then Text1.Text = 5 List1.Text Text1.SetF

17、ocus Command1.Enabled = False Command2.Enabled = 6 False Command3.Caption = 修改确认 Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = 7 Command3.Caption = 修改 End IfEnd Sub2在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1

18、中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图2所示。程序代码如下，请补充完整Private Sub Form_Load() Drive1.Drive = 1 D: File1.Pattern = *.bmp;*.gif;*.jpgEnd SubPrivate Sub Drive1_change() Dir1.Path = 2 Drive1.Drive Text1.Text = Drive1.DriveEnd SubPrivate Sub Dir1_Change() 3 File1.Path = D

19、ir1.Path Text1.Text = 4 Dir1.Path End SubPrivate Sub File1_click() Picture1. 5 Picture = LoadPicture(File1.Path + + File1.FileName) FileName = File1.Path + + File1.FileName Text1.Text = FileNameEnd Sub3使用顺序文件读写方式编写一个简单的记事本应用程序，其运行界面如图3所示。基本逻辑是：假设在以D盘的根目录下有一个名为exam.txt的文本文件。当点击“打开”按钮(Command1)时，程序将ex

20、am.Txt文件中的内容显示在文本框(Text1)中，当点击“新建”按钮(Command2)时，清空Text1中的内容；用户可以在Text1中进行编辑操作，当点击“保存”按钮(Command3)时，将Text1中的内容保存在exam.txt文件中。当点击“退出”按钮(Command4)时关闭本窗体。程序代码如下，请补充完整Private Sub Command1_Click() Dim A As String Text1 = Open 1 D:exam.txt For Input As #1 Do While Not EOF(1) Input #1, A Text1 = Text1 +2 A

21、Loop 3 Close #1 End SubPrivate Sub Command2_Click() 4 Text1 = End SubPrivate Sub Command3_Click() Open C:F1.Txt For Output As #1 5 Write #1, Text1 Close #1End SubPrivate Sub Command4_Click() Unload MeEnd Sub4已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students

22、表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如图4所示。程序如下，请补充完整。声明对象变量ADOcn，用于创建与数据库的连接Private ADOcn As ConnectionPrivate Sub Form_Load()连接SQL Server数据库Dim strDB As StringstrDB = Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = 1 学生； If ADOcn Is N

23、othing Then Set ADOcn =2 New Connection ADOcn.Open strDB End IfEnd SubPrivate Sub Command1_Click()增加学生记录Dim strSQL As StringDim ADOrs As 3 New； RecordsetADOrs.ActiveConnection=ADOcnADOrs.Open “Select 学号 From Students Where 学号=”+” “+Text1+” “If Not 4 ADOrs.EOF Then MsgBox “你输入的学号已存在，不能新增加！”Else StrSQ

24、L=”Insert Into students (学号,姓名,籍贯, 性别) StrSQL=strSQL+Values(”+” “+text1+” , “+text2+” , “+text3+” , “+text4+” )”ADOrs.Execute 5 strDB MsgBox “添加成功，请继续！”End IfPrivate Sub Command2_Click()Unload MeEnd Sub5创建一个绘图程序。当程序运行时，单击“绘图“按钮，在窗体的Picture控件上画出-p，p即-3.14,3.14区间的余弦曲线。要求将图片框的坐标系定义为左上角为（-4，2），右下角为（4，-2

25、），并在图片框中画出坐标的x轴和y轴。程序运行界面如图5所示Private Sub Command1_Click() 1 Picture1.Scale (-4, 2)-(4, -2) 定义窗体坐标 Picture1.Line (-4, 0)-(4, 0) 画x轴 2 Picture1.Line (0, 2)-(0, -2) 画y轴 Picture1.CurrentX = 0.2 Picture1.CurrentY = -0.1 Picture1.Print 0 标记原点 Picture1.CurrentX = -3.2 Picture1.CurrentY = -0.1 Picture1.Pri

26、nt 3 - 标记“-” 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 = 4 -3.141 To 3.141 Step 0.001 5 Picture1.PSet (i, Cos(i) Next iEnd SubP

27、rivate Sub Command2_Click() EndEnd Sub五、编写程序题1请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序运行结果如图1所示。程序运行界面如图6所示。 图6Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x

28、 100 Then y = x Else If x 200 Then y = 0.95 * x Else y = 0.9 * x End If Text2.Text = y End IfEnd Sub2窗体的左上角坐标（8，6），右下角坐标为（8，6）。以厘米为单位，以坐标原点为圆心，以窗体宽度与高度中最小值的1/3为半径画圆和椭圆，程序运行界面如图2所示。Private Sub Form_Click() ScaleMode = 7 Scale (-8, 6)-(8, -6) 自定义坐标系 Line (-8, 0)-(8, 0) Line (0, 6)-(0, -6) CurrentX = 0.1: CurrentY = -0.1: Print 0 标记坐标原点 CurrentX = 7.5: CurrentY = -0.2: Print xCurrentX = 0.2: CurrentY = 5.5: Print y DrawWidth = 3 Circle (0, 0), 4, vbBlueCircle (0, 0), 4, vbGreen, , , 2.5End Sub本文来自网络，版权归原作者所有，请下载后，尽快删除。11