成人《VB程序设计》标准化大作业答案

作业1

一、单项选择题

1.VisualBasic是一种面向对象的可视化程序设计语言，采取了A的编程机制A事件驱动B按过程顺序执行C从主程序开始执行D按模块顺序执行

2.在VisualBasic中最基本的对象是C，它是应用程序的基石，是其他控件的容器A文本框B命令按钮C窗体D标签

3.多窗体程序是由多个窗体组成在缺省情况下，VB在应用程序执行时，总是把B指定为启动窗体A不包含任何控件的窗体B设计时的第一个窗体C包含控件最多的D命名为Frm1的窗体

4.有程序代码如下Text

1.Text=VisualBasic则Text1，Text和VisualBasic分别代表CA对象，值，属性B对象，方法，属性C对象，属性，值D属性，对象，值

5.VisualBasic是一种面向对象的程序设计语言，A不是面向对象系统所包含的三要素A变量B事件C属性D方法

6.VisualBasic的一个应用程序至少包含一个B文件，该文件存储窗体上使用的所有控件对象和有关的、对象相应的过程和代码A模块、方法、事件、程序B窗体、属性、事件、程序C窗体、程序、属性、事件D窗体、属性、事件、模块

7.以下不属于VisualBasic的工作模式是A模式A编译B设计C运行D中断

8.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是CA窗体布局窗口B立即窗口C代码窗口D监视窗口

9.保存新建的工程时，默认的路径是BAMyDocumentsBVB98C＼DWindows

10.将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其他机器上不能运行的主要原因是AA运行的机器上无VB系统B缺少.frm窗体文件C该可执行文件有病毒D以上原因都不对

11.对于窗体，下面D属性在程序运行时其属性设置起作用AMaxButtonBBorderStyleCNameDLeft

12.要使Print方法在Form_Load事件中起作用，要对窗体的C属性进行设置ABackColorBForeColorCAutoRedrawDCaption

13.若要使标签控件显示时不覆盖其背景内容，要对D属性进行设置ABackColorBBorderStyleCForeColorDBackStyle

14.若要使命令按钮不可操作，要对A属性设置AEnabledBVisibleCBackColorDCaption

15.文本框没有D属性AEnabledBVisibleCBackColorDCaption

16.不论何控件，共同具有的是B属性ATextBNameCForeColorDCaption

17.要使Form1窗体的标题栏显示“6欢迎使用VB”，以下D语句是正确的AForml.Caption=“6欢迎使用VB”BForml.Caption=‘6欢迎使用VB’CForml.Caption=6欢迎使用VBDForml.Caption=6欢迎使用VB

18.要使某控件在运行时不可显示，应对B属性进行设置AEnabledBVisibleCBackColorDCaption

19.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列B属性设置就有效AMaxButtonBBorderStyleCWidthDMinButton

20.当运行程序时，系统自动执行启动窗体的A事件过程ALoadBClickCUnLoadDGotFocus

二、填空题1．VB

6.0提供了一种新的数据库访问技术，即ADO技术，通过该技术，能方便地访问多种数据库中的数据2．当进入VB集成环境，发现没有显示“工具箱”窗口时，应选择视图菜单的工具箱选项，使“工具箱”窗口显示3．要使新建工程时，在模块的“通用声明”段中自动加入OptionExplicit语句，应对工具菜单的选项的编辑器选项卡进行相应选项的选择4．对象的属性是指对象的性质、特征5．对象的方法是指对象的动作、行为6．在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对Form1的Font属性进行设置7．当对文本框的ScrollBar的属性设置为2有垂直滚动条，但没有垂直滚动条显示时，是没有把Multiline属性设置为True的原因8．在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性在运行时是无效的9．当对命令按钮的Picture属性装入.bmp图形文件后，选项按钮上并没有显示所需的图形，原因是没有对Style属性设置为1Graphical10．若已建立了Form

1、Form2两个窗体，默认启动窗体为Form1通过工程菜单的工程属性的通用选项卡，可将启动窗体设置为Form2在程序中若要显示Form1窗体，则执行Form

1.Show语句11．在文本框中，通过SelStart属性能获得当前插入点所在的位置12．要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置Locked的属性为True13．在窗体上已建立多个控件如Text

1、Label

1、Command1，若要使程序一运行焦点就定位在Command1控件上，应把Command1控件的TabIndex属性的值设置为0

三、完成窗体控件与程序设计第

（1）题

1.建立如图所示界面

