VB经典例题13道(附答案)

1.一串字符求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, c, q, w, r s = TextBox1.Text For i = 1 To Len(s) c = Mid(s, i, 1) If UCase(c) = A And UCase(c) = 0 And c = 9 Then w = w + 1 Else r = r + 1 End If Next Label1.Text = 字母有 & q & 个 数字有 & w & 个 其他有 & r & 个 End Sub2.一串字符以？结尾，求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, a, z, x, c, i s = TextBox1.Text a = Mid(s, 1, 1) i = 1 Do While a ? If UCase(a) = A And UCase(a) = 0 And a = 0 Then Label1.Text = 是 & Len(c) & 位数 Else Label1.Text = 是 & Len(c) - 1 & 位数 End If Else If c = 0 Then For i = 1 To Len(c) If Mid(c, i, 1) = . Then Exit For j = j + 1 Next Label1.Text = 小数点前有 & j & 位数 & 小数点后有 & Len(c) - j - 1 & 位数 Else For i = 1 To Len(c) If Mid(c, i, 1) = . Then Exit For j = j + 1 Next Label1.Text = 小数点前有 & j - 1 & 位数 & 小数点后有 & Len(c) - j - 1 & 位数 End If End If End Sub4.求圆周率 公式Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, s, n, pi a = 1 n = 1 While Math.Abs(1 / n) 0.0001 pi = pi + a * (1 / n) n = n + 2 a = -a End While Label1.Text = 4 * pi End Sub5.求自然对数e 公式e=1+1+1/2!+1/3!+1/n!+.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, e1, l n = 1 e1 = 1 While 1 / n 0.01 l = 1 For i = 1 To n l = l * i Next n = n + 1 e1 = e1 + 1 / l End While Label1.Text = e1End Sub6.右直角三角形 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, s Label1.Text = n = Val(TextBox1.Text) For i = 1 To n s = Label1.Text &= Space(n - i) For j = 1 To i s &= * Next Label1.Text &= s & vbCrLf Next End Sub7等腰三角形 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, s Label1.Text = n = Val(TextBox1.Text) For i = 1 To n s = Label1.Text &= Space(n - i) For j = 1 To 2 * i - 1 s &= * Next Label1.Text &= s & vbCrLf Next End Sub8倒等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, s Label1.Text = n = Val(TextBox1.Text) For i = n To 1 Step -1 s = Label1.Text &= Space(n - i) For j = 2 * i - 1 To 1 Step -1 s &= * Next Label1.Text &= s & vbCrLf Next End Sub9右上角的直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, s Label1.Text = n = Val(TextBox1.Text) For i = n To 1 Step -1 s = Label1.Text &= Space(n - i) For j = i To 1 Step -1 s &= * Next Label1.Text &= s & vbCrLf Next End Sub10菱形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, s Label1.Text = For i = 1 To 6 s = Label1.Text &= Space(i - 1) For j = 1 To 12 s &= * Next Label1.Text &= s & vbCrLf Next End Sub11.水仙花数字 三位数字的个位数字的立方和等于该数字本身（1）.判断输入的数字是否是水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, a, b, c s = Val(TextBox1.Text) Label1.Text = a = s 100 b = (s - a * 100) 10 c = s Mod 10 If a 3 + b 3 + c 3 = s Then Label1.Text &= s & 是水仙花数 Else Label1.Text &= s & 不是水仙花数 End If End Sub（2）.找出所有的水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, a, b, c Label1.Text = 水仙花数是 & vbCrLf For s = 100 To 999 a = s 100 b = (s - a * 100) 10 c = s Mod 10 If a 3 + b 3 + c 3 = s Then Label1.Text &= s & vbCrLf End If Next End Sub12.完全数 正整数的因数之和等于这个数（1）.判断输入的数字是不是完全数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, j, l, a(100) s = Val(TextBox1.Text) j = 1 For i = 1 To s - 1 If s Mod i = 0 Then a(j) = i j = j + 1 End If Next For i = 1 To j l = l + a(i) Next If l = s Then Label1.Text = s & 是完全数 Else Label1.Text = s & 不是完全数 End If End Sub（2）.找出1到n内的完全数,n 由用户输入Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, j n = Val(TextBox1.Text) Label1.Text = For p = 2 To n j = 0 For i = 1 To p - 1 If p Mod i = 0 Then j = j + i End If Next If j = p Then Label1.Text &= p & End If Next End Sub13.显示1，1，2，3，5，8，13，21 F(i)=f(i-1)+ f(i-2)Private Sub Button1_Click(ByVal sender As System.Object, ByVal