2010vb本科期末上机考试练习题答案

《2010vb本科期末上机考试练习题答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1、单击窗体在窗体上输出10个两位随机整数，并求出其平均数。运行效果如下图所示：PrivateSubForm_Click()Dima(10)AsInteger,iAsInteger,sAsIntegerFori=1To10a(i)=Int(Rnd*(99-10+1))+10s=s+a(i)Printa(i)NextiPrint"平均数为"&s/10EndSub2、随机产生20个200～400之间的随机整数，按每行5个输出到窗体上，并求出其中的最大值。PrivateSubForm_Click()DimiAsInteger,a(20)AsInteger,

2、maxAsIntegerPrint"原始数据为："max=0Fori=1To20a(i)=Int(Rnd*(400-200+1))+200Printa(i);IfiMod5=0ThenPrintIfmax

3、r,maxAsInteger,minAsInteger,sAsIntegerPrint"原数组为："max=0min=100Form1.ForeColor=vbBlackFori=1To20a(i)=Int(Rnd*(99-10+1))+10Ifa(i)Mod2=0ThenForm1.ForeColor=vbRedElseForm1.ForeColor=vbBlackEndIfPrinta(i);先变色，再输出IfiMod5=0ThenPrints=s+a(i)Ifmaxa(i)Thenmin=a(i)N

4、extiPrintForm1.ForeColor=vbBlackPrint"max="&maxPrint"min="&minPrint"aver="&s/20EndSub4、产生10个随机两位正整数，放入一数组中，并按从小到大的顺序排列。在窗体上输出原数据及排列后的数据。运行效果如下图所示：PrivateSubForm_Click()Dima(10)AsInteger,iAsInteger,jAsInteger,bAsIntegerPrint"排序前的数据："Fori=1To10a(i)=Int(Rnd*(99-10+1))+10Printa(i);

5、NextiPrintFori=1To9Forj=i+1To10Ifa(i)>a(j)Thenb=a(i)a(i)=a(j)a(j)=bEndIfNextjNextiPrint"排序后的数据："Fori=1To10Printa(i);NextiEndSub5、新建一个工程，完成应用程序的设计。具体要求如下：（1）按照下图所示在窗体上放置控件。建立一个文本框和两个命令按钮。（2）在文本框中输入内容，单击“开始”后，把文本框中的字符按从小到大排列输出在窗体上，按结束退出应用程序。text1.Multiline=truetext1.ScrollBars=3文

6、本框滚动条PrivateSubCommand1_Click()Dima()AsString,iAsInteger,jAsInteger,bAsString,nAsIntegern=Len(Text1.Text)ReDima(1Ton)Fori=1Tona(i)=Mid(Text1.Text,i,1)NextiFori=1Ton-1Forj=i+1TonIfa(i)>a(j)Thenb=a(i)a(i)=a(j)a(j)=bEndIfNextjNextiFori=1TonPrinta(i);NextiEndSub6、建立一个5行5列二维数组，要求对角线

7、为1，其余元素为0。运行结果如图所示。PrivateSubForm_Click()Dima(5,5)AsInteger,iAsInteger,jAsIntegerFori=1To5Forj=1To5Ifi=jOri+j=6Thena(i,j)=1Elsea(i,j)=0EndIfPrinta(i,j);NextjPrint放在Nextj下面换行效果NextiEndSub7、建立一个5行5列二维数组，要求右上三角元素（含对角线）为1，其余元素为0。PrivateSubForm_Click()Dima(5,5)AsInteger,iAsInteger,j

8、AsIntegerFori=1To5Forj=1To5Ifi<=jThena(i,j)=1NextjNext