VB系列代码.ppt

求和 Private Sub Command1_Click()Dim i As Integer, s As IntegerFor i = 1 To 100s = s + 1Next iText1.Text = sEnd Sub 《循环语句一，for》 显示100 求和 Private Sub Command1_Click() Dim i As Integer, s As IntegerFor i = 1 To 100s = s + i Next i Text1.Text = sEnd Sub 《循环语句一，for》 显示5050 求和 Private Sub Command1_Click()Dim i As Integer, s As IntegerWhile i = 100??? s = s + i??? i = i + 1????Wend Text1.Text = sEnd Sub 循环语句二 while wend 求和 Private Sub Command1_Click()Dim i As Integer, s As IntegerDo Until i 100??? s = s + i??? i = i + 1Loop Text1.Text = sEnd Sub 循环语句三 do until loop 求阶乘 Private Sub Command1_Click()Dim n As Integer, i As Integer, t As Longn = InputBox(输入一个数, n=, 10)t = 1For i = 1 To n??? t = t * iNextText1.Text = tEnd Sub 显示3628800 求1到100被3和7同时整除数的个数 Private Sub Command1_Click()Dim i As Integer, cnt As IntegerFor i = 1 To 100??? If i Mod 3 = 0 And i Mod 7 = 0 Then???cnt = cnt + 1???????? Print i??? End IfNextText1.Text = cntEnd Sub  一个数组中有多少奇数多少偶数 Private Sub Command1_Click()Dim a(), cnt1 As Integer, cnt2 As Integera = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11)For i = 1 To UBound(a)???If a(i) Mod 2 = 0 Then??????? cnt2 = cnt2 + 1??? Else??????? cnt1 = cnt1 + 1??? End IfNextText1.Text = cnt1Text2.Text = cnt2End Sub Dim a(), cnt1 As Integer, cnt2 As Integera = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11)For i = 1 To UBound(a)??? If a(i) / 2 = Int(a(i) / 2) Then??????? cnt2 = cnt2 + 1??? Else??????? cnt1 = cnt1 + 1??? End If Option Base 1????‘此句定义下标从1开始Private Sub Command1_Click() Text2.Text = cnt2End Sub NextText1.Text = cnt1 求最大数和最小数 Private Sub Command1_Click()Dim a(), i As Integer, max As Integer, min As Integera = Array(1, 3, 7, 6, 10, 5, 4, 2, 8, 9)max = a(1)min = a(1)For i = 1 To UBound(a)??? If max a(i) Then max = a(i)??? If min a(i) Then min = a(i) NextText1.Text = maxText2.Text = minEnd Sub 输入十个成绩,统计及格人数和不及格人数 Option Base 1 Private Sub Command1_Click()Dim a(10) As Integer, i As Integer, q1 A