Question

寻求VBA高手，帮忙解答几道小题

1、计算1-1/2+1/3-1/4+…+1/n的值，n由键盘输入，并将结果输出到第2行第1列单元格。

2、在VBA用户窗体（UserForm）添加一个命令按钮，为该命令按钮编程输出标准正态分布表。

3、在VBA用户窗体（UserForm）添加一个文本框和命令按钮，编写一段VBA代码，运行代码，
根据文本框指定整数（例如1000）在sheet1生成某门课程学习成绩（30 – 100分）
在sheet2中按名称计算并输出各单项统计指标（平均数、标准差、中位数、众数、四分位数）
在sheet3中输出1000人学习成绩分组次数和频率表（<60、[60,70）、[70,80）、[80,90）、[90,100]）
在sheet4中按名称计算并输出各分组统计指标（平均数、标准差、中位数、众数、四分位数）
4、运行程序时会自动生成5个[0，100]间的随机整数，分别显示在第一行单元格中，如果其中有5的倍数，则将此单元格高亮显示，并求出它们的和，通过消息框显示。
5、公鸡每支8元，母鸡6元，小鸡3支5元。用1000元买200只鸡，
问公鸡、母鸡、小鸡各多少只？请编一个VBA程序求解。
6、设计一个子程序，找出100～8000范围内所有能同时被3和8整除的自然数，依次填写到当前工作表的第一列。
7、在一个空白EXCEL工作表中A、B两列模拟生成N组成年男性身高和体重数据，编一段VBA程序，自动识别N（行数），并计算出相关系数输出到sheet1的A1单元格中。
8、设计一个子程序，找出1000000内所有素数，先存入一维数组，再按每行10列输出到工作表中。
9、设计VBA一段代码，
在工作表中sheet1中随机生成1000个1 – 100的整数
将sheet1中1000个随机整数排序（升序）后输出到sheet2
将sheet2中排序后数据去重（保留唯一项）后输出到sheet3
在sheet3统计出唯一项频数和频率
10、在VBA用户窗体（UserForm）添加两个文本框、一个命令按钮和一个标签，编写一段VBA代码，根据文本框中输入的均值和标准差计算出正态分布临界值，并显示在标签控件上。

Answer 1

第一题我做出来了：

追问

英雄，剩下的几道能再帮忙看看吗！在下感激不尽！