文档详情

VB系列代码.ppt

发布:2017-05-11约3.7千字共14页下载文档
文本预览下载声明
求和 Private Sub Command1_Click() Dim i As Integer, s As Integer For i = 1 To 100 s = s + 1 Next i Text1.Text = s End Sub 《循环语句一,for》 显示100 求和 Private Sub Command1_Click() Dim i As Integer, s As Integer For i = 1 To 100 s = s + i Next i Text1.Text = s End Sub 《循环语句一,for》 显示5050 求和 Private Sub Command1_Click() Dim i As Integer, s As Integer While i = 100 ??? s = s + i ??? i = i + 1 ????Wend Text1.Text = s End Sub 循环语句二 while wend 求和 Private Sub Command1_Click() Dim i As Integer, s As Integer Do Until i 100 ??? s = s + i ??? i = i + 1 Loop Text1.Text = s End Sub 循环语句三 do until loop 求阶乘 Private Sub Command1_Click() Dim n As Integer, i As Integer, t As Long n = InputBox(输入一个数, n=, 10) t = 1 For i = 1 To n ??? t = t * i Next Text1.Text = t End Sub 显示3628800 求1到100被3和7同时整除数的个数 Private Sub Command1_Click() Dim i As Integer, cnt As Integer For i = 1 To 100 ??? If i Mod 3 = 0 And i Mod 7 = 0 Then ???cnt = cnt + 1 ???????? Print i ??? End If Next Text1.Text = cnt End Sub 一个数组中有多少奇数多少偶数 Private Sub Command1_Click() Dim a(), cnt1 As Integer, cnt2 As Integer a = 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 If Next Text1.Text = cnt1 Text2.Text = cnt2 End Sub Dim a(), cnt1 As Integer, cnt2 As Integer a = 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 = cnt2 End Sub Next Text1.Text = cnt1 求最大数和最小数 Private Sub Command1_Click() Dim a(), i As Integer, max As Integer, min As Integer a = 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) Next Text1.Text = max Text2.Text = min End Sub 输入十个成绩,统计及格人数和不及格人数 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, q1 A
显示全部
相似文档