VB程序设计编程考试题及答案-.pdf

《VB程序设计编程考试题及答案-.pdf》由会员分享，可在线阅读，更多相关《VB程序设计编程考试题及答案-.pdf（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

2、计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（

3、x 的值为 14）。数组 a 中的元素分别为12，6，4，89，75，63，100，20，31。14.找出被 3、5、7除，余数均为 1的最小的 5个正整数。15利用随机函数产生50100范围内的 20个随机数，显示其中的最大值、最小值和平均值。16.编一函数，统计字符串中汉字的个数。1.输入 3 个数，输出最大的数Private Sub command1_click()Dim max For i=1 To 3 n=Val(InputBox(输入第&i&个数)If n max Then max=n End If Next Print 三个数中最大的数是;max End Sub 2.有一元二次方

4、程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根Private Sub Command1_Click()Dim a,b,c,n a=Text1 b=Text2 c=Text3 n=b*b-4*a*c If n=0 Then Label4=方程有根 Else Label4=方程无根 End If End Sub 3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”，若小于 60，则弹出消息框，显示“抱歉！成绩没有通过！Private Sub Form_Load()Text1=End Sub Private Sub Command1_Click()D

5、im n n=Text1 If n 60 Then Val(MsgBox(恭喜！成绩通过！)Else Val(MsgBox(抱歉！成绩没有通过！)End If End Sub 4.输入学生的百分制成绩，转换输出为五级制成绩，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 及格

6、 If a n1 Then m=m1:n=n1 Else m=n1:n=m1 End If r=m Mod n Do While r 0 m=n n=r r=m Mod n Loop Print m n 的最大公约数是：;n End Sub 7.分别统计 1-100 中，满足3 的倍数、7 的倍数的数各有多少。Private Sub Command1_Click()Dim i,s3,s7 s3=0 s7=0 For i=1 To 100 If i Mod 3=0 Then s3=s3+1 End If Next i For i=1 To 100 If i Mod 7=0 Then s7=s7+

7、1 End If Next i Print 3 的倍数;s3 Print 7 的倍数;s7 End Sub 8.输入一串字符，统计其中字母A(不区分大小写)出现的次数。Private Sub Command1_Click()Dim c As String,a As Integer b=InputBox(请输入字符)For i=1 To Len(b)c=UCase(Mid(b,i,1)If c=A Then a=a+1 End If Next i Print a 出现的次数：;a End Sub 9.我国目前有13 亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26 亿。Privat

8、e Sub Command1_Click()Dim a,i a=13 i=0 Do While a=2）Private Sub Command1_Click()Dim x()As Integer Dim n%,i%n=11 ReDim x(n-1)x(0)=1 x(1)=1 For i=2 To n-1 x(i)=x(i-1)+x(i-2)Next i For i=0 To n-1 Print x(i),If(i+1)Mod 5=0 Then Print Next End Sub n=Val(InputBox(输入序列数)13.已知有序数组a()，编程插入x（x 的值为 14）。数组 a 中的

9、元素分别为12，6，4，89，75，63，100，20，31。窗体上放text1、text2、command1三个控件Dim A()As Integer Private Sub Command1_Click()Dim i,Ip,t,ins,n As Integer Text1.Text=For i=0 To UBound(A)-1 Text1.Text=Text1.Text&A(i)Next i Ip=Val(InputBox(请输入数字)For i=0 To UBound(A)If Ip max Then max=x If x min Then min=x avg=avg+x Next i Print Print 最小值=;min,最大值=;max,平均值=;avg/20 End Sub 16.编一函数，统计字符串中汉字的个数。Private Sub Command1_Click()Dim c1%c1=CountC(Text1.Text)Picture1.Print Text1;Tab(20);有;c1;个汉字数 End Sub Function CountC%(ByVal s$)Dim i%,t%,k%,c$For i=1 To Len(s)c=Mid(s,i,1)If Asc(c)0 Then k=k+1 Next i CountC=k End Function