实验十、上机综合练习

《实验十、上机综合练习》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、浙江大学城市学院实验报告课程名称VB程序设计基础与实验实验项目名称实验十、上机综合练习学生姓名专业班级学号实验成绩指导老师（签名）日期一.实验目的和要求掌握基本设计程序的能力，能使用条件语句、循环语句和数组解决一般的数据处理及应用问题；掌握常用算法（求平均值，求最大最小值，排序，产生任意随机数等）。二.实验内容和原理【练习10-1】从键盘输入两个正整数，判定其中一个是否能整除另一个；【练习10-2】从键盘输入n，计算s=1-5+9-13+17-…+(4n+1)的值；【练习10-3】产生30个两位随机整数、并按从小

2、到大的顺序存入数组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);

3、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=

4、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加入数组中，直至数组中产生

5、有互不相等的k个元素。）算法：每产生一个数n都要与数组中已有的元素逐个比较，若是重复数则n丢弃，若不是重复数则加n入数组，直至数组中有k个元素。PrivateSubForm_Click()Dima()AsSingle,sumAsInteger,averAsSingleDimiAsInteger,nAsIntegerk=InputBox("输入n:")ReDima(k)a(1)=Int(Rnd*900)+100n=1DoWhilen

6、xitForNextiIfi>nThenn=n+1:a(n)=xLoopFori=1TokPrinta(i);NextiEndSub【练习10-6】几何图形打印。*1A***222BCD*****33333EFGHI*******4444444JKLMNOP*********555555555QRSTUVWXY***********66666666666ZABCDEFGHIJ………………【练习10-7】界面设计如下图，有四个标签框、四个文本框和两个命令按钮。1．当单击“确定”按钮后，首先比较“用户名”和“原密码”

7、是否一致，若一致且都为“admin”，,则继续执行步骤4；否则弹出消息框,提示用户出错,并让用户重新输入；2．比较“新密码（N）”和“新密码（S）”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。3．所有消息框按Design.exe所示设计。4．当单击“取消”按钮时,程序终止执行。5．当按"Tab"键时，保证按照“用户名”、“原密码”、“新密码（N）”、“新密码（S）”、“确定”按钮和“取消”按钮顺序访问各控件。练习10-7运行界面上机实践PrivateSubForm_lo

8、ad()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text1.TabIndex=0Text2.TabIndex=1Text3.TabIndex=2Text4.TabIndex=3Label1.Caption="用户名（&U）"Label2.Caption="原密码（&P）"Label3.Caption="新密码