从0开始学习VB(逢考必过).ppt

Dim Rain 第三章 顺序结构程序设计 本章主要内容 3.1 VB语法和注释 3.2 语句和函数 3.3 使用基本控件 3.4 使用定时器控件 3.5 调试VB程序 编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim x As Integer, a As Integer Dim b As Integer, c As Integer x = 36 a = Int(x / 10) 求十位数 b = x Mod 10 求个位数 c = b * 10 + a 生成新的数 Print 处理后的数: ; c End Sub 运行程序后单击窗体，输出结果是： 编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Randomize 初始化随机数生成器 a = Int(90 * Rnd + 10) 产生[10,99]区间内的随机整数 b = Int(90 * Rnd + 10) c = a + b 求两数之和 Print 产生的两个随机数: ; a, b Print 和数: ; c End Sub 运行程序后单击窗体，输出结果是： 产生的两个随机数：56 71 和数：127 (1)在窗体上建立1个标签（Label1）和3个命令按钮(Command1、Command2和Command3) 三个命令按钮分别用访问键Alt+C、Alt+H和Alt+D (2)编写程序代码 Private Sub Form_Load() Randomize Label1.BackColor = QBColor(15) 背景色 Label1.ForeColor = QBColor(0) 文字颜色 Label1.FontSize = 18 字体大小 End Sub Private Sub Command1_Click() “改变文字颜色”按钮 Clr = Int(15 * Rnd) 产生随机颜色码 Label1.ForeColor = QBColor(Clr) End Sub Private Sub Command2_Click() “隐藏标签”按钮 Label1.Visible = False 隐藏标签 End Sub Private Sub Command3_Click() “显示标签”按钮 Label1.Visible = True 显示标签 End Sub 使用一个临时单元变量(t) (1) 建立两个标签、两个文本框和一个命令按钮 (2)编写程序代码 Private Sub Command1_Click() ′“交换”按钮 t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End Sub 在第一个文本框中输入文字时