VB期末考试上机题编程答案.doc
文本预览下载声明
VB期末考试上机题编程答案
1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！
具体要求：
1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；
3、单击“清除”按钮，则将列表框和文本框清空；
4、单击“退出”按钮，结束程序运行；
5、程序中应包含一个过程，用于判断一个数是否是幸运数。
解：Private Sub Command1_Click()
Dim i As Integer, a As Integer
For i = 1000 To 9999
If k(i) Then List1.AddItem i: a = a + 1
Next i
Text1.Text = a
End Sub
Private Sub Command2_Click()
List1.Clear
Text1.Text =
End Sub
Private Sub Command3_Click()
End
End Sub
Private Function k(n As Integer) As Integer
Dim i As Integer, a As Integer, s1 As Integer, s2 As Integer
Dim s As String
s = CStr(n)
For i = 1 To Len(s) / 2
s1 = s1 + Mid(s, i, 1)
s2 = s2 + Mid(s, Len(s) + 1 - i, 1)
Next i
If s1 = s2 Then k = True
End Function
2. 新建一个工程，编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数，计算后将所计算得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为f.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(n)
Text2.Text = yinzi(n)
End Sub
Private Function yinzi(n As Integer) As Integer
Dim i As Integer
For i = 1 To n / 2
If n Mod i = 0 Then yinzi = yinzi + i
Next i
End Function
Private Sub Command2_Click()
Text1.Text =
Text2.Text =
Text1. SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
3. 新建一个工程，编写一个程序，判断随机生成的10个三位正整数是否是降序数。所谓降序数是指百位数大于十位数且十位数大于个位数的数。将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在D盘的VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！
具体要求：
1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2、单击执行按钮，随机生成10个三位正整数，显示在左边的列表框中，将
显示全部