2010程序设计题目new

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

1、有如下VisualBasic程序段： a=12:b=20b=a+b+28a=b+a-5b=a+b 该程序段运行后，变量b的值为。有如下VisualBasic程序段： a=5b=Len("1011")Ifa>bThenLabel1.Caption="请重新输入"ElseLabel1.Caption="欢迎光临"EndIf 该程序段运行后，在标签Label1上显示的是____________。以下VisualBasic程序的功能是：计算表达式1×1+2×2+3×3+4×4+5×5+6×6的值，并在文本框T

2、ext_1中输出结果。 PrivateSubCommand1_Click()Dima(1To6)AsIntegerDimsAsInteger,iAsIntegers=0Fori=1To6a(i)=i*is=s+a(i)Nexti_____=str(s)EndSub 问： （1）为了计算上述表达式的值，上面程序段划线处应填入_________。（2）该程序段运行后，a(5)的值是____________。用辗转相除法求最大公约数。已知用辗转相除法求两个正整数m、n的最大公约数的算法如下：(用num1，n

3、um2，r分别表示被除数m、除数n和余数)①求num1/num2的余数r；②若r=0，则执行第⑤步；③将num2的值放在num1中，将r的值放在num2中；④重新执行第①步；⑤输出最大公约数num2。下列VisualBasic程序用于求三个正整数的最大公约数。程序界面如图所示，在文本框Text1、Text2和Text3中分别输入三个数a、b和c，单击“求最大公约数”按钮（Command1）后，在文本框Text4中输出a、b、c的最大公约数y。Functiontemp(num1asInteger,num

4、2asInteger)asIntegerDimrasInteger'此函数用于计算两个正整数的最大公约数r=num1Modnum2DoWhile②num1=num2num2=rr=num1Modnum2Looptemp=num2EndFunctionPrivateSubCommand1_Click()DimaasInteger,basInteger,casInteger,xasInteger,yasIntegera=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3

5、.Text)x=　　③y=temp(x,c)Text4.Text=Str(y)EndSub（1）解决此问题的算法是①。（选填：解析法或枚举法）（2）在程序划线处，填入适当的语句或表达式，把程序补充完整：程序中②划线处应填入___________________。程序中③划线处应填入___________________。有如下VisualBasic程序段：  m=-5 n=-2 s=m+Int(n) 该程序段运行后，变量s的值为____________。有如下VisualBasic程序段：a=10b=

6、8Ifa>bThen Label1.Caption="morning"Else Label1.Caption="byebye"EndIf 该程序段运行后，在标签Label1上显示的是____________。有如下VisualBasic程序段：s=0a=5Fori=1To10Step2   a=a+i   s=a*iNexti问：该程序段运行后，（1）变量i的值是____________。 （2）变量s的值是___________。某超市打折促销，规定如下：①购物未超过500元按原价支付；②购物超过5

7、00元但未超过1000元，超过500元部分按9折优惠计价；③购物超过1000元但未超过1500元，超过1000元部分按8折优惠计价；④购物超过1500元但未超过3000元，超过1500元部分按7折优惠计价；⑤购物超过3000元，超过3000元部分按6折优惠计价。根据以上规定，假定购物货款为x元，则实付金额y为:xx≤500500+(x-500)*0.9500＜x≤1000y=500+500*0.9+(x-1000)*0.81000＜x≤1500500+500*0.9+500*0.8+(x-1500)*

8、0.71500＜x≤3000500+500*0.9+500*0.8+1500*0.7+(x-3000)*0.6X＞3000程序界面如图所示，在“输入购物金额（单位：元）”后的文本框orgtext中输入购物金额（单位：元），单击“实付金额计算”按钮（Command1）后，在“实际支付金额（单位：元）为”后的文本框cashText中输出实付金额。解决此问题相应的VisualBasic程序如下：PrivateSubCommand1_Click()DimxAsS