VB实验任务7答案(1)
【参考文档】vb实验指导书答案-范文word版 (10页)
第6章 过程
一、单选题
二、填空题 2.5 5. 工具 7. &，Click 8. Enabled 9. 窗体
10. 模式，无模式
11. Action
12. CommonDialog1.FileName 13. cdlCCRGBInit 14. Unload，Show 15. 所在窗体的名称 16. 打开 17. Visible 18. 当前 19. 255 20. Show
（6）强制显式声明变量 （7）类 P35 第三章
1. CBAAABCDAD ABBBC ADDBD 2.（1）integer （2）???? （3）text （4）a=0 or b=0 （5）(x+y)*sin(30*3.14/180) （6）int(rnd*100+1)（7）# （8）0
1
C
（9）int(rnd*30+70)(10) CDEF P53 第四章
本文部分内容来自网络整理，本司不为其真实性负责，如有异议或侵权请及时联系，本司将立即删除！
== 本文为word格式，下载后可方便编辑和修改！ ==
vb实验指导书答案
篇一：VB程序设计学习与实验指导书答案(包含实验答案)
VB学习与实验指导测试题
参考答案
第一章
第二章
第三章
第四章
第五章
第六章
第七章
第八章
篇二：VB实验指导书答案
VB实验指导书_理论综合练习题_答案(完结版).doc
第二部分综合练习理论练习一一单选1-5 CDCCB 640ABDCD 11-15 CCBBD 16-20 DBCBA二多选1 ABCE 2CE 3 BCE 4 ADE 5 ABCD6ABCDE 7ACD8ABCDE 9 ABC 10ABCDE三判断1-5 X V X V V6-10 V X V V V四填空1 x=int(Rnd*101)End If avg=s/82 i=l to 10Right(str(i),l)或Right(str(i mod 10))3 m*n/GCD(m,n)GCD(b, a mod b)4 Exit For i & “是素数”Next i五阅读程序1-4 DDCB六程序设计1Option Base 1Private Sub Form_click()Dim a( 10)Ciscreatedata a()sort a()Fori= ITo 10Print a(i);Next iEnd SubSub createdata(a())Fori = ITo 10a(i) = Int(Rnd * 101)Next iEnd SubSub sort(a())For i = 1 To 9Forj = 1 To 10-iIf a(j) > a(j + l)Thent = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iEnd Sub2Private Type ksno As String * 8Bscj As IntegerSjcj As IntegerEnd TypeDim student As ksPrivate Sub Form_Load()Open "c:\ksxx.dat" For Random As#l Len = Len(student)End SubPrivate Sub cmdadd_Click()student.no = Text 1.Textstudent.Bscj = Val(Text2.Text)student.Sjcj = Vai (Tex t3.Text)lastrecord = LOF( 1) / Len(student) + 1Put # 1, lastrecord, studentTextl.Text =Text2.Text = ””Text3.Text ="End SubPrivate Sub cmdquit_Click()Close #1EndEnd Sub1-5 CABCD理论练习二6-10 ABCCD 11-15 BBBAB1 CD2 AD3CE4BC6BCDE7CDE8ABCDE9 ABD三判断二多选1-5 X X X X V 6-10 V V V X X 16-20 DBAAC5 AD10ACDE1n-l 或者Sqr (n)02X y3 1 to 102*i-14Button=2start=True 五阅读程序1-5DBDAB六程序设计1Private Sub Form_click()四填空japan = 47528china = 22257n = 0 True — (x, y)Do While china <= japanchina = china * 1.098japan = japan * 1.028 n= n + 1LoopPrint n & ”年之后，中国GDP将超过日本”End Sub•VB6中的Split函数，其功能足将一字符巾用分界符分割为一字符串数组。
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答案）
实验日期_____________________实验名称：实验一常用标准控件一【实验目的与要求】1.掌握Visual Basic的启动与退出。
2.熟悉Visual Basic的集成开发环境。
3.掌握在窗体中放置控件的方法。
4.掌握在“属性窗口”中设置控件属性的方法。
5.掌握在“代码编辑器”窗口中输入程序代码的方法。
6.掌握工具栏上启动按钮、结束按钮的使用方法。
7.掌握标签、文本框、命令按钮、列表框等控件的使用方法。
【实验内容与步骤】实验1.1.1 标签的使用(一)1.题目与要求：在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求：1)标签的内容为“计算机等级考试”；2)标签可根据显示内容自动调整其大小；3)标签带有边框，且标签内容显示为三号字。
2.实验步骤1)界面设置：在名称为Form1的窗体上放置一个标签控件Label1；2)属性设置（请将表格补充完整）表1.1.1 对象属性文件名为sjt1.frm。
实验1.1.2 标签的使用(二)1.在名称为Form1的窗体上画一个名称为 Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示“等级考试”，并使标签的外观如图所示。
2．属性设置（请将表格补充完整）表1.1.2 对象属性sjt2.frm。
实验1.1.3 文本框的使用1.题目与要求：在名称为Form1的窗体上画两个文本框，名称分别为T1、T2，初始情况下都没有内容。
请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中。
程序中不得使用任何变量。
2.实验步骤1)界面设置：在名称为Form1的窗体上放置两个文本框；2)属性设置表1.1.3 对象属性Private Sub T1_Change()T2.Text=T1.Text (T2=T1)End Sub3)保存文件：存盘时必须存放在C:\VB\Sy01文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
VB实验任务6参考答案(1)
实验任务6参考答案课程名称：程序设计基础VB实验名称——实验六Visual Basic程序设计基础(2)一、实验目的：1．掌握顺序结构的程序设计方法2．掌握常用的接收和输出数据的方法3．进一步掌握常量、变量、运算符、表达式和常用函数的使用二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：实验1注意：类型符省略为%——Integer，&——Long，!——Single，#——Double，@——Currency，结果转换方向整型→长整型→单精度型→双精度型→货币型第（1）组总结◆加法和减法的情况相同◆通常相同类型的操作数进行运算,结果同操作数本身,但是除法/比较特殊,除单精度数据除外(Single),相同数据进行除运算结果是Double◆不同类型的操作数进行运算,结果通常按占用内存字节数多的方向转换(规则:转换方向整型→长整型→单精度型→双精度型→货币型);也有特例:单精度与长整型运算结果为Double,单精度与货币型相乘运算结果为Double, 双精度与货币型相乘运算结果为Double,单精度与整型相除运算结果为Single第（2）组Dim a As Integer, b As Single, c As Singlea < 2 = 3 b^2 - 4*a*c > 0 "ABC">"ACB" "ABC" = "abc" 200 + True"123ab" & 246#1/1/2007# - #1/1/2000# "30" + 140 "123" & 456 "123" + 456实验2请先手工写出以下程序段的运行结果，然后使用立即窗口或在窗体的Click事件过程中分别添加如下的程序段，运行验证，进一步理解和掌握运算符和表达式的应用。
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实验报告答案-推荐下载
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。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验任务7参考答案
课程名称：程序设计基础VB
实验名称——实验七 选择结构程序设计
一、实验目的：
1.进一步掌握输入输出函数的函数使用
2.掌握if 语句的三种基本结构
3.掌握多分支语句select 语句的使用
实验1编写程序，求解鸡兔同笼问题。
一个笼子中有鸡X 只，兔Y 只，每只鸡有2只脚，每只兔有4只脚。
今知鸡和兔的总头数为H ，总脚数为F 。
问笼中鸡和兔各若干？
Private Sub Form_Click()
Dim h As Integer, f As Integer, x As Integer, y As Integer
h = InputBox("鸡和兔的总头数H=:", "鸡兔同笼", 71)
f = InputBox("鸡和兔的总脚数F=:", "鸡兔同笼", 158)
x = (4 * h - f) / 2
y = (f - 2 * h) / 2
MsgBox "笼中鸡数为" & x & vbCrLf & "笼中兔数为" & y
End Sub
实验2实验书100页实验5-5-2 改错题
窗体的界面设计如图所示。
在单击命令按钮后，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应设置。
发现一下程序代码出错，请修改。
实验3实验书101页实验5-7(注意If 语句的使用格式)
建立一个文本框，在文本框中每输入一个字符，则立即判断：若是小写字母，则把它的大写形式显示在标签Label1中，若是大写字母，则把它的小写形式显示在Label1中，若是数字字符，则
把该字符直接显示在Label1，其他字符不予显示。
输入的字母总数显示在标
签Label2中，如图7-4所示。
解法1的程序代码如下。
Dim n As Integer '模块级变量
Private Sub Command1_Click()
If Option1.Value = True Then
Text1.FontName = "宋体"
Else
Text1.FontName = "黑体"
End If
If Check1.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
End Sub
Private Sub Text1_Change()
Dim ch As String*1
ch = Right$(Text1.Text, 1)
If ch >= "A" And ch <= "Z" Then
Label1.Caption = LCase(ch)
n = n + 1
ElseIf ch >= "a" And ch <= "z" Then
Label1.Caption =
n = n + 1
ElseIf ch >= "0" And ch <= "9" Then
Label1.Caption = ch
Else
Label1.Caption = ""
End If
Label2.Caption = n
End Sub
解法2：在输入时即对每一个输入的字符进行判断，还可放在文本框的KeyPress事件中，符合条件的字符进行处理，不符合条件的字符不予显示。
自行完成编程。
实验4 教材120页第5题
编写一个程序，用户输入考试成绩，输出该学生的总评成绩。
总评标准如下：60分以下为不及格，60~69为及格，70~79为中等，80~89为良好，90~100为优秀。
自行设计界面。
Private Sub Command1_Click()
a = Val(Text1.Text)
If a < 60 Then
b = "不及格"
ElseIf a >= 60 And a < 70 Then
b = "及格"
ElseIf a >= 70 And a < 80 Then
b = "中等"
ElseIf a >= 80 And a < 90 Then
b = "良好"
ElseIf a >= 90 And a <= 100 Then
b = "优秀"
Else
b = "无此成绩"
End If
Label1.Caption = b
End Sub
实验5
（1）窗体Form1中的用户名边的文本框要保证只能输入26个英文字母，若不是字母则弹出消息框提示“用户名只能输入字符”（参考书上104页例5-6），密码为“12345”，若输入的密码不是“12345”，则弹出消息框“密码错误！”，并将密码框清空，获得焦点。
（2）单击窗体Form1中的“确定”按钮，如果密码正确，隐藏窗体Form1，显示窗体Form2，单击“返回”按钮退出。
（3）窗体Form2中，单击“确定”按钮，在文本框中输出所选的课程名，单击“取消“按钮则取消所选内容，单击“返回”按钮，隐藏窗体Form2，显示窗体Form1。
单击第一个滚动条改变文本框的文本字号大小（5－30），单击第二个滚动条改变文本框的文本颜色。