VB程序填空题

《VB程序填空题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1、下列程序的功能是从键盘上任意输入一个数，判断这个数是正数、负数、还是零，并输出判断结果。程序中有三处错误，请更正。程序如下：PrivateSubCommand1_Click()DimaAsSingleDimpyAsStringa=Val(Text1)Ifa>0Thenpy="正数"Ifa=0Thenpy="零"Ifa<=0Thenpy="负数"Label3.Caption=aEndSub①_________________________②___________________________③_____________________2、完善程序，使

2、其能输出：1-2+3-4+5-6+...+99-100的值。程序如下：PrivateSubCommand1_Click()s=_____Fori=1To_____s=s+((-1)^(______))*iNextiPrintsEndSub3、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。编写程序，求方程的根，要求：如果方程无实数根，则输出“无实数根”，否则输出两个实数根。程序如下：PrivateSubCommand1_Click()Dima,b,c,dAsSingleDimx1,x2AsSinglea=Val(Text1

3、.Text)b=Val(Text2.Text)c=Val(Text3.Text)d=b^2-4*a*cIfd________Thenx1=(-b+Sqr(d))/(2*a)x2=(-b-Sqr(d))/(2*a)Label1.Caption=x1Label2.Caption=x2_______Label3.Caption=______EndIfEndSub4、如果下面程序执行后输出的结果是132，请将程序补充完整：PrivateSubCommand1_Click()i=12:s=1DoWhile_________________s=s*ii=i-1Loop

4、MsgBox(s)ENDSub5、下面的程序是求7!（7!=1*2*3...*6*7）的值，并在默认窗口输出这个值。程序中有两处错误，请更正。PrivateSubCommand1_Click()DimaAsSinglea=0Fori=1tona=a*iNextiMsgbox（a）EndSub①_____________________________②___________________________6、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。请将程序补充完整：PrivateSubCommand1_Click()Dims

5、AsSingleDimiAsSingleS=________Fori=1to100Step___________________NextiMsgbox(s)EndSub7、下列VisualBasic程序：PrivateSubCommand1_Click()DimsumAsLong,iAsIntegersum=0Fori=1To100Step2sum=sum+i*iNextiText1.Text=Str(sum)EndSub该程序能完成计算的数学表达式是________________________________8、小明数了圈在一起的鸡和兔共有30个头，

6、90只脚，在这个圈子中鸡和兔各有多少只？为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式。设鸡为x只，兔为y只，VisualBasic程序如下：PrivateSubCommand1_Click()Consthead=30,foot=90Dimx,yAsIntegery=______________________x=_______________________Text1.Text=Str(x)Text2.Text=Str(y)EndSub9、利用文本框输入一个正整数N，求出2+3/2+4/3+5/4+……+(N+1)/N程序是：Pri

7、vateSubcommand1_click()DimN,s,iAsIntegers=0N=Val(Text1.Text)Fori=_____To_________s=________________NextiMsgbox（_____）EndSub10、编写一个计算矩形面积的Sub过程，然后调用该过程计算矩形面积。PrivateSubForm_Click()DimAAsSingle,BAsSingleA=Val(InputBox("Whatisthelength?"))B=Val(InputBox("Whatisthewidth?"))CallRecarea

8、(A,B)EndSubSubRecarea(RlenAsSingl