VB作业答案

第一周1.3同步练习题

一.选择题

1.以下不能在“工程资源管理器”窗口中列出的文件类型是D..ocx

2.以下叙述中错误的是C.程序运行后,在内存中只能驻留一个窗体

3.Visual Basic 6.0包括三种版本,其中不包括C.学习版

4.Visual Basic程序设计语言属于C.面向对象的语言

5.假定一个Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为

了保存该应用程序,以下操作正确的是 B.分别保存窗体模块、标准模块

和工程文件

6.通过下面B.窗体布局窗口可以在设计时直观地调整窗体在屏幕上的位置。

7.以下叙述中错误的是C. Visual Basic 应用程序中可以有多个活动窗体

8.对象所能做的动作称为对象的A.方法

9.下列关于事件的叙述中不正确的是D. Visual Basic 中所有对象的默认事

件都是Click

10.一只漂亮的酒杯被摔碎了,则漂亮、酒杯、摔、碎了是D.属性、对象、

事件、方法

11.用一个程序段对某一对象被单击(或双击)做出响应,从而实现指定的

操作,称为B.事件驱动编程机制

12.以解释方式执行程序的过程是边逐条解释边执行,不生成A.目标程序

13.以下有关对象属性的说法中正确的是D.对象的某些属性既可在属性窗口

中设置,也可通过程序代码设置或改变

14.下列叙述正确的是C.不同的对象能识别不同的事件

15.在Visual Basic中最基本的对象是B.窗体,它是应用程序的基石,是其他

控件的容器。

16.以下叙述中错误的是D.对象事件的名称可以由编程者指定。

17.下列叙述正确的是D.事件是对象能够识别的动作。

18.在Visual Basic工程中,可以作为“启动对象”的程序是D. Sub Main过程

或任何窗体。

19.在设计阶段,当双击窗体上的某个控件时,所打开的窗口是C.代码窗口。

20.在Visual Basic应用程序中,在程序中流动的不是一般的数据而是A.事件。

21.Visual Basic一共有设计、运行和中断3种模式,要使用调试工具应该C.

进入中断模式。

22.在代码编辑器中,如果一条语句过长,不能在一行内写下,则需要折行

书写,用户可以通过在行末使用续汗符来实现的,该续行符表示为 B.一

个空格加一个下划字符(_).

23.Visual Basic是一种面向对象的程序设计语言,对象的三要素包括B.属性,

事件,方法。

24.以下叙述中,错误的是C.标准模块文件可以属于某个指定的窗体文件。

25.新建一个标准EXE工程后,不在工具箱中出现的控件是C.通用对话框。

26.在设计阶段,双击窗体Form1的空白处,打开代码窗口,显示C. Form_Load

事件过程。

27.当需要上下文帮助时,选择要帮助的“难题”,然后按C.F1键,就可出现

MSDN窗口及显示所需“难题”的帮助信息。

28.Visual Basic有多种类型的窗口,若要在设计时看见窗体窗口,以下操作

不正确的是B.双击Visual Basic窗口工作区的空白处。

29.下面关于属性与方法的描述中,不正确的是B.属性和方法都有值。

30.不能在窗体上选择多个控件的方法B.有单击每个控件。

二.填空题

1.为了把一个Visual Basic应用程序装入内存,只要装入工程文件即可。

2.面向对象的程序设计方法是把程序和数据封装起来作为一个对象,并对每一个对象设置所需的属性。

3.Visual Basic 是一种面向对象的可视化程序设计语言,采用事件驱动的编程机制。

4.对象的属性是指描述对象的某些特征,方法是指为了处理事件触发后的一系列操作。

5.对象是代码和数据的集合,例如,Visual Basic 中的窗体、控件、菜单等都是对象。

6.开发一个应用程序必须完成以下两项工作:一是设计对象属性;二是编写事件过程代码。

7.在属性窗口中,属性的显示方式分为“按字母顺序”和“按分类顺序”。

8.Visual Basic 应用程序通常由3类模块组成,即窗体模块、标准模块和类模块。

9.当进入Visual Basic 集成环境,发现没有显示“工具箱”时,应选择视图的工具箱选项,是工具箱显示在窗口。

10.工程资源管理器窗口上有3个按钮,它们分别是代码按钮、对象查看按钮和切换文件夹按钮。

11.窗体布局窗口用于指定在程序运行时窗体在屏幕上的初始位置,用户通过鼠标拖动就可以改变窗体位置,并能直接观察到效果。

12.Visual Basic6.0的退出方式也有多种,可以使用快捷键Alt +Q。

2.3 同步练习题

一、选择题

1.在以下有关对象属性的叙述中错误的是(D。Enabled属性值False的控件对象在窗体上将

不可见)。

2.以下关于Name的说法,错误的是(http://m.wendangku.net/doc/7654c17bbf23482fb4daa58da0116c175f0e1efc.html属性可以在属性窗口修改,也可以在代码中

修改)。

