《VB程序设计》期末复习要点

《VB程序设计》期末复习要点

重点复习内容:

通过本课程的学习,要求重点掌握:

1. VB窗体的属性,事件和方法,常用的控件的公用属性和常用标准控件.

2. VB常用的数据类型,常量的定义,变量的命名,变量的声明及作用域.

3. 常用的表达式.

4. For…Next循环,Do…Loop循环,If…Then…Else条件判断语句,Select Case语句.

5. 一维数组,二维数组的声明与存取.

6. 过程的声明与调用.

7. 菜单编辑器,输入对话框,消息输出对话框及系统对话框的使用.

考试题型及分值:

1. 判断题共10题(每题1分,共10分)

2. 单项选择题10题(每题2分,共30分)

3. 填空题10空(每空2分,共20分)

4. 阅读程序,写出程序运行结果2题(每题10分,共20分)

5. 程序填空( 共20分)

复习题:

判断题(正确的打√,错误的打×)

( )1.VB对象就是窗体和控件.

( )2.事件是VB对象可以响应的用户操作.

( )3.文本框和标签框通过同一属性在窗体上显示文字.

( )4.For…Next循环结构的默认步长为1.

( )5.对象的属性都可以在程序中通过语句设置.

( )6.能够改变多项选择框中背景颜色的属性是BackColor.

( )7.使用Open语句可以创建新的顺序文件.

( )8.要在窗体上添加控件,从工具箱中将控件拖到窗体上即可.

( )9.所有对象的属性都可以在属性窗口中设定.

( )10.标签没有change事件和setFocus方法.

( )11.方法Form1.show与Form1.visible=True是等效的.

( )12.Msgbox函数建立的信息框既能显示信息又能输入用户的信息.

( )13.Do…Loop Until语句实现循环时,不管条件真假,首先无条件地执行一次循环.

( )14.函数Str(23)与Str(-23)的值的长度相同.

( )15.变量名的第一个字符必须是字母.

( )16.InputBox函数和MsgBox函数一样,返回的是字符串.

( )17.改变窗体的标题也就是改变其属性窗口中的name属性.

( )18.文本框控件有Caption属性.

( )19.在Visual Basic中,向过程传递参数时,按地址传递参数是缺省的.

( )20.在工具箱内双击命令按钮图标,便会在窗体上建立一个命令按钮.

● 单项选择题

1.若要求从文本框中输入密码时在文本框中只显示* 号,则应在此文本框的属性窗口中设置( ).

A,Text属性值为* B,Caption属性值为*

C,Password属性值为空D,Passwordchar属性值为*

2.在文本框的属性中,用于设定文本框最多可接受字符数的属性是( ).

Autosize B,Passwordchar

C,Text D,Maxlength

3.要使Listbox可以单击鼠标或按空格键来实现复选,属性Multiselect的值应设为( ).

A,0 B,1 C,2 D,3

4.使文本框能显示滚动条,必须首先设置的属性是( ).

A, AutoSize B, Alignment C, Multiline D, Scrollbars

5.以下关于窗体的描述,正确的是( ).

A,只有用于启动的窗体可以有菜单.

B,窗体事件和窗体中所有控件事件的代码都放在窗体文件中.

C,窗体的名字和存盘的窗体文件名必须相同.

D,开始运行时窗体的位置只能是设计阶段时显示的位置.

6.下列变量命名正确的是( ).

A,myfile B,1vb C,page@2 D,cmd..1

7,以下可以构成语句一项是( ).

A,对象名.属性名B,对象名.方法名C,对象名.事件名D,对象名.函数名

8.要改变文本框中显示的文本,可以在属性窗口中改变( )属性.

A,Caption B,Name C,Text D,Label

9.若要求从文本框中输入密码时在文本框中只显示#号,则应在此文本框的属性窗口中设置( ).

A,Text属性值为# B,Caption属性值为#

C,Passwordchar属性值为# D,Passwordchar属性值为真

10.VB为命令按钮提供的Cancel属性是( ).

