UC知道VB问题，关于FUNCTION
来源：百度知道 编辑：UC知道 时间：2024/06/04 15:31:53
1.编写一函数过程计算1＋2＋3……＋n，运行是输入m，n，p的值，单击Cmd1调用过程计算y=((1＋2＋3……＋m)+(1＋2＋3……＋n))/(1＋2＋3……＋p),结果保留4位小数。
2.新建一个工程，包括两个窗体Form1和Form2，窗体设计如下图所示。添加一个标准模块，在标准模块中定义两个公用过程：一个为函数过程，用于计算 ，另一个为Sub过程，用于对数组S中的N个数据从小到大排序。要求：
1）窗体Form1为主窗体，当按下“计算”按钮时，计算 ，当按下“打开排序窗口”时，打开窗体Form2。
2）在窗体Form2中，单击“生成随机数”按钮生成30个[10，100]间的随机整数，将这30个随机整数存于数组T中，同时显示在文本框Text1中。单击“排序”按钮调用标准模块中的Sub过程，对数组T中的随机整数从小到大排序，并将排序后的数组T中的值显示在文本框Text2中。
2.新建一个工程，包括两个窗体Form1和Form2，窗体设计如下图所示。添加一个标准模块，在标准模块中定义两个公用过程：一个为函数过程，用于计算 ，另一个为Sub过程，用于对数组S中的N个数据从小到大排序。要求：
1）窗体Form1为主窗体，当按下“计算”按钮时，计算 ，当按下“打开排序窗口”时，打开窗体Form2。
2）在窗体Form2中，单击“生成随机数”按钮生成30个[10，100]间的随机整数，将这30个随机整数存于数组T中，同时显示在文本框Text1中。单击“排序”按钮调用标准模块中的Sub过程，对数组T中的随机整数从小到大排序，并将排序后的数组T中的值显示在文本框Text2中。
hi me ba
小case
但是你的如图的图在哪里？
第一题：
Private Sub Command1_Click()
m% = InputBox("m=")
N% = InputBox("n=")
p% = InputBox("p=")
MsgBox sum(m)
y = sum(m) + sum(N) / sum(p)
Print Format(y, ".0000")
End Sub
Function sum(N As Integer) As Double
sum = 0
For i = 1 To N
sum = sum + i
Next
End Function
第二题：
一个为函数过程，用于计算
怎么计算，公式呢？
发邮件给happyq6@163.com
我给你做吧
'函数
function summnp(x as integer)
if x>0 then
summnp=x*(x+1)/2
else
summnp=-1
end if
end functon
精练！