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

VB期末考试上机题编程答案 VB期末考试上机题编程答案 PAGE / NUMPAGES VB期末考试上机题编程答案 页眉内容 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() GtSB5n90g0w 页眉内