VB期末考试上机题编程答案

1、具体要求：1. 新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运 数的个数显示在文本框中。所谓幸运数是指凡前两位数字之和等于后两位数字 之和的四位数。将原窗体文件和工程文件分别另存为为f.frm和p.vbp,保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类， 窗体及界面元素大小适中，且均可见；2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显 示幸运数的个数； 3、单击 “清除”按钮，则将列表框和文本框清空； 4、单击 “退 出 ”按钮，结束程序运行；5、程序中应包

2、含一个过程，用于判断一个数是否是幸运数。解： Private Sub Command1_Click()Dim i As Integer, a As IntegerFor i = 1000 To 9999If k(i) Then List1.AddItem i: a = a + 1Next iText1.Text = aEnd SubPrivate Sub Command2_Click()List1.ClearText1.Text = End SubPrivate Sub Command3_Click()EndEnd SubPrivate Function k(n As Integer) As

3、IntegerDim i As Integer, a As Integer, s1 As Integer, s2 As IntegerDim 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)Next iIf s1 = s2 Then k = TrueEnd Function2. 新建一个工程，编写求某一自然数因子和的程序。要求通过文本框获取输 入的自然数，计算后将所计算得到的因子和显示在另一文本框中。将原窗体文 件和工程文件分别另存为为f.

4、frm和p.vbp,保存在D盘的VBTest文件夹中。如 不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的 种类，窗体及界面元素大小适中，且均可见；2、单击求和按钮，则在文本框中显示计算得到的因子和；3、 单击 “清除”按钮，则将文本框清空，焦点设置在第一个文本框；4、单 击“退出 ”按钮，结束程序运行；5、在程序中应包含一个用于计算自然数因子和的函数过程YinZi(n)。解； Private Sub Command1_Click()Dim n As Integer n = Val(Text1.Text)Call yinzi

5、(n)Text2.Text = yinzi(n)End SubPrivate Function yinzi(n As Integer) As IntegerDim i As IntegerFor i = 1 To n / 2If n Mod i = 0 Then yinzi = yinzi + iNext iEnd FunctionPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub3. 新建一个工程，编写一个程序，判断随

6、机生成的 10 个三位正整数是否是 降序数。所谓降序数是指百位数大于十位数且十位数大于个位数的数。将原窗体文件和工程文件分别另存为为f.frm和p.vbp,保存在D盘的VBTest文件夹 中。如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的 种类，窗体及界面元素大小适中，且均可见；2、单击执行按钮，随机生成 10 个三位正整数，显示在左边的列表框 中，将判断结果参照样图的格式显示在右边的列表框中；3、单击 “清除”按钮，则将两个列表框清空；4、单击 “退出 ”按钮，结束程序运行；5、程序中应包含一个名为 jx 的函数过程，

7、用于判断一个正整数是否为降序 数。解； Private Function jx(n As Integer) As BooleanDim i As IntegerDim a As Integer, b As IntegerFor 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 = TrueEnd FunctionPrivate Sub command1_click()Dim a(1 To 10) As IntegerDim i As IntegerFor i =

