5-编程练习.pptxVIP

程序训练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 Else other = other + 1 End If Next Print 数字个数:; digit Print 字母个数:; letter Print 其他字符个数:; other End SubisNumeric(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) For i = 1 To length c = UCase(Mid(Text1.Text, i, 1)) If c = A And c = Z Then j = Asc(c) - Asc(A) a(j) = a(j) + 1 End If Next i For i = 0 To 25 If a(i) 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 As Stringstr = 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 IfElse MsgBox (长度不足18位！)End If4、有一分数序列：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 = , sEnd Sub5、程序计算并显示数列1、3、7、15…..前30项的和。（说明：第n项的值=前n-1项和再加n，例如：第四项15=1+3+7+4。）Private Sub Command1_Click()Dim a(1 To 30)s = 0For 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)NextPrint sEnd Sub6、计算下列公式的值，K值由用户输入决定。 Private Sub Form_Click() Dim n As Integer n = InputBox(n=) s = 1 For k = 1 To n s = s * (2 * k) * (2 * k) / (2 * k - 1) / (2 * k + 1) Next k Print sEnd Sub7、输入一个整数闭区间的下界和上界，找出该区间内的只有素数因子（1和数本身除外）的数，并输出该数