(2)编写程序代码。 程序提供的代码： Option Explicit Private Sub C1_Click() Dim i As Integer ’For i= TO List1.ListCount-1 If List1.Selected(i)=True Then ’ =List1.List(i) End If Next i End Sub Private Sub Form_Load() List1.AddItem"Item1" List1.AddItem"Item2" List1.AddItem"Item3" List1.AddItem"Item4" End Sub 参考代码： Option Explicit Private Sub C1_Click() Dim i As Integer For i=0 To List1.ListCount-1 If List1.Selected(i)=True Then Text1.Text=List1.List(i) End If Next i End Sub Private Sub Form_Load() List1.Addltem"Item1" List1.AddItem"Item2" List1.Addltem"Item3" List1.Addlitem"Item4" End Sub (3)调试并运行。 (4)按题目要求存盘。 答案解析:[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。
第25题:[单选题] 根据《证券法》，下列条件中，不属于公开发行新股条件的是（ ）。 A. 具有连续盈利能力 B. 具备健全且运行良好的组织机构 C. 实际控制人最近三年不存在贪污、贿赂、侵占财产、挪用财产等情形 D. 发行人最近三年不存在破坏社会主义市场经济秩序的刑事犯罪 参考答案:A 公开发行并上市的一般性规则
第29题: [单项选择]对含有激励源的二端网络计算等效电阻时，下面做法正确的是（）。 A. 电压源和电流源都用开路代替 B. 电压源和电流源都用短路代替 C. 电压源用短路代替，电流源用开路代替 D. 电压源用开路代替，电流源用短路代替 参考答案:C
第30题: [单项选择]肿瘤流行病学的研究目的是（） A. 研究肿瘤的发病机制 B. 研究肿瘤的传染源、流行途径 C. 研究肿瘤在人群中的分布规律、流行原因和预防措施 D. 研究肿瘤的发病率和死亡率 E. 研究不同肿瘤疾病谱 参考答案:C 答案解析:肿瘤流行病学是研究肿瘤在人群中的分布规律、流行原因和预防措施的一门学科。主要任务是掌握癌症的流行情况，探讨肿瘤的病因，研究预防肿瘤发生的措施。
第34题: [单项选择]一串数字按下面规律排列：1，3，5，2，4，6，3，5，7，4，6，8，5，7，9，…从第一个数字算起，前 100个数的和是多少( ) A. 100 B. 1897 C. 1915 D. 2525 参考答案:C 答案解析:[解析] 前三个数之和是9，把三个三个数之和看成一个数，那么前99个数组成的数列是9，12，15…，共33项。前99个数之和为[*]，第100个数是1+33= 34．那么总和为1881+34=1915