8、1 To 10a(i) = 1000 + Int(Rnd * 9000)List1.AddItem a(i)If jx(a(i) Then List2.AddItem a(i)Next iEnd SubPrivate Sub Command2_Click()List1.ClearList2.ClearEnd SubPrivate Sub command3_click()EndEnd Sub4. 新建一个工程，统计一个二进制数中 0 的个数和 1 的个数。将原窗体文件 和工程文件分别另存为为f.frm和p.vbp,保存在D盘的VBTest文件夹中。如不 按要求保存，造成文件无法上传，后果自负！具

9、体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的 种类，窗体及界面元素大小适中，且均可见；2、第一个文本框用于输入一个二进制数，单击 “统计”按纽，在另外两个文 本框中分别显示 0 和 1 的个数；3、单击 “清除 ”按纽，将三个文本框内容清除，且光标落在第一个文本框；4、单击退出”按xx,则结束程序运行；5、程序中应包含一个过程，用于统计字符串中 0和 1的个数。 解； Private Sub Command1_Click()Dim s As Strings = Text1.TextDim a As Integer, b As IntegerCall fun(s)E

10、nd SubPrivate 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 + 1Else: b = b + 1End IfNext iText2.Text = 0 的个数有 & Val(a) & 个 Text3.Text = 1 的个数有 & Val(b) & 个End SubPrivate Sub command2_click()Text1.Text = Text2.Text = Text3.Text = Text

11、1.SetFocusEnd SubPrivate Sub command3_click()EndEnd Sub5. 新建一个工程，编写一个程序，找出随机生成的30 个三位正整数中的升序数。所谓升序数是指百位数小于十位数且十位数小于个位数的数。将原窗体 文件和工程文件分别另存为为f.frm和p.vbp,保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的 种类，窗体及界面元素大小适中，且均可见；2、单击执行按钮，随机生成 30 个三位正整数，按 6个数一行的格式显 示在多行文本框中，再找出其中的

12、升序数输出到列表框；3、单击 “清除”按钮，则将文本框和列表框清空；4、单击 “退出 ”按钮，结束程序运行；5、程序中应包含一个名为 jx 的函数过程，用于判断一个正整数是否为升序 数。解： Private Sub Command1_Click()Dim a(1 To 6, 1 To 5) As IntegerDim i As Integer, j As IntegerFor i = 1 To 6For j = 1 To 5 a(i, j) = 10 + Int(Rnd * 20)If jx(a(i, j) = True Then List1.AddItem a(i, j)Text1.Text

13、 = Text1.Text & a(i, j) & Next jText1.Text = Text1.Text & vbCrLfNext iEnd SubPrivate Sub Command2_Click()List1.ClearText1.Text = End SubPrivate Function jx(n As Integer) As IntegerDim i As IntegerDim a As Integer, b As IntegerFor i = 2 To Len(Str(n) a = Val(Mid(n, i - 1, 1) b = Val(Mid(n, i, 1) If a

14、 = b Then Exit For Next iIf i Len(Str(n) - 1 Then jx = TrueEnd FunctionPrivate Sub Command3_Click()EndEnd Sub6. 新建一个工程，编写一个程序，求两个正整数的最小公倍数。将原窗体文 件和工程文件分别另存为为f.frm和p.vbp,保存在D盘的VBTest文件夹中。如 不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的 种类，窗体及界面元素大小适中，且均可见；2、从两个文本框中输入两个正整数，单击 求解按钮，在第三个文本框

15、中 显示求得的这两个数的最小公倍数；3、单击 “清除”按钮，则将三个文本框清空，并将焦点设置在第一个文本 框；4、单击 “退出 ”按钮，结束程序运行；5、程序中应包含一个过程，用于求两个正整数的最小公倍数。解； Private Sub Command1_Click()Dim a, b As Integera = Val(Text1.Text)b = Val(Text2.Text)Call gcd(a, b)Text3.Text = gcd(a, b)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text =

16、 Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Function gcd(ByVal n As Integer, ByVal m As Integer)Dim r As IntegerDim s As Integer s = m * nDo While n 0 r = m Mod n m = n n = rLoop gcd = s / mEnd Function7. 新建一个工程，编写程序找出所有小于 1000 的完数。一个数如果恰好等 于它的因子之和，这个数称为完数。一个数的因子是指除了该数本身以外能被其

17、整除的数。将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！具体 要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的 种类，窗体及界面元素大小适中，且均可见；2、单击“查找”按钮，在列表框中显示所有满足条件的完数；3、单击“清除”按钮，清空列表框；4、单击 “结束 ”按钮，结束程序运行；5、程序中应包含一个过程，用于判断某个数是否是完数。解； Private Sub Command1_Click()Dim i As IntegerFor i = 1 To 1000If k(i) Then

18、 List1.AddItem iNext iEnd SubPrivate Sub Command2_Click()List1.ClearEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Function k(n As Integer) As IntegerDim i As Integer, s As IntegerFor i = 1 To n / 2If n Mod i = 0 Then s = s + iNext iIf s = n Then k = TrueEnd Function8. 新建一个工程，编写一个程序找出所有满足条件的四位

19、数。这些数本身是 素数，而且其每一位数都是素数。将原窗体文件和工程文件分别另存为为 f.frm 和p.vbp，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上 传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的 种类，窗体及界面元素大小适中，且均可见；2、 单击查找按钮，在列表框中显示所有满足条件的四位数数；3、单击 “清除 ”按钮，则将列表框清空；4、单击 “退出 ”按钮，结束程序运行；5、程序中应包含一个过程，用于判断一个数是否为素数。解； Private Sub Command1_Click()Dim i As IntegerFor

20、 i = 1000 To 9999Ifk(i)Andk(Mid(i,1,1)Andk(Mid(i,2,1)Andk(Mid(i,3,1)Andk(Mid(i,4, 1) Then List1.AddItem iNext iEnd SubPrivate Sub Command2_Click()List1.ClearEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Function k(n As Integer) As IntegerDim i As IntegerFor i = 2 To Sqr(n)If n Mod i = 0 Then

21、Exit ForNext iIf i Sqr(n) Thenk = TrueEnd IfEnd Function9. 新建一个工程，编写一个程序，找出数组中最大的元素并显示其位置。将 原窗体文件和工程文件分别另存为为 f.frm和p.vbp,保存在D盘的VBTest文件 夹中。如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的 种类，窗体及界面元素大小适中，且均可见；2、 单击显示按钮，则在图片框中显示由随机的二位数组成的5行 5列的 数组；3、单击 “查找”按钮，则在文本框中显示最大元素及其位置；4、单击 “清除”按钮，则

22、将文本框和图片框清空；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 5For j = 1 To 5a(i, j) = 10 + Int(Rnd * 90)Picture1.Print a(i, j);Next jPicture1.PrintNext iEnd SubPrivate Function k(n As Intege

23、r) As IntegerDim i, j As Integerk = 0Dim a(1 To 5, 1 To 5) As IntegerFor i = 1 To 5For j = 1 To 5 a(i, j) = 10 + Int(Rnd * 90) If a(i, j) k Then k = a(i, j) Next jNext iEnd FunctionPrivate Sub Command2_Click()Dim max As Integer, x As Integer, y As Integer max = 0For i = 1 To 5For j = 1 To 5If a(i, j) max Then max = a(i, j) And x = i And y = j Next jNext iText1.Text = 最大数组的位置是： & ( & x & , & y & ) E