下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、VB程序设计编程考试题及答案1.输入3个数,输出最大的数2 .有一元二次方程:aX2+bX+c=0 ,依次输入a, b, c,判断此方程是否有实根3 .输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示“恭喜!成绩通过!",若小于60,则弹出消息框,显示“抱歉!成绩没有通过!4 .输入学生的百分制成绩,转换输出为五级制成绩,90100分转换为优秀,8089转换为良好,7079转换为中等,6069转换为及格,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(),编
3、程插入x (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 maxFori = 1 To 3n = Val(InputBox("输入第"& i & "个数") If n > max Then max = nE
4、nd IfNextPrint "三个数中最大的数是"max End Sub2 .有一元二次方程:aX2+bX+c=0 ,依次输入a, b, c,判断此方程是否有实根a = Textlb = Text2c = Text3n = b * b - 4 * a * cIf n >= 0 ThenLabel4 ="方程有根"ElseLabel4 ="方程无根"End IfEnd Sub3 .输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示“恭喜!成绩通过!若小于60,则弹出消息框,显示“抱歉!成绩没有通过 !Private Su
5、b Form_Load()Text1 =""End SubPrivate Sub Command1_Click()Dim nn = Text1If n > 60 ThenVal (MsgBox("恭喜!成绩通过!")ElseVal (MsgBox("抱歉!成绩没有通过!")End IfEnd Sub4 .输入学生的百分制成绩,转换输出为五级制成绩,90100分转换为优秀,8089转换为良好,7079转换为中等,6069转换为及格,060转换为不及格。Private Sub Command1_Click() a = Val(Inp
6、utBox("请输入成绩")If a > 100 Then Print "超出范围"If a >= 90 And a <= 100 Then Print "优秀If a >= 80 And a < 90 Then Print "良好"If a >= 70 And a < 80 Then Print "中等"If a >= 60 And a < 70 Then Print "及格"If a < 60 Then Print &qu
7、ot;不及格"End Sub5 .随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示。例如,产生246,输出是642。Private Sub Command1_Click()Dim x%, x1%, x2%, x3%.x = Textlx1 = x Mod 10x2 = (x Mod 100) 10x3 = x100Labell = x1 *100 + x2 *10 + x3End Sub6 .输入两个整数,求它们的最大公约数。private Sub Command1_Click()n1 = InputBox("输入 n")m1 = InputBox(
8、"输入 m")If m1 > n1 Thenm = m1: n = n1Elsem = n1: n = m1End Ifr = m Mod nDo While r <> 0m = n n = r r = m Mod nLoopPrint "m n的最大公约数是:"nEnd Sub7 .分别统计1-100中,满足3的倍数、7的倍数的数各有多少。Private Sub Command1_Click()Dim i, s3, s7s3 = 0s7 = 0For i = 1 To 100If i Mod 3 = 0 Thens3 = s3 + 1
9、End IfNext iFor i = 1 To 100If i Mod 7 = 0 Thens7 = s7 + 1End IfNext iPrint "3 的倍数"s3Print "7 的倍数"s7End Sub8 .输入一串字符,统计其中字母A(不区分大小写)出现的次数。Private Sub Command1_Click()Dim c As String, a As Integerb = InputBox("请输入字符")For i = 1 To Len(b)c = UCase(Mid(b, i, 1)If c = "
10、A" Thena = a + 1End IfNext iPrint "a出现的次数:"aEnd Sub9 .我国目前有13亿人口,按人口年增长率0.8%计算,多少年后我国人口将超过26亿。Private Sub Command1_Click() Dim a, i a = 13 i = 0Do While a < 26a = a *(1.008) i = i + 1LoopPrint iEnd Sub10 .小猴有桃若干,第一天吃掉一半多一个;第二天吃剩下桃子的一半多一个;以后每天 都吃尚存桃子的一半多一个,到第7天只剩一个,问小猴原有桃多少?Private
11、Sub Command1_Click()Dim a, i a = 1Fori = 1 To 6 a = 2 * (a + 1) Next iPrint "小猴原有桃"a;"只” End Sub11 .百元买百鸡问题。假定小鸡每只 5角,公鸡每只2元,母鸡每只3元,编程求解购鸡 7K oPrivate Sub Command1_Click()Print "小鸡""""母鸡""""公鸡"Print ""For x = 1 To 100For y =
12、1 To 100For z = 1 To 100If 0.5 * x + 2 * y + 3 * z = 100 ThenPrint "" x; "" y; "" zEnd If Next z Next y Next x End Sub12 .编程求斐波那契数列前11项。(斐波那契数列:F(0)=f(1)=1,F(n尸F(n-1)+F(n-2)n>=2 )Private Sub Command1_Click()Dim x() As IntegerDim n%, i% n = 11ReDim x(n - 1)x(0) = 1x(1
13、) = 1For i = 2 To n - 1x(i) = x(i - 1) + x(i - 2)Next iFor i = 0 To n - 1Print x(i),If (i + 1) Mod 5 = 0 Then PrintNextEnd Sub n = Val(InputBox("输入序列数")13 .已知有序数组a(),编程插入x (x的值为14)。数组a中的元素分别为12, 6, 4, 89,75, 63, 100, 20, 31。窗体上放text1、text2、command1三个控件Dim A() As IntegerPrivate Sub Command1
14、_Click()Dim i, Ip, t, ins, n As IntegerText1.Text =""For i = 0 To UBound(A) - 1Text1.Text = Text1.Text & " " & A(i)Next iIp = Val(InputBox("请输入数字")For i = 0 To UBound(A).If Ip < A(i) ThenReDim Preserve A(UBound(A) + 1) t = A(i) A(i) = Ip ins = i Exit ForEnd I
15、fNext iFor i = ins + 1 To UBound(A) -1 n = A(i) A(i) = t t = nNext iText2.Text =""For i = 0 To UBound(A) - 1Text2.Text = Text2.Text & " " & A(i)Next i End SubPrivate Sub Form_Load()ReDim A(9)A(0) = 4: A(1) = 6: A(2) = 12: A(3) = 20A(4) = 31: A(5) = 63: A(6) = 75: A(7) = 8
16、9A(8) = 100End Sub14.找出被3、5、7除,余数均为1的最小的5个正整数。Private Sub Form_Click()Dim CountN%, n%CountN = 0n = 1Don = n + 1If n Mod 3 = 1 And n Mod 5 = 1 And n Mod 7 = 1 Then Print nCountN = CountN + 1End IfLoop Until CountN = 5 End Sub15利用随机函数产生50100范围内的20个随机数,显示其中的最大值、最小值和平均值。Private Sub Form_Click()Dim i%, min%, max%, avg%, x%min = 50max = 100avg = 0For i = 1 To 20x = Int(Rnd * 51 + 50)Print x;If x > max Then max = xIf x < min Then min = xavg = avg + xNext iPrintPrint "最小值="min,"最大值="max,"平均值="avg / 20End Sub16.编一函数,统计字符串中汉字的个数。
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 光学纤维面板系列项目可行性分析报告
- 2024年印度超声组织消融系统市场机会及渠道调研报告-样本
- 医院初始审查申请表
- 包茎疾病查房课件
- 全球与中国可生物降解柴油市场深度评估及投资风险展望报告2024-2030年
- 稀土-铁超磁致伸缩单晶材料相关行业投资方案
- 玻璃仪器及实验、医疗用玻璃器皿相关行业投资方案
- 山东省青岛市崂山区2024届八年级数学第二学期期末学业质量监测模拟试题含解析
- 《10.3 频率与概率》复习教案与课后作业
- 隋唐制度的变化与创新及三国至隋唐的文化 综合练习 高三统编版(2019)必修中外历史纲要上一轮复习(广西版)
- 【课件】2023届高考政治 考前最后一节课 课件
- 中石化国内上游基层安全员业务竞赛练兵备考题库(附答案)
- 市政道路工程岩土工程勘探报告
- DB51T 2598-2019公路桥梁超高强钢管混凝土技术规程
- 低压电气设备上安全操作规程
- 妙善-《保健养生技术》
- 数学一年级下册《总复习认识图形、分类与整理》教案
- 颅脑损伤治疗新进展
- 人教版小学数学二年级上册第六单元学习任务单
- GB/T 7025.3-1997电梯主参数及轿厢、井道、机房的型式与尺寸第3部分:V类电梯
- 《社会保险视觉识别系统》行业标准
评论
0/150
提交评论