5-编程练习教学课件

1、程序训练,1、编写统计程序，统计用户输入的字符串中有多少个数字字符，有多少个字母字符，有多少个其它字符，并将结果输出到窗体上。,Private Sub Command1_Click() digit = 0: letter = 0: other = 0 x = InputBox(请输入一个字符串) n = Len(x) For i = 1 To n ch = Mid(x, i, 1) If 0 = ch And ch = 9 Then digit = digit + 1 ElseIf A = Ucase(ch) And Ucase(ch) = Z Then letter = letter + 1

2、 Else other = other + 1 End If Next Print 数字个数:; digit Print 字母个数:; letter Print 其他字符个数:; other End Sub,isNumeric(ch),2、输入一串由字母组成的字符串，统计各字母出现的次数（不区分大小写），输出结果。,Private Sub command1_click() Dim a(0 To 25) As Integer, length As Integer Dim c As String, j As Integer, s As Integer length = Len(Text1.Text

3、) For i = 1 To length c = UCase(Mid(Text1.Text, i, 1) If c = A And c 0 Then s = s + a(i) Print Chr(i + 65) + = + Str(a(i) + End If Next i Print 共有 + Str(s) + 个字母。 End Sub,3、提示用户输入身份证号，编程判断身份证号的合法性，若合法，提取其中的生日，并显示该用户的性别；若不合法，给出提示。（身份证号要求：1）18位；2）最后一位为数字或字母，其余全是字母；3）第17位数字表示性别：奇数表示男性，偶数表示女性。）,Dim str

4、As String str = Trim(Text1.Text) If Len(str) = 18 Then If Not IsNumeric(Mid(str, 1, 17) Then MsgBox (出现非数字符号！) Else MsgBox (生日： + Mid(str, 7, 4) + 年 + Mid(str, 11, 2) + 月 + Mid(str, 13, 2) + 日) If Mid(str, 17, 1) Mod 2 0 Then MsgBox (性别：男) Else MsgBox (性别：女) End If End If Else MsgBox (长度不足18位！) End

5、If,4、有一分数序列：2/1,3/3,5/5,8/7,12/9,17/11.,输出其前20项并求和。,Private Sub form_Click() Dim s As Single, i As Integer Dim n As Integer, m As Integer n = 2 m = 1 For i = 1 To 20 s = s + n / m Print Str(n) + / + Str(m) + =, n / m n = n + i m = m + 2 Next i Print s = , s End Sub,5、程序计算并显示数列1、3、7、15.前30项的和。（说明：第n项

6、的值=前n-1项和再加n，例如：第四项15=1+3+7+4。）,Private Sub Command1_Click() Dim a(1 To 30) s = 0 For i = 1 To 30 h = 0 For j = 1 To i - 1 h = h + a(j) Next a(i) = h + i s = s + a(i) Next Print s End Sub,6、计算下列公式的值，K值由用户输入决定。,Private Sub Form_Click() Dim n As Integer n = InputBox(n=) s = 1 For k = 1 To n s = s * (2

7、 * k) * (2 * k) / (2 * k - 1) / (2 * k + 1) Next k Print s End Sub,7、输入一个整数闭区间的下界和上界，找出该区间内的只有素数因子（1和数本身除外）的数，并输出该数的两个素数因子。,Private Sub Command1_Click() Dim n As Integer, s As String, h As String Dim a As Integer, b As Integer, i As Integer a = Text1.Text: b = Text2.Text For n = a To b h = If Not pr

8、ime(n) Then For i = 2 To n / 2 If n Mod i = 0 Then If prime(i) Then h = h m; n Exit For Else Print k; m; n m = m + n End If Next i If i = 7 Then Print 第; k; 次找到回文数：; m; n Else Print 暂没有找到回文数！ End If End Sub,13、两个乒乓球队进行比赛，各出三人。甲队为A，B，C三人，乙队为X，Y，Z三人。已抽签决定 比赛名单，有人向队员打听比赛的名单，A说他不和X比，C说他不和X、Z比，编程找出三对选手的对

9、手名单。（穷举法）,Private Sub Command1_Click() For i = 1 To 3 For j = 1 To 3 For k = 1 To 3 If i j And i k And j k Then If i 1 And k 1 And k 3 Then Print A; “ VS ; Chr(Asc(X) + i - 1) Print B; “ VS ; Chr(Asc(X) + j - 1) Print C; “ VS ; Chr(Asc(X) + k - 1) End If End If Next Next Next End Sub,14、找出20个随机数数组中的

10、最大元素，把最大元素与首元素对调；再找出数组中的最小元素，把最小元素与末尾元素对调。,Dim s(1 To 20) As Integer For i = 1 To 20 s(i) = Int(Rnd * 100 + 1) Print s(i); Next big = s(1): bigi = 1 small = s(1): smalli = 1 For i = 2 To 20 If s(i) big Then big = s(i) : bigi = i End If If s(i) small Then small = s(i) : smalli = i End If Next i,If bigi 1 Then tem