［转帖］[教程]疯子的vb课堂

晴川

第11课, 顺序结构....输入语句

我们来学习结构化程序设计...
嘿嘿.......
编写一个程序,在保证运行结果正确的前提下,要求做到又良好的结构.这样的目的是使程序的阅读和修改十分方便.结构化程序设计最先使荷兰的程序员 E.W.Dijksta 首先提出的设计方法.
顺序结构是我们最近的重点,它也是结构化程序设计理论中的3个基本结构之一.也是最简单的程序结构..

3个结构分别是 顺序结构,选择结构,循环结构.
他们的共同点是 只有1个入口. 只有1个出口.每一条指令均又可能被执行(无死语句).不包括死循环(无死循环)

今天我们先理解一下 输入语句

如果程序不允许用户输入数据,那么程序就仅仅具有浏览的功能,不可能又太多的发展.同时,用户从键盘进行输入的情况也是不可避免的.如果要计算一个立方体的体积,则需要用户提供长,宽,高,的数值.程序不应该只能计算一组数据,而应该可以让用户提供各种可能的数值.当然,也可以对每一组数值都修改一次程序,但这样太麻烦.如果运行用户提供的数据,这个问题就可以搞定了..
在vb中 可以通过 inputbox() 函数来实现,该函数的使用格式为
InputBox (prompt [, title] [, default] [, xpos] [, ypos] [, helpfile, context])

以下是函数中各个参数的说明
prompt 作为对话框消息出现的字符串表达式.prompt 的最大长度大约是 1024个字符, 由所用字符的宽度来决定.如果prompt包含多行,则可在各行之间来用回车符 Chr(13) 换行符Chr(10) 或回车和换行的组合Chr(13)&Chr(10)来分隔

title 显示对话框标题栏中的字符串表达式.如果省略 title ,则把应用程序名放入标题栏中.

default 显示文本框中的字符串表达式.在没有其他输入时作为缺省值.如果省略default,则文本框为空

xpos 数值表达式,成对出现,指定对话框的左边与屏幕的左边的水平距离.如果省略,对话框会在水平居中

ypos 和上面的差不多,调整对话框与屏幕的垂直距离的,如果省略它,对话框就回在屏幕垂直方向距下边大约三分之一的距离

helpfile 字符串表达式,用来识别帮助文件,用该文件为对话框提供上下文相关的帮助 如果已提供helpfile,也必须提供 context 它们两个是相互依*的一对儿~~

context 数值表达式,由帮助文件的作者指定给某个帮助主题的帮助上下文编号,如果以供context 那么 helpfile也是必不可少的哦.


上面的参数中,只有参数prompt 是必须的,其余的都是可有可无.但是对于大型应用程序,最好能提供参数title.这样在调试程序的过程中,分清是什么窗体,什么情况下出现的输入提示..例如
Private Sub Form_Load()
Dim z AS String
z = InputBox("请输入你的名字", "test")
'对z进行各种操做
End Sub

运行后..嘿嘿,就会提示用户输入自己的姓名,对话框标题为test
如果用户在输入后 去点那个确定. 则会对用户的输入送给一个字符串型变量.如果用户点那个取消.则应用程序将取消用户的输入,相当于没有出现输入对话框一样.因为该函数回返回一个字符串,即使用户没有做审核输入,也会返回一个长度为0的空字符串,所以必须给该函数赋给一个值,否则vb就回提示编译错误.

无论是使用输入对话框输入和文本框输入,得到的都是字符串型的数据.但是很多时候,要求用户输入的数据并不是用做字符串,而是要当作数字型.日期型.布尔型数据使用.这时,需要对数据进行转换.在数据转换中,使用最多的是将字符串转换为数字,这时,可以使用函数 Val() 其格式为

Val(string)

参数string是任何有效的字符串表达式
val函数总是在它不能识别为数字的第一个字符上,停止读入字符串.而那些被认为是数值的一部分的符号和字符.例如美元符号和逗号,都不能被识别,但是函数可以识别进位制符号&O(8进制)和&H(16进制).空格/制表符和换行符都从参数中被去掉.
下面我们来举个val函数来和输入对话框或者文本框共同获取用户输入的数字,如果是使用输入对话框,则获取的方式为

dim z as string
dim z_data as integer
z = inputbox("请输入你的姓名", "test")
z_data = val (z)
如果是使用文本对话框,则获取的方式为:
dim z as string
dim z_data as integer
z = text1.text
z_data = val(z)
例子中的变量z_data的类型不仅可以是integer,也可以是其他的数字型变量....


近日工作有些忙,所以......下一课内容较多