导航:首页 > 编程语言 > vb编程1到100的和

vb编程1到100的和

发布时间:2022-12-13 01:27:50

Ⅰ 用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
方法3
do
sum = sum + i
i = i + 1
loop while i < 100

Ⅱ 用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 "奇数和:"; sum2

Print "偶数和:"; sum3

End Sub

Ⅲ 急!!!!VB编程求1加到100的和,5种方法!!!!!

Option Explicit

Private Sub Command1_Click()
Dim i As Integer, s As Integer
For i = 1 To 100
s = s + i
Next
Print s
End Sub

Private Sub Command2_Click()
Dim i As Integer, s As Integer
Do While i <= 100
s = s + i
i = i + 1
Loop
Print s
End Sub

Private Sub Command3_Click()
Dim i As Integer, s As Integer
Do
i = i + 1
s = s + i
Loop While i <= 99
Print s
End Sub

Private Sub Command4_Click()
Dim i As Integer, s As Integer
While i <= 100
s = s + i
i = i + 1
Wend
Print s
End Sub

Private Sub Command5_Click()
Dim i As Integer, s As Integer
GOTONEXT:
s = s + i
i = i + 1
If i <= 100 Then GoTo GOTONEXT
Print s
End Sub

Ⅳ vb编程中怎么计算1到100的和

dimsumasinteger
sum=0
fori=1to100
sum=sum+i
nexti
printsum

Ⅳ VB编程求1到100整数和

Private Sub Command1_Click()
Dim a
Dim sum
For a = 1 To 100
sum = sum + a
Next a
Print sum
End Sub
最后在窗体上显示出来的就是你要求的和

Ⅵ 用VB编写:循环语句的应用,计算1~100的偶数和

用VB编写:循环语句的应用,计算1~100的偶数和,最简单的方法是采用计数循环来实现。
dim i as integer,s as integer
s=0
for i = 2 to 100 step 2
s = s + i
next i
print "Sum ="; s

Ⅶ 急求:VB编程1到100求和

Private Sub Command1_Click()
For i = 1 To 100
s = s + i
Next
MsgBox "1到100的和为:" & s
End Sub

阅读全文

与vb编程1到100的和相关的资料

热点内容
农村信用社app怎么删除明细 浏览:817
学而思电脑怎么下载app 浏览:107
php防止mysql注入 浏览:233
磁力计校正算法 浏览:491
解压缩后变小了 浏览:957
智友文件夹 浏览:81
android操作系统开发的操作系统 浏览:478
原神手机怎么改b站服务器 浏览:296
桩基箍筋加密区高度规范 浏览:91
手机樱花动漫app怎么用 浏览:382
php科学计数法转换 浏览:642
sip认证算法 浏览:785
androidapp卡顿原因 浏览:905
25编程器电路 浏览:849
安卓九是什么东西 浏览:939
隐藏nodejs命令行窗口 浏览:62
人体与写生素描pdf 浏览:883
java集合性能 浏览:143
单片机三线通信 浏览:209
昆山ug编程培训学费 浏览:628