Dim a
Dim sum
For a = 1 To 100
sum = sum + a
Next a
Print sum
End Sub
最后在窗体上显示出来的就是你要求的和
VB貌似不需要那么多{}的吧？
看我的！
Private Sub CommandButton1_Click()
Dim a
Dim sum
For a = 1 To 100
sum = sum + a
Next a
End Sub
{
int sum = 0;
for(int i=1;i<=100;i++)
{
sum += i;
}
Console.WriteLine("sum={0}",sum);
Console.Read();
}
For i = 1 To 100
s = s + i
Next i
S就是要求的
i=1
wile(i>100)
{
i=i+1
}
用VB编个程序,计算从1加到100。
在循环中，通过 `sum += i` 来将每个数字累加到 `sum` 变量上。最后，打印出求和结果。你可以将这段代码粘贴到 Visual Studio 或其他 VB 开发环境中进行编译和运行。运行程序后，你将在控制台中看到输出结果："从1加到100的和为：5050"。
用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 ...
利用VB循环语句计算和输出1-100的和
Dim i For i = 1 To 100 Sum = Sum + i Next Print "0~100的和为： "; Sum End Sub
跪求用VB编程计算1~100的奇数.偶数.整数和??
Private Sub Form_Load()For i = 1 To 100 sumZ = sumZ + i If i Mod 2 = 0 Then sumO = sumO + i Else sumJ = sumJ + i End If Next Text1.Text = sumZ & vbCrLf & sumJ & vbCrLf & sumO End Sub
用VB编一个程序,求从1至100的自然数的和
dim i as integer dim sum as integer i = 1 方法1 do while i <= 100 sum = sum + i i = i + 1 loop 方法2 do until i > 100 sum = sum + i i = i + 1 loop 方法3 do sum = sum + i i = i + 1 loop while i < 100 ...
怎样用循环结构vb计算1加到100结果显示在文本框?
在VB编程语言中，要计算从1加到100的和并将其结果显示在文本框中，可以使用循环结构。下面的代码实现该功能。首先定义两个整型变量，`i`和`j`。`i`用于表示当前要累加的数字，而`j`用于累计所有数字的和。然后初始化`j`为0。这表示从一开始就将累计的和设为零。接下来使用`for`循环从1迭代到...
用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 Form_Click()Dim i, j, b As Integer For i = 1 To 100 For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next If j > i - 1 Then b = b + i Next Print b End SuB 最简单的
VB编程题 1到100相加,用函数调用的方法编程
Private Function SUM(i as integer)as long if i=1 then sum=1 else sum=sum(i-1)+i end if End Function 然后直接sum(100)就好了
VB编程求1--100之间的素数之和。。
Static a Dim c As Integer, d As Integer, bz As Integer For c = 1 To 100 bz = False If c \/ 2 = c \\ 2 Then bz = True End If For d = 3 To Int(Sqr(c)) Step 2 If c \/ d = c \\ d Then bz = True d = c End If DoEvents Next d If bz = False Then a...
