双击cmd1控件，在代码区输入以下代码：
sub cmd1_click(.....) ‘(双击控件后会自动生成框中内容的)
dim i, sum as single
i=0
for
i=i+1
sum=sum+i
text1.text=sum
next i
end sub
for i=1 to 100
sum=sum+i
next
print sum本回答被提问者采纳
for x=0 to 100
c=c+x
next
用VB编个程序,计算从1加到100。
在循环中，通过 `sum += i` 来将每个数字累加到 `sum` 变量上。最后，打印出求和结果。你可以将这段代码粘贴到 Visual Studio 或其他 VB 开发环境中进行编译和运行。运行程序后，你将在控制台中看到输出结果："从1加到100的和为：5050"。
求用VB写出关于1+2+3+…+100累加和的代码
编写函数：Private Function S_GS(S_From As Long, S_To As Long) As Long If S_From > S_To Then Exit Function S_GS = (S_From + S_To) * (S_To - S_From + 1) \/ 2 End Function 调用：S_GS("第一个数值","累加至的数值")比如：计算从1加到100。表达：S＿GS(1,100)...
求用VB做的 1-100 累加法 写上算法、流程、程序.
For i = 1 To 100 '采用For循环 sum = sum + i '第一次循环，采用和+循环变量值的方法累加 Next '下一次，相当于i=i+1，即i=2，再返回到For循环，判断i值是否满足<100，满足再次执行累加和操作，将前一次的和加上本次循环变量值后存放sum中 Print sum '循环完成后在窗体打印...
用vb从1加到100的程序怎么写
Private Sub Form_Click()Dim sum1 As Long, sum2 As Long, sum3 As Long, j As Long, n As Long For j = 1 To 100 sum1 = sum1 + j If j Mod 2 = 0 Then sum3 = sum3 + j Else sum2 = sum2 + j End If Next Me.Cls Print "整数和："; sum1 Print "奇数和："...
用VB的循环语句编一个程序,求从1至100的和
在窗口上添加一个文本框，两个命令框 Private Sub Command1_Click()s = 0 For n = 1 To Val(Text1.Text)s = s + n Next MsgBox s End Sub '这是求和，文本框输入n，就是1到n的和 Private Sub Command2_Click()k = 1 For n = 1 To Val(Text1.Text)k = k * n Next MsgBox...
用vb编程“求整数1到100的和”应该如何做?
能用的。输入a，输入b 求a-b所有数字的和 Private Sub Command1_Click()Dim a As Long Dim b As Long a = InputBox("输入整数a")b = InputBox("输入整数b")Me.Print Str(Sum(a,b))End Sub Private Function Sum(a As Long,b As Long)'定义函数，a 是较小的那个数字，b是较大的...
怎样用循环结构vb计算1加到100结果显示在文本框?
在VB编程语言中，要计算从1加到100的和并将其结果显示在文本框中，可以使用循环结构。下面的代码实现该功能。首先定义两个整型变量，`i`和`j`。`i`用于表示当前要累加的数字，而`j`用于累计所有数字的和。然后初始化`j`为0。这表示从一开始就将累计的和设为零。接下来使用`for`循环从1迭代到...
用vb for next 与do loop 各写一个从1依次相加到100的代码怎么写?
for next:dim i dim sum sum=0 for i=1 to 100 sum=sum+i next do loop:dim i dim sum sum=0 i=1 do while i<=100 sum=sum+i i=i+1 loop
VB中运用计数循环结构计算出1+2+3+4+...+100的结果代码?
明显i并没有到100 所以for循环继续执行，第二次i就默认自加了1，犹豫没设定步长step所以这个超作是留给虚拟机自动识别的。这次把sum的值加上i循环后的值 i现在是2 而sum等于上次i的值为1 所以1+2就等于3然后把结果给了sum 这样一直循环...直到i等于101的时候超过了100就停止执行了，所以sum最终...
VB中怎样制作从1累加到100的程序
dim s,i as integer 最好写成 dim s as integer,i as integer 设置窗体的AutoRedraw 属性为 True，可以在form_load中这么写 Me.AutoRedraw = True
