vb大题.docx
- 文档编号:10669593
- 上传时间:2023-05-27
- 格式:DOCX
- 页数:29
- 大小:1.10MB
vb大题.docx
《vb大题.docx》由会员分享,可在线阅读,更多相关《vb大题.docx(29页珍藏版)》请在冰点文库上搜索。
vb大题
[题目]计算公式
的和,当第n项的值<10-5时结束。
【编程要求】
1、单击"计算"按钮,则将计算结果显示在文本框中Text1中;单击"清除"按钮,则清除文本框的内容;
单击"退出"按钮,程序停止运行。
2、界面应与给出的参考界面相似,不得增加或减少控件。
答案sum=0
n=1
x=1
DoWhilex>=0.0001
sum=sum+x
n=n+1
x=1/(2*n-1)
Loop
Text1.Text=sum
2
[题目]随机生成一个由两位随机整数构成的5行5列的矩阵,求该矩阵中所有不靠边元素之和。
[编程要求]
程序中有一个过程sum(),该过程的功能是求一个数组的不靠边元素之和。
完成此函数的功能
【参考代码】
DimiAsInteger,jAsInteger
Fori=LBound(b)+1ToUBound(b)-1
Forj=LBound(b)+1ToUBound(b)-1
sum=sum+b(i,j)
Nextj
Nexti
3
[题目]编写程序,求任意两个正整数的最小公倍数。
【编程要求】
1、单击"计算"按钮,在文本框Text3中显示最小公倍数;单击"清除"按钮,则清除3个文本框中的内容,
于文本框Text1;单击"结束"按钮,程序停止运行。
2、界面应与给出的参考界面相似,不得增加或减少控件;
3、运行程序,并输入3、7进行检验。
【参考代码】
m=Val(Text1):
n=Val(Text2)
Ifm m=n: n=t mn=m*n r=mModn DoWhiler<>0 m=n: n=r r=mModn Loop Text3=mn/n 4 [题目]编写程序,求n! ,并显示前7项结果。 [编程要求] 1、按"执行"按钮,则开始运行程序,按图示格式将前7项阶乘显示在列表框list1中。 1、按"清除"按钮,则将列表框list1中的内容清空。 按"结束"按钮,结束程序的执行。 2、程序中有一个函数过程,该过程的功能是使用递归函数求任意一个数的阶乘。 【参考代码】 Ifn=0Orn=1Then fact=1 Else fact=n*fact(n-1) EndIf 5 [题目]求任意一个正整数n的逆序数。 例如: 432的逆序数为234,210619的逆序数为916012。 要求程序具有能用性,即对于输入的整数或长整数不限制位数都能求。 [编程要求] 1、在文本框Text1中输入正整数n后,单击"计算"按钮,则结果显示在文本框Text2中; 2、单击"清空"按钮,则清空所有文本框的内容; 3、单击"退出"按钮,程序停止运行; 4、界面应与参考界面相似,不得增加或减少控件; 5、运行程序,并输入14587检验。 【参考代码】 n=Val(Text1) DoWhilen<>0 a=nMod10 m=m*10+a n=n\10 Loop Text2=CStr(m) 6 [题目]随机生成500个4位正整数,将其置于文本框1中,从中找出回文数,置于文本框2中。 并找出值最小的回文数,显示在文本框3中。 [编程要求] 1、按"运行"按钮,将运行结果按图示格式显示在文本框中;按"清除"按钮,将文本框清空,按"退出"按钮,结束程序运行; 2、程序中有一个名为HuiWenShu()的函数过程,用于判断一个数是否为回文数。 3、在运行按钮的单击事件中完成此按钮功能功能。 【参考代码】 Fori=1To500 a(i)=Int((9999-1000+1)*Rnd+1000) Text1=Text1&a(i)&vbCrLf Nexti Min=9999 Fori=1To500 Ifhuiwenshu(CStr(a(i)))Then Text2=Text2&a(i)&vbCrLf Ifa(i) EndIf Nexti Text3=Min 7 题目]生成10个随机的两位正整数,并求出其最大值、最小值、平均值以及总和。 【编程要求】 1、单击"生成随机数"按钮,生成10个两位随机正整数并显示在列表框中; 单击"求最大最小等"按钮,则求出其最大值、最小值、平均值以及总和并显示在相应文本框中; 单击"重置"按钮,将列表框和所有文本框清空,并将焦点置于"生成随机数"按钮上。 2、界面应与给出的参考界面相似,不得增加或减少控件。 【参考代码】 DimiAsInteger DimmaxAsInteger DimminAsInteger DimsumAsInteger max=a (1): min=a (1): sum=a (1) Fori=1To10 sum=sum+a(i)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb