x=8.6 y=Int(x+0.5) Print y 三、编程题
以下程序代码在窗体的单击事件过程（Form_Click)中编写，结果输出到窗体上。 1.从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过InputBox函数输入数据，在窗体上显示和及平均数。
2.编写程序，求解鸡兔同笼问题。一个笼子中有鸡x只，兔y只，每只鸡有两只脚，每个兔有4只脚。今知鸡和兔的总头数为h，总脚数为f，问笼中鸡和兔各若干？
答案5
一、选择题
1.C 2.D 3.C 4.B 5.D 6.C 7.B 8.D 9.C 10.D 11.B 12.B 13.D 14.A 15.A 二、填空题 1.25+32=57 2.Beijing 3.3
4.002.45 2.449 24.24E-01 -2.449 5. 10 15 20 10 15 20 20+25=45 6.9 10 11
7.对变量x四舍五入后取整 三、编程题（略）
- 16 -
自测题6
一、选择题
1.决定窗体标题条显示内容的属性是
A.Text B.Name C.Caption D.BackStyle 2.当窗体最小化时缩小为一个图标，设置这个图标的属性是 A.MouseIcon B.Icon C.Picture D.MousePointer
3.为了取消窗体的最大化功能，需要把它的一个属性设置为False,这个属性是 A.ControlBox B.MinButton C.Enabled D.MaxButton 4.决定窗体有无控制菜单的属性是
A.ControlBox B.MinButton C.Enabled D.MaxButton
5.为了使文本框同时具有水平和垂直滚动条，应先把MuitiLine属性设置为True，然后再把ScrollBars属性设置为 A.0 B.1 C.2 D.3
- 17 -
6.使文本框获得焦点的方法是
A.Change B.GotFocus C.SetFocus D.LostFocus 7.为了使标签覆盖背景，应把BackStyle属性设置为 A.0 B.1 C.2 D.3
8.为了使标签中的内容居中显示，应把Alignment属性设置为 A.0 B.1 C.2 D.3
9.下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为 A.Picture=\B.Picture.Handle=\
C.Picture1.Picture=LoadPicture(\D.Picture=LoadPicture(\10.决定标签内显示内容的属性是
A.Text B.Name C.Alignment D.Caption
11.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是
A.Value B.Default C.Cancel D.Enabled
12.为了在按下Esc键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是
A.Value B.Default C.Cancel D.Enabled
13.假定在图片框Picture1中装入了一个图形，为了清除该图形（注意，清除图形，而不是删除图片框），应采用的正确方法是 A.选择图片框，然后按Del键
B.执行语句Picture1.Picture=LoadPicture(\C.执行语句Picture1.Picture=\
D.选择图片框，在属性窗口中选择Picture属性条，然后按回车 14.设置复选框或单选按钮标题对齐方式的属性是 A.Align B.Alignment C.Sorted D.Value 15.为了使列表框中的项目分为多列显示，需要设置的属性为 A.Columns B.Style C.List D.MultiSelect
16.要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为
A.0 B.1 C.2 D.其他
17.删除列表框中指定的项目所使用的方法是
- 18 -
A.Move B.Remove C.Clear D.RemoveItem 18.当拖动滚动条中的滚动块时，将触发的滚动条事件是 A.Move B.Change C.Scoll D.SetFocus
19.用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是 A.List B.ListIndex C.Text D.ListCount
20.在窗体(Name属性为Form1）上画两个文本框（Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub
Private Sub Form_Load() Text1.Text=\ Text2.Text=\End Sub
程序运行后，在第一个文本框和第二个文本框中分别输入123和321，然后单击命令按钮，则输出结果为
A.444 B.321123 C.123321 D.132231 二、填空题
1.为了使标签能自动调整大小以显示全部文本内容，应把标签的 属性设置为True。
自测题答案6
一、选择题
1.C 2.B 3.D 4.A 5.D 6.C 7.B 8.C 9. C 10. D 11. B 12. C 13. B 14. B 15. A 16.C 17.D 18.C 19.C 20.C 二、填空题 1.Autosize
2.ScrollBars MultiLine True 3.Text1.SetFocus 4.0 0
5.Picture1.Picture=LoadPicture\6.True
- 19 -
7.Picture 8.Interval 9.Enabled
10.下拉式组合框 简单组合框 下拉式列表框 Style 0 1 2 11.下拉式列表框 12.ItemA ItemC
13.VB程序设计 VB Programming
练习题7
一、选择题(每题只有一个正确答案)
1 VB的3种结构化程序设计的3种基本思想是( )
A) 选择结构、过程结构、顺序结构 B) 递归结构、选择结构、循环结构 C) 过程结构、转向结构、递归结构 D) 顺序结构、选择结构、循环结构 2 下面代码可以将变量A、B交换的语句是：( )
A) A=B:B=A B) A=B:B=C:C=A C) C=A:A=B:B=C D) B=A:A=C:C=B 3 下面代码可以实现数值型变量A、B交换的语句是：( )
A)A=(A+B)/2 : B=(A-B)/2 B) A=B:B=A
C)A=B:B=C:C=A D) A=A+B:B=A-B:A=A-B 4 用InputBox()函数设计的对话框，其功能是( )。
A) 只能接收用户输入的数据，但不会返回任何信息 B) 能接收用户输入的数据，并能返回用户输入的信息 C) 既能用于接收用户输入的信息，又能用于输出信息 D) 专门用于输出信息
5 在默认情况下，InputBox()函数返回值的类型为( )。
A) 逻辑类型 B) 字符串型 C) 数值型 D) 变体类型
6 可以实现从键盘输入一个作为双精度变量a的值的语句是( )。
A) a=InputBox()
B) a=InputBox(\请输入一个值\
C) a=Val(InputBox(\请输入一个值\ D) a=Val(InputBox() )
7 在窗体上有一个命令按钮，然后编写如下事件过程
Private Sub Cmdl_Click()
a=InputBox(\ b=InputBox(\ Print b + a End Sub
程序运行后，单击命令按钮，先后在两个输入框中分别输入“2”和“6”，则输出结果
- 20 -