程序设计编程考试题及答案

1、VB程序设计编程考试题及答案.输入3个数，输出最大日勺数有一元二次方程：aX2+bX+c=0,依次输入a, b, c,判断此方程与否有实根输入一种百分制勺成绩，若不小于等于60,则用消息框弹出，显示“恭喜！成绩通过!”， 若不不小于60,则弹出消息框，显示“抱歉！成绩没有通过！输入学生勺百分制成绩，转换输出为五级制成绩，90100分转换为优秀，8089转换为 良好，7079转换为中档，6069转换为及格，060转换为不及格。随机产生一种三位正整数，然后逆序输出，产生勺数与逆序数同步显示。例如，产生246, 输出是642。输入两个整数，求它们勺最大公约数。分别记录1-100中，满足3勺倍数、7勺

2、倍数勺数各有多少。输入一串字符，记录其中字母A(不辨别大小写)浮现勺次数。国内目前有13亿人口，按人口年增长率0.8%计算，多少年后国内人口将超过26亿。小猴有桃若干，第一天吃掉一半多一种；第二天吃剩余桃子勺一半多一种；后来每天都 吃尚存桃子勺一半多一种，到第7天只剩一种，问小猴原有桃多少？百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方 案。编程求斐波那契数列前11项。(斐波那契数列：F(0)=f(1)=1, F(n)=F(n-1)+F(n-2) n=2 )已知有序数组a(),编程插入x (x勺值为14)。数组a中勺元素分别为12, 6, 4, 89,75, 63

3、, 100, 20, 31。找出被3、5、7除，余数均为1勺最小勺5个正整数。15运用随机函数产生50100范畴内勺20个随机数，显示其中勺最大值、最小值和平均值。16.编一函数，记录字符串中中文勺个数。输入3个数，输出最大的数Private Sub command1_click()Dim maxFor i = 1 To 3n = Val(InputBox(输入第” & i & ”个数)If n max Thenmax = nEnd IfNextPrint 三个数中最大日勺数是” ;maxEnd Sub有一元二次方程：aX2+bX+c=0，依次输入a, b, c,判断此方程与否有实根Priva

4、te Sub Command1_Click()Dim a, b, c, na = Text1b = Text2c = Text3n = b * b - 4 * a * cIf n = 0 ThenLabel4 = ”方程有根”ElseLabel4 = ”方程无根”End IfEnd Sub输入一种百分制的成绩，若不小于等于60,则用消息框弹出，显示“恭喜！成绩通过! ”, 若不不小于60,则弹出消息框，显示“抱歉！成绩没有通过！Private Sub Form_Load()Textl =End SubPrivate Sub Command1_Click()Dim nn = Text1If n 60 ThenVal (MsgBoxC恭喜！成绩通过！”)ElseVal (MsgBoxC抱歉！成绩没有通过！)End IfEnd Sub输入学生的百分制成绩，转换输出为五级制成绩，90100分转换为优秀，8089转 换为良好，7079转换为中档，6069转换为及格，060转换为不及格。Private Sub Command1_Click()a = Val(InputBox(请输入成绩”)If a 100 Then Print 超过范畴”If a = 90 And a = 80 And a = 70 And a = 60 And a 70 Then Print 及格”