 上传我的文档
 下载
 收藏
毕业于医学院校，在医院工作，有相对丰富的护理经验
 下载此文档
正在努力加载中...
计算机模拟题1
下载积分：2500
内容提示：计算机模拟题1
文档格式：DOC|
浏览次数：55|
上传日期： 11:39:20|
文档星级：
全文阅读已结束，如果下载本文需要使用
 2500 积分
下载此文档
阅读此文档的用户还读了
计算机模拟题1
官方公共微信您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
【2017年整理】VB 复习范围.docx 59页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
需要金币：100 &&
你可能关注的文档：
··········
··········
程序设计1.'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：编写函数fun，函数的功能是：计算两个正整数的'最大公约数，并显示。如：'两个数为15、20，结果显示&5&'要求使用Do...Loop语句来实现。Dor=mModnIfr=0ThenExitDom=nn=rLoopfun=n'-------------------------------------------------'注意：请在指定的事件内编写代码'代码只能写在两行标识之间'不得修改已有代码'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。'-------------------------------------------------2.'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：编写函数fun，函数的功能是：当x的初值为10，'每年增长率为百分之一，计算多少年以后x的值能达到y，'并显示所需年数的值（变量名必须为n）。'要求使用Do...LoopUntil语句来实现。x=10n=0Dox=x*1.01n=n+1LoopUntilx&=yfun=n'-------------------------------------------------'注意：请在指定的事件内编写代码'代码只能写在两行标识之间'不得修改已有代码'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。'-------------------------------------------------3.'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：编写函数fun，函数的功能是：求从m到n的奇数的乘积并显示，'如：m为2，n为5时，显示&15&'存储连乘的乘积的变量必须为Product'要求使用For语句来实现。Product=1Fori=mTonIfiMod2&&0ThenProduct=Product*iNextifun=Product'-------------------------------------------------'注意：请在指定的事件内编写代码'代码只能写在两行标识之间'不得修改已有代码'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。'-------------------------------------------------4.'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：：编写函数fun，函数的功能是：计算并输出给定'整数n的所有因子之和（不包括1与自身）。规定'n的值不大于1000.'例如：n的值为855时，应输出704。Dims,iAsIntegerFori=2Ton-1IfnModi=0Thens=s+iEndIfNextFun=s'-------------------------------------------------程序填空1.编程求1-10之间任一数字的阶乘。OptionExplicitPrivateSubCommand1_Click()DimxAsIntegerx=Val(Text1.Text)Ifx&=1Andx&=10ThenLabel2.Caption=Text1'**********FILL**********text2.Text=CStr(fac(x))EndSubPrivateFunctionfac(nAsInteger)AsLongDimiAsIntegerDimsAsLongs=1Fori=1Ton'**********FILL**********s=s*iNexti'**********FILL**********fac=s'返回函数值EndFunctionPrivateSubCommand2_Click()EndEndSub2.编写一个求三个数最大值的函数max(x,y,z)，然后调用此函数求下列表达式的值，首先在文本框中输入
正在加载中，请稍后...当前位置： >>
>> VB程序设计
3．题目： (事件)单击窗体。(响应)求一个数（该数为1000以内的数）,它除3余2，除5余3， 除7余2，请将满足上面条件的最小数保存到sum变量中。使用for...next语句完成程序 Dim i As Integer For i = 2 To 1000 If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then Print i E
xit For End If Next i sum = i 4．题目：(事件)单击窗体。 (响应)求10!的值，并将结果输出到窗体上。将结果存入变量 SUM中。 Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 7．题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果 存入变量SUM中。 Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum 9. 题目：(事件)单击窗体。 (响应)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变 量S中 Dim i, j, k As Integer For i = 1 To 5 k = 1 For j = 1 To i k = k * j Next s = s + k Next Print (CStr(s)) 11.题目： (事件)单击命令按钮Command1。 (响应)计算如下表达式s的值, s=1+(1*2)+(1*2*3)+……+(1*2*3*……*6)并将结果输出到文本框Text1中。 Dim j As Integer Dim i As Integer j = 1 s = 0 For i = 1 To 6 j = j * is = s + j Next i Text1.Text = s 13. 题目：(事件)双击窗体。 (响应)求1+5+10+15+……+500的和，并将结果输出到窗体上。 将结果存入变量SUM中。 Dim i As Integer For i = 1 To 500 If i Mod 5 = 0 Then sum = sum + i End If Next Print sum 14. 题目：(事件)单击窗体。 (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在 窗体上。 Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) 15.题目：(事件)双击窗体。 (响应)求3+6+9+12+15+18+……+300的和，并将结果输出到窗 体上。将结果存入变量 SUM中。 Dim i As Integer For i = 3 To 300 If i Mod 3 = 0 Then sum = sum + i End If Next Print sum 19.题目：请用Select语句编程计算打折后的金额？ '折扣方法如下: ' 购物300以下，无优惠（使用MsgBox显示&无优惠&）； ' 购物300以上，95折； ' 购物500以上，9折； ' 购物1000以上，85折； ' 购物5000以上，8 折? Select Case n Case Is & 5000 n = n * 0.8 Case Is & 1000 n = n * 0.85Case Is & 500 n = n * 0.9 Case Is & 300 n = n * 0.95 Case Else MsgBox &无优惠& End Select 20.题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所 有数之和存入变量SUM中 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 21.题目： (事件)单击窗体。 (响应)求从100到1000之间所有是3的倍数的数之和，当和大 于3000时，停止计算并输出和。请将结果输出到窗体上,并存入所给变量SUM中。使用 for...next语句完成程序 Dim i As Integer sum=0 for i=100 to 1000 if i mod 3=0 then sum=sum+i if sum&3000 then exit for endif endif next Print sum 22.题目：(事件)双击窗体。 (响应)求出100~200之间，能被5整除，但不能被3整除的数。 并求所有数之和，存入变量中SUM中。 Dim i As Integer For i = 100 To 200 If ((i Mod 5) = 0) And ((i Mod 3) && 0) Then Print (CStr(i)) sum = sum + i End If Next 2 2 2 25 勾股定理中 3 个数的关系是 a +b =c 。编写程序，输出 20 以内满足上述关系的整数组合。 Private Sub Form_Click() Dim a As IntegerDim b As Integer Dim c As Integer For a = 1 To 20 For b = 1 To 20 For c = 1 To 20 If a ^ 2 + b ^ 2 = c ^ 2 Then Print &a=&; a, &b=&; b, &c=&; c End If Next c Next b Next a End Sub 26 打印如下金字塔Private Sub Form_Click() Dim i As Integer Dim j As Integer For i = 1 To 9 Print Spc(-3 * i + 30); For j = 1 To i P Next For j = i - 1 To 1 Step -1 P Next Print Next End Sub Private Sub Form_click() Dim i%, j% For i = 0 To 8 '外循环确定行数 Print Tab(27 - 3 * i); '确定每行的起点 For j = 1 To i P '打印一行的前半递增数字部分 Next jFor j = i + 1 To 1 Step -1 P '打印一行的后半递减数字部分 Next j Print '换行 Next i End Sub 28 输入一个字符串，统计其中有多少个小写字母，多少个数字字符，多少个其他字符。 Private Sub Form_Click() Dim str As String Dim x As String Dim i As Integer Dim n1%, n2%, n3% str = InputBox(&请输入一个字符串&) For i = 1 To Len(str) x = Mid(str, i, 1) Select Case x Case &a& To &z& n1 = n1 + 1 Case &1& To &9& n2 = n2 + 1 Case Else n3 = n3 + 1 End Select Next Print &输入的字符串是：&; str Print &共有小写字母&; n1; &个& Print &共有数字字符&; n2; &个& Print &共有其他字符&; n3; &个& End Sub 29 求一个数，它除 3 余 2，除 5 余 3，除 7 余 2，求满足要求的最小自然数。 Private Sub Form_Click() '除 3 余 2，除 5 余 3，除 7 余 2 Dim n As Integer For n = 1 To 100 If (n Mod 3 = 2) And (n Mod 5 = 3) And (n Mod 7 = 2) Then Print &这个数是&; n Exit For End If Next End Sub 30 输入一个数，判断这个数是否既可以被3整除，又可以被5整除。 Private Sub Form_Click()'既可以被 3 整除，又可以被 5 整除 Dim n As Integer n = InputBox(&请输入一个整数&) If n Mod 15 = 0 Then Print &这个数能够被 3 整除也能被 5 整除& Else Print &这个数不符合要求& End If End Sub 31 寻找水仙花数。在 100~999 之间找出所有这样的数并输出：该数的值等于该数中各 3 3 3 位数字的立方和。（例如 153=1 +5 +3 ） Private Sub Form_Click() For n = 100 To 999 a = n \ 100 b = (n Mod 100) \ 10 c = n Mod 10 If n = a ^ 3 + b ^ 3 + c ^ 3 Then P x = x + 1 If x Mod 5 = 0 Then Print End If Next End Sub 32 评分。在某次比赛中，有 7 个评委打分（由键盘输入 7 个评委的分数），去掉一个 最高分，去掉一个最低分后，求出平均分为该参赛者的最终得分。写程序实现。 Dim n As Single Dim s As Single Dim max!, min! Dim avg! max = 0 min = 100 For i = 1 To 7 n = InputBox(&请输入第& & i & &位评委的分数&) If n & max Then max = n If n & min Then min = n s = s + n Next s = s - max - min avg = s / 5 Print &最高分是：&, max Print &最低分是：&, min Print &平均分是：&, avgEnd Sub 33.设有一个一维数组，数组长度由键盘输入。编写程序将数组逆序并输出。 Private Sub Form_Click() Dim a() As Integer, b() As Integer Dim n% n = InputBox(&请输入数组的长度&) ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 101) Print a(i); Next Print ReDim b(n) For i = 1 To n b(i) = a(n - i + 1) Next Print &逆序后的数组为：& For i = 1 To n Print b(i); Next End Sub 34. 编写程序，用随机函数产生 20 个在[1,100]之间的正整数，找出其中的最大数和最 小数并输出，同时输出下标。 Option Base 1 Private Sub Form_Click() Dim a(20) As Integer Dim m%, n%, i%, Max%, Min% Randomize For i = 1 To 20 a(i) = Int(Rnd * 100) + 1 Print a(i); Next Print Max = a(1) Min = a(1) For i = 2 To 20 If a(i) & Max Then Max = a(i): m = i If a(i) & Min Then Min = a(i): n = i Next Print &最大的数是：&; M &最大数的下标是：&; m Print &最小的数是：&; M &最小数的下标是：&; nEnd Sub 35. 编写程序，显示斐波那契数列的第 15 项。（两种方法）斐波纳契数列（Fibonacci Sequence），又称黄金分割数列，指的是这样一个数列：1、1、2、3、5、8、13、21、…… Private Sub Form_Click() Dim s1%, s2%, s% s1 = 1 s2 = 1 For i = 3 To 15 s = s1 + s2 s1 = s2 s2 = s Next Print &第 15 项是：&; s End Sub 38. 题目：编写函数fun，其功能是:能计算从1开始到n的 ' 自然数中偶数的平方的和。 Dim sum As Integer, i As Integer sum = 0 For i = 2 To n Step 2 sum = sum + i * i Next fun = sum 39. 题目：编写函数fun其功能是：根据整型形参m，计算 ' 如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m ' 例如：若m=9，则应输出：1.13 Dim y As Double Dim i As Integer For i = 1 To m y = y + 1 / (2 * i) Next fun = y 40. 题目：编写函数fun，函数的功能是：求从m到n的乘积并显示， '如：m为2，n为4时，显示&24& '存储连乘的乘积的变量必须为Product '要求使用For语句来实现。 Product = 1 For i = m To n Product = Product * i Next i fun = Product 41. 题目：编写函数fun，函数的功能是：求1~1000以内能 '同时被m、n整除的数的总和并显示。如：'m为15，n为11时，显示&3465& '存储总和的变量必须为Sum ‘要求使用For语句来实现。 Sum = 0 For i = 1 To 1000 If i Mod m = 0 And i Mod n = 0 Then Sum = Sum + i End If Next i fun = Sum 42. 题目：编写函数fun，函数的功能是：求1~100以内 '能被m整除或能被n整除的数的总和并显示。如： 'm为15，n为11时，显示&810& '存储总和的变量必须为Sum '要求使用For语句来实现。 Sum = 0 For i = 1 To 100 If i Mod m = 0 Or i Mod n = 0 Then Sum = Sum + i End If Next i fun = Sum3. 题目：编写函数fun，函数的功能是：当x的初值为10，每年增长率为千分之 八，计算多少年以后x的值能达到y，并显示所需年数的值（变量名必须为n）。 要求使用Do While ... Loop语句来实现。 答案：Function fun(n%) Dim x As Integer Dim y As Integer Dim n As Integer x = 10 Do While x &= y x = x * 1.008 n=n+1 fun = n End Function 13. 题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体 上。将结果存入变量L中。 答案: Dim iRes As Long Dim bFlag As Boolean iRes = 1 For i = 10 To 20 bFlag = False For j = 2 To i / 2 If i Mod j = 0 ThenbFlag = True Exit For End If Next j If Not bFlag Then iRes = iRes * i End If Next i Print iRes
相关文档：
更多相关文章：
VB经典的程序设计题_IT认证_资格考试/认证_教育专区。大一vb常考例题解析 累加求和 1 到 100 Private Sub Command1_Click() Dim i As Integer, sum As ...4、Visual Basic 6.0 用于开发___环境下的应用程序。 二、选择题 1、下面不是 VB 工作模式的是( ) A.设计模式 B.运行模式 C.汇编模式 D.中断模式 2、可...Vb程序设计报告模板_计算机软件及应用_IT/计算机_专业资料。VB课程设计时候自己做的长江大学工程技术学院 VB 语言程序设计课程设计报告( 学年 第一学期) ...(2) 7、启动 VB,打开工程文件“c:\MyExam\VB11.vbp”,完成如下算法设计: 该程序的功能是求 S=1+3+5+……+99。请将程序缺失部分“__”补充完整,并将...VB程序设计多试题及答案_从业资格考试_资格考试/认证_教育专区 暂无评价|0人阅读|0次下载|举报文档VB程序设计多试题及答案_从业资格考试_资格考试/认证_教育专区。...VB程序设计第9章 32页 2财富值 vb程序设计第八章 15页 免费如要投诉违规内容,请到百度文库投诉中心;如要提出功能问题或意见建议,请点击此处进行反馈。 ...Visual Basic 程序设计实验指导与同步训练 第一章 Visual Basic 程序开发环境一、选择题 1.VB6.0 共有三个版本,按功能从弱到强的顺序排列应是___。 A)学习...VB程序设计教学目标_工学_高等教育_教育专区。《VB 程序设计》教学目标设定曲江职校实践总学时: 128 一、实践课程教学的教学目标 通过实验达到教学大纲要求的教学目...VB程序设计课程标准_工学_高等教育_教育专区。程序设计》 《Visual Basic 程序设计》课程标准 课程编码:B060203 适用专业:高职高专非计算机类各专业 学时: 学分:...《VB程序设计》试卷十 学号___ 姓名___ 题号 一二三四五六 总分 分值 10 10 20 18 18 24 100 得分 得分___ 单选题(每小题1分,共10分) 1. 以下关... 更多相关标签：
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
copyright &copyright 。非常超级学习网内容来自网络，如有侵犯请联系客服。|扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
下载作业帮安装包
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
编写函数fun,函数的功能是：当X的初值为10,每年的增长率为0.01,多少年以后X的值达到Y.用do while……loPrivate Function fun(y As Single) As LongDim x As Single,n As Longx=10do while x
一谜崡媞磇嚊
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
Private Function fun(x, y)
Do While x
为您推荐：
其他类似问题
扫描下载二维码