VisualBasic程序设计导学.docVIP

下载本文档

1
0
约1.85万字
约 25页
2019-07-31 发布于江西
举报
版权申诉

VisualBasic程序设计导学.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文档。上传文档

PAGE 306 Visual Basic程序设计导学附录A 实习题 PAGE 307 附录A 实习题实习1 VB语言基础实习题问题：以不同的字母代表不同的一位数字(0~9)，有如下等式成立： a+bc+def=ghij 求满足上述条件的所有等式。要求：（1）显示解的总数。（2）显示所有的解。分析：由数学知识不难分析出，要使等式成立，def应代表尽可能大的三位数，ghij应代表尽可能小的四位数，因此必有d=9，g=1，h=0。a，b，c，e，f，i，j的值只能在2～8这7个数字中选取．我们可以用多重循环来列举出它们各种不同的取值情况，逐一地判断它们是否满足上述等式。为了避免同一数字被重复使用，可设立逻辑数组x，x[i]值为True时表示数i没有被使用。设计一个窗体如图A.1所示，在其中放置一个文本框Text1和两个标签（Label1和Label2）。文本框Text1的Multiline属性设置为True。图A.1 实习1窗体设计界面然后在该窗体上设计如下事件过程： Private Sub Form_Load() Show Dim a, b, c, d, e, f, g, i, j, h, u, v, n As Integer Dim x(1 To 9) As Boolean n = 0 For i = 1 To 9 x(i) = True Next Text1.Text = g = 1: h = 0: d = 9 For a = 2 To 8 x(a) = False For b = 2 To 8 If x(b) Then x(b) = False For c = 2 To 8 If x(c) Then x(c) = False For e = 2 To 8 If x(e) Then x(e) = False For f = 2 To 8 If x(f) Then x(f) = False For i = 2 To 8 If x(i) Then x(i) = False For j = 2 To 8 If x(j) Then u = a + c + f + (b + e) * 10 + 900 v = 1000 + i * 10 + j If u = v Then str1 = Trim(Str(a)) + + + Trim(Str(b)) + _ Trim(Str(c))+++ Trim(Str(d)) + Trim(Str(e)) + _ Trim(Str(f)) + = + Trim(Str(g)) + _ Trim(Str(h)) + Trim(Str(i)) + Trim(Str(j)) If n = 0 Then Text1.Text = str1 ElseIf n Mod 3 = 0 Then Text1.Text = Text1.Text + Chr(13) + Chr(10) + str1 Else Text1.Text = Text1.Text + Chr(13) + + str1