循环结构示例.pptVIP

VB程序设计简明教程 本书目录 VB程序设计简明教程 本书目录 VB程序设计简明教程 本书目录 VB程序设计简明教程 本书目录 * Private Sub Form_Load()Shown1 = 1n2 = 9n3 = 1For i = n1 To n2 Step n3 n1 = n1 + 1 n2 = n2 - 1 n3 = n3 + 1 i = i + 1 Print i, n1, n2, n3NextPrint *******, iEnd Sub 例4.12 将可打印的ASCII码制成表格输出 本章目录 * 问题： 1、计算： 2、K1到K2间的偶数和。 3、K1到K2间能被5整除的数之和 4、K1到K2间个位数+十位数百位数的数之和 计算S=1+2+3+4+...+N 的值 S=0 N=Val(InputBox(“N=?”)) For I=1 To N S=S+I Next I Print “S=“;S 5、计算S=12+22+32+42+……+1002的值 6、计算S= 1-3+5-7+…+(-1)n+1(2n-1)的值 7、计算S= 8、计算S= 9、n个数，找最大数。 例1：求阶乘 例2：从n个随机整数中选出偶数 例3：利用级数求π 例 键盘输入N个数，求和 键盘输入N个数，找最大数、最小数（类似Chap6实验题1） 随机产生N个[10，1000]整数，求和 随机产生N个ASCII码属于[32，126]字符，统计字母字符、数字符、其他字符个数 输入字符串，统计字母字符、数字符、其他字符个数 输入字符串，删除数字符 输入字符串，加/解密 从键盘输入一个大于2的正整数，判断该数是否是素数。 * 处理键盘输入N个数据 For I=1 To N x=Val(InputBox(“x=?”)) …… Next I * Private Sub Form_Load() ‘1 键盘输入N个数，求和 Show Dim N%, I%, K%, S% S = 0 N = Val(InputBox(n=?)) For I = 1 To N Step 1 K = Val(InputBox(第 Str(I) 个数=)) S = S + K Next I Print S=; S End Sub * Private Sub Form_Load() ‘2 键盘输入N个数，找最大数、最小数 Show Dim N%, I%, K%, Max%, Min% N = Val(InputBox(n=?)) Max = -9999: Min = 9999 For I = 1 To N Step 1 K = Val(InputBox(第 Str(I) 个数=)) If K Max Then Max = K End If If K Min Then Min = K End If Next I Print Max=; Max, Min=; Min End Sub * Private Sub Form_Load() ‘3 随机产生N个[10，1000]整数，求和 Show Dim N%, I%, K%, S% Randomize S = 0 N = Val(InputBox(n=?)) For I = 1 To N Step 1 K = Int(Rnd * (1000 - 10 + 1) + 10) Print 第 Str(I) 个数=; K; S = S + K Next I Print Print S=; S End Sub * Private Sub Form_Load() ‘4、随机产生N个ASCII码属于[32，126]字符，统计字母、数字、其他字符个数 Show Dim N%, I%, a%, K$, zm%, sz%, qt% Randomize zm = 0: sz = 0: qt = 0 N = Val(InputBox(n=?)) For I = 1 To N Step 1 a = Int(Rnd * (126 - 32 + 1) + 32) : K = Chr(a) Print 第 Str(I) 个