1楼：网海1书生
privatefunctionfun(nasinteger)asinteger
dimiasinteger
fori=1ton
fun=fun+i^2
nexti
endfunction
或privatefunctionfun(nasinteger)asinteger
ifn>0thenfun=n^2+fun(n-1)
endfunction
第二种方法使用了
递归调用，如果你不能理解或题目不允许这样，请用第一种。
另外，由于函数的返回值类型为整型（最大值32767），所以n不能太大，大于45就会溢出了。
2楼：匿名用户
privatesub***mand1_click()dimnasinteger
n=inputbox("请输入一个正整数","计算从1到n的平方和",10)
print"fun("&n&")="+cstr(fun(n))
endsub
privatefunctionfun(nasinteger)asdouble
fori=1ton
s=s+i^2
nexti
fun=s
endfunction
vb 编写函数fun，其功能是：能计算从1开始到n的自然数中偶数的平方和！！！急用！！！
3楼：匿名用户
function sum(n) as doublesum = 0
for i = 1 to n
if i mod 2 = 0 then sum = sum + i *2
next
end function
vb中怎样实现计算1—n的奇偶数之和：（n为自然数）
4楼：鱼木混猪哟
**及注释如下：复
private sub ***mand1_click()for i=1 to n'i从1到n循环
if i mod 2=0 then'利用制mod函数来判bai断i的值是偶du数还是奇zhi数
oushuhe=oushuhe+i'如果是偶数，就将其累加dao到oushuhe变量中else
jishuhe=jishuhe+i'如果是奇数，就将其累加到技术和变量中
end if
next
msgbox "偶数和为" & oushuhe“，奇数和为"& jishuhe'利用msgbox显示结果
end sub
5楼：匿名用户
自己复新建工程 添加你制的控件 加入以下**bai即可:
option explicit
private sub form_load()me.caption = "计算"
text1.text = ""
text2.text = ""
text3.text = ""
label1.caption = "请输入要du就算的zhi数"label2.caption = "偶数和为dao:"
label3.caption = "奇数和为:"
end sub
private sub ***mand1_click()dim i
dim a, b
for i = 1 to val(text1.text)if i mod 2 = 0 then
a = a + i
else
b = b + i
end if
next i
text2.text = a
text3.text = b
end sub
6楼：匿名用户
这么简单 自己改吧。
内for i = 1 to 10 step 2 '奇数和容sum=sum+i
next i
for i = 2 to 10 step 2 '偶数和sum=sum+i
next i
for i = 1 to 10
sum=sum+i
next i
7楼：black_星
private sub ***mand1_click()dim a, b, i
for i = 1 to val(text1.text)if i\2 = 0 then
a = a + i
else
b = b + i
end if
next i
text2.text = a
text3.text = b
end sub
求vb编程100以内的所有自然数对。自然数对指其和与差都是平方数的两个自然数。例如6 10=16.而16和4都是... 30
8楼：
你好，bai我来du
为你zhi解dao答：
版private sub ***mand1_click()dim i%, j%, m!
权, n!
for i = 1 to 100
for j = i + 1 to 100
m = sqr(i + j)
n = sqr(j - i)
if fix(m) = m and fix(n) = n then print i, j
next
next
end sub
9楼：智慧未来超人
dim a
dim b
for(i=0 to 100)
for(j=i+1 to 100)
a=(j-i)^(1/2)
b=(j+i)^(1/2)
if int(a)-a=0 and int(b)-b=0 then print i & "," & j & “是自然数对”
next j
next i
我电脑上没有vb 所以这么没有调试，不知道有没版有错误，不懂追问我权
10楼：匿名用户
有些函数符号有点忘记了。
。。for x = 1 to 100
for y = 1 to x ' 不要重复的，就是颠倒顺序后发现其实版是一致的那种需要删掉权
tmpsum = cint(sqr(x + y))tmpdif = cint(sqr(x - y))if tmpsum * tmpsum = x + y and tmpdif * tmpdif = x - y then
print x, y
end if
next
next
11楼：匿名用户
private sub ***mand1_click()for i = 1 to 99
for j = 1 to 99
if i = j then exit forif sqr(i + j) = int(sqr(i + j)) and sqr(abs(i - j)) = int(sqr(abs(i - j))) then
debug.print i & " " & jend if
next j
next i
end sub
结果5 4
10 6
13 12
17 8
20 16
25 24
26 10
29 20
34 30
37 12
40 24
41 40
45 36
50 14
52 48
53 28
58 42
61 60
65 16
65 56
68 32
73 48
74 70
80 64
82 18
85 36
85 84
89 80
90 5497 72
急！！！怎么用c语言编写程序，用函数完成:计算从1开始到n的自然数的和???
12楼：匿名用户
c语言是普来
适性最强的一种计算自机程序编辑语言，它不仅可以发挥出高级编程语言的功用，还具有汇编语言的优点，计算和的方法为：
1、新建一个求1到100自然数之和项目。
2、添加一个cpp文件。
3、包含需要用到的头文件。
4、输入main函数。
5、定义两个变量，分别是：a和sum。
6、使用while语句计算1到100之间所有自然数之和。
7、运行程序，打印出结果。
注意事项：c语言的语法限制不太严格，对变量的类型约束不严格，影响程序的安全性，对数组下标越界不作检查等。从应用的角度，c语言比其他高级语言较难掌握。
也就是说，对用c语言的人，要求对程序设计更熟练一些。
13楼：匿名用户
思路：定义
抄函数sum(n)，针对参数n，for循环从袭1到n累加求和，最后返回累加和。主函数调用sum函数求输入值n的累加和并输出。
参考**：
#include
#include
intsum(intn)
intmain()
/*10
1到10的累加和为55。*/
14楼：
#include
int fun(int n)
void main()
15楼：
int sum(int n)
急求vb程序设计编写函数fun其功能是判
1楼 匿名用户 function fun byval w as integer dim i s as long for i 1 to len w s s val mid w i 1 2next if s mod 5 0 then fun 1 else fun 0 end if end functio...
编写函数void fun(char s):其功能是将s所指字
1楼 匿名用户 字符串为 siegahdied 则转换为 abc4efg ，这个怎么转换来的我看不懂 include include void convert char ps int ilen strlen ps for int i 0 i ilen i void main c语言编程题 完成函数v...
java题目编写应用程序计算110之间各个整数
1楼 匿名用户 public class test 屏输出 12 624120720 5040 40320 362880 3628800 2楼 吹阴风点鬼火 int temp 1 for int i 1 i 10 i 编写一个应用程序 计算1到10之间的各个整数的阶层，并将结果输出到屏幕上 10 3...