实验十、上机综合练习

实验十、上机综合练习

ID:1236604

大小:676.50 KB

页数:6页

时间:2017-11-09

实验十、上机综合练习_第1页
实验十、上机综合练习_第2页
实验十、上机综合练习_第3页
实验十、上机综合练习_第4页
实验十、上机综合练习_第5页
资源描述:

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

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="新密码

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。