vb上机题库及答案.docxVIP

vb 上机题库及答案 【篇一： vb 期末考试上机题编程答案】 xt1. 新建一个工程，编写一个找出所有四位幸运数显示在列表框中， 并将幸运数的个数显示在文本框中。所谓幸运数是指凡前两位数字 之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别 另存为为 f.frm 和 p.vbp ，保存在 d 盘的 vbtest 文件夹中。如不按 要求保存，造成文件无法上传，后果自负！ 具体要求： 1 、程序参考界面如图所示，编程时不得增加或减少界面对象或改变 对象的种类，窗体及界面元素大小适中，且均可见； 、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框 中显示幸运数的个数； 、单击 “清除 ”按钮，则将列表框和文本框清空； 、单击 “退出 ”按钮，结束程序运行； 、程序中应包含一个过程，用于判断一个数是否是幸运数。 解： 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 新建一个工程，编写求某一自然数因子和的程序。要求通过文本 框获取输入的自然数，计算后将所计算得到的因子和显示在另一文 本框中。将原窗体文件和工程文件分别另存为为 f.frm 和 p.vbp ，保 存在 d 盘的 vbtest 文件夹中。如不按要求保存，造成文件无法上传， 后果自负！ 具体要求： 、程序参考界面如图所示，编程时不得增加或减少界面对象或改变 对象的种类，窗体及界面元素大小适中，且均可见； 、单击求和按钮，则在文本框中显示计算得到的因子和； 、单击 “清除 ”按钮，则将文本框清空，焦点设置在第一个文本框； 、单击 “退出 ”按钮，结束程序运行； 、在程序中应包含一个用于计算自然数因子和的函数过程 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 新建一个工程，编写一个程序，判断随机生成的 10 个三位正整 数是否是降序数。所谓降序数是指百位数大于十位数且十位数大于 个位数的数。将原窗体文件和工程文件分别另存为为 f.frm 和 p.vbp ， 保存在 d 盘的 vbtest 文件夹中。如不按要求保存，造成文件无法上 传，后果自负！ 具体要求： 、程序参考界面如图所示，编程时不得增加或减少界面对象或改变 对象的种类，窗体及界面元素大小适中，且均可见； 的格式显示在右边的列表框中； 、单击 “清除 ”按钮，则将两个列表框清空； 、单击 “退出 ”按钮，结束程序运行； 、程序中应包含一个名为 jx 的函数过程，用于判断一个正整数是 否为降序数。 解； private function jx(n as integer) as boolean dim i as integer dim a as integer, b as integer for i = 2 to len(str(n))