Visual Basic 复习提纲.docx
《Visual Basic 复习提纲.docx》由会员分享，可在线阅读，更多相关《Visual Basic 复习提纲.docx（11页珍藏版）》请在冰豆网上搜索。
VisualBasic复习提纲
VisualBasic复习提纲：
例子：
在ＶＢ程序设计中控件的合理选用十分重要，如：
１．几十个项目中任选其中一项或多项时应选用（CJ）控件
２．定时将数据保存应选用（E）控件
３．常用作命令按钮的控件为（I）。
４．在几个方案中只能选择其中之一应选用（F）控件。
５．用于一段文字的显示、修改可用（B）。
６．用于给定区间参数设置可用（H）来形象化调节设置
A.LabelB.TextboxC.ListBoxD.ShapeE.TimerF.OptionButton
G.FrameH.HscrollBarI.CommandJ.CheckBoxK.Line
在ＶＢ程序设计中可以通过控制对象的各种事件来驱动相应的模块子程序，实现方便灵活的程序控制，如：
1．当判断按键的Ascii码是否为１３时，应选用（C）事件来驱动
2．拖动滚动条的滚动块会产生（H）事件。
3．定时器控件只响应一个事件就是（J）事件
4．当改变了文本框的内容时，会自动产生（B）事件。
5．当文本框失去焦点时会发生（E）事件。
6．打开某窗体时，初始化该窗体中各控件，应选用（F）事件来驱动
A.ClickB.ChangeC.KeypressD.KeyDownE.LostFocus
F.LoadG.MousemoveH.ScrollI.GotFocusJ.TimerK.Interval
在ＶＢ程序设计中可通过改变控件对象的各种属性来设计友善的人机界面：
１．让按钮控件不起作用可修改其（D）属性。
２．改变Text文本框单行或多行显示方式可修改（F）属性。
３．让控件隐藏起来，成为不可见控可修改其（H）属性。
４．将通用对话框类型设置为“另存为”对话框，应修改（C）属性。
５．按Tab键时，焦点在各个控件之间移动的顺序是由___N____属性来决定的。
６．改变定时器控件的定时间隔可修改（J）属性。
A.CaptionB.WidthC.ActionD.EnabledE.HeightF.MultiLineG.TopH.VisibleI.MaxJ.IntervalK.MinL.IndexM.TabN.TabindexO.TabStop
在ＶＢ程序设计中可以通过运用对象的不同方法来实现各种操作，如：
1．将通用对话框以“打开文件对话框”方式打开，可用（J）方法
2．清除列表框中全部内容，可用（A）方法来实现
3．清除由Print方法在窗体或图片框中显示的文本，可用（E）方法来实现
4．用来显示一个新窗体，可用（B）方法。
5．将指定的文本放到剪贴板Clipboard上，可用（C）方法。
6．移动对象在窗体中的位置可用（K）方法。
A.ClearB.ShowC.SetTextD.PrintE.ClsF.PopupMenu
G.ShowH.HideI.showfontJ.ShowopenK.Move
控件名称
属性
事件
方法
窗体
Caption、Width、height、top、Left、backcolor、forecolor、drawwidth、fontname、Fontsize、FontBold、FontItalic、Fontundline、Fontstrikethru、Visible、Enable
Load、click
Print、cls、show、hide、unload、move
文本框
Text、Maxlength、Locked、Multiline、Passwordchar、Scrollbars、Tabstop、Tabindex
Change、keypress
setfocus
标签框
Alignment、Autosize、Bordstyle、Wordwrap
Change
命令按钮
Visible、Enable、Default、Cancel
复选框
Value
click
单选按钮
Value
click
框架
通用对话框
action
Showopen、showsave、
Showcolor、showfont、
Showprinter、showhelp
图片框
picture
图像框
picture
计时器
interval
timer
列表框
P136
Additemremovitem
组合框
与列表框类似
Additemremovitem
驱动器列表框
drive
目录列表框
Path
文件列表框
Pathpattern
图形控件
Psetcircle
1、Print的格式：
[<对象名>.]print[<输出项>][，|；][<输出项>]…
省略输出项则输出一空行，没14列为一段，“；”为紧凑格式
与print方法有关的函数：
（1）Tab（n）：
从第n列开始输出
（2）Space（n）：
输出n个空格
例如：
语句Form1.printTab（10）;”#”的作用是在窗体当前输出行（A）
A、第10列输出字符”#”B、第9输出字符”#”
C、第11输出字符”#”D、输出10个字符”#”
2、move方法的一般格式：
见p87
3、获得焦点的方法：
（1）已知某窗体中有两个文本框（名称分别为txt1和txt2），现在要求在txt1中输入完毕后按回车键就能使焦点（当前光标）跳到txt2，而不用Tab键进行切换。
请补充下面txt1和KeyDown（按键）事件过程中的程序代码的空缺。
IfKeyDown=13Then
txt2._setfocus_______
EndIf
4、如何保证文本框输入数据的正确性：
5、命令按钮：
（1）若命令按钮cmdOK初始时是灰色，表示用户当前不能使用。
在应用程序运用时，为使该命令按钮变成可用的，应使用什么语句？
cmdOK.Enabled=True
（2）若主窗口内有一个按钮“打开”，单击该按钮就会打开另一窗体frmD，请写出该命令的单击事件过程中的程序代码。
Frmd.show
（3）设一个名称为fraInput的框架（Frame）控件包含了两个文本框（名称分别为txt1和txt2），请写出使fraInput的两个子控件和txt1和txt2不可见的程序代码。
Txt1.Visible=false
Txt2.visible=false
6、复选框（CheckBox）的状态有哪些？
7、设置通用对话框的类型时有哪两种方法？
Action
Show
8、图片框和图像框的不同之处
9、基本语法
输入输出
分支结构
循环结构
数组
过程和函数
10、在列表框（组合框）添加或删除项目
11、在窗体或图片框中画点、线、圆（椭圆）等（常用的颜色函数）
12、消息框（inputbox和msgbox）的格式
例如：
通过输入对话框窗口输入一个数值，窗口标题为“输入窗“，窗口在左上角位置为当前窗体的宽度和高度的１／３处，默认值为１００，提示信息为“输入Ｘ＝“，用InputBox函数的正确格式写出输入语句，输入值放入变量Ｘ中。
13、鼠标事件p79
14、改变坐标系的方法
SCALE
CurrentXCurrentY
15、每次上机作业的选择题
程序题：
1、【程序说明】以下是一个简化了的猜数游戏，自动生成一个小于100的随机整数与您用输入对话框输入的数进行对比，猜中后输出相关信息，过程结束，最多只能猜十次，十次都没猜中，用消息框输出“太遗憾了!
”，单击窗体则开始猜数，如要终止可按Ctrl+Break组合键，其中r为随机数，x为输入的整数。
PrivateSubForm_Click（）
Dimr,x,iAsInteger
R=int（rndⅹ100）
Fori=1To10
x=inputbox（“请输入一个整数”
Ifx"）
Ifx>rThenMsgBox（"太大了，请继续猜！
"）
Ifx=rThen
Print"猜中了！
共猜了"+str（i）+"次"
Ifi<=5Then
Print"太棒了！
"
Else
Print"加油！
"
exitfor
EndIf
Nexti
ifi>10thenmsgbox“太遗憾了”
EndSub
2、【程序说明】利用一个定时器、一个标签和2个命令按钮制作一个动态秒表，各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。
运行时单击“开始”按钮后秒表开始计时，并在标签上显示总秒数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间（折算成小时、分钟和秒数）。
DimnAsInteger
PrivateSubCommand1_Click（）
Dimhh,mm,ssAsInteger
IfCommand1.Caption="计时开始"Then
Timer1.Enabled=True
n=0
Command1.Caption="停止"
Else
Timer1.Enabled=False
hh=n\3600
mm=（n-hh*3600）\60
ss=nMod60
MsgBox"一共运行了"&hh&"小时"&mm&"分"&ss&"秒！
"
Command1.Caption="计时开始"
Label1.Caption="0"
EndIf
EndSub
PrivateSubTimer1_Timer（）
n=n+1
Label1.Caption=CStr（n）
EndSub
3、【程序说明】利用一个定时器控件来实现文字的水平移动，要求运行时标签内的文字从窗体左边向右边移动，每次Left属性增加100缇（Twip），当标签框的左边界超出窗体的右边界时，从窗体的左边进入窗体（尾部先进入）。
PrivateSubForm_Load（）
Timer1.Inerval=100
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer（）
IfLabel1.Left>=Form1.WidthThen
Label1.Left=-Label1.Width
Else
Label1.Left=-Label1.Left+100
EndIf
EndSub
4、从键盘输入一个正整数，然后把该数的每位数字按逆序输出。
例如：
输入7685，则输出5867；输入1000，则输出0001。
5、【程序说明】窗体上有两个按钮：
Command1（显示）和Command2（退出）。
下列程序运行时，“显示”按钮能响应，“退出”按钮不能响应；单击显示按钮后，在窗体上显示一个用字符“*”组成的5层金字塔，同时显示按钮不能响应，“退出”按钮能响应。
PrivateSubCommand1_Click（）
DimI,jasinteger
Fori=1To5
Printspc（5-i）;
Forj=1to2*i-1
Print“*”;
Nextj
Print
Nexti
Command1.Enabled=False
Command2.Enabled=True_
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
Command1.Enabled=True
Command2.Enabled=False
EndSub
6、【程序说明】单击窗体后在窗体上输出前20个斐波那契数（5个一行）
PrivateSubFrm_click（）
Dimf（20）asinteger
F
（1）=1
F
（2）=1
Fori=3to20
F（i）=f（i-2）＋f（i-1）
Nexti
Fori=1to20
Ifimod5=0thenprint
Printf（i）;
Nexti
EndSub
7、【程序说明】单击窗体后在窗体上输出两个正整数M、N的最大公约数
PrivateSubForm_Click（）
Dimm，n，rasinteger
M=inputbox（“请输入m的值：
”）
N=inputbox（“请输入n的值：
”）
Printm；“和”；n；“的最大公约数是：
”
R=mmodn
DountilR=0
M=n：
n=r：
r=mmodn
Loop
Printn
EndSub
8、【程序说明】单击窗体后在窗体上输出杨辉三角
PrivateSubCommand1_Click（）
DimnAsInteger
n=InputBox（"请输入杨辉三角的层数：
"）
ReDima（n,n）AsInteger
Fori=0Ton
a（i,0）=1
a（i,i）=1
Nexti
Fori=2Ton
Forj=1Ton
a（i,j）=a（i-1,j-1）+a（i-1,j）
Nextj
Nexti
Cls
Fori=0Ton
Forj=0Toi
Printa（i,j）;
Nextj
Print
Nexti
EndSub
9、【程序说明】在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。
程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4。
PrivateSubCommand1_Click（）
Fori=0To3
IfOption1（i）.Value=Truethen
opt=Option1（i）.Caption
EndIf
Nexti
SelectCaseopt
Case”+”
Result=Val（Text1.Text）+Val（Text2.Text）
Case”-”
Result=Val（Text1.Text）-Val（Text2.Text）
Case”*”
Result=Val（Text.Text）*Val（Text2.Text）
Case”/”
Result=Val（Text1.Text）/Val（Text2.Text）
EndSelect
Label4.Caption=Result
EndSub
10、【程序说明】假定建立了一个工程，该工程包括两个窗体，其名称（Name属性）分别为Form1和Form2，启动窗体为Form1。
在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2。
PrivateSubCommand1_Click（）
Form1.Hide
Form2.Show
EndSub
11、设计一个程序，运行程序时，要求用户在文本框中输入大写英文字母。
如用户输入大写英文字母，窗体上显示“输入正确！
”；如输入小写字符，则窗体上显示“输入错误，请输入大写字母！
”
12、设计一程序，显示当前日期、时间，以及是上午还是下午。
（用标签框显示时间日期）
13、设计一程序，运行程序时，要求用户在文本框中只能输入数字
PrivateSubtext1_keypress（keyasciiasinteger）
Ifkeyascii>57orkeyascii<48then
keyAscii=0
endif
EndSub
PrivateSubtext1_keypress（keyasciiasinteger）
Selectcasekeyascii
Case48to57,8
Caseelse
Keyascii=0
Endselect
14、在窗体中按每行10个输出所有能同时被3和4整除的3位数，并显示出满足此条件的3位数的个数。
程序运行界面如下图所示
15、电子石英钟的设计
16、所有的水仙花数
升级会员 