vb 程序代码vb 程序代码
1 .10!的值? Do While i <= 10 Private Sub Command1_Click() Sum = Sum + i * i
i = i + 1
Dim i As Integer Loop
Sum = 1 Print Sum
For i = 1 To 10 6.求10*11*12*….17结果, Sum = Sum * i Dim i, j As Integer Next Dim s As Long Print Sum For i = 1 To 17 End Sub ...
vb 程序代码
1 .10!的值? Do While i <= 10 Private Sub Command1_Click() Sum = Sum + i * i
i = i + 1
Dim i As Integer Loop
Sum = 1 Print Sum
For i = 1 To 10 6.求10*11*12*….17结果, Sum = Sum * i Dim i, j As Integer Next Dim s As Long Print Sum For i = 1 To 17 End Sub s = 1
2.求100以内偶数的和, For j = i To i + 2
Private Sub Command1_Click() s = s * j
Dim i As Integer Next
For i = 1 To 100 m = m + s
If i Mod 2 = 0 Then Next
Sum = Sum + i Print m
End If 7.输出200----300之间能被3整除又能被7Next 整除的数，存入变量sum中。 Print Sum Dim i As Integer End Sub For i = 200 To 300 3.求1+5+10+15+….500的和, If ((i Mod 3) = 0 And (i Mod 7) = o) Then
Dim i As Integer Print (Str(i)) For i = 1 To 500 Sum = Sum + i If i Mod 5 = 0 Then End If
Sum = Sum + i Next
End If Print Sum
Next 8.求50以内偶数的和, Print Sum Dim i As Integer 4.求s=1+1*2+1*2*3+….10～ For i = 1 To 50 Dim i, j As Integer If i Mod 2 = 0 Then Dim k As Long s = s + i
k = 1 End If
s = 0 Next
For i = 1 To 10 Print (Str(s)) For j = 1 To i 9求100以内奇数的和, k = k * j Dim i As Integer Next For i = 1 To 100 s = s + k If i Mod 2 = 1 Then k = 1 s = s + i
Next End If
Print s Next
5.求1---140的自然数的平方和, Print s
Dim i As Integer
i = 1
10 .求100以内素数和, 13.s=20+21+…263 ?
Dim i As Integer Dim i As Integer
Dim j As Integer i = 20 Dim k As Integer While i <= 263
Dim b As Boolean s = s + i b = False i = i + 1 For i = 1 To 100 Wend b = False Print (Str(s))
k = Int(Sqr(i))
For k = 2 To j
If i Mod k = 0 Then
b = True
End If
Next
If b = False Then
Sum = Sum + i
End If
Next
Print Sum
11.求1～+2～+…10～的值输入在存有变量
L中。
Dim a As Integer
Dim s As Long
s = 1
For i = 1 To 10
s = s * i
l = l + s
Next
Print Str(l)
12.求 两个数m.n的最大公约数p和最小公
约数q.
nm = n * m
If m < n Then
t = m: m = n: n = t
r = m Mod n
End If
Do While (r <> 0)
m = n
n = r
r = m Mod n
Loop
p = n
q = m / n
本文档为【vb 程序代码】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483