VB基本控件.docVIP

VB基本控件 教学目的： 熟悉VB中基本控件的属性及事件。 掌握VB中常用控件的特点及使用方法。 教学重点： VB中控件基本概念的理解。 VB中基本控件的属性设置及事件编程。 课时安排： 理论教学安排16课时，上机练习16课时 VB基本控件（一） 一、 窗体 属性:…… 事件:…… Load()-----载入的窗体不在屏幕上显示.如果显示,必须调用show方法. unload() click() dblclick() keypress(keyascii as integer)----按键事件. 例如: Private Sub Form_KeyPress(KeyAscii As Integer) print keyascii; End Sub 窗体方法: Print,cls 练习:VB函数例2.1改进 Private Sub Command1_Click() Dim x As Integer, a As Integer Dim b As Integer, c As Integer x = Val(Text1.Text) a = Int(x / 10) b = x Mod 10 c = b * 10 + a Text2.Text = c End Sub 作业: 1试写出输入一个三位数,交换三位数的程序代码. 例如.输入”123”,则输出”321” 2 写出产生随机三位整数的随机数公式. 3 写出利用int函数进行四舍五入取整的公式.你能利用它实现精确到小数点后两位的方法吗? P36例2.2 随机函数rnd及取整函数int的应用. Rnd----用来产生0到1之间的随机数. Private Sub Form_Click() Dim x As Single Randomize x = Rnd Print x End Sub 产生其它范围的随机数.通过对rnd进行变化来实现. Rnd*100-----用来产生(0,100)之间的随机数. Int(rnd*100)-----用来产生(0,100)之间的随机整数. 产生[a,b]随机整数,使用: Int((b-a+1)*rnd+a) 例2.2 Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Randomize a = Int(90 * Rnd + 10) b = Int(90 * Rnd + 10) c = a + b Print 产生的两个随机数为; a, b Print 和为; c End Sub 改进程序: 在窗体上加上标签label1.加上按钮command1,按钮的标题为”产生随机数”.单击按钮时,在标签显示所产生的三位随机数. Dim a As Integer Randomize a=Int(900* Rnd + 100) label1.caption=a ‘将a保存到标签中 P45上机练习3: 练习命令按钮的属性 Visible-----设置按钮是否可见.true(可见),flase(不可见) 改进程序: 在窗体中加入c1,c2两个按钮.初始设置c1可见,c2不可见. 单击c1时,c2可见同时c1消失; 单击c2时,c1可见同时c2消失. Private Sub C1_Click() C2.Visible = True C1.Visible = False End Sub Private Sub C2_Click() C1.Visible = True C2.Visible = False End Sub Private Sub Form_Load() C1.Visible = True C2.Visible = False End Sub P46上机练习4: 窗体的windowstate属性. 取值三个: Form1.windowstate=0------正常 Form1.windowstate=1-----最小化 Form1.windowstate= 2-----最大化 按钮属性练习: Private Sub Form_Click() Command1.FontSize = 16 Command1.FontItalic = True Command1.Caption = 确定 Command1.Enabled = False Command2.FontSize = 14 Command2.Caption = 取消 End Sub 学习总结: 1数学函数的使用. 掌握int()及rnd()两个函数的应用. 2窗体对象的属性\方法\事件 事件: Keypress事件-----是一个带有参数keysacii的事件. 属性: Picture-------