VB实践复习电子讲稿

Private Sub Command1_Click() Dim r As Single, k As Single, s As Single r = Val(InputBox("请输入圆的半径", "计算圆的周长和面积")) k = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = k Text2.Text = s MsgBox "计算已完成", , "例3.10" End Sub Private Sub Command2_Click() End End Sub
(2)创建应用程序的用户界面
(3)设置对象属性
(4)编写程序代码
功能要求：用户在“输入年份”文本框(Text1)中输入某 一年份，单击“查看”按钮时，则在“星期”文本框(Text2) 中显示出星期几
编写的“查看”按钮(Command1)Click事件过程代 码如下：
Private Sub Command1_Click() Dim y As Integer, f As Integer, k As Intege y = Val(Text1.Text) -1 f = y + Int(y/4) – Int(y/100) + Int(y/400) + 1 k = f Mod 7 „等价于 f - Int(f / 7) * 7 吗 ? Text2.Text = k End Sub
运行结果（见上图）
'置空值 '表项个数
End Sub Private Sub Command1_Click() If Len(Combo1.Text) > 0 Then Combo1.AddItem Combo1.Text Text1.Text = Combo1.ListCount End If Combo1.Text = "" Combo1.SetFocus End Sub
图1.5 代码窗口
标题 对象框 过程框
图1.7 程序代码
3. 保存工程
保存窗体文件(.frm)和工程文件(.vbp)
4. 运行程序
执行“启动”命令，即用解释方式运行程序 执行“结束”命令，即可结束程序的运行 窗体显示情况
例3.8
从输入框中输入圆的半径，计算圆的周长和面积
(1)创建应用程序的用户界面和设置对象属性 (2)编写程序代码
'“计算”按钮
End Sub
Dim a As Single, b As Single, t As Single, s As String a = Val(Text1.Text) b = Val(Text2.Text) Select Case True Private Sub Form_Load() Case Option1.Value ' + 运算 s = "+" Option1.Value = True + 运算 t=a+b End Sub Case Option2.Value ' - 运算 s = "-" t=a-b Private Sub Command2_Click() Case Option3.Value ' * 运算 Text1.Text = "" s = "*" Text2.Text = "" t=a*b Text3.Text = "" Case Option4.Value ' / 运算 End Sub s = "/" t=a/b Private Sub Command3_Click() End Select Unload Me Text3.Text = a & s & b & "=" & t End Sub
1.3.2 第一个简单程序
例1.1 在运行中当用鼠标单击窗体时，窗体上 显示出“欢迎您来到VB世界! ” 设计步骤如下：
1. 创建窗体
在系统默认提供的窗体上输出若干文字，不必专门设计 用户界面。
2. 编写程序代码，建立事件过程
代码窗口：进入；选择了对象和事件；编写程序代码 事件过程名，由两部分组成：对象名和事件名
Private Sub Check4_Click() If Check4.Value = 1 Then '判复选框4是否选中 Text1.ForeColor = RGB(255, 0, 0) Else Text1.ForeColor = RGB(0, 0, 0) End If End Sub
在运行中，可以任意设定这四个复选框的状态，可以四 项都不选，也可以选择其中一项至四项
例4.13
输入两个运算数和运算符(+、-、*或/)，组 成算式并计算结果，然后显示出来
(1)创建应用程序的用户界面和设置对象属性 单选按钮组Option1、Option2、Option3及Option4分别代 表+、-、*(乘)和/(除)运算
(2)编写程序代码
Private Sub Command1_Click()
例5.14 设计一个选课程序
(1)创建应用程序的用户界面和设置对象属性
用户先在左列表框(List1)选择一个或多个选修课，当单击 “显示”按钮时，在右列表框(List2)中将显示出用户选中的所 有课程。单击“清除”按钮时，将清除右列表框中的内容
(2)编写程序代码
Private Sub Form_Load() List1.AddItem "电子商务" List1.AddItem "网页制作" List1.AddItem "Internet简明教程" List1.AddItem "计算机网络基础" List1.AddItem "多媒体技术“ End Sub Private Sub Command1_Click() List2.Clear For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then
组合框的Style属性为0，TabIndex(键序)为0 两个标签；四个命令按钮； 一个文本框Text1，用来显示ub Form_Load()
Combo1.AddItem "电子商务" Combo1.AddItem "网页制作" Combo1.AddItem "Internet简明教程" Combo1.AddItem "计算机网络基础" Combo1.AddItem "多媒体技术" Combo1.Text = "" Text1.Text = Combo1.ListCount
„“删除”
'-1表示无表项 '删除已选定的表项
„“全清”
例3.3
某
设计一个“万年历”程序，用来查看
年的元旦是星期几
设计步骤如下： (1)分析：计算某年y的元旦是星期几，可由以下式子得出：
F = y-1 +［(y-1)/4］-［(y-1)/100］+［(y-1)/400］+ 1 其中［ ］表示求整 K = F Mod 7 F除以7的余数 y为某年公元年号，计算出K为星期几
List2.AddItem List1.List(i)
'"显示"按钮单击事件 '清除列表框的内容 '逐项判断 '真时为选定
End If Next i End Sub Private Sub Command2_Click() List2.Clear End Sub
'"清除"按钮单击事件
例5.15 编制程序，把一批课程名放入组合框中，再对组 合框进行项目显示、添加、删除、全部删除等操作 (1)创建应用程序的用户界面 (2)设置对象属性
Private Sub Check1_Click() If Check1.Value = 1 Then '判复选框1是否选中 Text1.FontName = "楷体_GB2312" Else Text1.FontName = "宋体" End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then '判复选框2是否选中 Text1.FontItalic = -1 Else Text1.FontItalic = 0 End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then '判复选框3是否选中 Text1.FontSize = 25 Else Text1.FontSize = 9 End If End Sub
'”添加”
Private Sub Command2_Click() Dim ind As Integer ind = Combo1.ListIndex If ind <> -1 Then Combo1.RemoveItem ind Text1.Text = Combo1.ListCount End If End Sub Private Sub Command3_Click() Combo1.Clear Text1.Text = Combo1.ListCount End Sub Private Sub Command4_Click() End End Sub
当输入的圆半径为65时，运行结果
例4.9 用复选框来控制文字的字体、字型、字号及颜色
(1)创建应用程序的用户界面和设置对象属性
多行文本框(带垂直滚动条)和四个复选框
(2)编写程序代码
功能要求：程序开始运行后，用户在文本框中输入一 段文字(如“复选框应用示例”)，然后按需要单击各复选框， 则文字的字体、字型、字号及颜色随之改变