上机实验内容第六次上机实验四，程序控制结构，实验内容6、7和课外作业题。多种方法求质数。求200-300以内的所有质数电脑自动出四则运算题并判断对错。九九乘法表的三角形打印。多种方法让三个数字排序。给定成绩，让电脑自动评分。使用selectcase语句，并保证输入的数值有效。第五次上机实验四，程序控制结构求国际象棋棋盘上放置麦粒的数量。打印下列两个图形for循环，打印斐波那契数列，在每行上输出三、四、五个数字求e，当第i项<10-6时结束。第四次上机实验四，程序控制结构鸡兔同笼问题。使用inputbox()函数，分别输入鸡和兔子的头和脚的数量，计算并输入对应的鸡的数量和兔子的数量，要求实现程序检测，不允许出现负的结果和不为整数的结果。实现一元二次方程求解。要求能够处理判别式小于零和方程系数输入错误的情况。任意输入三个数，按从大到小的顺序输出结果。三个数可以通过inputbox()函数输入，也可以通过文本框输入。求数列，1、3、6、10、15、21……前n项之和，n由输入的数值决定。第三次上机利用随机函数，实现文本框中字体的缩放。点击放大按钮之后，字体放大1-3倍，放大按钮变得不可用。点击缩小钮扣之后，字体缩小1-3倍，缩小按钮变得不可用。点击还原之后，字体恢复原来大小，放大和缩小按钮变回可用状态。使用随机函数。我国有13亿人口，按增长率计算，多少年后我国的人口超过26亿。要求增长率用文本框输入。编程实现对温度转换程序的输入检测。如果在文本框中输入的是数字，则进行运算，如果输入的字符或者没有输入，则给出提示要求用户重新输入。第二次上机温度转换PrivateSubForm_Click()Text1.Text=""Text2.Text=""EndSub鸡兔同笼问题Print方法PrivateSubForm_Click()PrintPrintFori=1To5PrintTab(i);String(6-i,"▼");Spc(6);String(i,"▲")NextiEndSub请打印以下图形：第一次上机实验一、实验二，将文件存放在自己的文件夹下，给文件起个有意义的名字在窗体或者一个命令按钮上单击，“欢迎”和“你好”交替显示应用的语句If……then……Else……Endif设置两个命令按钮，点击其中一个之后，“欢迎”向右移动一定距离。点击另外一个之后，“欢迎”回到原来的位置。自己规定按钮的名字和按钮上显示的文字。应用到的属性，left生成可执行程序。拷贝到自己的可移动磁盘上。解答第五次上机3、打印两个图形左图PrivateSubForm_click()Dimi%,k$Fori=1To10k=Right(Str(i),1)PrintTab(15-i);String(2*i-1,k)NextiEndSub右图OptionExplicitPrivateSubForm_click()Dimi%Fori=6To2Step-1PrintTab(25-3*i);"★";String(3*i-4,"☆");"★"NextiPrintTab(25-3*i);"☆"Fori=2To6PrintTab(25-3*i);"☆";String(3*i-4,"★");"☆"NextiEndSub斐波那契数列的各种形式打印两个两个地打印，每行打印两个PrivateSubCommand1_Click()DimaAsLong,bAsLong,cAsLonga=1b=1Fori=1To20Printa,ba=a+bb=a+bNextiEndSub两个两个地打印，每行打印四个PrivateSubCommand2_Click()DimaAsLong,bAsLong,cAsLonga=1b=1Fori=1To20Printa,b,IfiMod2=0ThenPrinta=a+bb=a+bNextiEndSub一个一个地打印，每行打印三个PrivateSubCommand3_Click()DimaAsLong,bAsLong,cAsLonga=1b=1Printa,b,Fori=3To40c=a+bPrintc,IfiMod3=0ThenPrinta=bb=cNextiEndSub一个一个地打印，每行打印五个PrivateSubCommand4_Click()DimaAsLong,bAsLong,cAsLonga=1b=1Printa,b,