大一vb考试试题.docVIP

下载本文档

1
0
约6.68千字
约 11页
2021-01-01 发布于山东
举报
版权申诉

大一vb考试试题.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

Private Sub Command1_Click() 求 s=1+3+5+7+... 直到 s2000 为止。 For i = 1 To 1000 Sum = Sum + i If Sum 2000 Then Print i: Exit For Next i End Sub Private Sub Command2_Click() 计算 s=2!+4!+6!+8!+......+N! s = 1 n = InputBox(n=) For i = 2 To n Step 2 s = s * i * (i - 1) Sum = Sum + s Next i Print Sum End Sub Private Sub Command3_Click() 求平方和小于 2000 的最大自然数。 18 s = 1 For i = 1 To 1000 s = i * i Sum = Sum + s If Sum = 2000 Then Print i: Exit For Next i End Sub Private Sub Command4_Click() 求 200 到 400 间，能被３整除但不能被７整除的数的个数。 57 For i = 200 To 400 If i Mod 3 = 0 And i Mod 7 0 Then n = n + 1 Next i Print n End Sub Private Sub Command5_Click() 求 3000 以内能被 17 或 23 整除的正整数的个数。 299 For i = 1 To 3000 If i Mod 17 = 0 Or i Mod 23 = 0 Then n = n + 1 Next i Print n End Sub Private Sub Command6_Click() 求能被 3 整除且至少有一位数字为 5 的三位数的个数。 85 For i = 100 To 999 a = Int(i / 100) b = Int((i - a * 100) / 10) c = i Mod 10 If i Mod 3 = 0 And (a = 5 Or b = 5 Or c = 5) Then n = n + 1 Next i Print n End Sub Private Sub Command1_Click() 已知 24 有 8 个正整数因子 (即： 1,2,3,4,6,8,12,24) ，而 24 正好被其因子个数 8 整除。问 [100,300] 之间有多少个这样的数 Dim n1 As Integer, n2 As Integer Dim x As Integer Dim i As Integer n2 = 0 For x = 100 To 300 n1 = 0 For i = 1 To x If x Mod i = 0 Then 找因子 n1 = n1 + 1 统计因子 End If Next i If x Mod n1 = 0 Then n2 = n2 + 1 统计符合条件的数 End If Next x Print n2 End Sub Private Sub Command2_Click() 求 [200,300] 之间的有奇数个不同因子的最大整数。 289 For x = 300 To 200 Step -1 n = 0 For i = 1 To x If x Mod i = 0 Then n = n + 1 统计因子个数 End If Next i If n Mod 2 0 Then 判断奇数 Print x Exit For End If Next x End Sub Private Sub Command3_Click() 有一堆零件（零件个数不超过 1000），如果分成 4 个零件一组余 2 个； 7 个一组余 3 个； 9 个一组余 5 个。求这堆零件的个数有几种可能。 4 Dim i%, x% For x = 1 To 1000 If x Mod 4 = 2 And x Mod 7 = 3 And x Mod 9 = 5 Then i = i + 1 End If Next x Print i End Sub Private Sub Command4_Click() 百钱百鸡问题。用 100 钱买 100 只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法。 4 For x = 0 To 19 For y = 0 To 33 z = 100 - x - y 鸡的总数是 100 If 5 * x + 3 * y + z / 3 = 100 Then n = n + 1 Print