下载此文档

实验十、上机综合练习.doc


文档分类:高等教育 | 页数:约6页 举报非法文档有奖
1/6
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/6 下载此文档
文档列表 文档介绍
浙江大学城市学院实验报告课程名称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转载请标明出处.

非法内容举报中心
文档信息
  • 页数6
  • 收藏数0 收藏
  • 顶次数0
  • 上传人JZZQ12
  • 文件大小676 KB
  • 时间2020-08-12