您现在的位置: 首页->正文内容

可视化程序的编写

作者:zll   时间:  2010-04-15 08:12:43   浏览:  2159次

课题:可视化程序的编写       
教学目的:
1 掌握可视化编程的一般步骤
2 能正确运用相应的对象及修改属性
3 能够编写简单的可视化程序
教学重点:
1        2 3
教学难点:
自己进行简单的可视化程序编写
教学过程:
【复习:】
实践指导书上10页6个选择题
【新课】
例题:请新建一个工程,让计算机自动计算输入的两个数之和。实践指导书P9页
教师分析:
第一步:设计程序界面
1 在窗体画出所用的对象,如下图所示
用来显示提示语句及结果的用标签
因此用了四个标签,名称默认为label1 label2 label3 label4
用来输入加数的用文本框
因此用了两个文本框,名称默认为text1 text2
用来单击的使用按钮
因此用了两个按钮,名称默认为command1 command2
 
2         修改相应对象的属性
 
对象
属性
设置值
Form1
caption
加法程序
Label1
caption
请输入加数:
Label2
caption
请输入另一个加数
Label3
caption
计算结果
Label4
caption
 
Label4
Backcolor
浅灰
Text1
Text
 
Text2
text
 
Command1
caption
显示结果
Command2
caption
退出
第二步:编写程序代码:
“显示结果”按钮的程序代码如下:
Private Sub Command1_Click()
Dim a As Integer                   定义变量a用来放一个加数
Dim b As Integer                   定义变量b用来放另一个加数
Dim c As Integer                   定义变量c用来放和
a = Val(Text1.Text)                变量a的值应该等于文本框1中输入的数值
                                   文本框中文字属性为text所以获取文本框的
                                   文字属性应该写成a= Text1.Text,又因为文本框的文字属性类型为字符串,所以应该用val函数转换一下
                                  
b = Val(Text2.Text)                变量b同a
c = a + b
Label4.Caption = c                 标签4显示的文字内容应该为c的值,所以
                                   它的caption属性等于c
End Sub
 
退出按钮的代码如下:
Private Sub Command2_Click()
End
End Sub
第三步:
调式运行
【巩因练习:】
实践指导书上35页完善程序第3题:
Private Sub Command1_Click()
Dim a,b, c As Integer
 A =                                     1
B =           (Text1.Text)              val
c =val(Text2.Text)
text3.text=            4*a*c                 b*b
end sub
 
  • 苏公网安备 32030502000180号