文档介绍：VB程序设计编程考试题及答案1、、输入3个数,输出最大的数2、有一元二次方程:aX2+bX+c=0,依次输入a,b,c,判断此方程就是否有实根3、输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示“恭喜!成绩通过!”,若小于60,则弹出消息框,显示“抱歉!成绩没有通过!4、输入学生的百分制成绩,转换输出为五级制成绩,90~100分转换为优秀,80~89转换为良好,70~79转换为中等,60~69转换为及格,0~60转换为不及格。5、随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示。例如,产生246,输出就是642。6、输入两个整数,求它们的最大公约数。7、分别统计1-100中,满足3的倍数、7的倍数的数各有多少。8、输入一串字符,统计其中字母A(不区分大小写)出现的次数。9、我国目前有13亿人口,按人口年增长率0、8%计算,多少年后我国人口将超过26亿。10、小猴有桃若干,第一天吃掉一半多一个;第二天吃剩下桃子的一半多一个;以后每天都吃尚存桃子的一半多一个,到第7天只剩一个,问小猴原有桃多少?11、百元买百鸡问题。假定小鸡每只5角,公鸡每只2元,母鸡每只3元,编程求解购鸡方案。12、编程求斐波那契数列前11项。(斐波那契数列:F(0)=f(1)=1,F(n)=F(n-1)+F(n-2)n>=2)13、已知有序数组a(),编程插入x(x的值为14)。数组a中的元素分别为{12,6,4,89,75,63,100,20,31}。14、找出被3、5、7除,余数均为1的最小的5个正整数。15利用随机函数产生50~100范围内的20个随机数,显示其中的最大值、最小值与平均值。16、编一函数,统计字符串中汉字的个数。输入3个数,mand1_click()DimmaxFori=1To3n=Val(InputBox("输入第"&i&"个数"))Ifn>maxThenmax=nEndIfNextPrint"三个数中最大的数就是";maxEndSub有一元二次方程:aX2+bX+c=0,依次输入a,b,c,mand1_Click()Dima,b,c,na=Text1b=Text2c=Text3n=b*b-4*a*cIfn>=0ThenLabel4="方程有根"ElseLabel4="方程无根"EndIfEndSub输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示“恭喜!成绩通过!”,若小于60,则弹出消息框,显示“抱歉!成绩没有通过!PrivateSubForm_Load()Text1=""mand1_Click()Dimnn=Text1Ifn>60ThenVal(MsgBox("恭喜!成绩通过!"))ElseVal(MsgBox("抱歉!成绩没有通过!"))EndIfEndSub输入学生的百分制成绩,转换输出为五级制成绩,90~100分转换为优秀,80~89转换为良好,70~79转换为中等,60~69转换为及格,0~60转换为不及格。mand1_Click()a=Val(InputBox("请输入成绩"))Ifa>100ThenPrint"超出范围"Ifa>=90Anda<=100ThenPrint"优秀"Ifa>=80Anda<90ThenPrint"良好"Ifa>=70Anda<80ThenPrint"中等"Ifa>=60Anda<7