有关计算器等V程序设计报告.doc

第一部分 题目：—9999之间的全部同构数。所谓同构数是指这样的整数，它恰好出现在其平方数的右边：如 1，25等。 解题分析、方法： 题目要求求同构数，就是求一个整数，其平方所得到的整数的右边包含这个数。我们可以以这样一个解题思路去分析它：因为题目只要求求出1---9999中的同构数，我们可以先假设一个数n，先求出他的平方令其为e，接着我们就去看e的右边是否等于n，先看它的个位，就是除以10之后的余数a，看a是不是等于n；不行，再检查它右边两位，除以100所得的余数b，接着再检测右边3位和右边4位数。如果其中有一个余数等于n，那么就符合条件，为同构数，否则不是。其中对1到9999分别进行检测，采用for循环语句。 源程序： Private Sub Command1_Click() Dim n, a, b, c, d As Integer Dim e As Long For n = 1 To 9999 e = n ^ 2 a = e Mod 10 b = e Mod 100 c = e Mod 1000 d = e Mod 10000 If a = n Or b = n Or c = n Or d = n Then Text1.Text = Text1.Text Str(n) End If Next n End Sub 运行结果： 题目二： 统计文本框中英文单词的个数，设计界面参考如下： 解题分析、方法： 统计一段文字的单词个数，我认为其中关键点是对字符的判断，就是判断字符是不是属于字母，如果前一个字符属于字符，而后面一个字符不是字符，那么它就是一个单词。根据这个思路，首先先统计段落的总字符数，然后再运用for逐个循环判断每个字符与其后一个字符，如果满足前一个字符属于字符，而后面一个字符不是字符，那么它就是一个单词，单词数就加一，知道判断完所有的字符，总的单词数也就出来了。 源程序： Private Sub Command1_Click() N = 0 m1 = text1.Text For i = 1 To Len(m1) k1 = UCase(Mid(m1, i, 1)) k2 = UCase(Mid(m1, i + 1, 1)) If (A = k1 And k2 = Z) And (k2 A Or k2 Z) Then N = N + 1 End If Next i Text2.Text = Str(N) End Sub 运行结果： 题目三： 设计一个进度条，用来指示程序结束的时间进度，界面如下： 解题分析、方法： 要建立一个进度条，首先先添加进度条这个控件，然后将开始的progressbar中的 value值设为0，计时器每秒计时一次，每过一秒progressbar中value值加一（value的最大值为100）。用if语句实现上面的功能。 源程序： Private Sub Form_Load() ProgressBar1.Value = 0 Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If ProgressBar1.Value 100 Then ProgressBar1.Value = ProgressBar1.Value + 10 Else End End If End Sub 题目四： 设计如图所示界面：各按钮功能如下，请给出以下四个按钮的事件过程代码。 解题分析、方法： 根据题目要求，有四个命令，除了执行本身任务要求外，每一个命令都得考虑到一个共同点，当书名未选定时，按这些命令，得跳出“未选中课本”。同时对于上移得考虑是否为最上面一本，下移得考虑是否为最下面一本，下榜得考虑是否有书，上榜还得考虑是否已输入书名。当输入书名后，光标要移回输入书名那个text中，当有点击某本书时，显示名次时。考虑到这些情况后，在根据一般思路便可以编写出比较完善的程序。 源程序： Private Sub Command1_Click() If List1.ListCount = 0 Then MsgBox 列表无书 Exit Sub End If Select Case List1.ListIndex Case 0 MsgBox 已是第一本 Case -1 MsgBox 未选中书名 Case Else k = List1.ListIndex a = List1.List(k - 1) List1.List(k - 1) = L