n Count nCount 1 Str( n Count)’显 End Sub 2.本程序计算e=1+1/1!+1/2!+1/3!+…+1/n!+…(只累加大于0.00000的项) Private Sub Form Click Dim E As single, s As Single, N As Integer ENs Do While s>0. 00000 E=E+ S S Printe=, E End Sub 3.该程序用于增加、修改、删除列表框中的项目,窗体中的对象如图2所示。 当我们在列表框中的项目上单击时,该项目即出现在文本框中。单击“增加”按 钮可将文本框中的内容增加到列表框中;在文本框中编辑你所选中的项目后单击 “修改”按钮可用于修改你所选中的列表框中的项目:单击“删除”按钮用于删 除你所选中的列表框中的项目,同时清空文本框 网回区 文本框 增加 修改 图2 Private Sub Form Load o List1. AddItem"青岛大学 List1. AddItem"武汉大学 List1. AddItem"吉林大学 End Sub Private Sub Listl Click 该按钮用于将你所选中的列表框中的项目显示在文本框中nCount = nCount + 1 ________________= Str(nCount) '显示 End Sub 2．本程序计算 e=1+1/1!+1/2!+1/3!+…+1/n!+… （只累加大于 0.000001 的项） Private Sub Form_Click() Dim E As Single, S As Single, N As Integer E =_________________________ N = 1 S = 1 Do While S > 0.000001 E = E + S S =______________ _________________ Loop Print "e=", E End Sub 3．该程序用于增加、修改、删除列表框中的项目，窗体中的对象如图 2 所示。 当我们在列表框中的项目上单击时，该项目即出现在文本框中。单击“增加”按 钮可将文本框中的内容增加到列表框中；在文本框中编辑你所选中的项目后单击 “修改”按钮可用于修改你所选中的列表框中的项目；单击“删除”按钮用于删 除你所选中的列表框中的项目，同时清空文本框。 图 2 Private Sub Form_Load() List1.AddItem "青岛大学" List1.AddItem "武汉大学" List1.AddItem "吉林大学" End Sub Private Sub List1_Click() '该按钮用于将你所选中的列表框中的项目显示在文本框中