VB作业2
VB第二次作业（5～7章）
一、选择题（每题2分，共2×20＝40分）
1、当在滚动条内拖动滚动块时触发
A．KeyUp事件
B．KeyPress事件
C．Scroll事件
D．Change事件
2、设已经在"菜单编辑器"中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是
A．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button=2 Then PopupMenu Bs, 2
End Sub
B．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bs
End Sub
C．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bs,0
End Sub
D．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bs
End Sub
3、图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是
A) Autosize B) Stretch
C) AutoRedraw D) Appearance
4、下列叙述中正确的是
A) 在窗体的Form_Load事件过程中定义的变量是全局变量
B) 局部变量的作用域可以超出所定义的过程
C)在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D) 在调用过程时，所有局部变量被系统初始化为0或空字符串
5、以下叙述中错误的是
A) 如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
B) Sub过程中不能嵌套定义Sub过程
C) Sub过程中可以嵌套调用Sub过程
D) 事件过程可以像通用过程一样由用户定义过程名
6、以下叙述中错误的是
A) 在同一窗体的菜单项中，不允许出现标题相同的菜单项
B) 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键
C) 程序运行过程中，可以重新设置菜单的Visible属性
D) 弹出式菜单也在菜单编辑器中定义
7、设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是
A) menu1.Enabled=True B) Munu1.Enabled=False
C) Menu1.Visible=True D) Menu1.Visible=False
8、以下叙述中错误的是
A) 在程序运行时，通用对话框控件是不可见的
B) 在同一个程序中，用不同的方法(如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用
C)调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件
D) 调用通用对话框控件的ShowColor方法，可以打开颜色对话框
9、设有如下的记录类型
Type Student
numberAs string
name As String
age As Integer
End Type
则正确引用该记录类型变量的代码是
A) Student．name=”张红”
B) Dim s As Student
https://www.wendangku.net/doc/596633315.html,＝”张红”
C) Dim s As Type Student
https://www.wendangku.net/doc/596633315.html,=”张红”
D) Dim s As Type
s.Dame＝”张红”
10、表示滚动条控件取值范围最大值的属性是
A)Max B)LargeChange C)Value D)Max—Min
11、系统默认的参数传递方式是（）传递。
A、按值
B、按地址
C、ByVal
D、按实参
12、假定有以下函数过程：
Function Fun(S As String) As String
Dim s1 As String
For i=1 To Len(S)
s1＝UCase(Mid(S，i，1))十s1
Next i
Fun＝s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Prlvate Sub Commmldl_Click()
Dim Str1 As String，Str2 As String
Strl＝inputbox(”请输入一个字符串”)
Str2=Fun(Strl)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为
A)abcdefg B)ABCDEFG C)gfedcba D)GFEDCBA
13、以下叙述中错误的是
A)用Shell函数可以调用能够在Windows下运行的应用程序
B)用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数
C)调用Shell函数的格式应为：<变量名>＝Shell(……)
D)用Shell函数不能执行DoS命令
14、以下关于过程及过程参数的描述中，错误的是
A)过程的参数可以是控件名称
B)用数组作为过程的参数时，使用的是“传地址”方式
c)只有函数过程能够将过程中处理的信息传回到调用的程序中
D)窗体可以作为过程的参数
15、一个工程中包含两个名称分别为Forml、Form2的窗体，一个名称为mdlFunc的标准
模块。假定在Forml、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Forml中定义的过程：
PriVate Sub frmfunctionl()
End Sub
Form2中定义的过程：
Public Sub frmffunction2()
End Sub
mdlFunc中定义的过程：
PubliC Sub mdlFunction()
End Sub
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是
A)上述三个过程都可以在工程中的任何窗体或模块中被调用
B)frmfunction2和mdlfunction过程能够在工程中各个窗体或模块中被调用
C)上述三个过程都只能在各自被定义的模块中调用
D)只有mdlFunction过程能够被工程中各个窗体或模块调用
16、在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为"Save"，缺省文件名为“SaveFile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是
A)Private Sub Command_C1ick()
Commondialogl．“Savefile”
Commondialogl.filter＝"All Files|*.*|(*.txt)|*.txt|(*.doc)．|*.doc"
CommonDialogl．Filterindex=2
CommonDialogl．Dial0g．title＝"Save"
CommonDialogl．Action＝2
End Sub
B)Private Sub Commandl—Click()
CommonDialogl．＝"SaveFile"
CommonDiaLogl．Filter＝"A11 Files|*.*|(*.txt)|*.txt|*．doc|*．doc"
C0mmonDialogl．FilterIndex＝1
CommonDialogl．DialogTitle＝"Save"
CommonDialogl．Action＝2
End Sub
C)Private Sub Cmmandl_C1ick()
COmmonDialogl．＝"Save"
CommonDialogl．FiLter＝"A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
CommonDialogl．Filterindex＝2
C0mmonDialogl．DialogTitle＝"SaveFile"
CommonDialogl．Action＝2
End Sub
D)Private Sub Commandl_C1ick()
CommonDialogl．＝"SaveFile"
CommonDialogl．Filter＝"All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
CommonDialogl．FilterIndex=1
CommonDialogl．DialogTitle=“Save”
CommonDialogl．Action＝1
End Sub
17、以下关于变量作用域的叙述中，正确的是
A) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B) 全局变量必须在标准模块中声明
C) 模块级变量只能用Private关键字声明
D) Static类型变量的作用域是它所在的窗体或模块文件
18、在以下描述中正确的是
A)标准模块中的任何过程都可以在整个工程范围内被调用
B) 在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
C) 如果工程中包含Sub Main过程，则程序将首先执行该过程
D) 如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体
19、在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是
A) 11 B) 10 C) 9 D) 8
20、在用菜单编辑器设计菜单时，必须输入的项有
（A）快捷键（B）标题（C）索引（D）名称
二、填空题（每题2分，共2×15＝30分）
1、一个多文档界面的应用程序可以包含三类窗体分别是、
、。MDI父窗体、MDI子窗体、普通窗体
2、自定义类型中的元素类型可以是字符串，但该字符串必须是。定义长度
3、一个VB应用程序可以包括三种模块：、
和。窗体模块；标准模块；类模块
4、每一个过程都有一个使用范围，过程的使用范围称为。过程的作用域
5、要设置Data控件连接数据库的名称，需要设置其属性。DatabaseName
6、For循环中，当步长大于零时，初始值终止值，当步长小于零时，初始值终止值，不指明步长时，默认步长是。小于等于；大于等于；1
7、要设置Data控件连接的数据库类型，需要设置其属性。RecordsetType
8、符号常量在某一过程中说明，则该符号常量只能在_______内有效。该过程内
9、在函数过程定义中一般至少有一个赋值语句把所得函数值赋给。函数过程名
10、模块级过程的作用域为。它所在模块
11、在用Show方法后显示自定义对话框时，如果Show方法后带_____________参数就将窗体作为模式对话框显示。vbModal或1
12、菜单的热键指使用_____________键和菜单项标题中的一个字符来打开菜单。Alt
13、如果在建立菜单时在标题文本框中输人一个_____________，那么菜单显示时形成一个分隔线。下划线或“_”
14、如果把菜单项的_____________属性设置为True，则该菜单项成为一个选项。Checked
15、坐标度量单位可通过____________来改变。ScaleMode属性
三、程序阅读，回答问题（每题5分，共5×4＝20分）
四、1、写出下列窗体模块中事件过程的执行结果。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Call s(10, 5, a)
Call s(7, a, b)
Call s(a, b, c)
Print "a="; a, "b="; b, "c="; c
End Sub
Private Sub s(x As Integer, y As Integer, z As Integer)
z=y-x
End Sub
答案：执行结果为：a= -5 b= -12 c= -7
2、写出下面程序运行后，单击窗体，输入数据为2、4时，窗体的输出结果。
Sub ASay（x As Integer，ByVal y As Integer）
Dim a As Integer
A=2*x+y
x=a+1
y=x+10
End Sub
Private Sub Form_Click（）
Dim a As Integer， b As Integer
a=Val（InputBox（”请输入一个整数”））
b=Val（InputBox（”请输入一个整数”））
Call Asay（a，b）
P rint “a=”；a，”b=”；b
End Sub
答案：执行结果为：a=9 b=4
3 、写出下列事件过程的执行结果。
Private Sub Command1_Click()
Dim m%
m=max(35, -21, 480)
m=max(max(m, 75, 100), 380, 28)
Print "max="; m
End Sub
Private Function max(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)
If x>y Then max=x Else max=y
If z>max Then max=z
End Function
答案：执行结果为： 80
4、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码，程序运行后，单击命令按钮，输出结果是什么？
Private Sub Command1_Click()
Dim a(5, 5)
For i = 1 To 3
For j = 1 To 4
a(i, j) = i * j
Next j
Next i
For n= 1 To 2
For M = 1 To 3
Print a(M, n);
Next M
Next n
End Sub
答案：1 2 3 2 4 6
五、编写程序（10分）
编写程序：利用文本框检查用户口令，而且使用静态变量来限制输入口令的次数。界面如图
所示：
答案：编写文本框Text1的KeyPress事件代码：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Static n As Integer
If KeyAscii = 13 Then
If LCase(Text1.Text) = "longxb" Then
Label1.Caption = "欢迎使用本系统"
Else
n = n + 1
If n = 3 Then
Label1.Caption = "对不起，您无权使用"
Text1.Enabled = False
Else
Label1.Caption = "对不起，口令错"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End If
End If
End Sub
VB程序设计作业参考答案
《VB程序设计》作业参考答案 一．选择题 1－5 ABC CB 6—10 CCA DC 11－15 ABC DB 15－20CDA CB 21－25DBD CC 25－30DAC AA 31－35 DAC AA 36－40 BCC CD 41－45 CCC AC 46－50DDB AD 51－55 ACA CD 56－60 BCA DA 61－65 BAADB 66－70DBDAC 71－75BBBAD 76—80CDABC 81-85ABCD C 86-90BAADD 91-95CBBAD 96.B 二．填空题 (1) E (2) 程序代码(3) CmdDisplay.Visible =False(4) t=a(j)(5) And (6) 回车符(7) text2.setfocus (8) 3 (9) D=B:B=C:C=D (10) Random （11）事件过程(12) 打开对话框(13) 3 (14) a(i,j)=0 (15) L1.text (16) Put # (17) True (18) I MOD 4=0 (19) AaBbCc （20）INT(Rnd*100) ；arr （21）Output ；Write #1,StuNo,StuName,StuEng (22)10 (23)4 (24) 顺序，随机 (25)INPUT,OUTPUT,APPEND （26）程序代码窗口的字符过大或过小，可以通过（工具→选项→编辑器格式→大小）去改变。（27）窗体、控件、对象（28）界面设计（29）对象、代码（30）窗体、标准模块、类模块、工程（31）窗体(Form)、图片框(PictureBox)、打印机(Printer)、立即窗口(Debug) （32）E D（33）81 （34）程序，数据（35）窗体、控件、对象（36）对象、代码（37）用户界面的窗体、执行具体操作的代码。（38）Picture属性、剪切板把图形粘贴 三．编程题 1. Option Base 1 Private Sub Form_click() Dim a(3) As Integer, m As Integer Do While m <> -1 And i < 3 m = InputBox("请输入第" & i + 1 & "条边") i = i + 1 a(i) = m If a(i) < 0 Then MsgBox "输入错误，请重新输入！" i = i - 1 End If Loop If a(1) + a(2) > a(3) And Abs(a(1) - a(2)) < a(3) Then
VB程序设计网上作业2016
题1.若要使命令按钮不可操作，要对下列哪个属性进行设置 A、Enabled B、Visible C、BackColor D、Caption 标准答案:A 题2.打开文件的Open语句中，如果省略“For模式”，则打开的文件的存取方式是 A、顺序存取方式 B、顺序文件方式 C、随机存取方式 D、二进制方式 标准答案:C 题3.命令按钮、单选按钮、复选框上都有Picture属性，可以在控件上显示图片，但需要通过下列哪一个属性来控制 A、Appearance属性 B、Style属性 C、DisabledPicture属性 D、DownPicture属性 标准答案:B 题4.系统启动时自动执行下列哪一个事件过程
A、Load B、Click C、UnLoad D、GotFocus 标准答案:A 题5.VB工程中窗体文件的扩展名是 A、.bas B、.frm C、.vbg D、vbp 标准答案:B 题6.如下数组声明语句，正确的是 A、Dim x[1,4] As integer B、Dim x(1, 1 to 4) As integer C、Dim x([1,n] As integer D、Dim x(1 4) As integer 标准答案:B 题7.如下VB的特点中错误的是 A、简单易学 B、界面友好
C、不可编译 D、集成化环境 标准答案:C 题8.从随机文件读出数据使用的语句是 A、Input # 文件号，变量名 B、Get # 文件号，变量名 C、Put # 文件号，变量名 D、Write # 文件号，变量名 标准答案:B 题9.为了防止用户随意将光标置于控件之上，应 A、将控件的TabIndex属性设置为0 B、将控件的Tapstop属性设置为True C、将控件的TapStop属性设置为False D、将控件的Enabled属性设置为False 标准答案:D 题10.如果希望在InputBox的提示项中输出多行内容时，需要使用下列哪个参数实现 A、Chr(13)+Chr(10) B、Chr(13) C、Chr(10) D、Chr(10)+Chr(13) 标准答案:A
VB-条件语句-循环语句练习题
VB条件语句和循环语句 测试习题(满分100分) 班级姓名 一、根据程序写运行结果 1．写出下列程序的运行结果。(5分) Private sub command1_click X=VAL(text1.text) IF X<0 THEN Y=ABS(X) ELSE Y= -X END IF PRINT "Y=";Y End sub 运行结果： (1)在text1中输入99 输出 (2)在text1中输入-23 输出 2. 写出下列程序的运行结果。(5分) Private sub command1_click N=1 FOR X=3 TO 10 STEP 3 N=N*2 NEXT X PRINT "N=";N End sub 运行结果： 3．写出下列程序的运行结果。(5分) Private sub command1_click S=0 FOR X=10 TO 1 STEP 4 S=S+X NEXT X PRINT " S=";S End sub(5分) 运行结果： 4.写出下列程序运行结果。 (5分) Private sub command1_click FOR I= 1 TO 5 step 2 PRINT I， NEXT I End sub 运行结果： 5. 写出下列程序的运行结果。(5分) Private sub command1_click X=VAL(text1.text) IF X/2=Int(X/2) THEN S=X+1 ELSE S=X-1 END IF PRINT "S=";S End sub 若在text1中输入以下数字，运行结果： (1)99 (2)98 二、根据题意，完善下列程序。(每空5分) 1.请设计一个程序，将从键盘上任意输入的两个数中最大的那个选出来。 Private sub command1_click A=VAL(text1.text) B=VAL(text2.text) IF A>B THEN MAX=________ ELSE MAX= ENDIF PRINT "MAX="；MAX End sub 2.求和S=1+3+5+7+…+99 Private sub command1_click S=0 FOR I=1 TO 99 STEP S=________ NEXT I PRINT “S=”；S End sub 3.完善下列程序，使其能求出 2+4+6+……+100之和。 Private sub command1_click FOR I =____ TO 100 STEP _____ S= S+I ______ I PRINT S End sub
VB大作业模板
题目：班级信息系统 学院: 土木与交通工程学院姓名：苏华立 学号：3112003660 班级：12 路桥一班 指导老师：张伯泉 成绩： 日期：2014年1月
注意：封面如上，打印单面。正文打印为双面，以下正文字体为5号宋体，字符间距值为0.5，大标题加粗，详见下面模板 一、选题过程 1、在学校里，有学校的教务系统，信息管理系统等，那么在一个班级里是否可以有一个小程序供全班同学使用，如查询信息，反馈班级的问题，于是我便想设计一个袖珍版的12路桥一班信息系统。 2、作为班级的学生干部，若能建立一个高效的信息系统，既可以提高办事效率，又可以充分利用我们书本里所学的知识，把知识转化成为实用的东西。 二、总体目标 1、系统具有多个窗体、菜单等人机交互界面。 2、可以实现多种身份验证。 3、开发系统所用的知识能够较全面地覆盖所学内容，熟悉运用和掌握所学的V B知识。 4、系统采用数据库实现数据的存储与管理。 三、系统结构及其功能 1、设计结构 根据系统总体目标该系统由欢迎界面，登录界面，登陆界面分为学生登录与管理员登录，学生登录进入主菜单。主菜单的功能项有信息查询，问题反馈，图片风采。管理员登录的界面主要查看问题的反馈。其结构如图1所示。 欢迎界面 登录界面 学生登录管理员 主菜单 信息查询问题反馈图片风采查看问题反馈打开文件对话框 弹出菜单数据库建立文件
图1系统结构 2、功能介绍 （1）用户登陆：用户通过选择单选框的登录身份进入不同的页面，学生进入主菜单，可以进行信息查询，问题反馈，浏览图片风采，管理员直接进入查看学生反馈的问题。 （2）信息查询：学生可以查看全班各位同学的信息，如电话号码，宿舍号等信息，也可以输入学号直接从数据库中查找需要的信息。 （3）问题反馈：学生输入的问题会被保存进一个顺序文件中，方便管理员进行查看。 （4）图片风采：学生可以看班级的图片，同时弹出菜单，回到主页面。 （5）查看问题反馈：管理员可以通过对话框打开存了学生反映的问题，了解学生的情况。 四、界面设计 1.欢迎界面 该界面主要实现的是欢迎学生登录或管理员登录，其设计结果如图2所示，界面主要控件及其属性设计如表2所示。 图2欢迎界面 表2欢迎界面主要控件设置 控件名称标题字体 Fo r m1w e l c o me您好，请进入主 宋体五号 菜单界面
VB程序设计-2017年6月在线考试答案
《VB程序设计》课程综合复习资料 一、单项选择 1．若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D ）属性。 A．BACKCOLOR B．BORDERSTYLE C．FORECOLOR D．BACKSTYLE 2．如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（B ） A．文本框的MULTILINE属性值为TRUE B．文本框的LOCKED属性值为TRUE C．文本框的MULTILINE属性值为FALSE D．文本框的LOCKED属性为FALSE 3．下列关于属性设置的叙述错误的是：（A） A．一个控件具有什么属性是VB预先设计好的，用户不能改变 B．一个控件具有什么属性是VB预先设计好的，用户可以改变 C．一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置 D．一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值 4．下列说法正确的是（C ） A．对象属性只能在“属性窗口”中设置 B．一个新的工程可以在“工程窗口”中建立 C．必须先建立一个工程，才能开始设计应用程序 D．只能在“代码窗口”中编写程序代码 5．下列关于窗体上控件的基本操作错误的是：（A ） A．下一次DEL键只能删除一个控件 B．按下一次DEL键可以同时删除多个控件
C．按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件 D．按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件 6．下列关于设置控件属性的叙述正确的是（C ） A．用户必须设置属性值 B．所有的属性值都可以由用户随意设定 C．属性值不必一一重新设置 D．不同控件的属性项都完全一样 7．如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（B ） A．0 B．-1 C．TRUE D．FALSE 8．下列关于控件画法的叙述错误的是（D ） A．单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件 B．按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件C．双击工具箱中的控件图标，所画控件的大小和位置是固定的 D．不合用工具箱中的控件工具，不可以在窗估上画出图形对象，但可以写入文字字符9．应用程序设计完成后，应将程序保存，保存的过程是（D ） A．只保存窗体文件即可 B．只保存工程文件即可 C．先保存工程文件，之后保存窗体文件 D．先保存窗体文件（或标准模块文件），之后还要保存工程文件 10．VB应用程序的运行模式是（C ） A．解释运行模式B．编译运行模式C．两者都有D．汇编模式 11．可视化编程的最大优点是（C） A．具有标准工具箱
vbFOR循环语句
《FOR循环语句》 一．教学目标 在教学过程中，充分发挥学生的主体作用、调动学生的学习积极性，有效地培养学生的分析问题、解决问题的能力，主要体现下面三个目标： 1、知识目标:通过FOR/NEXT语句的学习,理解循环过程，能写出简单的循环程序。 2、能力目标:培养学生分析问题，解决问题的能力。 3、情感目标:激发学生学习热情，培养学生学习的积极性。 二．教材分析 本节课的教学内容是信息技术选修模块一《算法与程序设计》中的第2章第4小节《程序的循环结构》,由for/next循环语句的基本结构及其执行过程还有练习题目三部分组成，是程序设计中的重点也是难点,后续的算法的设计教学，都要以此为基础。本节内容注重实例分析,通过教师的引导,让学生感受和领悟循环结构的执行方式，解决实际问题。 三．教学重难点 重点：掌握FOR/NEXT循环语句的格式，并能运用它来编写程序。 难点：解决问题的思路和方法（算法）,流程图制作,确定循环变量和循环体。四．教学过程 【现实生活中的实例】 设问:1+2+3+4+...+98+99+100=? 【引入】 循环的概念 循环结构是程序设计中的一种基本结构。当程序中出现需要反复执行相同的代码时，就要用到这种结构。循环结构既可以简化程序，又可以提高程序的效率。 在VB中实现循环结构的语句常用的有For…Next语句和Do…Loop语句。 【新课】 1.格式 For 循环变量＝初值To 终值[Step 步长] 循环体 Next 循环变量 2.说明 ·循环变量：亦称为循环控制变量，必须为数值型。 ·初值、终值：都是数值型，可以是数值表达式。 ·步长：循环变量的增量，是一个数值表达式。一般来说，其值为正，初值应小于终值；若为负，初值应大于终值。但步长不能是0。如果步长是1， Step 1可略去不写。其值可以是实数，VB自动调整为整数。 ·循环体：在For语句和Next语句之间的语句序列。
VB程序设计大作业报告
VB程序设计大作业报告 班级：机械11102班学号：201103112 姓名：孙文斌日期：2013.05.13 一、设计题目：《抓交通肇事犯》 一辆卡车违反了交通规则，撞人后逃逸。现场有三人目击事件，但都没有记住车号，记住车号的一些特征。甲说：车号的前两位数字是相同的；乙说：车号的后两位数字 是相同的，但与前两位不同；丙是位数学家，他说：四位的车号正好是一个整数的平 方。现在请你根据以上线索帮助警方找出车号以便尽快破案 二、问题分析与算法设计： 按照题目的要求造出一个前两位数相同、后两位数相同且相互间又不同的整数，然后判断该整数是否是另一个整数的平方。 假设这个四位数的前两位数字都是i，后两位数字都是j，则这个可能的四位数k为：k = 1000 * i + 100 * i + 10 * j + j 其中，i和j都在0~9之间变化。现在还需使k满足是一个整数c的平方，由于k是一个四位数，所以，m值不可能小于31和大于100，因此，可从31开始试验到100，看是否满足k == c*c，若不满足，则c加1再试，直到找到满足这些限制条件的k为止结束测试。 三、界面与结果截图： 界面截图：
结果截图： 四、结果分析与总结： 通过结果截图我们知道最后得到的车牌号为7744，首先检验甲叙述的前两位数字相同都为7，再检验乙叙述的车牌号后两位相同都为4且不与前两位相同，最后检验丙叙述的该车牌号为88的平方，所以综合上述检验分析结果满足题意。 通过此次VB程序设计从理论到实践，我学到很多很多的的东西，让我对vb程序编写有了一个初步认识。从最初的拿到题目无从下手，接着网上查阅些材料以及反复看书本上的例题使我对这个程序的编写有了一个大致轮廓，接着在草稿纸上写下程序代码，然后到计算机上反复调试，最终才算完成。在这反复调试的过程中我明白了时间是检验真理的唯一标准。这对我今后的学习中都会起到非常重要的作用。最后衷心感谢李宁老师对我vb课程的指导，祝您身体健康，工作愉快。 附录程序源代码： Private Sub command1_click() Dim i%, j%, k%, c% For i = 0 To 9 For j = 0 To 9 If i <> j Then k = i * 1000 + i * 100 + j * 10 + j For c = 31 To 100 If (c * c) = k Then Picture1.Print k End If Next c End If Next j Next i End Sub
vb实验作业参考答案
VB实验作业参考答案 作业一窗体设计 (2) 作业二计算器 (4) 作业三人民币张数求电阻值 (6) 作业四（必做）建康城 (8) 作业五阶乘累加 (9) 作业六（必做）九九乘法表 (11) 作业七（必做）I NPUT B OX 函数输入12个整数，赋值给3×4的二维数组 (12) 作业八递归函数计算两个正整数的最大公约数，递归公式为 (13) 作业九（必做）家电提货单 (15) 作业十统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。 (17) 作业十一设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。 (19) 作业十二通过菜单选择，对字体、字号进行设置 (21)
作业一 1.简答题(略) 2.编程题： 1)单击窗体后在窗体上显示“您好！×××同学”。 要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。 答案参照课本P27的例1-6。 2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写： （1）用代码初始化各控件（提示：可写在Form_Load事件中）。 （2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。 （3）结束程序运行的代码（命令按钮）。 程序代码： Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Form1.Width / 2 Text1.Height = Form1.Height / 2 Command1.Left = Form1.ScaleWidth - Command1.Width
电子科技大学15秋《VB程序设计》在线作业2满分答案
15秋《VB程序设计》在线作业2 一,单选题 1. DataCombo控件的RowSource属性是表示（）。 A. 给DataComebo控件提供列表项的字段 B. 目的表的数据源 C. 给DataCombo控件提供列表项的数据源 D. 更新目的表的字段 正确答案：C 2. 执行语句：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是（）。 A. 只能写，不能读 B. 只能读，不能写 C. 既可以读，也可以写 D. 不能读，不能写 正确答案：C 3. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10,10) As Integer Dim I, j As Integer For I=1 To 3 For j=2 To 4 array1(I, j)=I+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（） 正确答案：A 4. 下列哪个属性设置文本框中文字的对齐方式（）。 A. SelLength B. Alignment C. Multiline D. ScrollBars 正确答案：B 5. 以下能判断是否到达文件尾的函数是（）。 A. BOF B. LOC C. LOF D. EOF 正确答案：D 6. 下面叙述错误的是（）。 A. 驱动器列表框DriveListBox显示当前系统中有效磁盘驱动器 B. 目录列表框DirListBox显示当前驱动器分层目录树 C. 文件列表框FileListBox显示选定目录中的所有文件 D. 文件列表框FileName属性是设定允许显示文件名的文件类型 正确答案：D
VB基本知识及选择、循环结构习题
一、VB 基本知识及选择、循环结构习题 一、基本概念题 （1） 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。 %100 1E1 123D3 123,456 0100 “ASDF” “” #2004/10/7# 100# π &O78 &H123 True T -1123! # （2）下列数据哪些是变量，哪些是常量是什么类型的常量 Name “name” False ff “11/16/99” cj “120” n #11/12/2004# （3） 下列符号中，哪些可以是Visual Basic 的合法变量名 A123 a12_3 123_a a,123 a 123 Integer XYZ False Sin(x) 变量名 sinx π （4）把下列数学表达式写成Visual Basic 表达式： （1）5||z y x ++ （2）6)1(xy + （3）xy y x 310+ （4）a ac b b 242-+- （5）3211111r r r ++ （6）110ln 45sin 10++++y x e （5）写出下列表达式的值： （1）123 + 23 Mod 10 \ 7 + Asc("A") （2）Int * 100 + / 100 （3）#11/22/2004# - 10 （4）"ZXY" & 123 & "abc" （6）设a=7，b=3，c=4，求下列表达式的值： （1）a + 3 * c （2）a ^ 2 / 4 （3）a / 2 + 3 \ 2 （4）a Mod 3 + b ^ 3 / c \ 5 （7）写出下列函数的值： （1）Int （2）Fix （3）Sqr(Sqr(81)) （4）Len("Visual Basic 程序设计") （5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2) （7）LCase("Hellow VB!") （8）Mid("Hellow VB!", 4, 3) （9）Left("Hellow VB!", 3) （10）Val("16个加23个") （11）Str （12）UCase("Visual Basic") 二、 选择题 （1）可以同时删除字符串前导和尾部空格的函数是 。 A. Ltrim B. Rtrim C. Trim D. Mid （2）函数Int(Rnd(1) * 10)是在哪个范围产生随机整数 。 A. (0,1) B. (0,9) C. (1,10) D. (1,9) （3）数学式子sin25o写成Visual Basic 表达式是 。 B. Sin(25) C. Sin(25o) D. Sin(25*180) （4）表达式16/4 – 2^3 * 8/4 Mod 5\2的值是 。 A. 14 B. 4 C. 20 D. 2 （5）数学关系式103<≤x 表示成正确的VB 表达式为 。 A. 3<= x <10 B. x >= 3 And x<10 C. x>=3 Or x<10 D. 3<= x And <10
VB作业
1、用IF语句设计一个程序，输入一个年号，程序能判断此年为平年或闰年。 程序如下： Private Sub Command1_Click() Dim year1, year As Integer year1 = Text1.Text If year1 = "" Then Exit Sub Else year = Int(Abs(year1)) End If If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then MsgBox Str(year) & "年是闰年" Else MsgBox Str(year) & "年是平年" End If End Sub Private Sub Command2_Click() End End Sub
2用select语句设计一个程序，输入一个月份，能判断这个月有多少天。 程序如下： Private Sub Command1_Click() If Text1.Text <> "" Then score = Val(Text1.Text) Select Case score Case 1, 3, 5, 7, 8, 10, 12 Print "这个月有31天" Case 4, 6, 9, 11 Print "这个月有30天" Case 2 Print "这个月若是平年有28天，若是闰年有29天" End Select End If End Sub Private Sub Command2_Click() End End Sub Private Sub Label1_Click() End Sub 3、设计一个程序，当单击按钮时窗体的位置会向右移动200缇，且向下移动200缇，并在窗体上显示当前“窗体左上角在屏幕的坐标为：”实现并在窗体上显示“单击窗体恢复原位”，当单击窗体时，清除窗体上已输出的内容，且恢复到窗体的初始位置，并显示：“窗体左上角在屏幕的坐标为：”，如下图：
电子科技大学网络教育VB程序设计在线作业答案
在线考试一一正在答题 作业提交1 表达式2\2 *2/2*2 mod 2的结果是 (A) 0 (B) 25 (C) 5 (D) 1 2. 下列自宦义标识符中非法的是： (A) Me (B) My (C) third (D) fIRst 3. 表达式“A” Like "[A-Z]” 的结果为： (A) A (B) Z (C) TRUE (D) FALSE 4. 表达式x>= 20 and x<= 100,其中x=37 时，结果为 (A) 100 (B) 20 (C) TRUE (D) flase 5. 逻辑表达式1>0 and Not 2<7 or 2>6的值为 (A) 0 (B) FALSE (C) 3 (D) TRUE 6. 表达式x/=2,其中x = 24.运算后x的取值为： (A) 12 (B) 6 (C) 48 (D) 24 7. 下列可以作为VB变量的是： (A) a(x*y) (B) 学生信息
(C) lxyz (D) second 8. 表达式x*=2,其中x = 25,运算后x的取值为 (A) 50 (B) 625 (C) 25 (D) 27 9. 表达式100 mod 12的结果为： (A) 10 (B) 4 (C) 8 (D) 6 20. 下列自左义标识符中合法的是： (A) lMy (B) class (C) forth (D) @home 11. 表达式4?3的结果为： (A) 8 (B) 4 (C) 32 (D) 16 12. 表达式“张三” Like “张的结果为： (A) 张 (B) TRUE (C) FALSE (D) 张三 13. 后缀为?vbp的文件表示VB的 (A) 类模块文件 (B) 窗体文件 (C) 标准类模块文件 (D) 工程文件 14. 下列变量名合法的是 (A) a_2 (B) a-b (C) 2xy (D) float
VB程序设计作业(二)答案
《VB程序设计》作业（二） 客观题部分： 选择题（每题1分，共15题） 1. 当VB执行下面语句后，A的值为（A ）。 A=1IF A>0 THEN A=A+1IF A>1 THEN A=0 A）0 B）1 C）2 D）3 2. 当VB执行下面语句后，输出的结果是（B ）。 Private Sub Form_Click（） score = Int(Rnd * 10) + 30Select Case scoreCase Is < 10A$ = "F"Case 10 To 19A$ = "D" Case 20 To 29A$ = "C"Case 30 To 39A$ = "B"Case ElseA$ = "A"End SelectPrint A$End Sub A）AB）B C）C D）D 3. 执行下面的程序段后，x 的值为( C )。 x=2For i=1 To 10Step 3x=x+i\2Next i A) 2 B) 4 C) 7 D) 9 4. 假定有以下循环结构： Do Until 条件循环体Loop 则正确的描述是（ D ）。 A) 如果“条件”是一个为0的常数，则一次循环体也不执行 B) 如果“条件”是一个为0的常数，则至少执行一次循环体 C) 如果“条件”是一个不为0的常数，则至少执行一次循环体 D) 不论“条件”是否为“真”，至少要执行一次循环体 5. 假定有以下程序段： For i= 1 To 3For j= 5 To 1 Step -1Print i *jNextj , i 则语句“Print i *j”的执行次数是（ C ）。 A）20B）24 C）15 D）18 6. 以下程序段的输出结果为（ D ）。 x = 2y = 8Do Until y>8x = x * yy = y +1LoopPrint x A）2B）9 C）10 D）16 7. 用下面的语句所定义的数组的元素个数是（D ）。 Dim A（-3 To 5）As Integer A）6 B）7C）8D）9 8. 阅读下面的程序段： For i=1 To 2For j=1 To IFor k=j To 2x=x+1Next kNext jNext i 执行上面的三重循环后，x的值为( C )。 A) 3 B) 4 C) 5 D) 6 9.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 3x=2For j =1 To 2x=4For k=1 To 3x=x+5Next kNext jNext i Print xEnd Sub 程序运行后，单击命令按钮，输出结果是( B )。 A) 11 B) 19 C) 57 D) 63 10. 在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click()
VB程序网上作业答案
客观题_0001 试卷总分：100 测试时间：240 单项选择题判断题 一、单项选择题（共20 道试题，共80 分。） 1. 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（）。 A. List B. Listindex C. Text D. Listcount 2. 在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置 为（）。 A. 加号（+） B. 减号（-） C. 星号（*） D. 感叹号（!） 3. 保存新建的工程时，默认的文件夹是（）。 A. My Document B. VB98 C. "\ " D. Windows 4. 要清除列表框的所有容，可用（）方法来实现。 A. RemoveTtem B. Cls C. Clear D. 以上均不可以 5. 用标准工具栏中的工具按钮不能执行的操作是（）。 A. 添加工程 B. 打印源程序 C. 运行程序 D. 打开工程 6. 改变驱动器列表框的Drive属性值，将激活（）事件。 A. Change B. Scoll C. KeyDown D. KeyUp 7. 下列语句语确的是（）。 A. a=1 b=2 c=3 B. a=l：b=2：c=3 C. a=1，b=2，c=3 D. a=1；b=2；c=3 8. 要在窗体Form1显示“myfrm”，使用的语句是（）。 A. Form. print "myfrm" B. Form.caption="myfrm"
C. Form1.print "myfrm" D. Form1.caption="myfrm" 9. 图象框Image没有的属性是（）。 A. Picture B. Appearance C. AutoRedraw D. 以上属性都没有 10. 可获得字符的ASCII码的函数是（）。 A. Val B. Fix C. Asc D. Chr 11. 计时器没有的属性是（）。 A. Interval B. Enable C. Size D. Index 12. 以下选项中，不是Visual Basic标准控件的是（）。 A. 复选框 B. 定时器 C. 窗体 D. 命令按钮 13. 下列不能打开菜单编辑器的操作是（）。 A. 按Ctrl+E B. 单击工具栏中的“菜单编辑器”按钮 C. 执行“工具”菜单中的“菜单编辑器”命令 D. 按Shift + Alt + M 14. 使文本框获得焦点的方法是（）。 A. Setfocus B. Lostfocus C. Gotfocus D. Change 15. 以下语句Print Format $(32548.5,"000,000.00") 的输出结果是（）。 A. 32548.5 B. 32,548.5 C. 032,548.50 D. 32,548.50 16. 为了使目录路径列表Dir1的容符合驱动器列表框Drive1的选择，应当（）。 A. 在Dir1_Click事件中加入Dir1.Path=Drive1.Drive B. 在Drive1_Click事件中加入Dir1.Path=Drive1.Drive C. 在Dir1_Click事件中加入Drive1.Path=.Drive.Path D. 在Dir1_Click事件中加入Drive1.Path=.Dir1.Path
VB循环语句
注：被中括号(“[”、“]”)括起来的都是可选参数！ For Each ... Next 语句： 语句格式 For Each Variant In Collection Or Array [Statement(s)] [Exit For] [Statement(s)] Next [Variant] 参数解释 Variant: 如果In后面是一个集合(Collection)，Variant可以是任何数据类型的一个变量；如果In后面是一个数组(Array)，Variant就只能是一个Variant变量。 Collection: 可以是任何一个对象集合。 Array: 可以是任何一个数组(Type数组除外)。 Statement(s): 可以是任何一句或多句语句。 Exit For: 可以强制退出循环体。 For Each ... Next 语句的作用 集合/数组里面有多少对象/多少维，For Each ... Next语句就会执行多少次Statement(s)。 Do ... Loop 语句： 语句格式 Do [{While | Until} Condition] [Statement(s)] [Exit Do] [Statement(s)] Loop [{While | Until} Condition] 参数解释 While: 如果While在Do后面，那么循环体一开始就会检查Condition的值，如果Condition的值为False，就退出循环体；否则，执行Statement(s)；如果While在Loop后面，则在执行完第一次Statement(s)时才检查Condition的值，如果Condition的值为False，就退出循环体；否则，继续循环。 Until: 如果Until在Do后面，那么循环体一开始就会检查Condition的值，如果Condition的值为True，就退出循环体；否则，执行Statement(s)；如果Until在Loop后面，则在执行完第一次Statement(s)时才检查Condition的值，如果Condition的值为True，就退出循环体；否则，继续循环。 Condition: 可以是任何一个表达式。
VB程序设计(2015大作业)
《VB程序设计》大作业 一、大作业的内容 本次大作业要求学生根据所学知识以及个人爱好，设计开发一个VB应用小程序。要能体现出： 1．《VB程序设计》各种语句的综合使用能力； 2．《VB程序设计》各种相关控件的使用能力； 3．根据具体的设计题目，设计清晰、美观界面的能力； 4．一定的综合设计能力。 二、大作业的要求 本次大作业应满足以下要求： 实用性：应用程序要有明确的应用主题，有一定的实用价值。 结构性：应用程序具有良好的程序结构。 可读性：应用程序具有较好的可读性。 全面性：应用程序应包含比较全面的功能。 友好性：合理使用VB提供的各种控件，设计友好、美观的使用界面。 三、大作业的步骤 1．根据个人兴趣、爱好，以及提交时间的要求，自己确定设计题目（可参考附件1）； 2．查找与设计题目相关的资料； 3．进行应用程序总体结构、使用功能的设计； 4．进行应用程序的界面设计和源程序代码的编写； 5．上机编辑、调试程序； 6．保存应用程序, 并生成可执行文件； 7．撰写设计报告。 四、设计报告的基本格式 设计报告的基本内容至少包括封面、正文、总结三部分。 (1）．封面(包括：题目、班级、姓名、指导教师、完成日期等信息) (2)．正文 1、课题的选材过程（设计思路）； 2、设计的将要达到的目标； 3、总体设计结构与功能； （1）总体设计结构介绍（绘制：结构流程图） （2）各功能模块运行界面的功能、算法和操作步骤； 4、设计结果分析；（运行结果展示、正确性分析） (3)．总结（感想、收获、启发、存在的问题） 五、课程大作业提交 （1）形式设计报告+ 源程序文件(含可执行文件) 其中：<1>设计报告的封面统一（附件2）； <2>源程序文件（含*.vbp；*.frm；*.exe）打包压缩成一个文件， 以学号+姓名（例如：12020741姓名）为文件名。 （2）时间2015年6月1日之前； （3）方法纸质报告及压缩文件交各班学委，按顺序排好后由学委统一上交；
电子科技大学网络教育《VB程序设计》在线作业答案
答案+我名字在线考试——正在答题 作业提交1 1. 表达式2\2 * 2/2 * 2 mod 2的结果是 (A) 0 (B) 25 (C) 5 (D) 1 2. 下列自定义标识符中非法的是： (A) Me (B) My (C) third (D) fIRst 3. 表达式“A”Like “[A-Z]”的结果为： (A) A (B) Z (C) TRUE (D) FALSE 4. 表达式x >= 20 and x<= 100，其中x=37时，结果为： (A) 100 (B) 20 (C) TRUE (D) flase 5. 逻辑表达式1>0 and Not 2<7 or 2>6的值为 (A) 0 (B) FALSE (C) 3 (D) TRUE 6. 表达式x /=2 ,其中x = 24，运算后x的取值为： (A) 12 (B) 6 (C) 48 (D) 24
7. 下列可以作为VB变量的是： (A) a(x*y) (B) 学生信息 (C) 1xyz (D) second 8. 表达式x *=2 ,其中x = 25，运算后x的取值为： (A) 50 (B) 625 (C) 25 (D) 27 9. 表达式100 mod 12 的结果为： (A) 10 (B) 4 (C) 8 (D) 6 10. 下列自定义标识符中合法的是： (A) 1My (B) class (C) forth (D) @home 11. 表达式4<< 3 的结果为： (A) 8 (B) 4 (C) 32 (D) 16 12. 表达式“张三”Like “张_*”的结果为： (A) 张 (B) TRUE (C) FALSE (D) 张三 13. 后缀为.vbp的文件表示VB的 (A) 类模块文件 (B) 窗体文件 (C) 标准类模块文件 (D) 工程文件 14. 下列变量名合法的是
VB循环语句教案设计
浙教版高一信息技术VB循环语句教学设计 省象山中学章婷红 315700 zthddsina. 一、设计思想 本节课以一个小游戏导入，引导学生在解决游戏问题的过程中去探索其背后隐藏的算法思想，一个基本的程序结构――循环结构。学会使用循环语句是编程的基本功，因此本课对提高学生的阅读程序和编写代码能力有着非常实在的意义。循环语句是三种基本语句中难度最大的一个，为了降低学习难度，提高学生的兴趣，我用烧杯和量筒来比喻循环语句中累加器和累加量，使学生快速地理解了累加器的作用，并能正确算出这类程序的运行结果。会读程序之后还要会写，挑选一个好的例子非常重要，我选择了算麦粒画棋盘这个实例，既有经典的计算问题又有直观的画图功能，学生学习积极性比较高。任务的设置由算麦粒的填写部分语句到画棋盘的完全自己编写代码，对学生的要求逐步加深。 二、教材分析 本节容选自教育《算法与程序设计》第四章第三节。 循环语句是程序三种基本语句之一，是学习程序设计的基础，同时也是后面六种算法的重要组成部分。《课程标准》和《学科教学指导意见》对本课的要：理解循环语句的作用，掌握循环语句的使用方法。要求学生能从问题出发，用循环语句编写程序，实现简单的算法。《学科教学指导意见》中三种语句的总课时建议为三课时。我考虑到循环语句是三种语句中难度最大的一个，并且要学习for 和do两种语句，后面六个算法中也基本上都要用到循环语句，所以非常重要。因此循环语句我安排了2课时，本节为第1课时，主要容为for语句，第2课时为do语句及循环综合实例。 三、学情分析 在此之前学生已经学习了算法的流程图、VB基础知识和基本操作及两种语句：赋值语句和选择语句，基本掌握了VB的编程环境。对于for语句，我的要学生先学会读程序，即计算出程序的运行结果，尤其要比较熟练地掌握累加器的作用。在此基本上还要能根据实例编写简单的循环结构的程序。对于读程序，大部分学生能模仿老师的例题分析完成计算。而根据实例编写程序，最主要的是找