VB程序设计期末复习资料

1、VB程序设计期末复习资料一、 单项选择题1与传统的程序设计语言相比，Visual Basic最突出的特点是（ ）。A结构化程序设计 B程序开发环境 C事件驱动编程机制 D程序调试技术2后缀为.cls的文件表示VB 的（ ）。A窗体文件 B类模块文件 C工程文件 D标准类模块文件 3窗体的Load事件的触发时机是（ ）。A用户单击窗体时 B窗体被加载时 C窗体显示之后 D窗体被卸载时4把数值型转换为字符串型需要使用的函数是（ ）。AVal BStr CAsc DChr5下列变量名中合法的是（ ）。AIF B7AB CAB7 DAB_76. 要退出ForNext循环，应使用的语句是（ ）。AExi

2、t BExit For CContinue DStop Loop7将定时器的时间间隔设置为1秒，则定时器的Interval属性值应设为（ ）。 A1 B100 C1000 D108键盘事件的执行顺序是（ ）。AKeyPress、KeyDown、KeyUp BKeyDown、KeyPress、KeyUpCKeyUp、KeyDown、KeyPress DKeyUp、KeyPress、KeyDown9要清除List列表框控件中的所有项目，可采用的方法是（ ）。AErase BClear CClick DDelete10如果希望以模态方式显示窗体Form1，下列正确的语句是（ ）。AForm1.Sho

3、w 0 BForm1.Show CForm1.Show 1 D以下都不正确11无论何种控件，共同具有的属性是（ ）。AText属性 BName属性 CCaption属性 DAutosize属性12假定有一个菜单项MenuItem，为了在运行时该菜单无效（变灰），应使用的语句为（ ）。A MenuItem. Enabled=False B MenuItem. Enabled=TrueC MenuItem. Visible=True D MenuItem. Visible=False13在窗体上画两个文本框（其Name属性分别为Text1和Tex12）和一个命令按钮（其Name属性为Command

4、1），然后编写如下事件过程：Private Sub Command1_Click()x = 1:n=0Do While x < 100x = x * 10n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。A10 和0 B2和100 C3和50 D4和16814如果准备读文件，打开顺序文件”text.dat”的正确语句是（ ）。Aopen "text.dat" For wrire As # 1 Bopen "text.dat"

5、; For Binary As # 1 Copen "text.dat" For Input As # 1 Dopen "text.dat" For Random As # 115不属于VB数据库引擎的是（ ）。AODBC B Jet引擎 CBDE DOLE DB16在新建一个“标准EXE”工程后，不在工具箱中出现的控件是（ ）。A列表框 B通用对话框C驱动器列表框 D图片框17设窗体的名称为Form1，则在程序运行过程中，单击窗体时，被执行的事件过程的名称是（ ）。AForm1_Click() B.Form1_DbClick()CForm_Click(

6、) DForm_DbClick()18对于定时器（Timer）控件,设置其定时是否开启的属性是（ ）。AIndex BTag CEnabled DInterval19在Visual Basic中，工程文件的扩展名为（ ）。A.frm B.vbp C.cls D.bas20有程序代码如下： Text1.Text = "欢迎走进VB世界！"则Text1，Text ，和"欢迎走进VB世界！"分别代表（ ）。A对象，值，属性 B对象，属性，值 C对象，方法，属性 D属性，对象，值 21以下叙述中正确的是（ ）。A窗体的Name属性指定窗体的名称，用来标识一个窗体

7、 B窗体的Name属性的值是显示在窗体标题栏中的文本C可以在运行期间改变对象的Name属性的值 D对象的Name属性值可以为空22要设置命令按钮的背景图形，必须设置的两个属性是（ ）。AStyle和Picture BStyle和IconCCaption和Picture DValue和Icon 23目录列表框的Path属性的作用是（ ）。A显示当前驱动器或指定驱动器上的某目录下的文件名 B只显示当前路径下的文件 C显示根目录下的文件名D显示当前驱动器或指定驱动器上的路径 24将数据" China"项添加到列表框（List1）中成为第一项应使用的语句是（ ）。AList1.Ad

