




已阅读5页,还剩25页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
第一部分1在表单中添加一个命令按钮(名称为Cmd1,标题为“输出平均值”)。程序运行后,单击命令按钮完成以下任务:(1)随机生成20个从0到1000的整数,并将它们放入一维数组中(2)计算所有元素的平均值并显示在表单上(如下图所示)私有子Cmd1 _单击()点心(19),我,点心!艾弗。随机化i=0至19a(i)=Int(Rnd * 1001)总和=总和a(i)接下来我平均值=总和/20打印aver末端接头2请添加一个名为Text1的文本框和一个名为C1的命令按钮,标题为“转换”到名为Form1的表单,如下图所示。程序运行时,单击“转换”按钮将文本1中的小写字母转换为大写,将大写字母转换为小写,其他字符保持不变。私有子C1 _点击()将ch设为字符串,ch1设为字符串,i%ch=文本1对于i=1至Len(ch)如果Asc(中间(ch,I,1)=65且Asc(中间(ch,I,1)=90,则ch1=ch1 LCase(中间(ch,I,1)其他ch1=ch1 UCase(中间(ch,I,1)结束条件接下来我文本1=文本1 vbCrLfText1=Text1 ch1末端接头3向表单中添加一个命令按钮(名为MyCmd1,标题为“输出最大值”)。程序运行后,单击命令按钮完成以下任务:(1)随机生成30个从0到1000的整数,并将这些整数放入一维数组中(2)找出最大值并将其显示在窗口上。私有子密件1 _点击()调光a%(29),i%,最大%随机化i=0至29a(i)=Int(Rnd * 1001)接下来我max=a(0)i=1至29如果a(i)最大值,则最大值=a(i)接下来我打印最大值末端接头请设计如下图所示的窗口界面。当程序运行时,当选择了一个或两个复选框和一个单选按钮时,单击命令按钮相应地设置文本框中的文本内容。请编写适当的事件流程来完成上述功能。私有子命令1_Click()如果选项1。值=真文本1。FontName=歌曲风格其他文本1。FontName=官方脚本结束条件如果选中1。值=1然后文本1。字体下划线=真其他文本1。字体下划线=假结束条件如果选中2。值=1然后文本1。字体斜体=真其他文本1。字体斜体=假结束条件末端接头5将名为“文本1”的文本框添加到名为“表单1”的表单中;添加两个框架,标题分别为“对齐”和“字体”,名称分别为Fm1和Fm2在Fm1框架中添加三个单选按钮,标题为“左对齐”、“居中”、“右对齐”,以及Opt1、Opt2和Opt3的名称;分别;在Fm2框架中添加两个单选按钮,标题分别为“歌曲”和“黑色”,名称分别为Opt4和Opt5。要求:编写五个单选按钮的点击事件程序,当程序运行时,点击这些单选按钮对文本框中的内容进行相应的操作(如图所示)。私有子选项1 _单击()如果选择1,则选择文本1。对齐=0末端接头私有子选项2 _单击()如果选择2,则选择文本1。对齐=2末端接头私有子选项3 _单击()如果选择3,则选择文本1。对齐=1末端接头私有子选项4 _单击()Fontname=宋体末端接头私有子选项5 _单击()Fontname= bold 末端接头请设计如下图所示的窗口界面。运行程序时,首先在左侧文本框中输入一个不超过10的正整数,然后选择“N的阶乘”或“N 2的阶乘”单选按钮进行计算,计算结果将显示在右侧文本框中。请编写一个程序来完成上述功能。Dim n%私有子窗体_加载()末端接头私有子选项1 _单击()Dim i%n=Val(文本1)m=1i=1至nm=m * i接下来我Text2=m末端接头私有子选项2 _单击()Dim i%m=1i=1至n 2m=m * i接下来我Text2=m末端接头7在表单上添加两个文本框和三个标签,并设置它们的属性以实现以下效果。程序运行时,在第一个文本框中输入一个字符串,在第二个文本框中输入一个字符,然后单击“统计”命令按钮,计算第一个文本框中第二个文本框中出现的字符数(大小写不同的字母)。统计结果显示在标签3中。私有子命令1_Click()Dim i%,n%对于i=1至Len(文本1)如果中间(文本1,I,1)=文本2,则n=n 1接下来我标签3=n末端接头私有子标签3 _单击()末端接头8向表单添加文本框和命令按钮。程序运行后,单击命令按钮计算0 200范围内所有可被3或7除的整数之和,并显示在文本框中。程序操作界面如下图所示。私有子命令1_Click()Dim i%,sum%i=0至200如果i Mod 3=0或i Mod 7=0,则总和=总和I接下来我Text1=总和末端接头私有子文本1 _更改()末端接头9请设计如下图所示的界面(文本框名称:Txt1,按钮名称:Cmd1)。程序运行时,在文本框中输入一个字符串,点击命令按钮,判断文本框中的字符串是否为回文,并将判断结果显示在表单上。所谓回文是指具有相同正负结果的字符串。例如,“ABCBA”是回文,“ABCBA”不是回文。私有子Cmd1 _单击()将胸部变暗为字符串对于i=Len(Txt1)至1步骤-1ch=ch Mid(Txt1,I,1)接下来我如果Txt1=ch,则打印Txt1 是回文其他打印Txt1 不是回文结束条件末端接头私有子窗体_加载()末端接头10编程实现(n是小于或等于20的整数)。程序操作界面如下图所示。当程序运行时,在文本框中输入n的值,点击“计算”命令按钮,在标签上显示计算结果。私有子命令1_Click()点心,i%,m为长,总和为双n=Val(文本1)m=1i=1至nm=m * isum=sum 1/m接下来我标签2=sum= sum末端接头私有子窗体_加载()末端接头第二部分众所周知,在同一个笼子里总共有100只鸡和100只兔子。鸡和兔子的总脚数是N,通过编程分别有多少只鸡和兔子。要求:程序运行后,在两个文本框中分别输入m和n的值,点击“计算”命令按钮,在两个标签框中分别输出鸡和兔的数量。程序操作界面如下图所示。提示:N2M的偶数。私有子命令1_Click()m=Val(文本1)n=Val(文本2)如果n模2 0,则MsgBox(“英尺数必须为偶数”)文本2= 文本2。SetFocus其他y=n/2 - m如果是0,那么MsgBox(“英尺数必须是唯一数字的2倍,请重新输入”)文本2= 文本2。SetFocus其他x=m - y标签3=x标签4=y结束条件结束条件末端接头私有子窗体_加载()末端接头如果一个3位数正整数中每个数字的立方和等于该数字本身,那么这个数字就叫做“水仙数”。例如,153是水仙花的数量,因为153=1*1*1 5*5*5 3*3*3。寻找100到999之间所有“水仙花”的程序。要求:程序运行后,点击“查找”按钮显示表单上的“水仙花数量”。程序操作界面如下图所示。私有子命令1_Click()打印“水仙花的数量”:i=100至999X1=i Mod 10分隔单个数字X2=(i Mod 100) 10分隔十位数字X3=100分隔百年纪念数字如果i=X1 3 X2 3 x3 3,则打印I;接下来我末端接头私有子窗体_加载()末端接头3.编写程序。程序运行后,点击“开始”按钮,随机生成20名学生的分数(从0到100的整数),并输出到左边的图框中(连续5个分数),在右边的图框中输出平均分数和通过考试的人数。程序操作界面如下图所示。私有子命令1_Click()将a(1至20)调至整数,i%,n%图片1。Cls图2。Clsi=1至20a(i)=Int(Rnd * 101)图片1。打印a(I);如果i Mod 5=0,则图像1。打印如果a(i)=60,则n=n 1总和=总和a(i)接下来我图2。打印“平均分数”:总和/20图2。打印;通过次数:;n末端接头私有子图片2 _单击()末端接头4编程实现:当程序运行时,点击窗体将显示下图所示的模式。私有子窗体_单击()i=1至5打印标签(10-I);字符串(2 * i - 1,“*”)接下来我i=1至4打印标签(5i);字符串(9 - 2 * i,“*”)接下来我末端接头5编程实现:表单中有一个文本框、一个计时器和两个命令按钮。其功能是:当程序运行时,点击“开始计数”按钮开始计数。每1秒,文本框中的数字增加1;单击“停止计数”按钮停止计数。私有子命令1_Click()定时器1。启用=真末端接头私有子命令2 _单击()定时器1。启用=假末端接头私有子窗体_加载()末端接头私有子定时器1 _定时器()文本1=值(文本1) 1末端接头在属性窗口中,将计时器的时间间隔属性值设置为100
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 氢能制备新方法-洞察及研究
- 多模态情感识别技术:表情、语音与语言的综合应用综述
- 基于双层路径规划的智能导盲系统设计与实现
- 检查督导整改管理办法
- 艺术生产理论在当代文艺创作中的实践启示研究
- 出具收入证明管理办法
- 办公楼保洁技术方案的研究与实践
- 美学自学考试笔记重点解读
- 游览车运营调度方案设计
- 导电材料对厌氧消化性能的影响及其机制研究进展
- 新华书店读者问卷调查表
- GB/T 20946-2007起重用短环链验收总则
- GB/T 18391.3-2009信息技术元数据注册系统(MDR)第3部分:注册系统元模型与基本属性
- GB/T 10610-2009产品几何技术规范(GPS)表面结构轮廓法评定表面结构的规则和方法
- 熠搜家庭户用光伏电站推介
- 济源幼儿园等级及管理办法
- 房地产开发全流程培训讲义课件
- DB44-T 2163-2019山地自行车赛场服务 基本要求-(高清现行)
- 云南省特种设备检验检测收费标准
- DB15T 933-2015 内蒙古地区极端高温、低温和降雨标准
- 工伤责任保险单
评论
0/150
提交评论