A,用来指定命令按钮是否为窗体的"取消"按钮

B,用来指定命令按钮的功能是停止一个程序的运行

C,用来指定命令按钮的功能是关闭一个运行程序

D,用来指定命令按钮的功能是中断一个程序的运行

11.VB提供的多项选择控件(CheckBox)具有功能是( ).

A,多重选择B,单一选择

C,多项选择D,选择一次

12. 将通用对话框控件CommonDialog1的类型设置为"打开"对话框,可调用该对话框的( )方法.

A,Load B,Show C,ShowColor D,ShowOpen

13.调试程序时,要执行单个语句或一组语句时,需要处于( )窗口.

A,立即B,监视C,Code D,中断

14.设定文本框中是否可以接受多行文本要用到( )属性.

A,Maxlength B,Height C,Multiline D,Text

15.改变控件在窗体中的上下位置应修改控件的( )属性.

A, Top B,Left C,Width D,Height

16.循环结构For i!=1 to 11 step 2 共执行几次( ).

A, 6 B, 7 C, 9 D, 10

17.定义数组Array(1 to 5,5) 后,下列哪一个数组元素不存在( ).

A, Array(1,1) B, Array(1,0) C, Arry(0,1) D, Array(5,5)

18.有子程序定义Public Sub aaa(a as Integer, b as Single),正确的调用形式是( ).

A,Call aaa(,) B,Call sub(1,1.2) C,aaa 1,1.2 D,sub 1,1.2

19.菜单控件不同于其它VB控件,它只有一个事件——( ) .

A,Click B,KeyDown C,KeyPress D,LostFocus

20.将通用对话框CommonDialog1的类型设置成"另存为"对话框,可调用该对话框的( )方法. A,Showopen B,ShowSave C,ShowColor D,ShowFont

21.当运行程序时,系统会自动执行启动窗体的( )事件过程.

A,Load B,Click

C,UnLoad D,GotFocus

22.不论何控件,共同具有的是( )属性.

A,Text B,Name

C,ForeColor D,Caption

23. 当文本框的内容改变时,引发的事件是( ).

A,GotFocus B,Load

C,Change D,UnLoad

24."x是小于10 的非负数",用VB表达式表示正确的是( ).

A,0<=x<10 B,0<=x<10

C,0<=x And x<10 D,0<=x Or x<10

25. 表达式Len("123程序设计ABC")的值是( ).

A,14 B,10 C,20 D,17

填空题

1,2003 MOD 4 = ; SQR(25)= .

2,Line(100,100)–Step(300,300)将在窗体到画一直线.

3,Do…Loop Until 循环结构中,当条件为时结束循环.

4,VB中的变量按其作用域可分为: , 和

变量.

5,语句Exit Sub的作用是: .

6,要设置命令按钮的背景色,首先必须使它的Style属性值设置为.

7,ABS(-0.98)= ; INT(45.02)= .

8,多项选择控件(CheckBox) 属性设置为2-Grayed时,变成灰色,禁止用户选择.

9,常用的循环结构有: 和.

10,在图片控件Picturebox 的属性中,可以决定控件是否自动改变大小的属性是,若使Picturebox控件可以自动改变大小,该属性值应为.

11,x和y中有且只有一个为0,用表达式表示为.

12,VB的窗体和控件是具有自己的, 和的对象.

13.把条件1x<12写成VB关系表达式为.

14."Visual"&"Basic"运算结果为.

15.要改变控件的宽度,应修改该控件的属性.

16.Dim b1,b2 as boolean语句显式声明变量b1是变量,b2是

变量.

17.函数Str(-459.65)的值为.

读程序题,写出程序运行结果

1.

Dim Sub Commandl_Click( )

Textl.Text ="努力"

End Sub

Dim Sub Command2_Click( )

Textl.Text ="学习"

End Sub

单击Command2按钮,在文本框中显示__________________________.

2.

Private Sub Form_Click()

score = Int(Rnd * 10) + 30

Select Case score

Case Is<10

A$ ="F"

Case 10 To 19

