vb上机题库及答案_1722401886.pdf

vb上机题库及答案

【篇一：vb期末考试上机题编程答案】

xt>1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，
并将幸运数的个数显示在文本框中。所谓幸运数是指凡前两位数字
之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别
另存为为f.frm和p.vbp，保存在d盘的vbtest文件夹中。如不按

要求保存，造成文件无法上传，后果自负！具体要求：
1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变

对象的种类，窗体及界面元素大小适中，且均可见；
2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框

中显示幸运数的个数；
3、单击“清除”按钮，则将列表框和文本框清空；
4、单击“退出”按钮，结束程序运行；
5、程序中应包含一个过程，用于判断一个数是否是幸运数。
解：privatesubcommand1_click()
dimiasinteger,aasinteger
fori=1000to9999
ifk(i)thenlist1.additemi:a=a+1
nexti
text1.text=a
endsub
privatesubcommand2_click()
list1.clear
text1.text=
endsub
privatesubcommand3_click()
end
endsub
privatefunctionk(nasinteger)asinteger
dimiasinteger,aasinteger,s1asinteger,s2asintegerdim

sasstring
s=cstr(n)
fori=1tolen(s)/2
s1=s1+mid(s,i,1)
s2=s2+mid(s,len(s)+1-i,1)
nexti
ifs1=s2thenk=true
endfunction
2.新建一个工程，编写求某一自然数因子和的程序。要求通过文本
框获取输入的自然数，计算后将所计算得到的因子和显示在另一文
本框中。将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保
存在d盘的vbtest文件夹中。如不按要求保存，造成文件无法上传，

后果自负！
具体要求：
1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变

对象的种类，窗体及界面元素大小适中，且均可见；
2、单击求和按钮，则在文本框中显示计算得到的因子和；
3、单击“清除”按钮，则将文本框清空，焦点设置在第一个文本框；
4、单击“退出”按钮，结束程序运行；
5、在程序中应包含一个用于计算自然数因子和的函数过程yinzi(n)。
解；privatesubcommand1_click()
dimnasinteger
n=val(text1.text)
callyinzi(n)
text2.text=yinzi(n)
endsub
privatefunctionyinzi(nasinteger)asinteger
dimiasinteger
fori=1ton/2
ifnmodi=0thenyinzi=yinzi+i
nexti
endfunction
privatesubcommand2_click()
text1.text=
text2.text=
text1.setfocus
endsub
privatesubcommand3_click()
end
endsub
3.新建一个工程，编写一个程序，判断随机生成的10个三位正整
数是否是降序数。所谓降序数是指百位数大于十位数且十位数大于
个位数的数。将原窗体文件和工程文件分别另存为为f.frm和p.vbp，
保存在d盘的vbtest文件夹中。如不按要求保存，造成文件无法上

传，后果自负！
具体要求：
1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变

对象的种类，窗体及界面元素大小适中，且均可见；
的格式显示在右边的列表框中；
3、单击“清除”按钮，则将两个列表框清空；
4、单击“退出”按钮，结束程序运行；
5、程序中应包含一个名为jx的函数过程，用于判断一个正整数是

否为降序数。
解；privatefunctionjx(nasinteger)asboolean
dimiasinteger
dimaasinteger,basinteger
fori=2tolen(str(n))
a=val(mid(n,i-1,1))
b=val(mid(n,i,1))
ifa=bthenexitfor
nexti
ifilen(str(n))-1thenjx=true
endfunction
privatesubcommand1_click()
dima(1to10)asinteger
dimiasinteger
fori=1to10
a