Question

麻烦求教几道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代码，根据文本框中输入的均值和标准差计算出正态分布临界值，并显示在标签控件上。

Answer 1

Functionoutput1(xAsLong,yAsLong,zAsLong)Asfloatoutput1=x^2+y^3+z^0.5EndFunctionFunctionoutput2(xAsLong)Asfloatoutput2=1Fori=1Toxoutput2=output2*xNextEndFunctionFunctionoutput1(xAsLong)AsfloatIfx0Andx5Thenoutput3=5EndIfEndFunction

追问

这是？？