2.建立如下事件过程

（1）事件在文本框中输入口令（输入的字符都显示为“*”），单击“确认”按钮

（2）响应如果输入的是“1234”时，应显示“口令正确”，否则显示“口令错误”　PrivateSubCommand1_ClickIfText

1.Text=1234ThenLabel

2.Caption=口令正确ElseLabel

2.Caption=口令错误EndIfEndSub第

（2）题

1.建立如图所示界面

2.建立如下事件过程

（1）事件在文本框中输入一个姓名，单击“确认”按钮

（2）响应将输入的内容添加到右面的列表框中　PrivateSubCommand1_ClickList

1.AddItemText

1.TextEndSub第

（3）题

1.建立如图所示界面

2.建立如下事件过程

（1）事件单击单选按钮

（2）响应文本框中文字字体作相应改变PrivateSubOption1_ClickText

1.FontName=宋体EndSubPrivateSubOption2_ClickText

1.FontName=隶书EndSub第

（4）题

1.建立如图所示界面

2.建立如下事件过程

（1）事件单击相应复选框

（2）响应文本框中文字字体效果作相应改变　PrivateSubCheck1_ClickIfCheck

1.Value=1ThenText

1.FontUnderline=TrueElseText

1.FontUnderline=FalseEndIfEndSubPrivateSubCheck2_ClickIfCheck

2.Value=1ThenText

1.FontItalic=TrueElseText

1.FontItalic=FalseEndIfEndSub第

（5）题

1.建立如图所示界面

2.建立如下事件过程

（1）事件选择“对齐方式”框架内的单选按钮

（2）响应上面的文本，按所选择的对齐方式对齐显示　PrivateSubOption1_ClickLabel

1.Alignment=0EndSubPrivateSubOption2_ClickLabel

1.Alignment=1EndSubPrivateSubOption3_ClickLabel

1.Alignment=2EndSub第

（6）题

1.建立如图所示界面

2.建立如下事件过程

（1）事件单击“最大化”按钮或单击“最小化”按钮

（2）响应单击“最大化”按钮，窗体最大化；单击“最小化”按钮，使窗体最小化PrivateSubCommand1_ClickForm

1.WindowState=2EndSubPrivateSubCommand2_ClickForm

1.WindowState=1EndSub第

（7）题

1.建立如图所示界面

2.建立如下事件过程

（1）事件单击“显示”按钮和“停止”按钮

（2）响应单击“显示”按钮文本框显示当前时间，且时间每秒钟变化一次，单击“停止”按钮时间显示停止PrivateSubCommand1_ClickTimer

1.Enabled=TrueEndSubPrivateSubCommand2_ClickTimer

1.Enabled=FalseEndSubPrivateSubTimer1_TimerText

1.TEXT=TimeEndSub第

（8）题

1.建立如图所示界面

2.建立如下事件过程

（1）事件单击“确定”按钮和“取消”按钮

（2）响应单击“确定”按钮，如果输入的是1234则显示左下图的对话框，如果输入的不是1234，则显示右下图的对话框PrivateSubCommand1_ClickIfText

1.Text=1234ThenMsgBox密码正确ElseMsgBox密码错误EndIfEndSubPrivateSubCommand2_ClickIfText

1.Text=1234ThenText

1.Text=ElseText

1.Text=EndIfEndSub第

（9）题

1.建立如图所示界面，设计一个计算器模型

2.完成5+11，7+9的运算各控件功能按钮“5”、“7”、“9”、“11”用于输入参与运算的数据，按钮“+”决定算法，按钮“=”完成运算，文本框用于显示参与运算的数据和运算结果DimabAsIntegerPrivateSubCommand1_ClickText

1.Text=5a=5EndSubPrivateSubCommand2_ClickText

1.Text=7a=7EndSubPrivateSubCommand3_ClickText

1.Text=9a=9EndSubPrivateSubCommand4_ClickText

1.Text=11a=11EndSubPrivateSubCommand5_Clickb=aEndSubPrivateSubCommand6_ClickText

1.Text=a+ba=a+bEndSub第

（10）题

1.建立如图所示界面

2.输入姓名、选定性别后，单击Command1按钮，姓名及性别在列表框中显示PrivateSubCommand1_ClickIfOption

1.Value=TrueThens=男List

1.AddItemText

1.TextsElses=女List

1.AddItemText

1.TextsEndIfEndSub第

（11）题

1.建立如图所示界面

2.建立如下事件过程

