a算法与程序设计(vb)

《a算法与程序设计(vb)》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、A算法与程序设计(VB)摘要：完善"显示"按扭程序,使当单击该按扭时标签标题改为"算法与程序设计";PrivateSubCommand1_Click()Label1.caption="算法与程序设计"...关键词：算法,设计类别：专题技术来源：牛档搜索（Niudown.COM）　　本文系牛档搜索（Niudown.COM）根据用户的指令自动搜索的结果，文中内涉及到的资料均来自互联网，用于学习交流经验，作品其著作权归原作者所有。不代表牛档搜索（Niudown.COM）赞成本文的内容或立场，牛档搜索（Ni

2、udown.COM）不对其付相应的法律责任！A算法与程序设计（VB）第一套第15题请编写程序，打印出下面所示的图案。*********完成所有操作后，请按“Ctrl+S”保存。程序如下：PrivateSubForm_Click()DimiAsInteger'定义i为整形变量DimjAsInteger'定义j为整形变量Fori=-3To3PrintTab(Abs(i)+5)'确定每行的起始位置Forj=1To(4-Abs(i))-1Print"*";NextjPrint'换行NextiEndSub(说

3、明：i表示行数，j表示输出的“*”数)第16题编写程序，求函数y的值（当x小于等于0时，y=3x+1；当x>0时，y=4x+1）。完成所有操作后，请按“Ctrl+S”保存。（x的值在程序中调用InputBox函数，在弹出的标准对话框中输入）程序如下：PrivateSubForm_Click()DimxAsSingle'定义x为单精度型变量，由标准输入对话框输入DimyAsSingle'定义y为单精度型变量，值由窗体显示x=Val(InputBox("请输入变量x的值"))Ifx<=0Theny=3*

4、x+1Elsey=4*x+1EndIfPrint"y=";yEndSub（说明InputBox中输入的是字符串型，用Val函数将其转换成数值型。）第17题编程计算S=1-2+3-4+5-······+99-100。完成所有操作后，请“Ctrl+S”保存。程序如下：PrivateSubForm_Click()DimsAsInteger'定义变量s为单精度型DimiAsInteger'定义循环变量s=0Fori=1To100IfiMod2=1Thens=s+iElses=s–iEndIfNextiPri

5、nt"s=";sEndSub第18题编程求：鸡和兔在一个笼里，共有100条腿，40个头，问鸡有几只？兔有几只？完成所有操作后，请“Ctrl+S”保存。PrivateSubForm_Click()DimJiAsInteger'鸡DimTuAsInteger'兔DimLegAsInteger'腿数DimHeadAsInteger'头数ForJi=1To50ForTu=1To25Leg=Ji*2+Tu*4'计算腿数Head=Ji+Tu'计算头数IfLeg=100AndHead=40Then'如果腿数够10

6、0并且头有40个，则打印Print"鸡";Ji;"只","兔＝";Tu;"只"EndIfNextTuNextJiEndSub第二套第15题设计一个程序，打印下面所示图案。*************privatesubform_click()DimIAsIntegerDimjAsIntegerForI=-3to2__Printtab(abs(i)+5)Forj=1to2*(3-abs(i)-1)Print“*”;NextjPrintNextIEndsub第16题编写程序，求y=6*x-5的值。（x的值

7、在程序调用中调用inputbox函数，在弹出的标准输入对话框中输入）。Privatesubform_click()DimxassingleDimyassingleX=val(inputbox(“请输入变量x”))Y=6*x-5Print“y=”;y_Endsub第17题编写程序求1+2+3+……..+n>=500中最小的n.Privatesubform_click()dimsasintegerdimnasintegers=0_n=0don=n+1s=s+n_loopuntils>500print“n

8、=”;nendsub第18题编写递归函数求5!的值。Publicfunctions(nasinteger)aslongIfn=1thenS=1ElseS=s(n-1)*nEndifEndfunctionPrivatesubform_click()Print“s(10)=”;s(5)Endsub第三套第15题设计一个程序，打印下面所示的图案@@@@@@@@@@@@@@@@@@@@@完成所有操作后按“Ctrl+S”保存。PrivateSubForm_Click()Dimi