浙江大学城市学院实验报告课程名称VB程序设计基础与实验实验项目名称实验十、上机综合练****学生姓名专业班级学号实验成绩指导老师(签名),能使用条件语句、循环语句和数组解决一般的数据处理及应用问题;掌握常用算法(求平均值,求最大最小值,排序,产生任意随机数等)。【练****10-1】从键盘输入两个正整数,判定其中一个是否能整除另一个;【练****10-2】从键盘输入n,计算s=1-5+9-13+17-…+(4n+1)的值;【练****10-3】产生30个两位随机整数、并按从小到大的顺序存入数组a中,再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出;PrivateSubForm_Click()Dima(30)AsInteger,kAsInteger,tAsIntegerFori=1To30a(i)=Int(Rnd*90)+10NextiFori=1To29k=iForj=i+1To30Ifa(k)>a(j)Thenk=jNextjIfi<>kThent=a(i)a(i)=a(k)a(k)=tEndIfNextiFori=1To30Ifa(i)Mod2=1ThenPrinta(i);NextiEndSub【练****10-4】求二维数组a(m,n)中的最大值以及最大值所在的行号和列号,行数m、列数n及数组元素从键盘输入;PublicSubform_click()Dimx()AsInteger,mAsInteger,nAsIntegerDimiAsInteger,jAsInteger,maxAsInteger,imaxAsInteger,jmaxAsIntegerm=InputBox("输入数组的行数:")n=InputBox("输入数组的列数:")ReDimx(m,n)Fori=1TomForj=1Tonx(i,j)=InputBox("输入数组元素:")Nextj,imax=x(1,1)imax=1jmax=1Fori=1TomForj=1TonIfx(i,j)>maxThenmax=x(i,j)imax=ijmax=jEndIfNextj,iPrint"最大值:";maxPrint"最大值所在的行号和列号:";imax;jmaxEndSub【练****10-5】产生k个互不相等的三位正整数。(提示:每产生一个数x都要与数组中已有的元素逐个比较,若是重复数则x丢弃,若不是重复数则将x加入数组中,直至数组中产生有互不相等的k个元素。)算法:每产生一个数n都要与数组中已有的元素逐个比较,若是重复数则n丢弃,若不是重复数则加n入数组,直至数组中有k个元素。PrivateSubForm_Click()Dima()AsSingle,sumAsInteger,averAsSingleDimiAsInteger,nAsIntegerk=InputBox("输入n:")ReDima(k)a(1)=Int(Rnd*900)+100n=1DoWhilen<kx=Int(Rnd*900)+100Fori=1TonIfa(i)=xThenExitForNextiIfi>nThenn=n+1:a(n)=xLoopFori=1TokPrinta(i);NextiEndSub【练****10-6】几何图形打印。*1A***222BCD*****33333EF
实验十、上机综合练习 来自淘豆网www.taodocs.com转载请标明出处.