Nxet
Text1.Text=sng1 End Sub
结果为1.040507E+10
第8章习题
一、选择题
1．下列对象中__B_____在运行时一定是不可见的。 (A)Line (B)Timer (C)Shape (D)Frame 2．下面各类型对象中，没有Move方法的是___C___。 (A)Form (B)Shape (C)Line (D)Image 3．列表框控件的下列几个属性中，__B___不是数组。 (A)List (B)ListIndex (C)Selected (D)ItemData 4．向列表框中添加一个条目，应使用列表框的__B_____方法。 (A)InsertItem (B)AddItem (C)AppendItem (D)RemoveItem 5．下列的控件中，不具有Caption属性的是__A____。 (A)ListBox (B)CheckBox (C)Frame (D)OptionButton 6．下面___C_____类型的对象不能作为控件的容器。 (A)Form (B)PictureBox (C)Shape (D)Frame
7．要使一个图片框控件自动地附着在窗体的一条边上，应该设置它的___B____属性。 (A)Picture (B)Align (C)Left (D)AutoSize 8．___D____控件不支持Change事件。
(A)TextBox (B)Label (C)PictureBox (D)ListBox 9．___b____对象不支持DblClick事件。
(A)OptionButton (B)CheckBox (C)Form (D)Image
二、填空题
1．定时器控件的Interval属性值是指时间间隔，单位是 毫秒 (1) ；当每隔此间隔的时间，定时器会引发一次 Timer （2） 事件。
2．Visual Basic为添加到窗体上的第一个图片框提供的默认对象名为 (3) Picture1 。 3．组合框的 Style(4) 属性决定了该组合框是简单组合框、下拉式组合框还是下拉式列表框。
4．当复选框被选定，它的Value属性值为 1 (5) ；单选框被选定时，则它的Value属性值为 (6) True 。 5．不支持Click事件的控件类型有 (7)Line 、Shape 、Timer 、VScrollBar、 HscrollBar _。
三、判断题
1．文本框中只能显示单行文本，要显示多行文本应该使用列表框控件。X 2.标签控件所显示的文本只能在设计时设置，运行时不能改变。X
2．直线控件无Move方法、Left属性、Top属性，所以直线控件在运行时不能移动。X 3．组合框控件可以看作是文本框与列表框的组合体，所有它具有二者的全部属性、方
法与事件。X
4．当定时器控件的Interval属性值为0时，会连续不断地发送Timer事件。X 5．可以通过语句代码使一个单选框组中的所有单选框均为不选定状态。√
四、编程题
编制如图8．1所示的程序。本程序根据如下公式，由输入的身高计算标准体重。
男：标准体重(kg) = 身高(cm)-100 女：标准体重(kg) = 身高(cm)-105
窗体上使用了图像控件显示图形，可以使用其他图形代替。完成后，将窗体和工程分别 以frmWeight和prjWeight为文件名保存，并编译为可执行文件。
图8.1 标准体重程序
Text1
Text2
Option1
Option2
图2 单击“计算”命令按钮后的窗体
Private Sub Command1_Click()
If Option1.Value Then
Text2.Text = CSng(Text1.Text) - 105 Else
Text2.Text = CSng(Text1.Text) - 100