在线评测试题目格式_新

第五章数据输入/输出文件名：CH0507输入a=5，b=2.5，c=7.8，编程计算：bcaaby将计算结果输出在窗体上。数据描述：变量为变体类型工程描述：在“Command1”按钮单击事件中编程实现，输入用InputBox函数，输出用Print方法。新建Form1窗体，将窗体保存为CH0507.FRM，工程保存为CH0507.VBP，提交作业时仅将这两个文件上传。PrivateSubCommand1_Click()DimaAsVariantDimbAsVariantDimcAsVariantDimyAsVarianta=Val(InputBox(请输入a的值))b=Val(InputBox(请输入b的值))c=Val(InputBox(请输入c的值))Pi=3.14159y=a*b*Pi/(a+b*c)PrintyEndSub输入：52.57.8输出：1.60285204081633文件名：CH0508设计一个时间转换程序，实现秒到时、分、秒的转换，将结果输出在窗体上。数据描述：输出格式：*时*分*秒工程描述：在“Command1”按钮单击事件中编程实现，用InputBox函数输入以秒为单位表示的时间，用Print方法输出转换后的时、分、秒形式的结果。新建Form1窗体，将窗体保存为CH0508.FRM，工程保存为CH0508.VBP，提交作业时仅将这两个文件上传。PrivateSubCommand1_Click()DimxAsSinglex=Val(InputBox(请输入一个以秒为单位表示的时间))neo=xMod60ten=(x\60)Mod60hundred=x\3600Printhundred;时;ten;分;neo;秒EndSub输入：32451输出：9小时0分钟51秒（减少一组数）文件名：EX0501利用InputBox函数输入某学生3门功课的分数，计算平均分数并在窗体上显示。数据描述：变量为变体类型工程描述：在“Command1”按钮单击事件中编程实现，用InputBox函数输入3门功课的分数，用Print方法输出平均分数。新建Form1窗体，将窗体保存为EX0501.FRM，工程保存为EX0501.VBP，提交作业时仅将这两个文件上传。PrivateSubCommand1_Click()DimaAsVariantDimbAsVariantDimcAsVariantDimsAsVarianta=Val(InputBox(请输入第一门功课成绩a))b=Val(InputBox(请输入第二门功课成绩b))c=Val(InputBox(请输入第三门功课成绩c))s=(a+b+c)/3PrintsEndSub输入：908276输出：82.6666666666667文件名：EX0503(IE01)编程把时间“13:54:11”转换为秒（24小时制），将转换结果输出在窗体上。数据描述：变量为变体类型工程描述：在“Command1”按钮单击事件中编程实现，用Print方法将秒值输出。新建Form1窗体，将窗体保存为IE01.FRM，工程保存为IE01.VBP，提交作业时仅将这两个文件上传。PrivateSubCommand1_Click()DimaAsVariantDimbAsVariantDimcAsVariantDimdAsVarianta=Val(InputBox(请输入小时值a))b=Val(InputBox(请输入分钟值b))c=Val(InputBox(请输入秒值c))d=a*3600+b*60+cPrintdEndSub输入：输出：50051文件名：EX0504(IE02)编写一个温度转换程序，输入一个摄氏温度c，将其转换成华氏温度f，将结果输出在窗体上。数据描述：变量为变体类型工程描述：在“Command1”按钮单击事件中编程实现，用InputBox函数输入摄氏温度c，用Print方法输出转换的华氏温度f。新建Form1窗体，将窗体保存为IE02.FRM，工程保存为IE02.VBP，提交作业时仅将这两个文件上传。PrivateSubCommand1_Click()DimcAsVariantDimfAsVariantc=Val(InputBox(请输入摄氏温度值c))f=c*9/5+32PrintfEndSub输入：23输出：73.4文件名：SX0402(IE03)输入M=3,N=5,P=3.2,Q=2.5，编程序计算：y=(M*N-12)/(P+Q)，将结果输出在窗体上。数据描述：变量为变体类型工程描述：在“Command1”按钮单击事件中编程实现，输入用InputBox函数，输出用Print方法。新建Form1窗体，将窗体保存为IE03.FRM，工程保存为IE03.VBP，提交作业时仅将这两个文件上传。输入：353.22.5输出：PrivateSubCommand1_Click()DimMAsVariantDimNAsVariantDimPAsVariantDimQAsVariantDimyAsVariantM=Val(InputBox(请输入值M))N=Val(InputBox(请输入值N))P=Val(InputBox(请输入值P))Q=Val(InputBox(请输入值Q))y=(M*N-12)/(P+Q)PrintyEndSub0.526315789473684文件名：SX0405输入三角形的3条边长，计算三角形的面积，在窗体输出该三角形的面积。计算公式：数据描述：变量为变体类型工程描述：在“Command1”按钮单击事件中编程实现，用InputBox函数输入三条边，用Print方法输出三角形的面积。新建Form1窗体，将窗体保存为SX0405.FRM，工程保存为SX0405.VBP，提交作业时仅将这两个文件上传。PrivateSubCommand1_Click()DimaAsVariantDimbAsVariantDimcAsVariantDimsAsVariantDimareaAsVarianta=Val(InputBox(请输入第一条边长a))b=Val(InputBox(请输入第二条边长b))c=Val(InputBox(请输入第三条边长c))s=(a+b+c)/2area=Sqr(s*(s-a)*(s-b)*(s-c))PrintareaEndSub输入：344输出：5.56214886532175第七章VisualBasic控制结构文件名：CH0701从编写程序，计算1+2+3+…+100的值，将结果输出在窗体上。数据描述：变量为整型工程描述：在“Command1”按钮单击事件中编程实现，输出用Print方法。新建Form1窗体，将窗体保存为CH0701.FRM，工程保存为CH0701.VBP，提交作业时仅将这两个文件上传。PrivateSubCommand1_Click()DimnAsIntegerDimsAsIntegern=Val(InputBox(请输入n的值))s=0Fori=1Ton2cbas)(*)(*)(*csbsassareas=s+iNextiPrintsEndSub输入：输出：5050文件名：CH0703输入三角形的3条边长，计算三角形的面积，判断3条边能否构成三角形，如可以构成，则在窗体输出该三角形的面积，否则输出“不可以构成三角形”。数据描述：变量为变体类型工程描述：在“Command1”按钮单击事件中编程实现，输入用InputBox函数，输出用Print方法。新建Form1窗体，将窗体保存为CH0703.FRM，工程保存为CH0703.VBP，提交作业时仅将这两个文件上传。PrivateSubCommand1_Click()DimaAsVariantDimbAsVariantDimcAsVariantDimsAsVariantDimareaAsVarianta=Val(InputBox(请输入第一条边长))b=Val(InputBox(请输入第二条边长))c=Val(InputBox(请输入第三条边长))Ifa+bcAndb+caAnda+cbThens=(a+b+c)/2area=Sqr(s*(s-a)*(s-b)*(s-c))PrintareaElsePrint不可以构成三角形EndIfEndSub输入：323123输出：2.82842712474619不可以构成三角形文件名：CH0704假定每吨货物单价P（元）与距离S（公里）之间的关系如下：输入要托运的货物重量和距离，编程计算总运费并在窗体上输出。数据描述：输入时先输入货物重量，再输入运输距离工程描述：在“Command1”按钮单击事件中编程实现，输入用InputBox函数，输出用Print方法。新建Form1窗体，将窗体保存为CH0704.FRM，工程保存为CH0704.VBP，提交作业时仅将这两个文件上传。PrivateSubCommand1_Click()Dimx,p,s,yAsSinglex=Val(InputBox(请输入货物重量))s=Val(InputBox(请输入运输距离))Ifs100Thenp=32ElseIfs=100Ands200Thenp=28ElseIfs=200Ands300Thenp=25ElseIfs=300Ands400Thenp=22.5ElseIfs=400Ands1000Thenp=20Elsep=15EndIfy=x*p*sPrintyEndSub输入：550输出：8000文件名：CH0706勾股定理中3个数的关系是：。输入整数M（M20），编写程序求M以内满足上述关系的整数组合（例如3，4，5就是一个整数组合。），将结果输出在窗体上。数据描述：变量为整型，输出格式为：一个组合一行，各个数值间隔开（print方法，紧凑格式输出）工程描述：在“Command1”按钮单击事件中编程实现，输入用InputBox函数（，输出用Print方法）。新建Form1窗体，将窗体保存为CH0706.FRM，工程保存为CH0706.VBP，提交作业时仅将这两个文件上传。PrivateSubCommand1_Click()Dima,b,c,MAsIntegerM=Val(InputBox(请输入M的值(M＜20)))Fora=1ToMForb=1ToMForc=1ToMIfa^2+b^2=c^2ThenPrinta;b;cEndIfNextcNextbNextaEndSub输入：10输出：(以下为一组结果)34543568108610文件名：CH0707从键盘上输入两个正整数M和N，求M和N的最大公约数并在窗体上输出。数据描述：变量为整型工程描述：在“Command1”按钮单击事件中编程实现，输入用InputBox函数，输出用Print方法。新建Form1窗体，将窗体保存为CH0707.FRM，工程保存为CH0707.VBP，提交作业时仅将这两个文件上传。PrivateSubCommand1_Click()DimM,N,a,bAsIntegerM=Val(InputBox(请输入正整数M的值))N=Val(InputBox(请输入正整数N的值))IfMNThena=NElsea=MEndIfFori=1ToaIfMModi=0AndNModi=0Thenb=iEndIfNextiPrintbEndSub输入：164输出：4文件名：CH0708从键盘上输入两个正整数M和N（MN），求M和N中的完全数并在窗体上输出。（因子之和等于它本身的数为完全数。例如28的因子是1，2，4，7，14，且1+2+4+7+14=28，则28是完全数）。数据描述：变量为整型，从小到大输出各数，以空格间隔开（print方法，紧凑格式输出）。工程描述：在“Command1”按钮单击事件中编程实现，输入用InputBox函数（，输出用Print方法）。新建Form1窗体，将窗体保存为CH0708.FRM，工程保存为CH0708.VBP，提交作