1 / 12
文档名称:

VB编程题目及答案.doc

格式:doc   大小:41KB   页数:12页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

VB编程题目及答案.doc

上传人:幻影 2020/8/5 文件大小:41 KB

下载得到文件列表

VB编程题目及答案.doc

相关文档

文档介绍

文档介绍:输入3个数,输出最大的数有一元二次方程:aX2+bX+c=0,依次输入a,b,c,判断此方程就是否有实根输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示“恭喜!成绩通过!”,若小于60,则弹出消息框,显示“抱歉!成绩没有通过!”输入一年份,判断它就是否为闰年,并显示有关信息。(判断闰年的条件就是:年份能被4整除但不能被100整除,或者能被400整除)输入学生的百分制成绩,转换输出为五级制成绩,90~100分转换为优秀,80~89转换为良好,70~79转换为中等,60~69转换为及格,0~60转换为不及格。随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示。例如,产生246,输出就是642。输入两个整数,求它们的最大公约数。编程求200--400范围内5的倍数或7的倍数之与。(一个数如果同时就是7与5的倍数,则只能加一次。。计算100~300之间所有能被3与7整除的数之与分别统计1-100中,满足3的倍数、7的倍数的数各有多少。某次歌曲大奖赛,有7个评委。如果分别输入7个评委对某个参赛者的打分数,按照去掉一个最高分与一个最低分的计算办法,求出该参赛者的平均得分。输入一串字符,统计其中字母A(不区分大小写)出现的次数。我国目前有13亿人口,按人口年增长率0、8%计算,多少年后我国人口将超过26亿。小猴有桃若干,第一天吃掉一半多一个;第二天吃剩下桃子的一半多一个;以后每天都吃尚存桃子的一半多一个,到第7天只剩一个,问小猴原有桃多少?求100以内的素数百元买百鸡问题。假定小鸡每只5角,公鸡每只2元,母鸡每只3元,编程求解购鸡方案。编程求斐波那契数列前11项。(斐波那契数列:F(0)=f(1)=1,F(n)=F(n-1)+F(n-2)n>=2)将输入的字符串以反序显示。例如:输入“ASDFGT”,显示“TGFDSA”随机产生10个[30,100]内的整数,求最大值及所对应的下标随机产生10个[30,100]内的整数,求最大值、最小值与平均值。随机产生10个[30,100]内的整数,求最小值及所对应的下标。随机生成一个整型的二维数组,范围在[10,20]之间,以下三角形式输出该数组。随机产生10个1~100的正整数放入数组,显示产生的数,求最大值、最小值、平均值。利用随机函数生成一个4×4的矩阵(即二维矩阵),范围就是[20,50]内的整数,输出该矩阵所有数据之与已知有序数组a(),编程插入x(x的值为14)。数组a中的元素分别为{12,6,4,89,75,63,100,20,31}。编写一函数,计算Double类型一维数组所有元素的平均值。用函数过程求表达式1+1/2+1/3+1/4+…+1/n的与、编一子过程ProcMin,求一维数组a中的最小值,子过程的形参自己确定。编一个函数,求一维数组a中的最大值,函数的形参自己确定。编写一个过程计算并输出区间[100,1000]内所有素数的与(要求判断素数使用过程(函数或子过程)来实现。调用该过程。(提示:只能被1与自身整除的自然数称为素数。)(注:本答案第一行代码应在题目之后,自行调整)mand11_Click()'1、输入3个数,输出最大的数Dimmax% X1=Val(InputBox("input"))X2=Val(InputBox("input"))x3=Val(InputBox("input"))max=X1Ifmax<=X2Thenmax=X2EndIfIfmax<=x3Thenmax=x3EndIfMsgBox("3个数之中的最大数max="&max)mand12_Click()'2、'有一元二次方程:aX2+bX+c=0,依次输入a,b,c,判断此方程就是否有实根a=Val(InputBox("input"))B=Val(InputBox("input"))c=Val(InputBox("input"))s=B^2-4*a*cIfa<>0ThenIfs=0ThenMsgBox("两个相等实根")ElseIfs>0ThenMsgBox("两个不相等实根")ElseIfs<0ThenMsgBox("两个不相等虚根")EndIfElseMsgBox("无解")mand13_Click()'3、输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示"恭喜!成绩通过!",若小于60,则弹出消息框,显示"抱歉!成绩没有通过!"X=Val(InputBox("input"))IfX>=60ThenMsgBox("恭喜!成绩通过!")ElseMsgBox("抱歉!成绩没有通过!")mand14_Click()'4、输入一年份,判断它就是否为闰年,并显示有关信息。(判断闰年的条件就是:年份能被4整除但不能被100整除,或者能被400整除)yes=Val(InputBo