实验报告课程VisualBasic程序设计实验项目选择结构程序设计（2）专业班级姓名学号实验日期指导教师成绩实验目的：掌握Fornext循环的使用。掌握while-wend循环的使用。掌握do-loop循环的使用。实验内容：在名称为Form1的窗体上画一个命令按钮，名称为Cmd1，标题属性为“计算”。要求单击命令按钮的时候在窗体上输出1＋3＋5＋….99的值。要求：窗体名称保存为sy4-1.frm，工程名保存为sy4-1.vbp。程序代码：PrivateSubCmd1_Click()Fori=1To99Step2s=i+sNextiPrintsEndSub已知m=11×２２×３３×４４×。。。×nn。单击命令按钮，在窗体上输出m不大于200000时，m和n的最大值的值。要求：。窗体名称保存为sy4-2.frm，工程名保存为sy4-2.vbp。程序代码：PrivateSubCommand1_Click()m=1Don=n+1a=n^nm=m*ab=(n+1)^(n+1)c=m*bIf200000<cAnd200000>mThenExitDoEndIfLoopUntilm=200000Printm,nEndSub在名称为Form1的窗体上画一个命令按钮，名称为Cmd1，标题属性为“计算”。在“除数”框中选择一个单选按钮，然后单击命令按钮，将第一个大于文本框中的正整数、并且能够被所选除数整除的数打印在窗体上。要求：。窗体名称保存为sy4-3.frm，工程名保存为sy4-3.vbp。程序代码：PrivateSubCmd1_Click()a=Text1.TextIfOption1.Value=TrueThenb=Option1.CaptionElseIfOption2.Value=TrueThenb=Option2.CaptionElseIfOption3.Value=TrueThenb=Option3.CaptionEndIfDoa=a+1IfaModb=0Anda>0ThenExitDoEndIfLoopPrintaEndSub在名称为Form1的窗体上画一个命令按钮，名称为Cmd1，标题属性为“计算”。单击命令按钮的时候，任意输一个字符串，分别统计该字符串中的字母、数字、空格和其他字符的个数。要求：。窗体名称保存为sy4-4.frm，工程名保存为sy4-4vbp。程序代码：PrivateSubCmd1_Click()a=Len(Text1.Text)c=0d=0e=0f=0Fori=1Toab=Mid(Text1.Text,i,1)If(b<="Z"Andb>="A")Or(b<="z"Andb>="a")Thenc=c+1ElseIfAsc(b)<=57AndAsc(b)>=48Thend=d+1ElseIfb=""Thene=e+1Elsef=f+1EndIfNextiPrint"字母个数=";c,"数字个数=";d,"空格个数=";e,"其他字符个数=";fEndSub在名称为Form1的窗体上画一个命令按钮，名称为Cmd1，标题属性为“计算”。单击命令按钮时候任意输入一个字符串，判断该字符串是否为回文。要求：。窗体名称保存为sy4-5frm，工程名保存为sy4-5.vbp。程序代码：PrivateSubCmd1_Click()a=Len(Text1.Text)Fori=1Toab=Mid(Text1.Text,i,1)c=Mid(Text1.Text,a-i+1,1)Ifb<>cThenPrint"不是回文"ExitForEndIfNextiIfi>aThenPrint"是回文"EndIfEndSub