（1）鼠标单击Option1控件时，Label1中的文字居中对齐；

（2）单击Option2控件，Label1中的文字左对齐；单击Option3控件，Label1中的文字右对齐PrivateSubOption1_ClickLabel

1.Alignment=2EndSubPrivateSubOption2_ClickLabel

1.Alignment=0EndSubPrivateSubOption3_ClickLabel

1.Alignment=1EndSub第

（12）题

1.建立如图所示界面

2.并编写事件过程

（1）事件按钮的单击事件

（2）响应单击“显示/隐藏”按钮显示/隐藏标签控件，单击“退出程序”按钮退出应用程序PrivateSubCommand1_ClickStaticaAsIntegera=a+1IfaMod2=0ThenLabel

1.Visible=TrueElseLabel

1.Visible=FalseEndIfEndSubPrivateSubCommand2_ClickEndEndSub第

（13）题

1.建立如图所示的应用程序用户界面

2.建立如下事件过程输入圆的半径，利用选项按钮选择计算类型，计算圆的直径、周长或面积并利用标签输出PrivateSubCommand1_Clickr=Text

1.TextIfOption

1.Value=TrueThenLabel

1.Caption=圆的直径是2*rElseIfOption

2.Value=TrueThenLabel

1.Caption=圆的周长是2*

3.14159*rElseLabel

1.Caption=圆的面积是r^2*

3.14159EndIfEndSubPrivateSubCommand2_ClickEndEndSub第

（14）题

1.建立如图所示的应用程序用户界面

2.建立如下事件过程

（1）事件按下相应按钮，

（2）响应标签中的文字将按选项按钮选中的字体样式显示PrivateSubCommand1_ClickLabel

1.FontBold=TrueEndSubPrivateSubCommand2_ClickLabel

1.FontItalic=TrueEndSubPrivateSubCommand3_ClickLabel

1.FontUnderline=TrueEndSub第

（15）题

1.建立如图所示的应用程序用户界面

2.建立事件过程

（1）事件输入年、月、日后，单击“确定”按钮，

（2）响应在标签上显示这一天为所在星期的第几天PrivateSubcommand1_clickDimaAsDateyy=Text

1.Textmm=Text

2.Textdd=Text

3.Texta=mm/dd/yytian=WeekdayaLabel

4.Caption=该日期是所在星期的第tian天Rem星期日是该星期的第1天EndSub第

（16）题

1.建立如图所示的应用程序用户界面

2.建立事件过程

（1）事件选择“exit”单选按钮，单击“确定”按钮

（2）响应结束程序PrivateSubcommand1_ClickIfOption

1.Value=TrueThenEndEndSub第

（17）题

1.建立如图所示的应用程序用户界面

2.建立事件过程

（1）事件单击复选框

（2）响应在标签上加下划线或使字体倾斜PrivateSubCheck1_ClickIfCheck

1.Value=1ThenLabel

1.FontUnderline=TrueElseLabel

1.FontUnderline=FalseEndIfEndSubPrivateSubCheck2_ClickIfCheck

2.Value=1ThenLabel

1.FontItalic=TrueElseLabel

1.FontItalic=FalseEndIfEndSubPrivateSubCommand1_ClickLabel

1.Visible=FalseEndSub第

（18）题

1.建立事件过程

（1）事件窗体的单击事件响应使用Inputbox函数输入学生成绩，若成绩在60分以下，在窗体上打印“不及格”，否则打印“及格”PrivateSubCommand1_Clickn=InputBox请输入学生成绩Ifn60ThenPrint不及格ElsePrint及格EndIfEndSubPrivateSubCommand2_ClickEndEndSub第

（19）题

1、建立如下界面

2、单击“合计”按钮

3、在“合计”按钮右侧的标签中显示所选中的书的总价PrivateSubCommand1_ClickLabel

6.Caption=Check

1.Value*

15.3*Text

1.Text+Check

2.Value*

21.9*Text

2.TextEndSub第

（20）题

1、建立如下界面

2、事件拖动滚动条

3、响应拖动滚动条文本框中的文字的大小将随之发生变化（变化范围8－48）

4、单击滚动箭头，条文本框中的文字的大小也将随之发生变化PrivateSubHScroll1_ChangeText

1.FontSize=HScroll

1.ValueEndSub作业2批改教师批改日期作业成绩

一、单项选择题

