求教VBA高手，全做正确再追加悬赏！

2、在VBA用户窗体（UserForm）添加一个命令按钮，为该命令按钮编程输出标准正态分布表。
3、在VBA用户窗体（UserForm）添加一个文本框和命令按钮，编写一段VBA代码，运行代码，
①根据文本框指定整数（例如1000）在sheet1生成某门课程学习成绩（30 – 100分）
②在sheet2中按名称计算并输出各单项统计指标（平均数、标准差、中位数、众数、四分位数）
③ 在sheet3中输出1000人学习成绩分组次数和频率表（<60、[60,70）、[70,80）、[80,90）、[90,100]）
④在sheet4中按名称计算并输出各分组统计指标（平均数、标准差、中位数、众数、四分位数）
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代码，根据文本框中输入的均值和标准差计算出正态分布临界值，并显示在标签控件上。

第九题
Sub mytest()

'9-1
Range("Sheet1!A1:A1000").Formula = "=randbetween(1,100)"
Range("Sheet1!A1:A1000").Copy
Range("Sheet1!A1").PasteSpecial xlPasteValues
'9-2
Range("Sheet1!A1:A1000").Copy Range("Sheet2!A1")
Range("Sheet2!A1:A1000").Sort key1:=Range("Sheet2!A1"), _
order1:=xlAscending
'9-3
Range("Sheet2!A1:A1000").Copy Range("Sheet3!A1")
n = 1
For i = 1 To 999
If Sheets("Sheet3").Cells(n, 1) = Sheets("Sheet3").Cells(n + 1, 1) Then
Sheets("Sheet3").Cells(n, 1).Delete shift:=xlUp
Else: n = n + 1
End If
Next i
'9-4
Range("Sheet3!B1:B100").FormulaArray = "=frequency(Sheet2!A1:A1000,Sheet3!A1:A100)"
Range("Sheet3!C1:C100").FormulaR1C1 = "=RC[-1]/1000"

End Sub

有表格提供吗？ 看看你要设计的界面，或者内容、

..... fistline: if..... then ... count_1 = 1 ... goto nextline end if ... if count_1 = 1 then ... goto fistline end if nextline: .... 将你说的情况 答案附上，使用行号即可解决，谢谢！