问题 填空题

在程序的每个空白处填写一条适当的语句,使程序完成相应的操作。程序实现的功能是:窗体上有文本框Text1和若干复选框,其中复选框Check1用于设置文本框Text1显示的文本是否加下划线。Check1的单击事件过程如下: Private Sub Checkl_Click() If ______ Then Text1.FontUnderline=True Else If ______ Then Text1.FontUnderline=False End If End Sub

答案

参考答案:Check1.Value=1 Check1.Value=0

解析: 题目要求通过选中复选框Check1来设置文本框的文本是否加下划线,因此判断条件需要对复选框是否选中进行判断,因此If语句后面应填“Check1.Value=1”语句,ElseIf后面应填“Check1.Value=0”语句。

单项选择题 B型题
单项选择题

资料三

2007年上半年某镇完成工业总产值66625万元,比去年同期增长32.7%,增速提高12.7个百分点。其中规模以上工业企业完成产值,56869万元,比上年同期增长43.9%,占全年工业总产值计划的45.3%。完成工业增加值22177万元,同比增长26.2%,其中规模以上工业企业实现19270万元,同比增长47.9%。

骨干企业群体壮大,对经济增长的带动作用明显。上半年,全镇规模以上工业企业中有3家企业完成工业总产值超过5000万元,累计完成工业总产值28501.8万元,同比增长48.9%。有10家企业产值同比增加额超过1000万元,比去年增加3家,共完成工业总产值18852.7万元,同比增长88.1%。这13家骨干企业拉动规模以上工业企业经济增长20个百分点。10个行业大类中,服装行业实现价值3.01亿元,同比增长84.9%;机械行业实现产值2236.8万元,同比增长49.5%;酒业完成价值1284万元,同比增长118.7%;童车行业实现产值1107.2万元,同比增长19.3%;五金机械行业完成价值377.3万元,同比增长34.4%;箱包行业实现产值1363.2万元,同比增长31.7%;羊毛衫行业实现产值1.75亿元,同比增长11.6%;有机化学行业实现产值792.7万元,同比增长16.4%;纸制品行业实现产值1713万元,同比增长7.0%;砖瓦行业由于今年砖窑厂数量的减少,实现产值329.5万元,同比下降64%。

2007年上半年,该镇完成的工业总产值约占全年工业总产值计划的()。

A.17.7%

B.45.3%

C.53.1%

D.无法计算