A$ ="D"

Case 20 To 29

A$ ="C"

Case 30 To 39

A$ ="B"

Case Else

A$ ="A"

End Select

Print A$

End Sub

当VB执行上面的语句后,输出的结果是:__________________________.

3.

Private Sub Form_ load ( )

MsgBox"学习"

End Sub

运行结果:__________________ .

4.

Private Sub Command1_Click()

Dim i%, s%

For i = 1 To 3

s = sum(i)

Form1.Print"s="; s

Next i

End Sub

Private Function sum(n As Integer)

Static j As Integer

j = j + n + 1

sum = j

End Function

写出程序运行后,单击命令按钮1次后,窗体上输出结果______________.

● 程序填空( 共20分)

1.工程装入时弹出输入窗口,输入数据后关闭窗体.

Private Sub Form_ [ ] ( ) [4]

InputBox"请输入数据"

[ ] [5]

End Sub

2,程序填空

建立一个求和功能的窗体及程序,要求:

窗体格式如下图所示.

对象属性表(请在下划线处补充填空)

对象属性设定值

Form Name FrmSum

(窗体) Caption _______________ (1)

Fontname 宋体

CommandButton Name cmdSumNumber

Caption _______________ (2)

对象属性设定值

CommandButton Name CmdExit

Caption _______________ (3)

Textbox Name TxtResult

(文本框) Alignment 0_左对齐

MultiLine True

Enabled False

Label Name LblNum

(标签) Caption _________________ (4)

Verticle scroll Bar Name VsbSum

Max 100

Min 1

Value __________________(5)

(3)求和程序:可执行从1到选取的数字之间的整数的累加运算.

(4)单击"总计"按钮,可执行从1到选取的数字之间的整数的累加运算,并显示在文本框中,文本框不允许直接输入数字.

(5)如果单击"结束"按钮,则终止程序.

程序代码如下(请填空):

Option Explicit

Private Sub CmdExit_Click()'单击"结束"按钮

__________________ (6)

End Sub

Private Sub ____________________(7)Click()'单击"总计"按钮

Dim N

Dim M

For N = 1 To__________________________ (8) Step 1

M = M + N

Next

TxtResult. _____________(9) = Str(M)

End Sub

Private Sub vsbSum_Change()'选取数字

LblNum ="选取数字:"+ Str(vsbSum.Value)

End Sub

Private Sub vsbSum ______________ (10) ()

vsbSum_Change

End Sub

3.

上图3为运行后的VB程序

(1)当按下[显示]按钮时,在文本框中显示"欢迎使用Visual Basic 6.0", 按下[清屏]按钮时清除文本框中显示的内容,按下[退出]按钮时退出程序.请补全相对应的单击事件代码.

Private Sub Command1_Click( )'按下[显示]按钮

_____________________________ (1)

End Sub

Private Sub Command2_Click( )'按下[清屏]按钮

_____________________________ (2)

End Sub

Private Sub Command3_Click( )'按下[退出]按钮

__________ (3)

End Sub

(2)当选择字体外观和字体名称时,触发下面的事件,请补全代码.

Private Sub Check1_Click( )'字体外观的多项选择

If Check1.Value = 1 Then

Text1.FontBold = _________ (4)'"粗体"被选中

Else

Text1.FontBold = False

End If

End Sub

Private Sub Check2_Click( )

If Check2.Value = ________ Then (5)'"斜体"被选中

Text1.FontItalic = True

___________ (6)

Text1. ____________ = False (7)

End If

End Sub

Private Sub Check3_Click( )

If Check3.Value = 1 Then

Text1.______________ = True (8)'"下划线"被选中

Else

Text1.FontUnderline = False

End If

End Sub

Private Sub Option1_Click( )'字体名称选宋体

Text1.FontName ="宋体"

End Sub

Private Sub Option2_Click( )

Text1.FontName ="___________"(9)'字体名称选隶书 End Sub

Private Sub Option3_Click( )

____________________ ="黑体"(10)'字体名称选黑体 End Sub