大学VB试题及答案.doc

Visual Basic 程序设计实验（训）报告学号： 姓名： 班级： 实验时间： 实验编号VB05实验名称对象、属性、事件与方法的使用实验目的和要求1. 循环的用法。2. 掌握选择结构的用法。实验内容1.if 结构。2.for 循环结构一、实验题目1. 求100以前的偶数之和。代码：Private Sub Command1_Click()For i = 1 To 100If i Mod 2 = 0 Thens = s + iEnd IfNext iPrint S=; sEnd Sub运行截图：2.求1000以内的水仙花数的有哪些，所谓水仙花数就是三位数的每一位的立方之和等于该数即水仙花数。代码：Private Sub Command1_Click()For i = 100 To 999b = Fix(i / 100)s = Fix(i - (b * 100) / 10)g = i - (100 * b) - (10 * s)If i = b 3 + s 3 + g 3 ThenPrint i;End IfNext iEnd Sub运行截图：3. 制作出题器，点击“出题”按钮，随机出现10以内的整数，点击“计算”输入算出的结果，验证结果是否正确，正确即输出结果，不正确则弹出提示对话框。代码：Private Sub Command1_Click()RandomizeL1.Caption = Fix(Rnd * 9 + 1)L3.Caption = Fix(Rnd * 9 + 1)End SubPrivate Sub Command2_Click()A = Val(L1.Caption)B = Val(L3.Caption)J = Val(InputBox(请输入结果：)L5.Caption = JIf J = A * B Then MsgBox (结果正确！) Else: MsgBox (结果错误！) End IfEnd Sub截图：4、在歌手大奖赛中，有10名评委为选手打分，分数为1到100的整数，选手最后得分为，去掉一个最高分和一个最低分后其余8个分数的平均分，编程实现求一名选手的最后得分。（最后得分小数点后保留两位有效数字）。如输入：90，91，93，94，90，99，97，92，91，95则输出：Cancle max score:99Cancle min score:90Average score:92.88代码：Private Sub Command1_Click()p1 = Val(InputBox(请输入分数！)p2 = Val(InputBox(请输入分数！)p3 = Val(InputBox(请输入分数！)p4 = Val(InputBox(请输入分数！)p5 = Val(InputBox(请输入分数！)p6 = Val(InputBox(请输入分数！)p7 = Val(InputBox(请输入分数！)p8 = Val(InputBox(请输入分数！)p9 = Val(InputBox(请输入分数！)p10 = Val(InputBox(请输入分数！)Dim max%, min%max = p1If p2 max Then max = p2If p3 max Then max = p3If p4 max Then max = p4If p5 max Then max = p5If p6 max Then max = p6If p7 max Then max = p7If p8 max Then max = p8If p9 max Then max = p9If p10 max Then max = p10min = p1If p2 min Then min = p2If p3 min Then min = p3If p4 min Then min = p4If p5 min Then min = p5If p6 min Then min = p6If p7 min Then min = p7If p8 min Then min = p8If p9 min Then min = p9If p10 min Then min = p10ave = (p1 + p2 + p3 + p4 + p5 + p6 + p7 + p8 + p9 + p10 - max - min) / 8Print Cancle max score:; maxPrint Cancle min score:; minPri