vb重点复习.docVIP

下载本文档

48
0
约5.22千字
约 5页
2015-09-13 发布于重庆
举报
版权申诉

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文档。上传文档

vb重点复习

1，函数题 5. 编写一个函数过程，判断一个5位数是否满足以下条件：取它的前2位和后2位分别作为两个2位数，这两个数都能被7整除，中间一位数也能被7整除，例如：14000、49035、91056。要求调用该过程，计算并输出区间[50000,60000]之间满足条件的数据的个数。 Function f(ByVal n as integer) As Boolean Dim i, j, k As Integer i = n \ 1000 j = n Mod 100 k = (n Mod 1000) \ 100 If (i Mod 7 = 0) And (j Mod 7 = 0) And (k Mod 7 = 0) Then f = True Else f = False End If End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, m As Integer m = 0 For i = 50000 To 60000 If f(i)=true Then m = m + 1 End If Next MsgBox(Str(m)) End Sub 7. 编写一个函数过程，判断一个4位数是否满足以下条件：取它的前2位和后2位分别作为两个2位数，这两个数都能被3整除，也能被7整除。例如：2142、6321 。要求调用该过程，计算并输出所有４位整数中满足条件的数据个数。结果：20 Function f(ByVal n As Integer) As Boolean Dim i, j As Integer i = n \ 100 j = n Mod 100 If (i Mod 3 = 0) And (j Mod 3 = 0) And (i Mod 7 = 0) And (j Mod 7 = 0) Then f = True Else f = False End If End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, m As Integer m = 0 For i = 1000 To 9999 If f(i) = True Then m = m + 1 End If Next MsgBox(Str(m)) End Sub ,2，图形输出 A BBB CCCCC DDDDDDD Dim a, b, c As Integer Dim str1 As String = For a = 1 To 4 c = Asc(A) str1 = str1 + Space(4 - a) c = c + a - 1 For b = 1 To 2 * a - 1 str1 = str1 + Chr(c) + Next str1 = str1 + vbCrLf Next MsgBox(str1) A ABC ABCDE ABCDEFG Dim a, b, c As Integer Dim str1 As String = For a = 1 To 4 c = Asc(A) str1 = str1 + Space(4 - a) For b = 1 To 2 * a -