8、dItem 0, " China" BList1.AddItem 1, " China" CList1.AddItem " China" ,0 DList1.AddItem " China" ,1 25下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为（ ）。APicture1=" pic1.jpg " BPicture1 =LoadPicture("pic1.jpg") CPicture 1.Picture=LoadPicture("

9、;pic1.jpg") 26. 在VB应用程序中，进行断点设置的按键是（）。ACtrl+F9键BF9键CCtrl+F8键 DF8键 27使用ADO对象模型时，使Recordset和Connection对象建立连接的属性是（ ）。 AOpen BExecuteCCommandType DActiveConnection28关于对象的属性不正确的是（ ）。A对象的属性一般有属性名和属性值 B可通过属性窗口设置属性的值C可通过程序代码设置属性的值 D对象的所有属性值均可在设计时设计29在VB中，下列变量名不合法的是（ ）。Afile_1 Bfile Cfile-1 Dfile_1_230在

10、设计动画时，用时钟控件来控制动画速度的属性是（ ）。 AEnabled BMove CInterval DTimer 31要从ForNext循环中退出循环，应使用（ ）语句。AExit BExit For CContinue DStop Loop32文本框ScrollBars属性设置了非零值，却没有效果，原因是（ ）。 A文本框中没有内容 B文本框的Locked属性为TrueC文本框的MultiLine属性为True D文本框的MultiLine属性为False33要利用公用对话框控件来显示“打开文件”对话框，需要调用控件的（ ）方法。AShowPrinter BShowOpen CShowS

11、ave DShowColor34下列赋值语句正确的是（ ）。Ax = y +z By + z = x C-y= x D4 = x +y35确定一个控件在窗体上位置的属性是（ ）。AWidth和Height BWidth或Height CTop和Left DTop或Left 36如果希望以模态方式显示窗体Form1，下列正确的语句是（ ）。AForm1.Show 0 BForm1.ShowCForm1.Show 1 D以下都不正确37用语句Dim A(-2To 3)As Integer所定义的数组的元素的个数是（ ）。 A3 B4 C5 D638如果创建了命令按钮的控件数组，那么Click事件的

12、参数是（ ）。ACaption BTagCIndex D没有参数39如果要在窗体代码编辑器的”通用”部分定义私有Sub过程，则正确的语句是（）。APublic Sub BPrivate SubCPublic Function DPrivate Function二、 填空题1设A=2，B=3，C=4，D=5。表达式Not A<=C Or 4*C = B2 And B<>A+C的值为 。2在调用过程和函数时， 可作为独立的基本语句调用，但不直接返回值。 要返回一个值。在调用程序中要把被调用的函数作为表达式的一部分。3为了在运行时把当前路径下的图形文件picturefile.jpg

13、装入图片框Picture1，所使用的语句为 。4在Visual Basic的转换函数中将数值转换为字符串的函数是 ；将字符转换为相应的ASCII码的函数是 。 5执行指令“Line(100,20)-Step(300,500)”后，CurrentY = 。6计时器控件响应的事件是 。 7在Visual Basic中，变量的默认类型是 。8为了在运行时把当前路径下的图形文件show.jpg装入图片框P1，所使用的语句为 。9用Dim A(-2 to 3)语句声明二维数组后，数组A的元素共有 个。10. VB中参数传递的机制有两种，一种是 参数，另一种是 参数。11若窗体的左上角坐标为（-200，2

14、50），右下角坐标为（300，-150），则X轴的正向向右，Y轴的正向向 。12若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向 ，Y轴的正向向 。13用Dim A(3,3)语句声明二维数组后，数组A的元素共有 个。14设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到3，第二维下标从0到3，则相应的数组声明语句为 。15.果不适先确定变量的数据类型，则可以把它声明为 变量。 三、阅读程序题1运行下列程序，回答问题。Private Sub Form_Click() Dim A(1 To 3) As String Di

15、m c As Integer,j As Integer A(1) = “3” A(2) = “6” A(3) = “9” c=0 For j=1 to 3 c = c + Val(A(j)Next jPrint cEnd Sub 在程序右边写出程序运行时单击窗体后，窗体Form1上的结果。2Private Sub Command1_Click()x = 0Do While x < 60x = (x + 2) * (x + 3)n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)Text3.Text = Val(Text1.Text) +

16、Val(Text2.Text)End Sub写出程序运行后，文件框Text3的结果。3.Private Sub Form_Click() Static a As Integer Dim b As Integer a = a + 3 b = b + 4 Text1 = a Text2 = bEnd Sub写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。4.Private Sub Command1_Click() Dim a As Integer, b As Integer a = 2: b = 3 For i = 1 To 3 For j = 1 To i b = b +

17、 j Next j a = a + b Next i Print aEnd Sub写出程序运行时单击命令按钮后，窗体Form1上的输出结果。5Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 2c = 3For j = 1 To 5 If j > 3 Then c = c + 5 Exit For Else k = k + 5End IfNext jPrint c, kEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。6. Private Sub Command1_Click()

18、Dim X As Integer, Y As Integer X = 1 : Y = 1 For i = 1 To 4 For j = 1 To i Y = Y + j Next j X = X + Y Next i Print XEnd Sub 写出程序运行时单击命令按钮后，窗体Form1上的输出结果。三、 完善程序题1、程序界面如图1所示。两个文本框一个用于输入摄氏温度数(文本框名为Text1)，另一个用于输出对应的华氏温度(文本框名为Text2)。摄氏温度C与华氏温度F的转换公式是：C=（5/9）*（F-32）。同时文本框输入摄氏温度数时要求具有检查功能，以拒绝接收非数字字符。三个命令按

19、钮的名称分别是 ：“开始”：Command1，“下一个”Command2，“结束”Command3。程序如下，请补充完整。 图1Private Sub Command1_Click() 1 Command1.Visible = 2 Command2.Visible = True Command3.Visible = TrueEnd SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = 3 Command1_ClickEnd SubPrivate Sub Command3_Click() EndEnd Sub

20、Private Sub Form_Load() Command2.Visible = False Command3.Visible = FalseEnd SubPrivate Sub Text1_Change () Text2.Text = 4 End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If (48 > KeyAscii Or KeyAscii > 57) Then 5 End Sub2、假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信

21、息，如图1所示。现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。 图1用Access创建的学生基本情况数据表图2 查询程序运行界面程序如下，请补充完整。Private ADOcn As ConnectionPrivate Sub Form_Load() 1 2 End

22、 SubPrivate Sub Command1_Click() Dim strSQL As String Dim ADOrs As 3 Recordset ADOrs.ActiveConnection = 4 strSQL = "Select * From 学生基本情况 Where 学号=" + " ' " + Text1 + " ' " 5 If Not ADOrs.EOF Then Text2 = ADOrs.Fields("学号") Text3 = ADOrs.Fields("姓名

23、") Text4 = ADOrs.Fields("籍贯") Else MsgBox "要查询的学号不存在，请重新输入!", vbOKOnly, "信息提示" Text1 = "" Text1.SetFocus End IfEnd Sub Private Sub Command2_Click() UnLoad Me End3、要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名程添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表

24、框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如下图所示。List1Command3Command2Command1Text1 程序如下，请补充完整。Private Sub Form_Load() List1.AddItem "Visual Basic程序设计" List1.AddItem "SQL SERVER数据库应用" List1.AddItem "信息管理系统" List1.AddItem "ERP原理与应用" List1.AddItem "网络实用技术基础" List1.AddItem "系统开发规范与文档编写" List1.AddItem "信息系统测试"End SubPrivate Sub Command1_Click() If Text1.Text <> "" Then 1 Text1.Text '将文本框中的内容加到列表框中 Text1.Text = "" 2 MsgBox "请在文本框中输入信息！