1、VB提供了结构化程序设计的三种基本结构，三种基本结构是（D）（A）递归结构、选择结构、循环结构（B）选择结构、过程结构、顺序结构（C）过程结构、输入/输出结构、转向结构（D）选择结构、循环结构、顺序结构

2、结构化程序由三种基本结构组成，下面属于三种基本结构之一的是（B）（A）递归结构（B）选择结构（C）过程结构（D）输入输出结构

3、下面程序段运行后，显示的结果是（B）DimxIfxThenPrintxElsePrintx+1（A）1（B）0（C）1（D）显示出错信息

4、语句Ifx=1Theny=1，下列说法正确的是（C）（A）x=1和y=1均为赋值语句（B）x=1和y=1均为关系表达式（C）x=1为关系表达式，y=1为赋值语句（D）x=1为赋值语句，y=1为关系表达式

5、用If语句表示分段函数下列不正确的程序段是（A）（A）Ifx=1Thenf=sqrx+1f=x*x+3（B）Ifx=1Thenf=sqrx+1Ifx1Thenf=x*x+3（C）Ifx=1Thenf=sqrx+1_Elsef=x*x+3（D）Ifx1Thenf=x*x+3_Elsef=sqrx+

16、计算分段函数的值下面程序段中正确的是（D）（A）Ifx0Theny=0Ifx1Theny=1Ifx2Theny=2Ifx=2Theny=3（B）Ifx=2Theny=3Ifx=1Theny=2Ifx0Theny=1Ifx0Theny=0（C）Ifx0Theny=0ElseIfx0Theny=1ElseIfx1Theny=2Elsey=3EndIf（D）Ifx=2Theny=3ElseIfx=1Theny=2ElseIfx=0Theny=1Elsey=0EndIf

7、下面的程序段，显示的结果是（A）DimxX=IntRnd+5SelectCasexCase5Print“优秀”Case4Print“良好”Case3Print“通过”CaseElsePrint“不通过”EndSelect（A）优秀（B）良好（C）通过（D）不通过

8、下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是（D）（A）Ifsex=”男”Andage40AndInStrduty”教授”0Thenn=n+1（B）Ifsex=”男”Andage40AndInStrduty=”教授”orduty=”副教授”Thenn=n+1（C）Ifsex=”男”Andage40AndRightduty2=”教授”Thenn=n+1（D）Ifsex=”男”Andage40Andduty=”教授”Andduty=”副教授”Thenn=n+

19、下面程序段求两个数中的大数，（D）不正确（A）Max=IIfxyxy（B）IfxyThenMax=xElseMax=y（C）Max=xIfy=xThenMax=y（D）Ify=xThenMax=yMax=x

10、下面程序运行后输出的结果是

（7）X=IntRnd+3Ifx^28Theny=x^2+1Ifx^2=9Theny=x^2-2Ifx^28Theny=x^3Printy

