大学VB试题及答案

《大学VB试题及答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic程序设计实验（训）报告学号：姓名：班级：实验时间：实验编号VB05实验名称对象、属性、事件与方法的使用实验目的和要求1.循环的用法。2.掌握选择结构的用法。实验内容1.if结构。2.for循环结构一、实验题目1.求100以前的偶数之和。代码：PrivateSubCommand1_Click()Fori=1To100IfiMod2=0Thens=s+iEndIfNextiPrint"S=";sEndSub运行截图：2.求1000以内的水仙花数的有哪些，所谓水仙花数就是三位数的每一位

2、的立方之和等于该数即水仙花数。代码：PrivateSubCommand1_Click()Fori=100To999b=Fix(i/100)s=Fix((i-(b*100))/10)g=i-(100*b)-(10*s)Ifi=b^3+s^3+g^3ThenPrinti;EndIfNextiEndSub运行截图：1.制作出题器，点击“出题”按钮，随机出现10以内的整数，点击“计算”输入算出的结果，验证结果是否正确，正确即输出结果，不正确则弹出提示对话框。代码：PrivateSubCommand1_Clic

3、k()RandomizeL1.Caption=Fix(Rnd*9+1)L3.Caption=Fix(Rnd*9+1)EndSubPrivateSubCommand2_Click()A=Val(L1.Caption)B=Val(L3.Caption)J=Val(InputBox("请输入结果："))L5.Caption=JIfJ=A*BThenMsgBox("结果正确！")Else:MsgBox("结果错误！")EndIfEndSub截图：4、在歌手大奖赛中，有10名评委为选手打分，分数为1到100的整

4、数，选手最后得分为，去掉一个最高分和一个最低分后其余8个分数的平均分，编程实现求一名选手的最后得分。（最后得分小数点后保留两位有效数字）。如输入：90，91，93，94，90，99，97，92，91，95则输出：Canclemaxscore:99Cancleminscore:90Averagescore:92.88代码：PrivateSubCommand1_Click()p1=Val(InputBox("请输入分数！"))p2=Val(InputBox("请输入分数！"))p3=Val(InputBo

5、x("请输入分数！"))p4=Val(InputBox("请输入分数！"))p5=Val(InputBox("请输入分数！"))p6=Val(InputBox("请输入分数！"))p7=Val(InputBox("请输入分数！"))p8=Val(InputBox("请输入分数！"))p9=Val(InputBox("请输入分数！"))p10=Val(InputBox("请输入分数！"))Dimmax%,min%max=p1Ifp2>maxThenmax=p2Ifp3>maxThenmax=p3Ifp4

6、>maxThenmax=p4Ifp5>maxThenmax=p5Ifp6>maxThenmax=p6Ifp7>maxThenmax=p7Ifp8>maxThenmax=p8Ifp9>maxThenmax=p9Ifp10>maxThenmax=p10min=p1Ifp2

7、=p8Ifp9