3.在Visual Basic中,所有的窗体和控件一定具有的一个属性是(http://m.wendangku.net/doc/7654c17bbf23482fb4daa58da0116c175f0e1efc.html)。

4.用于设置删除线的属性是(A.FontStrikethru)。

5.运行时,要给窗体Form1加载“C:\WINDOWS\Clouds.bmp”图像文件,应使用语句(D.Form.picture=LoadPicture(“C\WINDOWS\Clouds.bmp”)。

6.运行时,不能清除窗体Form1中的图像文件的语句是(A.Form1.Picture=””)。

7.窗体Form1的Name属性是Frm1,它的单击事件过程名是(B.Form_Click)。

8.运行时,要在窗体Form1中打印字符串“How Are You”,应使用语句(C.Form1.Print”How Are You”)。

9.用于设置粗体字的属性是(C.FontBold)。

10.将窗体的(A.Enabled)属性设置为False后,运行时窗体上的按钮、文本框等控件就不会对用户的操作做出响应。

11.在设计阶段,双击窗体Form1的空白处,打开代码窗口,显示(B.Form_Load)事件过程模板。

12.Visual Basic中最基本的对象是(B.窗体),它是应用程序的基石。

13.执行多窗体应用程序后(B.允许同时打开多个窗体)。

14.关于多窗体应用程序的叙述正确的是(B.连续向工程中添加多个窗体,会生成多个窗体模块)。

15.将一个窗体设置为MDI子窗体的方法是(B.将窗体的MDIChild属性设置为True)。

16.以下叙述中错误的是(C.窗体的Hide方法和Unload方法的作用完全相同)。

17.工程中有2个窗体,名称分别为Form1、Form2,Form1为启动窗体。要求程序运行后单击Form1时显示Form2,则Form1的单击事件应该是(A.Private Sub Form_Click() Form2.Show)

18.某人创建了一个工程,其中的窗体命名为Form1,之后又添加一个名为Form2的窗体,并希望执行程序时先显示Form2窗体,那么,他需要做的工作是(A.在工程属性对话框把“启动对象”设置为Form2)。

19.以下叙述中正确的是(A.窗体的Name属性指定窗体的名称,用来标识一个窗体)。

20.如果要在应用程序中添加另一个窗体,正确的操作方法是(B.在“工程”的下拉菜单中选择“添加窗体”命令)。

21.在当前工程中添加一个新的窗体,错误的操作是(C.在代码窗口或属性窗口中输入一个新的窗口名称,即自动建立一个新的窗体)。

22.要设置工程中某一个窗体为启动窗体,必须的操作步骤是(C.打开“工程属性”对话框,选择作为启动窗体的窗体名称)。

23.下列语句中,在运行时能使Form1窗体上的输出文本刷新显示的语句是(A.Form1.Refresh)。

24.在多窗体设计时,“工程资源管理器”窗口是非常有用的窗口。关于“工程资源管理器”窗口功能的说明,错误的是(C.在“工程资源管理器”窗口中某一图标左边方框内有“-”号表示已经被移走。

25.要将名为MyForm的窗体显示出来,正确的方法是(A.MyForm.Show)。

26.下列叙述错误的是(C.一个窗体一定对应一个窗体文件,所以一个应用程序只能包含一个窗体)。

27.关于启动窗体的说法错误的是(B.系统默认将最后一个被编辑的窗体作为启动窗体)。

28.在Visual Basic 工程中可以作为“启动对象”的程序有(C.任意窗体或Sub Main过程)。

29.Visual Basic中的MDI窗体指的是(D.多文档界面)窗体。

30.关闭MDI窗体,会触发的事件是(D.QueryUnload)。

二、填空题

1.绘图属性的CurrentX属性和CurrentY属性在设计时不可用,只能在代码中设置,并且经常和(Print)方法结合使用。在默认坐标系中,首次使用Print方法,CurrentX属性和CurrentY 属性的默认值都是(0,0)。

2.在对象的MouseDown和MouseUp事件过程中,当参数Button的值为1、2时,分别表示按下鼠标的(左键)和(右键)按钮。

3.若要使窗体上的所有控件具有相同的字体格式,应设置(窗体)和(Font)的属性。

4.一个应用程序最多可以有(1)个MDI父窗体。在运行时,MDI父窗体中的子窗体最小化时,其图标将显示在(MDI父窗体)中。

5.要使窗体不能移动,应设置的属性是(Moveable)。

6.在VisualBasic中,设置大部分属性的方法有两种:一是(在属性窗口中设置);二是(在程序代码中设置)。

7.设置窗体背景颜色的属性名称是(BackColor)。

8.窗体有两个属性的默认值是相同的:分别是(Name)和(Caption)。

9.在窗体上输出文本的方法是(Print),清除窗体上输出文本的方法是(Cls)。

10.建立工程并存盘后,除了生成窗体文件外还会生成(工程)文件。

11.程序运行时要使某一个窗体暂时隐藏,但不从内存中清除,应使用(Hide)。

12.要卸载窗体,需要使用语句(Unload)。

13.在“工程资源管理器”窗口中要打开一个窗体,应双击扩展名为(.frm)的文件。

14.在当前工程中添加一个新的窗体,应选择菜单栏(工程)下拉菜单下的选项。

15.要使窗体上没有最大化按钮,应将窗体对象的(MaxButton)属性设置为False。

3.3 同步练习题

一、选择题

1.通过文本框的(D.KeyPress)事件过程可以获取文本框中键入字符的ASCII码值。

3.放置控件到窗体中的最快的方法是(A.双击工具箱中的控件)

5. 要清除组合框Combo1中的所有内容,可以使用(http://m.wendangku.net/doc/7654c17bbf23482fb4daa58da0116c175f0e1efc.htmlbo2.Clear

)语句。

7. 要想在一个文本框中显示多行内容,应在界面设计时对下列哪一个属性进行设置(C.Multiline )

9.在程序中可以通过复选框和单选按钮的(B.Value)属性值来判断它们的当前状态。11.要使控件与框架捆绑在一起,以下操作正确的是(C.在窗体上画好框架,再在框架中画控件)

13.决定控件上文字的字体、字形、大小、效果的属性是(D.Font)

15.要使单击滚动条滑块与两端箭头之间的空白区域时变化值为20,应设置其(D.SmallChange和LargeChange)属性。

17.时钟控件每次经历一个固定的时间间隔就会(B.触发事件)

19.下面(B.CheckBox)控件不支持DblClick事件。

21.能够改变复选框中背景颜色的属性是(Backcolor)

23.选项按钮用于一组互斥的选项中。若一个应用程序包含多组互斥条件,可在不同的(D.框架控件或图片框)中安排适当的单选按钮,即可实现。

25.当组合框的style属性设置为0时,其表现形式为(B.下拉组合框)

27.要使列表框中的每一个文本项的边上都有一个复选框需设置属性。(D.Style)

29.若在窗体上有一个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是(http://m.wendangku.net/doc/7654c17bbf23482fb4daa58da0116c175f0e1efc.htmlbo1.RemoveItem4)

31.如图3-2所示,在窗体上先后画2个图片框,名称分别为P1和P2,P2中加载了图片,且将P2.DragMode属性设为1。要求程序运行时,可以用鼠标P2拖动到P1中,能实现此功能的事件过程是

(B、Private Sub P1_DragDrop(Source As Control,X As Single,Y As Single)

Source.Move P1.Left+X,P1.Top+Y

End Sub)

33.在窗体上画1个文本框和1个时钟控件,名称分别为Text1和Timer1,在属性窗口中把时钟控件的Interval属性设为1000,Eable属性设为False。程序运行后,如果单击命令按钮,则每隔1s钟在文本框中显示一次当前的时间。以下是实现上述程序的程序: Private Sub Commond1_Click()

Timer1._____=Ture

End Sub

Private Sub Timer1_Timer()

Text1.Text=Time

End Sub

在()处填入的内容是(A.Enable=True)

35.在窗体上画1个文本框Text1和1个标签Label1,程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容,以下可以实现上述操作的时间过程是

(B. Private Sub Text1_Change()

Label1.Caption=Text1.Text

End Sub )

37.在窗体上画一个名称为TA的文本框,然后编写如下的事件过程:

Private Sub Ta_KeyPress(KeyAscii As Integer)

...

End Sub .

假定焦点已经定位于文本框中,能够触发KeyPress事件的操作是(D.按下键盘上的某个键)39.如果窗体上有1个命令按钮(确定),在代码编辑窗口有与之相对应的OK_Click()事

件过程,则命令按钮的名称属性和Caption属性分别是(A “OK”和“确定”)

41.窗体的MouseDown的事件过程有4个参数,关于这些参数,这些参数,正确的描述是(A.通过Button参数判定当前按下的哪一个鼠标键)Form_MouseDown(Button As Integer, Shift As Integer,X As Single,Y As Single)。

43.窗体上有1个文本框Text1,然后编写如下事件过程,程序运行后在文本框中输入a,在窗体上显示(C.aC)。

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Print Chr(KeyCode+2);

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Print Chr(KeyAscii);

End Sub

45.若窗体上图片框中有一个命令按钮,则此按钮的Left属是指(B.按钮左端到图片框左端的距离)

47.下列(B.Private Sub Command3_Click())程序段能删除列表框List1中的所有相。

For I=0 To List1.ListCount-1

List1.RemoveItem 0

Next I

End Sub

49.窗体上有一个名称为Frame1的框架,若要把框架上显示的“Frame1”改为汉字“框架”,下面正确的语句是(B.Frame1.Caption=“框架”)。

51.在程序运行的时,下面的叙述中正确的是(C.只装入而不显示窗体,也会执行窗体的Form_Load事件过程)。

53.运行状态,在文本框Txtinput中输入“ABC”时,窗体上显示(C.A ).

AB

ABC

Private Sub Txtinput_Change()

Print txtinput.Text

End Sub

55.设有如图3-3所示窗体和以下程序

Private Sub Command1_Click()

Text1.Text=”Visual Basic”

End Sub

Private Sub Text1_LostFocus()

If Text1.Text<>”BASIC”Then

Text1.Text=””

Text1.SetFocus

End If

End Sub

程序运行时,在Text1文本框中输入“Basic”,然后单击Command1按钮,则产生的结果是(A.文本框中无内容,焦点在文本框中)。

二.填空题

1.Cls方法适用于(窗体)和(图片框)的清除,若是对列表框和组合框进行清空则使用(Clear)

方法。

3.运行状态时,用户无法将光标定位在文本框中,是由于(Enable)的属性为False,用户无法对文本框中已有内容进行编辑,是由于(Locked)的属性为Ture。

5.一般情况下,控件有两个属性项的默认值是相同的,这两个属性项是(Name和Caption)。

7.滚动条控件主要支持两个事件,它们是(Scroll和Change)事件。

9.在程序代码中,使用方法(Hide)和(Show)可以隐藏或显示窗体。

11.在对象的KeyPress事件过程中,参数KeyAscii表示所按键的(ASCII码)值。

13.为了执行对象的自动拖放,必须把该对象的(DragMode)属性设置为(1);而为了执行对象的手动拖放,必须把该对象的(DragMode)属性设置(0)。

15.窗体上有一个组合框,其中已输入了若干个项目。程序运行时,单击其中一项,即可把该项与最上面的一项交换。下面是可实现此功能的程序,请填空。

Private Sub Combo1_Click()

Dim temp

temp=Combo1.Text

(Combo1.List(Combo1.ListIndex))=Combo1.List(0)

Combo1.List(0)=temp

End Sub

17.填写下表中的相关内容

VB作业答案

19.填写相关内容

Private Sub Command2_Click()

Shape1.BorderColor=vbBlue

Shape1.((1)BorderStyle)=2

End Sub

Private Sub Command1_Click()

Shape1.((2)Shape)=3

End Sub

VB作业答案

23.在窗体上从左到右有Text1、Text2两个文本框,要求程序运行时,在Text1中输入1个成绩后按回车键,则判断成绩的合法性,若成绩为0~100中的某个数,则光标移到Text2中,否则Text1中内容反向选中,光标设置在Text1中,并弹出对话框显示“输入成绩不合法”。

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim a As Integer

If ((1)KeyAsicc=13) Then

a =Val(Text1.Text)

If ((2)a<=100) And a>= 0 Then

((3)Text2.SetaFocus)

Else

MsgBox”输入成绩不合法”

Text1.SelStart=0

Text1.SelLength=((4)Len(Trm(Text1.Text))

Text1.SetFocus

End If

End If

End Sub

三、默写

(一)文本框:

属性:

http://m.wendangku.net/doc/7654c17bbf23482fb4daa58da0116c175f0e1efc.html名称

2.Text内容

3.Locked锁定

4.Passwordchar密码显示

5.MaxLength可输入最大字符数

6.MultiLine多行显示

7.ScrollBars滚动条

8.MousePointer鼠标指针

9.MouseIcon鼠标图标

10.SelText选中文本的内容

11.SelStart选中文本起始位置

12.SelLength选择文本的长度

方法:

1.SetFocus焦点

2.Refresh刷新

事件:

1.KeyPress按下某ASCⅡ键触发

2.KeyDown按某键触发

3.KeyUp放起某键触发

4.Change内容变化触发

5.GotFocus得焦点触发

6.LostFocus失焦点触发

(二)标签

属性:

1、 Caption:标签上的文字。

2、 AutoSize:标签随着上面的文字的变化而变化。

3、 BackColor:标签的背景颜色。

4、 Font:设置标签的字体。

事件:

1、 Click:点击标签时发生的。

2、 Change:当标签上面的文本发生变化时发生。

3、 DblClick:当双击标签时发生的。

方法:

1、 Move:移动标签,必须有坐标。如:Label1.Move 0,0将标签移动到坐标植为0,0的位置。

(三)图片框:

属性:

http://m.wendangku.net/doc/7654c17bbf23482fb4daa58da0116c175f0e1efc.html:图片框名称

2.Picture:加载图片

3.Autosize:自动调节图片大小

4.font:字体

5.CurrentX:当前位置的横坐标

6.CurrentY:当前位置的纵坐标

方法:

图片框可以像窗体一样使用Print方法输出文本,使用绘图方法绘制图片,使用Cls方法清除图片和图形

事件:

图片框可以接受Click事件和Dbclick事件

(四)命令按钮:

属性:

1、 Caption:表示按钮上面的文字。

2、 Picture:按钮上面的图片(适用于图片按钮)。

3、 Font:按钮上字体的设置。

事件:

1、Click:点击按钮时发生的。

方法:

1、 Move:移动按钮,必须有坐标值。

(五)组合框:

属性:

1、 ListCount: 用于返回列表框里的选项的总数。

2、Sorted: 列表框里元素的排序方式--值为True:列表项自动按升序排序;False:列表项按插入的顺序排序

3、ListIndex: 表示列表框里当前所选中的项的索引值。

5、 Style:列表框的样式:

值为0:下拉组合框,用户可以选择也可以自己输入;

值为1:简单组合框,由一个文本框和列表框构成,可以选择也可以自己输入;值为2:下拉列表组合框,用户只能从组合框中选择;

6、 Locked:值为True:用户不可以自己输入;False:用户可以自己输入。

事件:

1、 Click:输入用户点击组合框中的选项时发生的。

2、 Scroll:用户滚动滚动条时发生。

3、 Change:当用户改变组合框中的内容时发生。

4、 DropDown:当用户点击向下箭头时发生。

方法:

1、AddItem

2、RemoveItem 用法和列表框一样的。

(六)列表框:

属性:

1、 ListIndex:表示列表框里当前所选中的项的索引值。

如:msgbox List.ListIndex 若当前选中了列表框里的第二项,则返回1

2、 List:表示列表框里的选项内容,后面要加上索引值。

如:Text1.Text=List1.List()若开表框里的第一项为aaa,则文本框Text1,里边的内容为aaa

综合例子:Text1.Text=List1.List(List1.ListIndex)

3、 Sorted:列表框里元素的排序方式--值为True:列表项自动按升序排序;

False:列表项按插入的顺序排序

4、 Selected:设置一个选中的状态,后面要加上索引值--值为True:表示选中;

False:表示未选中;

如:If List1.Selected(0)=True then

List1.RemoveItem 0

End If

5、 MultiSelect:指定列表框里的选项是否可以多选。

值为1:每次只能从中选择一项;

值为2:可以普通多选,只用鼠标实现;

值为3:可以多选,用Ctrl+鼠标或Shift+鼠标实现

6、 ListCount:用于返回列表框里的选项的总数。

事件:

1、 Click:点击列表框中的选项时发生的。

2、 Scroll:滚动列表框的滚动条时发生的。

方法:

1、 AddItem:向列表框中的添加选项,后面跟添加的内容

如:List1.AddItem"APPLe"

2、 RemoveItem:从列表框中删除一选项,后面跟索引值

如:List1.RemoveItem 0 表示删除列表框中的第一项,若删除全部选项应用循环实现

3、 SetFocus:使列表框获得焦点

4、 Clear:清空列表框里的列表项

3.3 同步练习题

一、选择题

2.若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的(D.BackStyle)。

4.Image控件加载图片后的尺寸(D.与图片大小相同)。

6.当用户单击命令按钮时,(B.Enabled)属性可以使得命令按钮对激发事件无效。

8.使用(B.AddItem)方法可将新的列表项添加到一个列表框中。

10.(C.时钟)控件可以帮助控制动画效果。

12.下列叙述中正确的是(A.标签控件不能接受焦点事件)。

14.下面(D.ListBox)控件不支持Change事件。

16.Timer控件的(A.Enabled)属性决定该控件是否对时间的推移做出响应。将该属性设置False会关闭Timer控件,设置为True则会打开它。

18.指定列表的元素是否按字母表顺序自动排序的属性为(D.Stored)。

20.以下关于时钟控件的说法,正确的是(C.运行时时钟控件在窗体上不可见,如果时钟控件的Interval属性为0,则时钟控件无效)。

22.当某一按钮的(B.Enabled)属性设置为False时,该按钮为灰白显示。

24.引用列表框List1的最后一项使用(A.List1.List(List1.ListCount-1))。

26.为了删除ComboBox控件中的项目内,需要使用(D.RemoveItem)方法。

28.设窗体上有一个滚动条,要求单击滚动条右端的箭头一次,滚动块移动一定刻度值,决定此刻度值的属性是(C.SmallChange)。

30.在窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮,要求在执行程序时,每单击按钮一次,文本框向右移动一定距离。下面能够正确实现上述功能的程序是(C.Private Sub Command1_Click()

Text1.MoveText1.Left+100

End Sub)。

32.为了删除窗体上的一个控件,下列正确的操作是(D.选择要清除的控件后按Del键)。

34.假定在图片框P1中装入了一个图形,为了清除该图形(不删除图片框),应采用的正确方法是(B.执行语句P1.Picture=LoadPicture(“”))。

36.窗体上有名为Option1的单选按钮,则以下语句中与IfOption1.Value=TrueThen不等价的是(C.IfValue=True Then)。

38.在窗体上画1个命令按钮和2个文本框,其名称分别为Command1、Text1和Text2,然后编写如下程序:

Dim sl As String, s2 As String

Private Sub Form_Lodad()

Text1.Text=””

Text2.Text=””

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

S2=s2&Chr(KeyCode)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

s1=s1&Chr(KeyAscii)

End Sub

Private Sub Command1_Click()

Text1.Text=s2

Text2.Text=s1

S1=””

S2=””

End Sub

运行程序后,在Text1中输入“abc”,然后单击命令按钮,在文本框Text1和Text2中显示的内容分别是(C.ABC和abc)。

40.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程

Private Sub Command1_Click()

Text1.Text=”Visual”:Me.Text1=”Basic”:Text1=Text1&”Program”

End Sub

程序运行后,如果单击命令按钮,则文本框中显示的是(C.BasicProgram)。

42.以下关于图片框控件的说法中,错误的是(D.用Stretch属性可以自动调整图片框中图形的大小)

44.以下叙述中错误的是(B.在KeyPress事件过程中不能回避回车键)

46.如果窗体Form1上有“字体”框架在代码编辑窗口有框架FontFrame_DblClick()事件过程和窗体的单击事件过程,则框架的名称属性和Caption属性分别为(A.”FontFrame”和“字体”),窗体的单击事件过程名为(Form_Click)

48.下列关于某对象SetFocus和GotFocus的描述中,正确的的是(D.SetFocus是方法,GotFocus 是事件)

50.能够存放组合框的所有项目内容的属性是(C.List)

52.图像框有一个属性,可以自动调整图形的大小,以适应图像框的尺寸,这个属性是(A.Autosize)

54.设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为0,Min属性设置为100,下列叙述正确的是(A.程序运行时,若使滚动块向左滑动,滚动条的Value属性值就增加)

56.若看到程序中有以下事件过程,并希望运行后窗体上有文本输出,则可以肯定的是(B.鼠标右键单击Click对象,执行此过程)

If Button =2Then Print “VB Program”

End Sub

二、填空题

2.时钟控件不同于其他控件之处在于(周期性地自动引发事件)。

4.设置是否可以用Tab键来选取命令按钮,应该用(TabStop)属性。

6.设置时钟控件只能触发(Timer)事件。

8.列表框的ListIndex属性值为最后选中的列表项序号,第一个列表项的序号为(0)如果未选中任何项目,则其值为(-1)

10.列表框的(List)和(Selected)属性是数组。

12.在对象的KeyDown和KeyUp事件过程中,当参数Shift的值为1、2、4时,分别表示用户按下了(Shift)、(Ctrl)和(Alt)键。

14.为了自定义鼠标光标的形状,首先应该把对象的(MousePointer)属性设置为(99),然后再把(MouseIcon)属性设置为一个图标文件。

16.在窗体上有1个名称为Command1的命令按钮和1个名称Text1的文本框,程序运行后,Command1为禁用(灰色),此时如果在文本框中输入字符,则命令Command1变为可用。请填空。

Private Sub Form_Load()

Command1.Enabled=False

End Sub

Private Sub Text1_(Change)()

Command2.Enabled=Ture

18.假定建立了一个工程,该工程包括两个窗体,其名称分别为Form1和Form2启动窗体为Form1画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,补充。

Private Sub Command1_()Click()

(Unload)Form1

Form2.(Show)

End Sub

20.以下程序的功能是:当向文本框Text2输入密码时,若“显示密码”复选框Chk没有被选中,再重新输入密码时,则在文本框Text3中同时显示的是密码字符本身。完善程序。Private Sub Text2_Change()

If (Chk1.Value)=1 Then (Text3.Passwordchar=””) Else Text3.Passwordchar=”#”

Text3.Text=(Text2.Text)

End Sub

22.将现存在D盘Pic文件夹中的名为Fishing.bmp的图片加载到图片框Pic1中的语句为ing (Pic1.Picture=loadpicture(“D:\Pic\Fishing.bmp”))

三.写出下列的属性方法事件

1.单选按钮属性Name名称

Style样式

Caption标题

Picture图片

Alignment标题对齐方式

DownPicture图形按钮被按下时的设置

Value状态

DisablePicture图形按钮无效时的图片设置

Enabled有无效

事件Click单击

GotFoucs获焦点

方法SetFocus选中

2.复选框属性Name名称

Style样式

Caption标题

Picture图片

Alignment标题对齐方式

DownPicture图形按钮被按下时的设置

Value状态

DisablePicture图形按钮无效时的图片设置

Enabled有无效

事件Click单击

GotFoucs获焦点

方法SetFocus选中

3.框架属性Name名称

Visible显示隐藏

Caption标题

Enabled有无效

事件Click单击

DblClick双击

4.形状属性Name名称

BorderColor边框色

Shape种类

BorderWidth边框宽度

BackStyle背景样式

FillColor填充色

BackColor背景色

FillStyle底纹图案

5.时钟属性Enabled有无效

Interval 时间间隔

事件Timer触发事件

4.3同步练习题

一、选择题

1.下面B.”6/12/2001”是合法的字符串行常量。

3./、\、mod、*4中优先级最低的是C.MOD

5.字符%是表明Ainteger类型变量的的定义符。

7.求一个三位整数N的十位数的正确方法是A.Int(N/10)-Int(N/100)*10

9.下列表达式中,值为true的是D.14/2\2<16/4

11.下列说法不正确的是D.语句print5+”7”的+是连接符,相当于运算符“&”13.逻辑表达式((10>9)And(8>9))Or(Not(4>5))的值是(A.True)。

15.下面表达式中,(A.Exp(-3.5))的运算结果与其他三个不同。

17.如果x是一个正实数,对x的第3位小数四舍五入的表达式是(B.Int(100*(x+0.005))/100)。

19.表达式Int(-17.8)+Sgn(17.8)的值是(B.-17)。

21.函数Len(Str(Val(“123.4”)))的值为(C.6)。

23.下列说法错误的是(C.产生0.01至100.99范围内的随机数,包括两端点,间隔为0.01的表达式可写成Myvalue=Int(101.98*Rnd+0.01))。

25.函数InStr(“Visual Basi程序设计教程”,“ua”)的值为(D)。

27.选拔身高T超过1.7M且体重W小于62.5KG的人,表示该条件的布尔表达式为(C.T>1.7AndW<62.5)

29.将任意一个正的两位整数N的个位数与十位数对换的表达式为(A.(N-Int(N/10)*10+Int(N/10)))

31.X,Y之一小于Z的VB条件表达式是(D.X<ZNotY<Z)

33.设s1、s2为字符串型变量,s1=“how do you do”,s2=“O”,则以下关系表达式的结果为True的是(A.len(s1)=instr(s1,“d”)+8)

35.下面表达式的值为真的是(A.Mid(“VB”,1,12)=Right(“Programing Lanuage Visual Basic”,12))

37.已知A$=“A12B3456”,L=Len(A$)+Val(Mid(A$,2,2)),则L=(B.20) 39.算术表达式In丨e^π+sin^3x/x+y丨的VB表达式是(A.Log(abs((3.14159)+(x)^3)/(x+y)))

41.执行语句:Print Format(5459.478,”##,##0.00”),正确的输出结果是B.5,459.48。

43.下列表达式中不能判断x是否为偶数的是D.x\2=0。

45.下列所列四组数据中,全部正确的visualbasic的常数是

A.32768,1.34D2,”ABCDE”,&O1767

47.设a=4,b=3,c=2,d=1,下列表达式的值是D. 0。A>b=1 Or c

49.显示如图4-2所示的输入框的语句是A. A=InputBox

二、填空题

1.写出下面Val函数表达式的值

(1)Val(“1.23E2CD”)的值为123

3.关系式-5<=X<=5所对应的布尔表达式是(x<=-5 or x>=5 )。

5.一元二次方程axx+bx+c=0有实数的条件是a不等于0并且bb-4AC大于等于0表示布尔表达式是(a<>0 and b^2-4*a*c>=0 )

7.x+y小于等于8且x-y大于8的逻辑表达式为((x+y) < 12 and (x-y) > 2)

9.关系式X<=-5或X>=5所对应的布尔表达式为(x<=-5 Or x>=5 )

13.假定有如下的命令按钮(名称为Command1)事件过程:

PrivateSubCommand1_Click()

x=InputBox("输入:","输入整数")

MsgBox"输入的数据是:”,,”输入数据:"+x EndSub

程序运行后,单击命令按钮,如果从键盘上输入整数10,则

x的值是数值(10)

输入对话框的标题是(输入整数)

信息框的标题是(输入数据:10)

信息框中显示的是(输入的数据是:)

三.数据类型

VB作业答案

VB作业答案

4.3同步练习题

一.选择题

2、设有如下变量声明:

Dim TestDate As Date

为变量TestDate正确赋值的表达方式是(A、TestDate=#1/1/2002#)

4、表达式Int(8*Sqr(36)*10^(-1)*10+0.5)/10的值是(C、0.5)

6、下列符号常量的声明中,(C、Const a As Double=Sin(1))是不合法的。8、设A=”12345678”,则表达式Val(Left(A,4) + Mid(A ,4 ,2))的值为(B、123445)

10、窗体上放置了3个文本框,若在Text1中输入456,在Text2中输入78,在程序中执行了语句Text3.Text=Text1.Text+Text2.Text后,则在Text3中显示(B、45678)

12、要强制显示声明变量,可在窗体模块或标准模块的声明段中加入语句(B、Option Explicit)

14、假设变量Lng为长整型变量,下面不能正常执行的语句是(A、Lng=16384*2)16、代数表达式对应的Visual Basic表达式为

(A、Sqr((x+Log(x))/(a+b))+Exp(-1)+Sin((x+y)/2))

18、在Form_Click事件中执行下列语句后错误的结果是(D、Print Format(12345.6,”0.00E+00”)的输出结果是0.12E+05)

20、Sgn(1-Int(Sin(5)-3))的值是(B、1)

22、如果A=True,则式子43>44And Not A Or A的结果是(A、True)

24、设a=”Visual Basic”,下面使b=”Basic”的语句是

(B、b=Mid(a,8,5))

26、设a=3,b=2,c=1,运行Print a>b>c得结果是(C、False)

28、设a=3,b=5,则以下表达式值为真的是B、(a>b) Or (b>0)

30、代数式对应的Visual Basic表达式是(D、a/(b+c/d))

32、已知XB,正确表示它们之间关系的式子是(B、Sgn(X-Y)-Sgn(A-B)=-2)

34、代数式x1-a+ln10+sin(x2+2π)/cos(57)对应的Visual Basic表达式是(A、X1-Abs(A)+Log(10)+sin(X2+2*3.14)/cos(57*3.14/180))

36、语句Print Sgn(-3^2)+ Int(-3^2)运行时输出的结果为(D、-10)

38、表达式X+1>X是(D、关系表达式)

40、在一个语句行内书写多条语句时,语句之间应该用(D、冒号)分隔。

42、产生[10,37]之间随机整数的Visual Basic表达式为(B、Int(28*Rnd)+10)44、下列(C、28wed)符号不能作为Visual Basic中的变量名。

46、下面(D、#False#)不是字符串常量。

48、用Msgbox”你好”,Vbokonly,“Hello”显示的消息对话框窗口的标题是(D、Hello)

二、填空题

2、一般情况下,Visual Basic的编码规则是:一行上书写一条语句,一行上最多可以书写(255)个字符。若需要再同一行上书写多条语句,语句间用(冒号“:”)隔开;若需要将一条语句分多行写,则必须在行末加(续行符“_”(空格和下划线))

4、将下面的条件用Visual Basic的布尔表达式表示

(1)X+Y小于10,且X-Y要大于0 (X+Y)<10 And (X-Y)>0

(2)X、Y都为正整数或都是负整数 X*Y>0 And X=Int(X) And Int(Y)=Y

(3)X、Y之一为0但不得同时为0 X*Y=0 And X+Y<>0

6、写出下面Format的函数值

(1)Format(8888.3,”##,##0.00”)的值为(8888.30)

(2)Format(627.9,”####”)的值为(628)

(3)Format(0.6677,”0.00”)的值为(0.67)

(4)Format(0.5678,”#.00”)的值为(0.57)

(5)Format(“HELLO”,”<”)的值为(hello)

(6)Format(“This is a good idea”,”>”)的值为(THIS IS A GOOD IDEA)8、X是小于100的非负数,对应的布尔表达式为(x<100 And x>=0)

10、设a=5,b=10,则执行c=Int((b-a*Rnd+a)+1)后,c值得范围为(6~10)12、设A=2,B=3,C=4,D=5,写出下列布达尔表达式的值

(1)A>B And C<=D Or 2*A>C False

(2)3>2*B Or A=C And B<>C Or C>D False

(3)Not A<=C Or 4*C=B^2 And B<>A+C False

5.3同步练习题

一、选择题

1.下列程序段的执行结果为———A.1 2

3 5

a=0:b=1

a=a+b:b=b+a:Printa;b

a=a+b:b=b+a:Printa;b

3.假设变量Bool是一个布尔型变量,则下列赋值语句中,正确的是(D Bool=3<4)

5.下列程序段的执行结果为(C2 3 False)

x=2:y=3

z=x=y

Print x;y;z

7.设有一个文本框控件text1,假设已存在三个整形变量a,b和c,且变量a的值为5,b的值为7,c的值为12.以下的C text1.text=a&"+"&b&"="&c 语句可以使文本框内显示的内容为5+7=12.

9.下面所列控件中,其值既能在程序设计时设定,又能在程序运行时通过赋值改变的是——

D Label1.Visible

11.设整型变量a、b的当前取值分别为200与20,以下赋值语句中不能真确执行的是---B Text1=a*b/b

13. 执行赋值语句a=746+Mid(‘’74697‘’,3,2)后a变量中的值为___C_.815__

15.下列语句中正确的是。C Label1.Caption=1234

17.设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是。B False

19.以下程序段在立即窗口中输出。B.our

a="your"

b="sname"

c="iscr"

Print Right(a,3)

Picture1.Print Mid(b,2,4)

Debug.Print Left(c,2)

21.在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:B BBB

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim Str As String

Str=Chr(KeyAscii)

KeyAscii=Asc(UCase(str))

Text1.Text=String(2,KeyAscii)

End Sub

程序运行后,如果在键盘上输入字母“b”,则在文本框Text1中显示的内容为。

23.下列事件过程

Private sub command1-click()

Dim sum as integer

Sum%=19

Sum=2.32

Print sum%;sum

End sub

运行后输出结果是(D.2 2)

25.在窗体上画2个滚动条,名称分别为hscroll1,hscroll2.6个标签,名称分别为label123456,其中456分别显示A B A*B等文字信息,标签12分别显示其右侧的滚动条的数值,3显示A*B的计算结果。当移动滚动框时,以下不能显示上述功能的事件过程是Dabel3.caption=hscroll1.text*hscroll2.text.End sub

相关推荐
相关主题
热门推荐