DOC《一、案例背景信息》

1、? 在地址栏输入"ftp:\\10.16.6.161",登录到服务器

2、? 选择"文件"????? "登录",打开ftp登录对话框.

3、? 输入: 用户名:g07XX??? (XX代表班级,??代表座号.如10班的5号同学,用户名为:g061005) ???? 密码:fjsdfz

4、? 在桌面上,新建一个文件夹,命名为:班级座号vb2,今天的作业就保存到这个文件夹里.

5、将做好的作业夹提交到个人空间上. 教学内容: ?????? 范例一:"时间转化程序"的制作 操作步骤如下: 1.启动Microsoft Visual Basic 6.0中文版. 2.在"新建工程"窗口中选择"标准EXE"选项,单击"打开"按钮. 3.进入VB6.0开发环境.创建工程后,VB会在工程中创建一个默认的窗体Form1. 4.设计窗体Form1如下图,相关属性如表2-1. ? 对象属性属性值 Form1Caption时间转换程序 Label1Caption请输入一个时间(秒): Text1Text(空) Label2Caption结果时分秒: Text2Text(空) Command1Caption确定 Command2Caption退出 (表2-1) 5.算法分析: 由于文本框在运行时,本身就可以接受输入.所以用户一般是在输入了一个时间(秒)后,单击"确定"按钮,后计算出结果并在text2文本框中显示结果.因此"确定"按钮的算法如下: (1)?????? 将text1文本框中的输入的时间,转化成数值存入t变量 (2)?????? 求出t整除3600的值,并存入变量hours (3)?????? 求出t整除3600的余数,并存入变量a (4)?????? 求出a整除60的值,并存入变量minutes (5)?????? 求出a整除60的余数,并存入变量seconds (6)?????? 在text2的text属性中输出hours,minutes,seconds ? 7.编写代码. Private Sub Command1_Click() '确定按钮 Dim t As Long, a As Integer, x As Integer, y As Integer, z As Integer ? 输入数据* t = Val(Text1.Text) ? 计算* x = t \

3600 a = t Mod

3600 y = a \

60 z = a Mod

60 ? 输出* Text2.Text = x & "小时" & y & "分钟" & z & "秒" ? ? ? End Sub ? Private Sub Command2_Click() '退出按钮 End End Sub 8. 然后调试运行程序,在工具栏上单击"运行"按钮或选择菜单"运行"?? "启动" 执行程序. 9.单击工具栏上的"保存"按钮,弹出"文件另存为"对话框,文件按默认值Form1.frm保存在time文字夹下. 10.在弹出的"工程另存为"对话框中,工程按默认值工程1.vbp保存在time文字夹下. 11. 单击菜单栏上的"文件"????? "生成工程1.exe",设置路径和文件名后,点击"确定",生成可执行文件. ?????? 范例二:"点餐程序"程序制作 操作步骤如下: 1.启动Microsoft Visual Basic 6.0中文版. 2.在"新建工程"窗口中选择"标准EXE"选项,单击"打开"按钮. 3.进入VB6.0开发环境.创建工程后,VB会在工程中创建一个默认的窗体Form1. 4.设计窗体Form1如下图,相关属性如表2-2. ? 对象属性属性值 Form1Caption麦香鸡点餐程序 Command1 ?Style1-graphical Caption picture汉堡.jpg Command2 ?Style1-graphical Caption picture薯条.jpg Command3 ?Style1-graphical Caption picture可乐.jpg Label1Caption巨无霸 Text1Text(空) Label2Caption薯条 Text2Text(空) Label3Caption大可乐 Text3Text(空) Label4caption欢迎光临,麦香鸡附中餐厅!本餐厅为了方便广大同学,推出午餐简约礼包!只卖巨无霸(12元)、薯条(5元)与可乐(3元). Labe15caption(空) Command4Caption确定 Command5Caption取消 (表2-2) 5. 编写代码. ? Private Sub Command1_Click() hamburger = hamburger +

1 Text1.Text = hamburger End Sub ? Private Sub Command2_Click() chips = chips +

1 Text2.Text = chips End Sub ? Private Sub Command3_Click() kola = kola +