189 8069 5689
Option Base 1
员工经过长期磨合与沉淀，具备了协作精神，得以通过团队的力量开发出优质的产品。创新互联坚持“专注、创新、易用”的产品理念，因为“专注所以专业、创新互联网站所以易用所以简单”。公司专注于为企业提供网站设计、网站建设、微信公众号开发、电商网站开发，成都微信小程序，软件定制设计等一站式互联网企业服务。
Private Sub Command1_Click()
Dim sum As Integer
Dim x As Integer
If Text1.Text = "" Then
MsgBox ("请输入n的值")
Exit Sub
End If
For i = 1 To Val(Text1.Text)
x = InputBox("请输入第" i "个数：")
sum = sum + x
Next i
Text2.Text = sum
End Sub
Private Sub Command2_Click()
End
End Sub
都不用循环，直接用公式计算，效率高很多
#include stdio.h
#include stdlib.h
int fun(int n)
{
int sum;
sum = n*(n+1)/2;
return sum;
}
int main(void)
{
int n;
int total;
printf("请输入n的值:\n");
scanf("%d", n);
total = fun(n);
printf("结果等于: %d\n", total);
}
1、打出主函数defs(n)：ifn=1。
2、在打出条件函数return1else：result=n+s(n-1)return.result。
3、最后结尾返回函数的值result=s(10)print(result)。