《VB系列代码》PPT课件

求和 PrivateSubCommand1 Click DimiAsInteger sAsIntegerFori 1To100s s 1NextiText1 Text sEndSub 循环语句一 for 显示100 求和 PrivateSubCommand1 Click DimiAsInteger sAsIntegerFori 1To100s s iNextiText1 Text sEndSub 循环语句一 for 显示5050 求和 PrivateSubCommand1 Click DimiAsInteger sAsIntegerWhilei 100s s ii i 1WendText1 Text sEndSub 循环语句二whilewend 求和 PrivateSubCommand1 Click DimiAsInteger sAsIntegerDoUntili 100s s ii i 1LoopText1 Text sEndSub 循环语句三dountilloop 求阶乘 PrivateSubCommand1 Click DimnAsInteger iAsInteger tAsLongn InputBox 输入一个数 n 10 t 1Fori 1Tont t iNextText1 Text tEndSub 显示3628800 求1到100被3和7同时整除数的个数 PrivateSubCommand1 Click DimiAsInteger cntAsIntegerFori 1To100IfiMod3 0AndiMod7 0Thencnt cnt 1PrintiEndIfNextText1 Text cntEndSub 一个数组中有多少奇数多少偶数 PrivateSubCommand1 Click Dima cnt1AsInteger cnt2AsIntegera Array 1 2 3 4 5 6 7 8 9 10 11 Fori 1ToUBound a Ifa i Mod2 0Thencnt2 cnt2 1Elsecnt1 cnt1 1EndIfNextText1 Text cnt1Text2 Text cnt2EndSub Dima cnt1AsInteger cnt2AsIntegera Array 1 2 3 4 5 6 7 8 9 10 11 Fori 1ToUBound a Ifa i 2 Int a i 2 Thencnt2 cnt2 1Elsecnt1 cnt1 1EndIf OptionBase1 此句定义下标从1开始PrivateSubCommand1 Click Text2 Text cnt2EndSub NextText1 Text cnt1 求最大数和最小数 PrivateSubCommand1 Click Dima iAsInteger maxAsInteger minAsIntegera Array 1 3 7 6 10 5 4 2 8 9 max a 1 min a 1 Fori 1ToUBound a Ifmaxa i Thenmin a i NextText1 Text maxText2 Text minEndSub 输入十个成绩 统计及格人数和不及格人数 OptionBase1PrivateSubCommand1 Click Dima 10 AsInteger iAsInteger q1AsInteger q2AsIntegerFori 1To10a i InputBox 请输入成绩 提示 Ifa i 60Thenq1 q1 1Elseq2 q2 1EndIf NextText1 Text q1Text2 Text q2EndSub 十个成绩中高于平均分的显示在文本框中 OptionBase1PrivateSubCommand1 Click Dima pjAsSingle iAsIntegera Array 10 7 1 4 6 5 8 2 9 3 Fori 1ToUBound a s s a i Nextpj s UBound a Fori 1ToUBound a Ifa i pjThenText1 Text Text1 Text EndIfNextEndSub 输入一个数 判断是否为素数 PrivateSubCommand1 Click DimnAsInteger iAsInteger bjAsBooleann InputBox 请输入一个数 提示 bj TrueFori 2Ton 1IfnModi 0Thenbj FalseExitForEndIfNext Ifbj TrueThenText1 Text 是素数 ElseText1 Text 不是素数 EndIfEndSub 答案应为 a 1 b 1x 2 y 3a 1 b 3 有如下程序Subabc x y x 2 x y 3 yPrint x x y yEndSubPrivateSubForm Click a 1 b 11 Print a a b bCallabc a b 2 Print a a b bEndSub运行后 输出结果是 1 分析 在VisualBasic中 参数通过按值和按地址两种方式传递 按值传送递参数时 传递的只是实际参数的值而不是传送它的地址 如果在Sub过程或Function过程中改变了该值 则副本的值改变 原实际参数值不变 按地址传送参数 就是将实际参数在内存中的地址传给形式参数 使得实参和形参使用相同的内存地址单元 这样 当过程中形参值发生变化后 因为实参和形参指向同一内存地址单元 实参值也就发生了变化 当没有特殊指明下 系统默认变量 简单变量 数组 数组元素和记录 都是通过按地址传送方式传递 在本例中执行Form Click事件时 初始化a b的值均为1 在标号为1的Print语句中打印出 a 1 b 1 执行 Callabc a b 语句时 a b均为变量应按地址传送方式传递 在此语句中a用括号括起来 a 改为表达式 将一个表达式作为实参传递给形参时 系统默认为传值方式 因此调用abc过程时 a 为传值方式 b为按地址传送方式 调用abc过程时x接收到