
代码如下:
private sub form_load()
command1.caption="计算四个数的和及平均值"
end sub
private sub command1_click()
dim a ad integer,b as integer,c as integer,d as integer
dim sum as integer
dim av as single
form1.cls
a=val(inputbox("a=","输入",10))
b=val(inputbox("b=","输入",20)) c=val(inputbox("c=","输入",30)) d=val(inputbox("d=","输入",40))
sum=a+b+c+d
av=sum/4
form1.print "和是:"sum
form1.print "平均值是:"av
end sub
有什么问题,请留言。
是顺序结构,也支持事件这样的异步流程(可以看作是中断的概念).窗体和控件均按默认顺序:加载\显示\运行,当然这些是看不见的.
可以写显式的程序来更改这些顺序步骤所执行的内容,但顺序本身不能变。
例如窗体是initialize->load->show->(execute loop).这些是顺序发生的,但每一步均被Vb作为一个事件,程序员就可以通过"事件"接口来控制窗体每一步所执行的内容。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)