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

可视化程序编写实践

作者:zll   时间:  2010-04-15 08:14:55   浏览:  1994次

课题:可视化程序的编写实践   
教学目的:
1 掌握可视化编程的一般步骤
2 进一步掌握获取对象属性的方法
3 能够编写简单的可视化程序
教学重点:
1        2 3
教学难点:
自己进行简单的可视化程序编写
教学过程:
【上机实践1】
请新建一个工程,让计算机自动计算输入的两个数之和。实践指导书P9页
【上机实践2】
已知一元二次方程的二次项系数一次项系数常数项分别为abc,其中a不等于0。请完善程序,求方程的根。要求:如果方程无实数根,则输出“无实数根”否则输出两个实数根。
第一步:界面设计
第二步:编写程序代码:
“求解”按钮的程序代码如下:
Private Sub Command1_Click()
Dim a , b, c ,d  As single            定义变量abcd用来放系数及Δ
Dim x1,x2 As single                   定义变量x1,x2用来放两个实数根
a = Val(Text1.Text)                变量a的值应该等于文本框1中输入的数值
                                   文本框中文字属性为text所以获取文本框的
                                   文字属性应该写成a= Text1.Text,又因为文本框的文字属性类型为字符串,所以应该用val函数转换一下
                                  
b = Val(Text2.Text)                变量b同a
c = Val(Text3.Text)                变量c同a
d = b ^ 2 – 4*a*c
if d ___>=0___ then
   x1 = (-b+sqr(d))/ (2*a)
   x2 = (-b-sqr(d))/ (2*a)
Label1.Caption = x1                 标签1显示的文字内容应该为x1的值,所以
                                   它的caption属性等于x1
Label2.Caption = x2                 标签2显示的文字内容应该为x2的值,所以
                                   它的caption属性等于x2
Label3.caption =””               清空标签3的内容
Else
Label1.Caption =“”                清空标签1的内容
Label2.Caption = “”                 清空标签2的内容
Label3.caption =无实数根”              
End if
End Sub
第三步:
调式运行
【上机实践3:】
请找出下面程序的错误并修改
从键盘上任意输入一个数,判断这个数是正数、负数还是零并输出判断结果。程序中有三处错误,请更正。
程序代码如下:
Private sub command1_click()
Dim a as single
Dim py as string
A = val (text1)
If a > 0 then py = “正数
If a = 0 then py = “零”
If a < = 0 then py = “正数
Label1.caption = a
  • 苏公网安备 32030502000180号