《从0开始学习vb(逢考必过)》由会员分享，可在线阅读，更多相关《从0开始学习vb(逢考必过)（16页珍藏版）》请在金锄头文库上搜索。
1、2018年9月19日,Dim Rain,1,第三章 顺序结构程序设计,本章主要内容3.1 VB语法和注释3.2 语句和函数3.3 使用基本控件3.4 使用定时器控件3.5 调试VB程序,2018年9月19日,Dim Rain,2,例3.1 使用转换函数的示例(留给学生分析) Private Sub Form_Click() x = “123“ y = 123 a = Chr(Asc(x) + 5) b = Str(Val(x) + 5) c = Val(Str(y) + “5”) Print a,b, c End Sub 运行程序后单击窗体，输出结果如下：,6 128 1235,2018年9月
2、19日,Dim Rain,3,编写的窗体单击事件过程代码如下：Private Sub Form_Click()Dim x As Integer, a As IntegerDim b As Integer, c As Integerx = 36a = Int(x / 10) 求十位数b = x Mod 10 求个位数c = b * 10 + a 生成新的数Print “处理后的数: “; cEnd Sub 运行程序后单击窗体，输出结果是：,例3.2 给定一个两位正整数(如36)，要求交换个位数和十位数的位置，把处理后的数显示在窗体上,处理后的数：63,2018年9月19日,Dim Rain,4,
3、编写的窗体单击事件过程代码如下：Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerRandomize 初始化随机数生成器a = Int(90 * Rnd + 10) 产生10,99区间内的随机整数b = Int(90 * Rnd + 10)c = a + b 求两数之和Print “产生的两个随机数: “; a, bPrint “和数: “; cEnd Sub 运行程序后单击窗体，输出结果是： 产生的两个随机数：56 71 和数：127,例3.3 通过随机函数产生2个两位正整数，求这2个数之和并显示,再次运行
4、程序，单击窗体后输出另一组结果是： 产生的两个随机数：18 37和数：55,2018年9月19日,Dim Rain,5,(1)在窗体上建立1个标签（Label1）和3个命令按钮(Command1、Command2和Command3)三个命令按钮分别用访问键Alt+C、Alt+H和Alt+D (2)编写程序代码 Private Sub Form_Load()RandomizeLabel1.BackColor = QBColor(15) 背景色Label1.ForeColor = QBColor(0) 文字颜色Label1.FontSize = 18 字体大小End Sub,例3.4 实现标签的显
5、示和隐藏，以及改变文字的颜色,2018年9月19日,Dim Rain,6,Private Sub Command1_Click() “改变文字颜色”按钮Clr = Int(15 * Rnd) 产生随机颜色码Label1.ForeColor = QBColor(Clr) End SubPrivate Sub Command2_Click() “隐藏标签”按钮Label1.Visible = False 隐藏标签End SubPrivate Sub Command3_Click() “显示标签”按钮Label1.Visible = True 显示标签End Sub,2018年9月19日,Dim R
6、ain,7,使用一个临时单元变量(t) (1) 建立两个标签、两个文本框和一个命令按钮(2)编写程序代码Private Sub Command1_Click() “交换”按钮t = Text1.TextText1.Text = Text2.TextText2.Text = tEnd Sub,例3.5 交换显示两个文本框的内容,2018年9月19日,Dim Rain,8,在第一个文本框中输入文字时，在另外两个文本框中显示同样相同的内容，但显示的字号和字体不同。单击“清除”按钮时则清除三个文本框中的内容,例3.6 在三个文本框中显示不同的文字效果,(1)建立应用程序的用户界面和设置对象属性,201
7、8年9月19日,Dim Rain,9,(2)编写程序代码 Private Sub Form_Load()Text2.FontName = “隶书“Text2.FontSize = 16Text3.FontName = “楷体_GB2312“Text3.FontSize = 20End SubPrivate Sub Text1_Change()Text2.Text = Text1.TextText3.Text = Text1.TextEnd SubPrivate Sub Command1_Click() “清除”按钮Text1.Text = “” 清除文本框Text1的内容Text2.Text
8、= “ 清除文本框Text2的内容Text3.Text = “ 清除文本框Text3的内容Text1.SetFocus 设置焦点End Sub,2018年9月19日,Dim Rain,10,如输入4852秒，则应输出1小时20分52秒(1)创建应用程序的用户界面和设置对象属性(2)编写程序代码Private Sub Command1_Click()Dim h As Integer, m As Integer, s As Integer, t As Integert = Val(Text1.Text)h = t 3600t = t - h * 3600m = t 60s = t - m * 60
9、Text2.Text = hText3.Text = m Text4.Text = sEnd Sub,例3.7 输入一个总秒数，化成小时、分钟和秒数,Private Sub Command2_Click()End End Sub,2018年9月19日,Dim Rain,11,(1)创建应用程序的用户界面和设置对象属性一个定时器控件和一个文本框Timer1的Interval属性值设定为1000(1秒)(2)编写程序代码Private Sub Timer1_Timer() timer事件过程Text1.Text = Time Time是时间函数 End Sub,例3.8 建立一个电子时钟,2018
10、年9月19日,Dim Rain,12,先由用户给定倒计时的初始分秒数，然后开始倒计时，当计到0分0秒时，通过消息对话框显示“倒计时结束”(1)在窗体上建立一个计时器(Timer1)、两个标签、两个文本框(Text1和Text2)和一个命令按钮(Command1)计时器的Enabled属性值为True, Interval属性值为0,例3.9 电子倒计时器,2018年9月19日,Dim Rain,13,(2)编写程序代码Dim m As Integer, s As Integer 声明模块级变量Private Sub Form_Load()Timer1.Interval = 1000 设置每1秒触
11、发1次Timer事件Timer1.Enabled = False 关闭计时器End SubPrivate Sub Command1_Click() “倒计时”m = Val(Text1.Text)s = Val(Text2.Text)Timer1.Enabled = True 打开计时器End Sub,2018年9月19日,Dim Rain,14,Private Sub Timer1_Timer()If s 0 Thens = s - 1ElseIf m 0 Thenm = m - 1s = 59End IfEnd IfText1.Text = Format(m, “00“)Text2.Tex
12、t = Format(s, “00“)If s = 0 And m = 0 ThenBeep 响铃，即让喇叭发一声响MsgBox “计时结束“Unload MeEnd If End Sub,2018年9月19日,Dim Rain,15,在窗体上设置3个命令按钮(图)，程序进入运行状态后，当单击“窗体变大”命令按钮时，窗体变大，单击“窗体变小”按钮时，窗体变小。单击“退出”按钮时，则退出。 (1)建立应用程序的用户界面和设置对象属性,例3.10 控制窗体“变大”和“变小”,2018年9月19日,Dim Rain,16,(2)编写程序代码Private Sub Form_Load()Form1.H
13、eight = 4000Form1.Width = 4000Form1.Top = 1000Form1.Left = 1000End SubPrivate Sub Command1_Click() “窗体变大”按钮Form1.Height = Form1.Height + 200 每次增加200点Form1.Width = Form1.Width + 200End SubPrivate Sub Command2_Click() “窗体变小”按钮Form1.Height = Form1.Height - 200 每次减少200点Form1.Width = Form1.Width - 200End Sub,
