有关计算器等vb程序设计报告

《有关计算器等vb程序设计报告》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、第一部分题目一：编写一程序找出并显示1—9999之间的全部同构数。所谓同构数是指这样的整数，它恰好出现在其平方数的右边：如1，25等。1.解题分析、方法：题目要求求同构数，就是求一个整数，其平方所得到的整数的右边包含这个数。我们可以以这样一个解题思路去分析它：因为题目只要求求出1---9999中的同构数，我们可以先假设一个数n，先求出他的平方令其为e，接着我们就去看e的右边是否等于n，先看它的个位，就是除以10之后的余数a，看a是不是等于n；不行，再检查它右边两位，除以100所得的余数b，接着再检测右边3位和右边4位数。如果其中有一个余数等于n，那么就符合条件，为同构数，否则不是。其中对

2、1到9999分别进行检测，采用for循环语句。2.源程序：PrivateSubCommand1_Click()Dimn,a,b,c,dAsIntegerDimeAsLongForn=1To9999e=n^2a=eMod10b=eMod100c=eMod1000d=eMod10000Ifa=nOrb=nOrc=nOrd=nThenText1.Text=Text1.Text&Str(n)EndIfNextnEndSub3.运行结果：题目二：统计文本框中英文单词的个数，设计界面参考如下：1.解题分析、方法：统计一段文字的单词个数，我认为其中关键点是对字符的判断，就是判断字符是不是属于字母，如果

3、前一个字符属于字符，而后面一个字符不是字符，那么它就是一个单词。根据这个思路，首先先统计段落的总字符数，然后再运用for逐个循环判断每个字符与其后一个字符，如果满足前一个字符属于字符，而后面一个字符不是字符，那么它就是一个单词，单词数就加一，知道判断完所有的字符，总的单词数也就出来了。2.源程序：PrivateSubCommand1_Click()N=0m1=text1.TextFori=1ToLen(m1)k1=UCase(Mid(m1,i,1))k2=UCase(Mid(m1,i+1,1))If("A"<=k1Andk2<="Z")And(k2<"A"Ork2>"Z")ThenN=N

4、+1EndIfNextiText2.Text=Str(N)EndSub1.运行结果：题目三：设计一个进度条，用来指示程序结束的时间进度，界面如下：1.解题分析、方法：要建立一个进度条，首先先添加进度条这个控件，然后将开始的progressbar中的value值设为0，计时器每秒计时一次，每过一秒progressbar中value值加一（value的最大值为100）。用if语句实现上面的功能。2.源程序：PrivateSubForm_Load()ProgressBar1.Value=0Timer1.Interval=1000Timer1.Enabled=TrueEndSubPrivateS

5、ubTimer1_Timer()IfProgressBar1.Value<100ThenProgressBar1.Value=ProgressBar1.Value+10ElseEndEndIfEndSub题目四：设计如图所示界面：各按钮功能如下，请给出以下四个按钮的事件过程代码。1.解题分析、方法：根据题目要求，有四个命令，除了执行本身任务要求外，每一个命令都得考虑到一个共同点，当书名未选定时，按这些命令，得跳出“未选中课本”。同时对于上移得考虑是否为最上面一本，下移得考虑是否为最下面一本，下榜得考虑是否有书，上榜还得考虑是否已输入书名。当输入书名后，光标要移回输入书名那个text中，当

6、有点击某本书时，显示名次时。考虑到这些情况后，在根据一般思路便可以编写出比较完善的程序。2.源程序：PrivateSubCommand1_Click()IfList1.ListCount=0ThenMsgBox"列表无书"ExitSubEndIfSelectCaseList1.ListIndexCase0MsgBox"已是第一本"Case-1MsgBox"未选中书名"CaseElsek=List1.ListIndexa=List1.List(k-1)List1.List(k-1)=List1.ListIndexList1.List(k)=aList1.Selected(k-1)=True

7、'光标选择list1的第k-1项EndSelectEndSubPrivateSubCommand2_Click()IfList1.ListCount=0ThenMsgBox"列表无书"ExitSubEndIfSelectCaseList1.ListIndexCaseList1.ListCount-1MsgBox"已是最后一本"Case-1MsgBox"未选中书名"CaseElsek=List1.ListIndexa=List1.Li