vb 显示1+2+3+4+5+6+7+8+9+10=55

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/10 13:33:24

vb 显示1+2+3+4+5+6+7+8+9+10=55
VB做一个程序：一个输入框,输入一个大于1的整数,比如10,则显示：1+2+3+4+5+6+7+8+9+10=55

放置三个控件：text1,command1,其它就靠程序自己运行啦!注意窗口要足够宽哟,否则可能会造成运行时显示不完整昂.代码如下：
Private Sub Command1_Click()
Cls
Dim a As Single, b As Integer, i As Integer
If Not IsNumeric(Text1.Text) Then
Print "请输入数字"
Else
a = Val(Text1.Text)
If Int(a) a Then
Print "请输入整数"
Else
If a < 1 Then
Print "请输入大于1的整数"
Else
For i = 1 To Val(Text1.Text)
b = b + i
Print i;
If i a Then Print "+";
Next
Print "="; b
End If
End If
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "确定"
Print "请输入数字"
End Sub
已经运行过.

vb 显示1+2+3+4+5+6+7+8+9+10=55 笔记本电脑键盘I显示5,J显示1,K显示2,L显示3,M显示0,O显示6,P显示_;U显示4是怎么回事啊 VB中的阶乘累加求和1!+2!+3!+4!+5!+6!+7!+8!+9!+10! (1+2+3-4+5)+(6+7+8-9+10)+.+(29996+29997)用VB怎么写? VB 求方法 1,2,3,4,5,6,7,8,9,10 n个一组求分组比如 excel A1=0、3、6、9时,B1显示0,若A1=1,4,7时,B1显示1,若A1=2、5、8时,B1显示2,公式 VB程序设计计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+……,要求加数不小于0.00001并显示输出Fibonacci数列1,1,2,3,5,8等的前20项,按每行5个数显示.用vb谢谢求1!+2!+3!+4!+5!+6!+7!+8!+9!+10!的值,vb程序是n=1,s=0 For i=1 to 10 vb编程求下列矩阵主对角线上的元素之和.1 2 3 4 5 6 7 8 9 在VB中求(1^2+2^2+3^2+4^2+5^2+6^2+7^2+8^2+9^2+10^2)/10的代码 VB语言题目:计算y=2/3!+5/6!+8/9!