二、程序改错------------------------------------------------注意不可增加或删除程序行，也不可以更改程序结构------------------------------------------------1．题目以下程序段用于输出100-300的所有素数PrivateSubForm_ClickDimnAsIntegerkAsIntegeriAsIntegerswitAsIntegerForn=101To300Step2k=IntSqrni=2**********FOUND**********swit=1swit=0**********FOUND**********Whileswit=0Whileswit=0andn=kIfnModi=0Thenswit=1Else**********FOUND**********i=i–1I=I+1EndIfWendIfswit=0ThenPrintn;EndIfNextnEndSub2．题目在下面的程序段中过程pd可以判断任意三个数能否构成三角形的三边，利用该过程的判定结果，对能构成三角形的计算其面积，构不成的显示不能构成三角形OptionExplicitPrivateSubForm_Click**********FOUND**********Dimx%y%z%s%bAsBooleanhAsSinglesasdoublex=InputBox请输入三角形的边长y=InputBox请输入三角形的边长z=InputBox请输入三角形的边长b=pdxyzh=x+y+z/2**********FOUND**********IfNotbThenIfbThens=Sqrh*h-x*h-y*h-zPrint三角形面积是;sElsePrint不能构成三角形EndIfEndSub**********FOUND**********PublicFunctionpdAsBooleanPublicFunctionpdxyzAsBooleanIfx0Andy0Andz0Andx+y0Andx+zyAndy+zxThenpd=TrueElsepd=FalseEndIfEndFunction3．题目程序功能为打印下列图形***************PrivateSubForm_ClickClsDimiAsIntegerDimjAsInteger**********FOUND**********Fori=1To7Fori=1To5**********FOUND**********Forj=1To5Forj=1ToiPrint*;**********FOUND**********NextINextjPrintNextiEndSub4．题目程序功能求1+2+3……，直到其和超出3000为止，并输入结果PrivateSubForm_ClickClsDimiAsIntegerDimsAsSinglei=1**********FOUND**********s=1s=0Do**********FOUND**********i=i+2i=i+1s=s+i**********FOUND**********Loops3000LoopUntils3000Print从1到:;i;的和是;sEndSub5．题目输出40以内能够被3整除的数，要求输出结果5个数一行PrivateSubForm_ClickClsDimxAsIntegerDimiAsInteger**********FOUND**********i=1I=0Forx=1To40Ifx/3=x\3Then**********FOUND**********PrintxPrintx;i=i+1EndIfIfiMod5=0ThenPrintEndIf**********FOUND**********NextINextxEndSub6．题目求s=72+102+132+……832的值PrivateSubForm_ClickClsDimsAsLongDimiAsInteger**********FOUND**********s=1s=0**********FOUND**********Fori=72To832Fori=72To832step30s=s+i**********FOUND**********Next30NextiPrintsEndSub7．题目以下程序段用于打印如下图形式的九九乘法表PrivateSubForm_ClickDimiAsIntegerjAsIntegerkAsIntegerPrintTab30;9*9tablePrint:PrintPrint*;Fori=1To9**********FOUND**********PrintTabi*6;IPrintTabi*6;I;NextiPrintForj=1To9Printj;;**********FOUND**********Fork=1To9Fork=1To9**********FOUND**********PrintTabj*6;j*k;;PrintTabk*6;j*k;;NextkPrintNextjEndSub8．题目以下程序段用于计算5的n次方PrivateSubForm_ClickDimnAsIntegerkAsIntegersAsLong**********FOUND**********n=InputBoxInputnn=valInputBoxInputnk=1**********FOUND**********s=0s=1DoWhilek=ns=s*5k=k+1**********FOUND**********NextLoopPrint5的;n次方是;sEndSub9．题目下面程序可输出如下图形*************************PrivateSubForm_ClickDimmAsIntegernAsIntegersAsStringiAsIntegerjAsIntegern=4m=1s=*Fori=5To1Step-1**********FOUND**********PrintSpci-1PrintSpcn;Forj=1To2*m-1Prints;NextjPrint**********FOUND**********n=n+1n=n-1**********FOUND**********m=m–1m=m+1NextiEndSub10．题目下面的程序段用于实现以下功能建立一顺序文件，存放10名同学的学号和三门功课成绩，显示该文件内所有记录，并同时显示其总分和平均分PrivateSubForm_ClickDimno%c1%c2%c3%iAsInteger**********FOUND**********Openc:\

2.txtForInputAs#1Openc:\

2.txtForOutPutAs#1Fori=1To10no=InputBox请输入学号c1=InputBox请输入数学成绩c2=InputBox请输入语文成绩c3=InputBox请输入外语Write#1noc1c2c2NextiClose#1**********FOUND**********Openc:\

2.txtForOutputAs#1Openc:\

2.txtForInputAs#1Fori=1To10**********FOUND**********Print#1noc1c2c3Input#1noc1c2c3Printnoc1c2c3c1+c2+c3c1+c2+c3/3NextiClose#1EndSubCallgcdabc=gcdabPrintabcEndSub批改教师批改日期作业成绩作业3程序填空1．下面的程序段用于打印出以下图形*************************请在【】处填入正确的内容PrivateSubForm_ClickDimi%j%k%Fori=0To3Forj=0To2-iPrint;Nextj**********SPACE**********Fork=0To【】2*iPrint*;NextkPrintNextiFori=0To2Forj=0Toi**********SPACE**********【】print“”;NextjFork=0To4-2*iPrint*;Nextk**********SPACE**********【】printNextiEndSub2．代码功能:求1!+2!+……10!的值PrivateSubForm_Click**********SPACE**********【】t=1s=1ForI=2To10t=t*I**********SPACE**********【】s=s+t**********SPACE**********【】nextiPrintsEndSub3．以下程序段用于求∑n!PrivateSubForm_ClickDimsumAsLongnAsLongn=InputBox请输入一个正整数sum=0Fori=1Ton**********SPACE**********sum=【】sum+muliNextiPrintsumEndSubPrivateFunctionmulByValxAsLongDimsAsLongiAsLongs=1**********SPACE**********Fori=1To【】xs=s*iNexti**********SPACE**********【】mul=sEndFunction4．根据输入的学习成绩分别显示优秀90分以上良好75分以上及格60分以上不及格几个等级PrivateSubCommand1_Clickx=ValText

