程序填空总结复习

《程序填空总结复习》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、各类常见算法填空题总复习提示：例：x=Val(Textl.Text):输入数值型内容至x中x=Textl.Text:输入字符型内容至x中Label1.Caption=s:输出字符型内容显示在Label1屮Label1.Caption=str(s):输出数值型内容显示在Label!Val():字符转换成数值Str():数值转换成字符1、选择结构(分支结构)：p67例2.frm,铁路托运行李，资费为：v=50,按每千克0.35元收费，>5(),超过部分按每千克().5元收费，行李重量不超过15()T克，否

2、则就是超重。请写出？处内容PrivateSubCommand1_Click()DimxAsDoublex=Val(Text1.Text)Ifx>150ThenText2.Text=”行李超重!“ElseIf?1Theny=50*0.35+(x・50)*0.5Else?2EndIfText2.Text=Str(y)EndIfEndSub?1：?2：2、枚举算法：P67例3~1.FRM,判断一个三位数是否是水仙花数PrivateSubcommandl_click()DimmAsInteger,nAsInt

3、egerDimaAsInteger,bAsInteger,cAsIntegerForm=100To999a=Int(m/100)b=Int((m-100*a)/10)c=m-100*a-10*bn=?1If?2ThenList1.AdditemStr(m)NextmEndSub?1：?2：3、枚举算法：p69l.frm：一道数学题因被雨淋湿，其小两个数字模糊不清了(3?+42)*6=47?PrivateSubCommandl_Click()DimxAsInteger,yAsIntegerForx=0T

4、o9Fory=0To8Step2If?ThenListl.Addltcm(”(“+Str(3)+Str(x)+“+42)*6=47“+Str(y))EndIfNextyNextxEndSub?1：4、选择排序：P693.FRM输入原始数据输出递增排序后结果，所冇数据保存在数组a中，程序界面和代码如下所示，在文木框Textl中输入各个数据，显示在左边列表框(Listl)中显示，单击“排序”按钮(Commandl),所有数据按从高到低显示在列表框“排序后”(List2)中。请将程序补充完整。Private

5、SubCommandl_Click()Fori=1Ton-1k=iForj=i+1TonIf?1Thenk=jNextjIfi<>kThent=a(i):a(i)=a(k):?2EndIfNextiFori=1TonList2.AddItemStr(a(i))NextiEndSub?1:?2：5、冒泡排序：冒泡排序.fun有一组学生军训打靶成绩，若采用冒泡排序进行递增排列，请写出笫三趟的排序结果原始数据为9895859388第三趟排序结果为：?1所有成绩保存在数组a中，程序界面如下图所示，在文本框Te

6、xtl■!«输入各个成绩，并在左边列表框(Listl)中显示出来,单击“排序”按钮(Commandl),所有商品按照价格从高到低显示在列表框(List2)中。解决此问题的和应的程序如下，在程序划线？处，填入适当的语句或表达式，把程序补充完整。PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Thenn=n+1a(n)=Val(Textl.Text)Listl.AdditemStr(a(n))Textl.Text=H":Text1.SetFo

7、cusEndIfEndSubPrivateSubCommandl_Click()Fori=1Ton・1Forj=nToi+1Step-1Ifa(j)

8、),在TEXT3中显示兑换所得的美元金额，结果保留两位小数，第三位四舍五入，对应程序代码如下，请补充完整。PrivateSubCommand1_Click()DimusdAsDouble,rmbAsDouble,fxAsDoublermb=Val(Textl.Text)fx=Val(Tcxt2.Tcxt)usd=??Text3.Text=Str(usd)EndSub?1:7、枚举法:p63lO.frm程序界面和参考代码如下,在给定区间［m,n］中寻找被3