经典算法程序实现5(基础篇五：最值、质数、进制转换).doc

《经典算法程序实现5(基础篇五：最值、质数、进制转换).doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、经典算法程序实现（基础篇五）2018'构造产生［10,99］内的随机整数存储到数组元素班级：姓名：【最值、平均值处理】1、填空完成程序，使得单击"显示"按钮后，随机产生10个属于区间［0,100）的自然数，并保存于数组a中。然后在窗体上显示这10个数的平均值。PrivateSubCommand1ClickODima(9)AsIntegerDimsAsSingleDimiAsInicgcrMe.Cis'清空窗体a()=Int(Rnd*)+Listl.AdditemStr(a(i))将该整数显示到列表框Nextimax二'设置初始最大值min='设置初始最小值Fori=T

2、o10'循环比较处理IfMax

3、.最小值。PrivateSubCommand1Click（）'定义包含10个元素的整型数组DimiAsInteger'建义最大值最小值变量DimMaxAsInteger,MinAsIntegerFori=1To10'循环处理10次label1中，并判断是否是质数，结果显示在label2中。PrivateSubCommand1ClickOTimerl.Enabled='启动计时器EndSubPrivateSubCommand2ClickOTimerl.Enabled二FalseEndSubPrivateSubTimerlTimer()DimnAsInteger'保存产生

4、的随机正整数DimiAsIntegerDimfAsBoolean'质数标志变量Randomizen=Int(Rnd()*11)+10Label1.Caption二Str(n)f=TrueFori=2ToIfThenf=FalseLoopIfThenLabel2.Caption="Yes"ElseLabel2.Caption="No〃EndIfEndSub【进制转换】4、下面为用“辗转相除法”编写的十进制转换为八进制的VB程序，请补充完整。PrivateSubCommand1Click0DimyAsInteger'用于存储输入的十进制自然数DimsAsString'用于存

5、储转换后的结果DimrAsInteger'用于存储余数Yal(TextLText)'字符串变量置空DoWhiley<>0'采用除八取余法'采用除八取余法s=Str(r)+LoopText2.Text=s'输出s到文本框2EndSub若点击“转换”按钮，文本框内显示为:5、本题是在文本框Textl中输入一位十六进制数码（若是字母要大写），运行程序后能译出它表示的十进制数的程序。PrivateSubCommand1ClickODimmAsStringm二Ifm>="A"Andm〈二"F"Thenm=St.r(Asc(m)-+10)EndifText2.Text=EndSub