VB期末考试上机题编程答案Word文件下载.docx

1、= aEnd SubPrivate Sub Command2_Click（）= Private Sub Command3_Click（） EndPrivate Function k（n As Integer） As Integer Dim i As Integer, a As Integer, s1 As Integer, s2 As Integer Dim s As Strings = CStr（n）For i = 1 To Len（s） / 2s1 = s1 + Mid（s, i, 1）s2 = s2 + Mid（s, Len（s） + 1 - i, 1） If s1 = s2 Then

2、k = TrueEnd Function2.新建一个工程，编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中。求和按钮，则在文本框中显示计算得到的因子和；3、单击“清除”按钮，则将文本框清空，焦点设置在第一个文本框；5、在程序中应包含一个用于计算自然数因子和的函数过程YinZi（n）。解； Dim n As Integer n = ValCall yinzi（n）= yinzi（n）Private Function yinzi（n As Integer） As Integer Dim i As IntegerFor i = 1 To n

3、/ 2 If n Mod i = 0 Then yinzi = yinzi + iText1.SetFocus3.新建一个工程，编写一个程序，判断随机生成的10个三位正整数是否是降序数。所谓降序数是指百位数大于十位数且十位数大于个位数的数。执行按钮，随机生成10个三位正整数，显示在左边的列表框中，将判断结果参照样图的格式显示在右边的列表框中；3、单击“清除”按钮，则将两个列表框清空；5、程序中应包含一个名为jx的函数过程，用于判断一个正整数是否为降序数。Private Function jx（n As Integer） As Boolean Dim a As Integer, b As Int

4、egerFor i = 2 To Len（Str（n）a = Val（Mid（n, i - 1, 1）b = Val（Mid（n, i, 1） If a Len（Str（n） - 1 Then jx = TruePrivate Sub command1_click（） Dim a（1 To 10） As IntegerFor i = 1 To 10a（i） = 1000 + Int（Rnd * 9000）a（i）If jx（a（i） Then a（i）Private Sub command3_click（）4.新建一个工程，统计一个二进制数中0的个数和1的个数。2、第一个文本框用于输入一个二进

5、制数，单击“统计”按纽，在另外两个文本框中分别显示0和1的个数；3、单击“清除”按纽，将三个文本框内容清除，且光标落在第一个文本框；4、单击“退出”按纽，则结束程序运行；5、程序中应包含一个过程，用于统计字符串中0和1的个数。Dim s As Strings =Dim a As Integer, b As IntegerCall fun（s）Private Sub fun（s As String）Dim i As Integer, a As Integer, b As IntegerFor i = 1 To Len（s） If Mid（s, i, 1） = 0 Thena = a + 1Els

6、e: b = b + 1End IfNext i0的个数有 & Val（a） & 个1的个数有 Val（b） &Private Sub command2_click（）5.新建一个工程，编写一个程序，找出随机生成的30个三位正整数中的升序数。所谓升序数是指百位数小于十位数且十位数小于个位数的数。按钮，随机生成30个三位正整数，按6个数一行的格式显示在多行文本框中，再找出其中的升序数输出到列表框；3、单击“清除”按钮，则将文本框和列表框清空；5、程序中应包含一个名为jx的函数过程，用于判断一个正整数是否为升序数。 Dim a（1 To 6, 1 To 5） As Integer Dim i As

7、 Integer, j As IntegerFor i = 1 To 6For j = 1 To 5a（i, j） = 10 + Int（Rnd * 20）If jx（a（i, j） = True Then a（i, j）= & a（i, j） & Next j vbCrLfPrivate Function jx（n As Integer） As Integer If a 6.新建一个工程，编写一个程序，求两个正整数的最小公倍数。2、从两个文本框中输入两个正整数，单击求解按钮，在第三个文本框中显示求得的这两个数的最小公倍数；3、单击“清除”按钮，则将三个文本框清空，并将焦点设置在第一个文本框；

8、5、程序中应包含一个过程，用于求两个正整数的最小公倍数。 Dim a, b As Integer a = Val b = ValCall gcd（a, b）= gcd（a, b）Private Function gcd（ByVal n As Integer, ByVal m As Integer） Dim r As Integer Dim s As Integer s = m * nDo While n 0 r = m Mod n m = n n = r Loop gcd = s / m7.新建一个工程，编写程序找出所有小于1000的完数。一个数如果恰好等于它的因子之和，这个数称为完数。一个数

9、的因子是指除了该数本身以外能被其整除的数。2、单击“查找”按钮，在列表框中显示所有满足条件的完数；3、单击“清除”按钮，清空列表框；4、单击“结束”按钮，结束程序运行；5、程序中应包含一个过程，用于判断某个数是否是完数。For i = 1 To 1000 If k（i） Then i Dim i As Integer, s As Integer If n Mod i = 0 Then s = s + i If s = n Then k = True8.新建一个工程，编写一个程序找出所有满足条件的四位数。这些数本身是素数，而且其每一位数都是素数。按钮，在列表框中显示所有满足条件的四位数数；3、单

10、击“清除”按钮，则将列表框清空；5、程序中应包含一个过程，用于判断一个数是否为素数。 If k（i）And k（Mid（i,1,1）And k（Mid（i,2,1）And k（Mid（i,3,1）And k（Mid（i,4, 1） Then iFor i = 2 To Sqr（n） If n Mod i = 0 Then Exit For Sqr（n） Then k = True End If9.新建一个工程，编写一个程序，找出数组中最大的元素并显示其位置。显示按钮，则在图片框中显示由随机的二位数组成的5行5列的数组；3、单击“查找”按钮，则在文本框中显示最大元素及其位置；4、单击“清除”按钮

11、，则将文本框和图片框清空；5、单击“退出”按钮，结束程序运行；6、程序中应包含一个过程，用于查找数组中的最大元素及其所在行和列。Option Base 1Dim a（1 To 5, 1 To 5） As IntegerPublic Sub Command1_Click（）Dim i, j As IntegerFor i = 1 To 5a（i, j） = 10 + Int（Rnd * 90）a（i, j）;k = 0 Dim a（1 To 5, 1 To 5） As IntegerIf a（i, j） k Then k = a（i, j） Dim max As Integer, x As In

12、teger, y As Integermax = 0 If a（i, j） max Then max = a（i, j） And x = i And y = j最大数组的位置是：（ x &, y &）Private Sub Command4_Click（）10.新建一个工程，编写一个程序，求乘积为180，最大公约数为3的数对。按钮，则开始查找并在列表框中显示结果，数据相同的两组数中只取一组，小的数在前面，大的数在后面，如12、15和15、12只取12、15这一对；5、程序中应包含一个求两个数的最大公约数的过程。 Dim x, y As IntegerFor x = 1 To Int（Sqr（180） y = 180 / xIf gcd（x, y） = 3 Then x &和 y Next x gcd = m