1.TextIfx=90ThenPrint优秀**********SPACE**********【】ElseIfx=75Print良好ElseIfx=60Then**********SPACE**********【】Print“及格”**********SPACE**********【】ElsePrint不及格EndIfEndSub5．求一元二次方程ax2+bx+c=0的根，其中a不等于0PrivateSubForm_ClickDima%b%c%d!Dimx1x2Dimpqra=InputBox请输入a的值b=InputBox请输入b的值c=InputBox请输入c的值d=b*b-4*a*cp=-b/2*aIf[]Thend0Ifd0Thenr=Sqrd/2*ax1=p+rx2=p-rElsex1=px2=p[]EndIfPrintx1=;x1x2=;x2[]Elseq=Sqr-d/2*aPrintx1=;p;+;q;ix2=;p;-;q;iEndIfEndSub6．求ABC三个数的最大值PrivateSubcommand1_ClickA=ValText

1.TextB=[]ValInputBox“请输入B的值”C=ValText

2.TextIfabAndacThenMaxdate=aElseif[]baandbcMaxdate=bElse[]Maxdate=cEndIfLabel

1.Caption=maxdateEndSub批改教师批改日期作业成绩作业4编程1．事件单击窗体响应编写程序求10×11×12+11×12×13+…+15×16×17的结果，并将结果输出到窗体上将结果存入变量M中DimmAsLong********Program*************PrivateSubForm_ClickDimmAsLongDimiAsIntegerFori=10To15m=m+i*i+1*i+2NextiPrintmEndSub************End***********2．事件双击窗体响应求s=1+1×2+1×2×3+…+1×2×3×…×10，并将结果存到变量S中********Program*************PrivateSubForm_ClickDimsAsLongDimiAsIntegerjAsIntegerDimtAsLongFori=1To10t=1Forj=1Toit=t*jNextjs=s+tNextiPrintsEndSub************End***********3．事件双击窗体（响应求3+6+9+12+15+18+……+300的和，并将结果输出到窗体上将结果存入变量SUM中********Program*************PrivateSubForm_DblClickDimsumAsIntegerDimi%Fori=3To300Step3sum=sum+iNextiPrintsumEndSub************End***********4．事件双击窗体响应求出50以内所有奇数的和将结果存入变量SUM中********Program*************PrivateSubForm_DblClickDimsumAsIntegerDimi%Fori=1To50Step2sum=sum+iNextiPrintsumEndSub************End***********5．事件单击窗体响应求200~300之间既能被3整除又能被7整除的数并求出所有数之和存入变量SUM********Program*************PrivateSubForm_ClickDimsumAsLongDimi%Fori=200To300IfiMod3=0AndiMod7=0Thensum=sum+iEndIfNextiPrintsumEndSub************End***********6．事件单击窗体响应求50以内所有偶数的和，并在窗体上输出来变量S中********Program*************PrivateSubForm_ClickDimsAsIntegerDimi%Fori=2To50Step2s=s+iNextiPrintsEndSub************End***********7．事件单击窗体响应已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上********Program*************PrivateSubForm_ClickDimsAsDoubleDimi%Fori=1To100s=s+i/i^2NextiPrintsEndSub************End***********8．事件单击窗体响应求出100以内所有素数的和，并将结果输出到窗体上并存入所给变量SUM中********Program*************PrivateSubForm_ClickDimsumAsIntegerDimi%j%Fori=2To100Forj=2Toi-1IfiModj=0ThenExitForNextjIfj=iThenPrintj;sum=sum+jEndIfNextiPrintsumEndSub************End***********9．事件单击窗体响应求出S=12+22+32+…..+102并将结果输出到窗体上并存入所给变量S中********Program*************PrivateSubForm_ClickDimsAsIntegerDimi%Fori=1To10s=s+i^2NextiPrintsEndSub************End***********10．输入一个年份，判断它是否为闰年，并显示有关信息判断闰年的条件是年份是能被4整除但不能被100整除，或者能被400整除Dimyear%********Program*************Year=InputBox“请输入一个年份”Ifyearmod4=0andyearmod1000Oryearmod400=0ThenPrintyear;”是闰年”ElsePrintyear;”不是闰年”EndIf************End***********。