实验三循环结构.pptVIP

2001.2.10 1．创建一个名为“CalcSum”的窗体，如图8-12所示。其功能是：在文本框Text1和Text2中输入两个整数（MN），单击“[M，N]之间能被3整除的整数之和”命令按钮Command1后，计算从M到N之间能被3整除的所有整数之和并显示在文本框Text3中。 1．创建一个名为“CalcSum”的窗体，如图8-12所示。其功能是：在文本框Text1和Text2中输入两个整数（MN），单击“[M，N]之间能被3整除的整数之和”命令按钮Command1后，计算从M到N之间能被3整除的所有整数之和并显示在文本框Text3中。 2．创建一个名为“Prime”的窗体，如图8-13所示。其功能是：在文本框Text1中输入一个正整数，单击“是否为素数”命令按钮Command1后，判断所输入的正整数是否为素数，若是，则在文本框Text2中显示“是素数”，否则显示“不是素数”。素数即是质数，是指只能被1和本身整除的数。 3．创建一个名为“RandNum”的窗体，如图8-14所示。其功能是：(1) 单击“产生随机数”命令按钮Command1后，在带有垂直滚动条的文本框Text1中显示10个[60，100]之间的随机整数；(2) 单击“统计”命令按钮Command2后，在文本框Text2中显示这10个数的平均值Aver，同时在文本框Text3中显示其中高于平均值Aver的个数。提示：产生的10个随机数需被访问两次，一次是在Command1_Click事件过程中产生并显示在文本框Text1中，另一次是在Command2_Click事件过程中计算平均值Aver并统计高于平均值Aver的个数，所以应将这10个随机数存放在数组中；同时又由于分别在两个子过程中访问同一个数组，因此必须在通用区域中申明数组（模块级变量）。 3．创建一个名为“RandNum”的窗体，如图8-14所示。其功能是：(1) 单击“产生随机数”命令按钮Command1后，在带有垂直滚动条的文本框Text1中显示10个[60，100]之间的随机整数；(2) 单击“统计”命令按钮Command2后，在文本框Text2中显示这10个数的平均值Aver，同时在文本框Text3中显示其中高于平均值Aver的个数。提示：产生的10个随机数需被访问两次，一次是在Command1_Click事件过程中产生并显示在文本框Text1中，另一次是在Command2_Click事件过程中计算平均值Aver并统计高于平均值Aver的个数，所以应将这10个随机数存放在数组中；同时又由于分别在两个子过程中访问同一个数组，因此必须在通用区域中申明数组（模块级变量）。 4．创建一个名为“CharNum”的窗体，如图8-15所示。其功能是：在文本框Text1中输入一串字符，单击“统计”命令按钮Command1后，分别在文本框Text2、Text3、Text4和Text5中依次显示该字符串中英文字母、数字、空格以及其它字符的个数。 5．创建一个名为“Palindrome”的窗体，如图8-16所示。其功能是：在文本框Text1中输入一正整数，单击“是否回文”命令按钮Command1后，判断所输入的正整数是否为回文数，若是，则在标签Label2中显示“是回文数”，否则显示“不是回文数”。回文数是顺读和倒数是一样的数，例如：12321是回文数，而12331不是回文数。 * 名称:Text1 名称:Text2 名称:Text3 名称:Command1 名称:Text1 名称:Text2 名称:Text3 名称:Command1 结束 i在[m,n]之间 开始 m=Val(Text1.Value) True n=Val(Text2.Value) s=0 False (i Mod 3)=0 s=s+i True Text3.Value=s False i=i+1 Next i 名称:Text1 名称:Text2 名称:Command1 结束 i在[2,sqr(x)]之间 开始 x=Val(Text1.Value) True False (x Mod i)=0 Exit For True Text2.Value=s False i=i+1 Next i iSqr(x) s=“是素数” s=“不是素数” True False 名称:Text1 名称:Text2 名称:Command1 名称:Command2 名称:Text3 结束 i在[1,10]之间 开始 Text1.Value=“” True X(i)=Round(Rnd()*(100-60),0)+60 i=i+1 Next i False Text1.Value=Text1.Value X(i) “ “ Text2.Value=“”