计算机二级VB__第3章VB程序设计基础.ppt

VisualBasic程序设计基础上机安排第三章VisualBasic程序设计基础顺序结构3.1VisualBasic基本语句3.1VisualBasic基本语句3.1.2赋值语句3.1VisualBasic基本语句3.1.3注释语句在VB解释环境下，STOP在程序
代码中设置断点(相当于中断）
暂停程序的执行。3.1.5结束语句(End语句)实例第三章VisualBasic程序设计基础3.2窗体常见属性常见属性Enabled、Visible属性
Enabled属性用来设置一个对象是否激活。
Visible属性用来设置一个对象是否可见。
说明：
默认情况下，对象的Enabled和Visible属性值均为True，表示该对象既可见，又处于激活状态常见属性常见属性窗体的常见方法窗体的常见方法Move方法
用来移动对象，同时可改变其大小。如果一个对象支持Left、Top、Width和Height属性，则它也支持Move方法。
[对象.]Moveleft[,top,width,Height]实例窗体的常见事件窗体的常见事件Change事件
Change事件是一旦控件的内容改变，就自动触发该事件。例如在文本框中键入内容时，就触发Change事件几个常见控件常用控件——命令按钮(CommandButton)常用控件——标签(Label)常用控件——文本框（TextBox）常用控件——文本框（TextBox）常用控件——计时器控件PrivateSubForm_Load()
Text1.Text="计时器"
Command2.Enabled=False
Timer1.Interval=100
EndSub

PrivateSubTimer1_Timer()
Label1.Caption=Time
EndSub
PrivateSubCommand1_Click()
Text1.Text="计时开始"
Form1.Tag=Timer
Command1.Enabled=False
Command2.Enabled=True
EndSub

PrivateSubCommand2_Click()
Text1.Text=CInt(10*(Timer-Form1.Tag))/10&"秒"
Command1.Enabled=True
Command2.Enabled=False
EndSub
实例Print方法例
PrivateSubForm_Click()
DimintA1AsInteger,intA2AsInteger,intTemp%
intA1=5:intA2=10
‘使用分号分隔三个表达式
Form1.Print"交换";intA1;intA2
intTemp=intA1:intA1=intA2:intA2=intTemp
Form1.Print"得";intA1;intA2
EndSub用“;”隔开数据项，打印时以紧凑格式输出用“,”隔开，以标准格式输出（分区输出格式），以14个字符宽度划分为一个区段。练习题与Print方法有关的函数与Print方法有关的函数Form1.Print"**********"
Form1.PrintTab(2);"*";Spc(8);"*"
Form1.PrintTab(3);"*";Spc(8);"*"
Form1.PrintTab(4);"*";Spc(8);"*"
Form1.PrintTab(5);"*";Spc(8);"*"
Form1.PrintTab(6);"*";Spc(8);"*"
Form1.PrintTab(7);"**********"Format函数Format函数Format函数Format函数InputBox函数在程序设计中我们除了能正确的把软件的功能给实现（软件的可用性）外，还有一个重要的因素需要考虑：程序的健壮性。InputBox函数MsgBox()函数与MsgBox过程MsgBox"欢迎光临！",vbOKOnly+vbInformation,"欢迎"MsgBox“网络连接出现问题，是否重试？",274,"警告"MsgBox()函数与MsgBox过程MsgBox函数MsgBox函数下面给程序添加代码，避免用户的输入超过范围的数据。
‘添加在计算周长和面积之前

IfR>10Then
MsgBox"请输入小于等于10的半径值",48,"出错"
ExitSub
EndIf以下关于MsgBox的叙述中，错误的是()A)MsgBox函数返回一个整数。B)通过MsgBox函数可以设置信息框中图标和按钮的类型。C)MsgBox语句没有返回值。D)MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量。PrivateSubCommand1_Click()a$=“s