- 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB程序结构,编程
浅谈VB中的程序结构 VB具有结构化程序设计的三种结构,即顺序结构、分支(选择)结构、循环结构,这些是程序设计的基础。 顺序结构 顺序结构就是各语句按出现的先后次序执行。 例1:输入圆的半径,求面积。 程序代码如下: Private Sub Form_Click() Dim r As Double, a As Double Const Pi = 3.14 r = InputBox(请输入圆的半径) a = Pi * r * r MsgBox 圆的面积为: a End Sub 分支(选择)结构 If 语句 例2:输入x的值,并输出其绝对值。 程序代码如下: Private Sub Command1_Click() Dim x as single x = InputBox(请输入一个数) If x0 Then x = -x ‘此处不需要写end if,因为then后面只有一句 Print 绝对值是:; x End Sub 循环结构 For...Next 语句 例3:求1到100的和。 Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0 For i = 1 To 100 step 1 ‘此处步长为1可以不写 sum = sum + i Next i Print sum End Sub 练习1:输入两个数,选出较大值 练习2:计算1~100的奇数之和 参考例3 * * 在人们所处理的问题中,常常需要根据某些给定的条件是否满足来决定所执行的操作。选择结构就是对给定条件进行判断,从而选择执行不同分支,一般可由分支结构来完成。 VB中的分支结构语句包括If语句和Select语句。 If 表达式 Then 语句块 End If If 表达式 Then 语句块1 Else 语句块2 End If 单分支结构: 双分支结构: 在实际应用中,经常遇到一些需要反复多次处理的问题,例如求若干个数之和、之积等。重复执行某一程序块称作循环。Visual Basic提供了多种不同风格的循环结构语句,包括Do … Loop、While … Wend,For … Next,For Each … Next等,其中最常用的是For … Next语句和Do … Loop语句。 Dim a, b, max As Single a=val(text1.text) b=val(text2.text) ‘输入变量a和b的值 If ab then Max=a Else Max=b End if ‘注意if的语法运用 Text3.text=max ‘输出变量max的值 *
文档评论(0)