vb实验编程答案
vb程序设计实验教程习题答案(精品).doc
实验教材实验-1:单项选择题：AACCC DCBBC2：填空题：(1).bas(2).vbp, ,frm(3)视图工具箱(4)对象(5)属性对象事件方法(6)Windows(7)事件行为(8)窗体模块实验二1：单项选择题：ADCCA BAB DC BBCBC BAB DC 2：基本运算题：(1)27(2) 3.33333333333333(3) 3(4)0(5)-3(6) 2(7)ab33(8)类型不匹配(9) 3(10)AB3实验三1：单项选择题：BCBDC2：填空题：(1)300(2)321456(3)Shanghai(4) 6 7 6(5)True(6)2+3=5(7)”area=” 12.56(8)VISUAL实验四1：单项选择题：CAACA2：填空题：(1)7(2) 3 5(3)输入的数小于0(4) 3(5)False(6)2010 is not leap year.试验五1：单项选择题：ACCAB ACCCB2：填空题：(1)9(2)@n ② 1(3)®Len(a)②n\2 ③Mid(a,(n-i+l),l)④Mid(a,(n-i+l),l)(4)@n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ©While CountN<5(5)Mid(cl,l,i)实验六1：单项选择题：DB DCD ACADD2：填空题:(1)30(2) 3(3)①a(2)②a(3)③a(l)(4)①1 ②2 ③a(i)=a(6-i)(5)①i+j ②0 ③a(i,j)(6)©Print ②k ③a(k,j)=a(j,k)④a(k,j);实验七1：单项选择题：ABBACB2：填空题：(1)15(2)①Preserve a(n+l) ②a(i+l)=a(i) ③Exit For ④a(i+l)=m⑤0 to n+1 (或LBound(a) to UBound(a))(3)d,c,b,a实验八1：单项选择题：CADBD CACB2：填空题：(1)a=9 b=4(2)362516941(2)①a (2)UBound(b)③实验九1:单项选择题：DDDBB CAB CAD2：填空题：(1)①p=p*n ②Fac(n) ③ 10人-6(2)①Max=x ②Max=y ③p ④Max(x,a(n))(3)①number(i) ②n as integer (3)number=number+7* 10A(i-1)实验十1：单项选择题：DC BAB C实验十一1：单项选择题：DADBBB BDD实验十二1：单项选择题：CBCBC CBDAD DBC2：填空题：(1)①Label 1. FondName=Combo 1 .TextCombo2.Text ③ Label 1 .FontBold=True ④ Label 1 .FondItalic=True⑤ Label 1 .FondSize=Combo3.Text(2)①Listl.Text ©List 1 .RemoveitemListl.ListindexListl .Additem List2.Text ④ List2.RemoveItem实验十三实验十四1：单项选择题：DACDAABC2：填空题：(1)ShowFont(2)打开另存为颜色字体打印机帮助(3)工程部件Microsoft Common Dialog Control 6.0(4 ) ShowColor Action=3实验十五1：单项选择题：CB BCB B BAD2：填空题：(1)内建菜单弹出菜单(2)Click(3)工具(4)代码窗口Click(5)相同不同实验十六1：单项选择题：B CAAC ACDDB DCC2：填空题：(1)①Open "c:\studl.txt” For Output As #1Textl.Text=”End”White #l,Textl.Text(2)①For Input ②For Output As #2 ③Not Eof(l)Input #l,strl ⑤ Close #1,#2 ⑥Kill(“c:\old.txt”(3)①For Output ②For Input As #2。
VB编程题答案
Vb编程题1.求自然数1～100之间奇数之和。
Private Sub Form_Click()Dim s As Long, i As Integers = 0For i = 1 To 100 Step 2s = s + iNextPrint sEnd Sub2.求自然数1～100之间偶数之和。
Private Sub Form_Click()Dim s As Long, i As Integers = 0For i = 2 To 100 Step 2s = s + iNextPrint sEnd Sub3.编写程序，在窗体上随机输出一个10--99之间的两位整数。
Private Sub Form_Click()clRandomizePrint Int(Rnd() * 90) + 10End Sub4.编程计算从200到1000之间的所有4的倍数之和。
Private Sub Form_Click()clsSum = 0For i = 200 To 1000 Step 4Sum = Sum + iNextPrint "200-1000中4的倍数和是:"; SumEnd Sub5. 编程计算从300到1000之间的所有7的倍数之和。
Private Sub Form_Click()Dim i As Integer, sum As Longsum = 0For i = 300 To 1000If i Mod 7 = 0 Thensum = sum + iEnd IfNextPrint "300-1000中7的倍数和是:"; sumEnd Sub6.编写程序在窗体上计算：5/6+4/5+3/4+2/3+1/2Private Sub Form_Click()Dim s As Single, i As Integer, t As Singles = 0For i = 5 To 1 Step -1t = i / (i + 1)s = s + tNextPrint sEnd Sub7.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最大数。
vb实验报告（答案）
vb实验报告（答案）Vb程序设计实验项目试验报告(1)院(系): 课程名称: 日期: 班级学号实验室专业姓名计算机号实验成绩评定名称 VB环境的熟悉与应用所用教师签名软件 Visual Basic 6.0实验目 1(熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程。
的 2(初步了解几个常用控件的使用方法。
或要求1、在vb中____C_____被称为对象。
实A.窗体B.控件C.窗体和控件D.窗体、控件和属性验2、设在名称为form1的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是( B ) 步A.窗体的Click事件过程的过程名是form1_Click 骤B.命令按钮的Click事件过程名是C1_Click、 C.命令按钮的Click事件过程的过程名是Command1_Click 心3、编译执行程序的快捷键是_Ctrl+F5_。
得 4、启动visual basic 后标题栏中显示的信息是(C)。
A.工程-Mmicrosoft Visual Basic[设计] 体B.工程-Mmicrosoft Visual Basic[中断]会C.工程1-Mmicrosoft Visual Basic[设计]第 1 页共 53 页1/53页Vb程序设计实验项目D.工程1-Mmicrosoft Visual Basic[中断]5、Visual Basic集成开发环境主要窗口包括__窗体设计窗口;代码设计窗口;_属性窗口;_工程资源管理器窗口_;_工具箱窗口。
6、属性显示方式分两种，即按__字母顺序和按_分类__顺序，分别通过单击相应的按钮来实现。
7、编一程序，程序运行的初始界面如图1-1所示，当用户在文本框中输入姓名，例如输入“张三”，单击“你输入的姓名是:”按钮(command1)，则程序的运行情况如图1-2所示，如果单击“结束”按钮(command2)，即结束程序运行。
注意:保存时必须存放在自己创建的文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。
VB-编程答案
选择控制结构1. 编写程序，计算如下分段函数并输出结果，其中x 的值由键盘输入。
Private Sub Command1_Click()Dim x, y As Integerx = InputBox()If x < 0 Theny = x * x + xElseIf x = 0 Theny = 100Elsey = x * x - xEnd IfPrint "y="; yEnd Sub2. 编写程序，任意输入3个整数，按从大到小的顺序依次输出。
Dim x%, y%, z%, t%x = Text1.Texty = Text2.Textz = Text3.TextIf x < y Thent = xx = yy = tEnd IfIf y < z Thent = yy = zz = tIf x < y Thent = xx = yy = tEnd IfEnd IfPrint x; y; z3. 编写程序，任意输入3个整数，按从小到大的顺序依次输出。
Dim x%, y%, z%, t%x = Text1.Texty = Text2.Text⎪⎩⎪⎨⎧>-⨯=<+⨯=）（）（）（0x 0x 1000x x x x x x x yz = Text3.TextIf x > y Thent = xx = yy = tEnd IfIf y > z Thent = yy = zz = tIf x > y Thent = xx = yy = tEnd IfEnd IfPrint x; y; z4.编写程序，任意输入一个整数，判断它是奇数还是偶数，要求：用文本框输入整数，用标签显示结果，画出设计窗体效果。
Private Sub Command1_Click()Dim x%x = Text1.TextIf x Mod 2 = 0 ThenLabel1.Caption = x & "是偶数"ElseLabel1.Caption = x & "是奇数"End IfEnd Sub5.编写程序，任意输入一个整数，在标签上显示该整数的绝对值，要求：用文本框输入整数，用标签显示结果，画出设计窗体效果。
vb实验编程答案
实验教程实验三顺序结构程序设计编程题参考答案（第47页）1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。
要求使用InputBox分别进行输入，使用Print 方法输出。
2. 输入圆的半径，输出其周长、面积。
要求使用TextBox控件进行输入，使用Label 控件输出。
3. 输入一元二次方程ax2+bx+c=0 的系数a、b、c，输出两个实根。
要求使用TextBox 控件分别进行输入，使用Label控件输出。
实验四选择结构程序设计编程题参考答案（第58页）1. 输入一个，判断其是否能同时被3和7整除。
2. 输入三个数，输出其中的最大值。
6. 编程及输出分段函数的值。
由键盘输入t 的值，计算y 的值7. 输入年龄，输出所处人群：9岁以下为儿童，输出A ；10～19为少年，输出B ；20～29为青年，输出B ；30～49为中年，输出B ； 50以上为老年，输出E ；要求使用Select Case 语句实现。
8. 输入年份，输出对应的属相。
已知1984年为鼠年，要求使用Select Case 语句实现。
实验五 循环结构程序设计编程题参考答案 （第77页）1. 编写程序，求s=1×2×3 + 2×3×4 + … + n ×(n+1) ×(n+2)的值，n 由程序输入。
2.有一个分数序列 ，求出这个序列前20项的和。
Y=t 2 t<1 t 2-1 1≤t<2 t 2-2t+1 2≤t<3 t 2+4t-17 t ≥3, (13)21,813,58,35,23,123. 求∑=101!nn（即1！+2！+3！+…+10！）4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。
5. 输出所有的“水仙花数”。
“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。
VB实验报告参考答案(本部)
实验报告参考答案（本部）实验一VB集成开发环境实验内容（3）：四、设计流程①界面设计：在窗体上画一个标签。
②属性设置：标签的width设为2000，height设为300。
有边框是BordStyle设为1，背景透明是BackStyle设为0。
显示“等级考试”是将caption设为“等级考试”，居中是将Alignment 设为2。
③代码设计：无五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的）无六、调试和测试结果至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些实验二简单的VB程序设计实验内容（3）：四、设计流程①界面设计：在窗体上画一个标签、一个命令按钮。
②属性设置：固定边框是BordStyle设为1，背景透明是BackStyle设为0。
③代码设计：分别在3个事件过程form_load()，form_click(),Cmd1_click()中编程。
其中图片从网上下载，与工程文件、窗体文件保存在同一目录，代码中使用相对路径app.path。
五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的）Private Sub Form_Load()Form1.Picture = LoadPicture(App.Path + "\tu.jpg")Form1.Caption = "我的变化"End SubPrivate Sub Form_Click()LBL1.Top = 0LBL1.Left = 0End SubPrivate Sub Cmd1_Click()Cmd1.Height = 1500Cmd1.Width = 2000End Sub六、调试和测试结果至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些实验三数据类型及其运算四、设计流程①界面设计：在窗体上画1个文本框、1个标签、6个命令按钮。
VB编程实验报告答案 完整版
实验一：一、选择1.D2.D3.B4.A5.B6.C7.CD8.D9.D 10. BC11. A 12.D 13. D 14. C 15. A二、填空1.windows2. 中断3.工具箱4.代码5.分类6.form2.show7. 出现语法错误8. 错9. 事件10. 面向对象11.工程文件结构12. 工程13. 设计程序代码14. 双击窗体15. C:\Program Files\Microsoft Visual Studio\VB98 或者VB的安装文件夹16.属性17.方法18.font 19. form_load() 20.对象实验二：一、选择1.B2.C3. B4.C5.C6.C7.B8.B9.D 10. A11. C 12.C 13. C 14. B 15. A16.C 17.B 18.D 19.C 20. C二、填空1. Form_Click()2. Interval、50003..vbp .frm4.left top Height、Width twip5.picture6.load7. locked8. font Alignment9. GotFocus() LostFocus() 10. 属性窗口程序代码实验三：一、选择1.A2.BC3.BC4.A5.A6.A7.BCD8.D9.B 10. B11. B二、判断题不合法的变量：3. 4. 5. 6. 8. 10. 11. 14.15. 16.三、1、abs(x+y)2. (3+x*y)^23. (-b+sqr(b^2-4*a*c))/(2*a)4.sin(30*3.14/180)+exp(2)四、1. int(rnd* 71+20) 或int(rnd* 71)+202. x<0 and y>0 or x>0 and y<0 或者x*y<03. x mod 3=0 or x mod 7=0或x/3=x\3 or x/7=x\74. x>=10 and x<205. x>="A" and x<="Z"6. left(s,3)实验四：一、选择1.C2.D3. C4.D5.A6.D7.B8.B9.A 10. C二、填空1. 48.71E-01, -4.87122. 关系、逻辑、算术3. 900，100，mid(s,2,1)4.m、1,2,3 、print m & "月是第二季度"、end select 三、1. X=4 y=132. 10实验五一、选择B C B A C二、填空（1）for x=2 to 10s*(1-1/x)(2) 1 t>1E-6(3) j t(4) 5 11 5实验六一、选择B C C C D D D D C A实验七一、选择1C 2C 3D 4A 5B 6D 7AB 8A 9A 10A 二、填空（1）n！（2）1+1+2+3+4+……+n（3）n是否是素数（4）冒泡排序（5）递归调用产生斐波那契数列（6）求最大公约数和最小公倍数第八页编程2-1Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)End SubPrivate Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2-2Private Sub Command1_Click()Picture1.Picture = LoadPicture("d:\tu1.jpg") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture("d:\tu2.jpg") End SubPrivate Sub Command3_Click()Picture1.Visible = FalseEnd Sub2-5Private Sub Form_Load()Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Sunset.jpg")End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Image1_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)) End Sub第11页编程2-3Private Sub Command1_Click()Dim x%, y%x = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100Print "反序数："; Format(y, "000")End SubPrivate Sub Command2_Click()Dim x%, y As Stringx = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = Trim(Str(x))Print "反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1)End SubPrivate Sub Form_Load()End Sub2-4Private Sub Command1_Click()Dim m%, n%Randomizem = Val(Text1): n = Val(Text2)x = Int(Rnd * (n - m + 1) + m)y = Int(Rnd * (n - m + 1) + m)z = Int(Rnd * (n - m + 1) + m)Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & zEnd SubPrivate Sub Form_Load()End Sub2-5Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date)) End SubPrivate Sub Form_Load()End Sub第十五页2-1方法一Private Sub Command1_Click()Dim x!, a!, aa%, b!, bb%, c!, cc$x = Val(Text1)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")Label2 = "弧度" & Text1 & "转换为" & aa & "度" & bb & "分" & cc & "秒"End Sub方法二Private Sub Command1_Click()x = InputBox("请输入弧度数值", "弧度转换", 0)xx = Val(x)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")MsgBox "弧度" & x & "转换为" & aa & "度" & bb & "分" & cc & "秒"End Sub2-2Private Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 ThenLabel2 = Text1 & "年是闰年"ElseLabel2 = Text1 & "年不是闰年"End IfEnd Sub2-3方法二Private Sub Command1_Click()Dim x%, y%, z%x = InputBox("输入第一个数")y = InputBox("输入第二个数") z = InputBox("输入第三个数") If x > y Then t = x: x = y: y = t If y > z Then t = y: y = z: z = t If x > y Then t = x: x = y: y = t Print x, y, zEnd SubPrivate Sub Form_Load()End Sub方法一Private Sub Command1_Click() Dim x%, y%, z%x = Val(Text1)y = Val(Text2)z = Val(Text3)If x > y Then t = x: x = y: y = t If y > z Thent = y: y = z: z = tIf x > y Thent = x: x = y: y = tEnd IfLabel1 = x & Space(5) & y & Space(5) & z End Sub2-4方法一Private Sub Command1_Click()x = Val(InputBox("请输入上网时间:"))If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100fei = x * 1End SelectMsgBox "上网费用为:" & fei & "元"End IfPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End Sub方法二Private Sub Command1_Click()Dox = Val(InputBox("请输入上网时间:", , -1)) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100fei = x * 1End Selectzongfei = zongfei & Space(3) & fei MsgBox zongfei, , "上网费用为" ElseExit DoEnd IfLoopEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load()End Sub2-5第18页2-3Private Sub Command1_Click()n = 0DoIf n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Don = n + 1LoopPrint nEnd Sub]2-5Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do While x <= yx = x * (1 + 0.1)n = n + 1Print xLoopPrint x, nEnd Sub2-6Private Sub Command1_Click()n = Val(InputBox("输入计算到第几项:", , 0)) For i = 1 To ns = s + (-1) ^ (i + 1) * iNextPrint n, sEnd SubPrivate Sub Form_Load()-8End Sub2-8Private Sub Command1_Click()Dim s As Double, pi As Doublen = 1: s = 0Do While 1 / (2 * n - 1) >= 0.0001s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)n = n + 1Looppi = 4 * sPrint piEnd Sub2-9Private Sub Command1_Click()For n = 100 To 999k = Trim(Str(n))If n = Left(k, 1) ^ 3 + Mid(k, 2, 1) ^ 3 + Right(k, 1) ^ 3 Then Print nNextEnd Sub2-11Private Sub Command1_Click()s = 0: Max = 0: Min = 1000For i = 1 To 20Randomizex = Int(Rnd * 50 + 51)Print x;If x > Max Then Max = xIf x < Min Then Min = xs = s + xNext iaver = s / 20PrintPrint "max="; Max, "min="; Min, "aver="; aver End SubPrivate Sub Form_Load()End Sub。
vb实验指导后题目-参考答案
期末自测题（A卷）文件部分的选择题要做，其它类型的题目不用做，不作考察选择题其它部分还没有时间做一、单选题（每题1分，共25分）1、211.66.160.1 是Internet上的( )。
(A) IP地址 (B)域名 (C)密码 (D)软件编号2、在以下四个www网址中，（）网址不符合www网址书写规则。
(A) (B) (C) (D) 3、下列字符中，其ASCII码值最小的一个是（）。
(A) A (B) a (C) Z (D) X4、下列软件中属于浏览器的是（）。
(A) Excel (B) Internet Explorer (C) QQ (D) Visual Basic5、电子邮件(E-mail)地址的正确形式是（）。
(A)用户名@域名 (B)用户名#域名 (C)用户名/域名 (D)用户名.域名6、下面变量名不合法的是（）。
(A) a2 (B) abcd (C) a$x (D) Cd_E7、下列表达式中，正确的Visual Basic表达式是（）。
(A) 2sin45° (B) ∏*R2 (C) x÷y×5 (D) （x+1）/（x^2+1）/28、下面逻辑表达式的值为真的是（）。
(A) "A"> "a" (B) "abc"> "bc"(C) "That"> "Thank" (D) 12> 12.19、下列过程定义语句说明不合法的是（）。
(A) Sub f1(ByRef n() As Integer) (B) Sub f1(ByRef n As Integer)(C) Sub f1(ByVal n() As Integer) (D) Sub f1(ByVal n As Integer)10、执行下面的4个打印语句，将出错的是（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验教程
实验三顺序结构程序设计编程题参考答案（第47页）
1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。
要求使用InputBox分别进行输入，使用Print 方法输出。
2. 输入圆的半径，输出其周长、面积。
要求使用TextBox控件进行输入，使用Label控件输出。
3. 输入一元二次方程ax2+bx+c=0 的系数a、b、c，输出两个实根。
要求使用TextBox控件分别进行输入，使用Label控件输出。
实验四选择结构程序设计编程题参考答案（第58页）
1. 输入一个，判断其是否能同时被3和7整除。
2. 输入三个数，输出其中的最大值。
6. 编程及输出分段函数的值。
由键盘输入t的值，计算y的值
7.
B；20～29
为青年，输出B；
50
8. 输入年份，输出对应的属相。
已知1984年为鼠年，要求使用Select Case语句实现。
实验五循环结构程序设计编程题参考答案（第77页）
1.编写程序，求s=1×2×3 + 2×3×4 + … + n×(n+1) ×(n+2)的值，n由程序输入。
Y=
2.有一个分数序列
，求出这个序列前
20项的和。
3. 求∑=
10
1
!
n
n
（即1！+2！+3！+…+10！）
4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。
5. 输出所有的“水仙花数”。
“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。
例如，371是一个水仙花数，因为371=33+73+13
6. 打印如图所示的乘法表
实验六定长数组的使用编程题参考答案（第96页）
1.定义一个包含10个数组元素的数组a，为其数组元素分别赋值为2、4、6、8、…20，并输出。
2. 输入十个评委的分数，去掉最高分和最低分后，计算最后的平均分并输出。
3.输入5个学生的姓名与一门课程的成绩，按成绩的升序输出姓名和成绩。
分别使用比较
,...
13
21
,
8
13
,
5
8
,
3
5
,
2
3
,
1
2
互换法、选择法和冒泡法实现。
4. 输出5×5的矩阵，除对角线上的元素为1外，其他数组元素的值均为0。
5. 输入5×5的矩阵，求出每列元素之和，并把和值最大的那一列上的各元素和第一列各元素进行对调。
7. 输入十个学生的三门课程的成绩，并进行如下操作。
(1) 计算并输出每门课程的平均分。
(2) 输出每门课程中的最高分与最低分。
(3) 计算每个学生的平均分。
(4) 按学生的平均分进行降序排序。
实验七 动态数组、控件数组与自定义类型的数组编程题参考答案 （第10页）
6. 自定义学生类型，包括学生姓名、学号和成绩，输入学生人数n ，并输入学生的信息，按成绩进行降序排序后输出。
程序界面设计如下图。
实验七 过程编程题参考答案 （第123页）
2．编写子过程Sub ArraySa(a() As Integer, sum As Single, aver As Single)，该过程的功能是求一维数组a 的元素和与平均值，并通过参数sum 和aver 返回结果。
4．编程子过程Sub movearray(a() As Integer, lr As Boolean, n As Integer)，该过
程的功能是使一维数组元素左移或者右移若干位。
其中参数a()是数组、lr参数指示位移的方向（True向左移，False向右移）、n参数确定移动的位数。
程序界面如下图
实验八函数过程编程题参考答案（第137页）
1．编写程序，利用Function函数计算下式的值。
实验十一 VB的常用控件编程题参考答案（第123页）
1．利用命令按钮控制改变文字的显示区域。
程序界面如图所示，单击按钮“更该区域”按钮，将使“标签练习”几个字依次在上下两个显示区域（两个标签中）显示。
2．利用命令按钮控制改变文字的显示颜色。
在上题基础上，添加一个按钮并将其Cption设为“更改颜色”，单击按钮，使标签的字体颜色依次按红、绿、蓝变化。
提示：设置标签的字体颜色可以用RGB函数。
例如：
Label1.ForeColor = RGB(255,0,0) ‘设置红色
Label1.ForeColor = RGB(0,255,0) ‘设置绿色
Label1.ForeColor = RGB(0,0,255) ‘设置蓝色。