vb各种程序.doc

1级数数列求和 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim m, i, n As Integer Dim s, j As Double n = InputBox(请输入n的值 & n) i = 0 m = 1 s = 2 For i = 1 To n i = i + 1 m = m + i j = 1 + 1 / i s = s + j NextMsgBox(Str(s) End SubEnd Class2求回文数Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, ww, qw, sw, gw, k As Integer Dim str1 As String str1 = For i = 10000 To 50000 ww = i / 10000 qw = (i Mod 10000) / 1000 sw = (i Mod 100) / 10 gw = i Mod 10 If ww = gw And qw = sw Then k = k + 1 If k Mod 5 = 0 Then str1 = str1 + Str(i) + vbCrLf Else : str1 = str1 + Str(i) End If End If Next MsgBox(Str(k) + vbCrLf + str1) End SubEnd Class3求素数 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, k, s As Integer Dim str1 As String str1 = For i = 3 To 100 For j = 2 To i - 1 If i Mod j = 0 Then Exit For End If Next j If j = i Then k = k + 1 If k Mod 5 = 0 Then str1 = str1 + Str(i) + vbCrLf Else : str1 = str1 + Str(i) End If End If Next MsgBox(str1) End SubEnd Class求完全数Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, j, k, s As Integer Dim str1 As String str1 = For i = 2 To 10000 s = 0 For j = 1 To i / 2 If i Mod j = 0 Then s = s + j End If Next If i = s Then k = k + 1 If i Mod 5 = 0 Then str1 = str1 + Str(i) + vbCrLf Else : str1 = str1 + Str(i) End If End If Next MsgBox(k= + k.ToString() + vbCrLf + str1) End SubEnd Class矩阵最大元素查找 Dim a(,), n, m, i, j As Integer Dim max, row, col As Integer Dim str1 As String n = Val(InputBox(请输入矩阵行数n=) m = Val(InputBox(请输入矩阵列数m=) ReDim a(n - 1, m - 1) For i = 0 To n - 1 For j = 0 To j - 1 a(i, j) = Val(InputBox(请输入 & i & 行 & j & 列元素的值) str1 = str1 + Str(a(i, j) + Space(4) Next j str1 = str1 + Chr(10) + Chr(13) Next i max = a(0, 0) For i = 0 To n - 1 For j = 0 To m - 1 If a(i, j) max Then max = a(i, j) row = i col = j End If Next j Next i TextBox1.Text = str1 TextBox2.Text = max TextBox3.Text = row TextBox4.Text = col2、习题7-7 矩阵转置Dim a(,), b(,), n, m, i, j As Integer Dim str1, str2 As String n = Val(InputBox(请输入矩阵行数n=) m = Val(InputBox(请输入矩阵列数m=) ReDim a(n - 1, m - 1) ReDim b(m - 1, n - 1) For i = 0 To n - 1 For j = 0 To m - 1 a(i, j) = Val(InputBox(请输入 & i & 行 & j & 列元素的值) str1 = str1 + Str(a(i, j) + Space(4) Next j str1 = str1 + Chr(13) + Chr(10) Next i For i = 0 To m - 1 For j = 0 To n - 1 b(i, j) = a(j, i) str2 = str2 + Str(b(i, j) + Space(4) Next j str2 = str2 + Chr(13) + Chr(10) Next i TextBox1.Text = str1 TextBox2.Text = str23、习题7-8 矩阵输入/输出，行/列求和，元素对换 Dim a(3, 3), i, j As Integer Dim str1, str2 As String For i = 0 To 3 For j = 0 To 3 a(i, j) = Val(InputBox(请输入 & i & 行 & j & 列元素的值) If i = j And i + j = 3 Then str1 = str1 + Str(a(i, j) End If Next Next MsgBox(str1) Dim s1, s2 As Integer Dim a(3, 3), i, j As Integer s1 = s2 = 0 For i = 0 To 3 For j = 0 To 3 a(i, j) = Val(InputBox(请输入 & i & 行 & j & 列元素的值) s1 = a(0, j) + s1 s2 = s2 + a(i, 0) Next Next MsgBox(s1) TextBox1.Text = s2 Dim t As Integer Dim a(3, 3), i, j As Integer Dim str1 As String For i = 0 To 3 For j = 0 To 3 a(i, j) = Val(InputBox(请输入 & i & 行 & j & 列元素的值) t = a(0, j) a(2, j) = t str1 = str1 + Str(a(i, j) Next Next4、习题7-12 输出“杨辉三角形” Dim a(,), n, m, i, j As Integer Dim str1 As String ReDim a(11, 11) For i = 1 To 11 For j = 1 To i If i = j Then a(i, j) = 1 Else a(i, j) = a(i - 1, j - 1) + a(i - 1, j) End If str1 = str1 + Str(a(i, j) + Space(4) Next str1 = str1 + Chr(13) + Chr(10) Next TextBox1.Text = str1 Dim a(3, 3), i, j As Integer Dim str1, str2 As String For i = 0 To 3 For j = 0 To 3 a(i, j) = Val(InputBox(请输入 & i & 行 & j & 列元素的值) If i = j And i + j = 3 Then str1 = str1 + Str(a(i, j) End If Next Next MsgBox(str1) Dim s1, s2 As Integer 编写程序，建立并输出一个10*10的矩阵， 该矩阵主对角线和副对角线为1，其余元素为0, 结果显示在textbox1文本框中。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(9, 9), i, j, n As Integer Dim str