VB程序设计11121练习.docVIP

一、编程题 1、随机产生50个10~200的整数，统计能被5整除的数的个数。 Dim x as integer, i as integer, n as integer For i = 1 To 50 x = Int(Rnd * 190) + 10 Print x; If i Mod 10 = 0 Then Print If x Mod 5 = 0 Then n = n + 1 Next i Print 能被5整除的有 n 个 2、随机产生100~500之间的20个随机整数，按升序排列后，在窗体上按每行10个数打印出来。 3、随机产生0~100之间的10个随机整数，按降序排列后，在窗体上按每行5个数打印出来。 4、输入自变量x，求解表达式： x3+2 x≤0 6 0x≤2 x2 5、编程找出1至100中3和5的公倍数，在窗体上打印出来，每行打印5个。 6、编程输出所有的水仙花数。所谓水仙花数就是一个3位数，其各位数字立方和等于该数字本身。 7、编程找出2~1000中所有的完全数。完全数是指这个数等于各因子之和。例如6=1+2+3。 8、编写程序将百分制成绩X转换成等级制，成绩通过文本框Text1输入，等级在文本框Text2中显示。转换规则为：X60是“不及格”，60=X70 是“及格”，70=X80是“中等”，80=X90是“良好”，X=90是“优秀”。 9、编程输出3—200 之间的所有素数。 10、输入两个正整数，求它们的最大公约数和最小公倍数。 11、编写一个求n!的子过程，然后调用它计算：3！+5！-4！。 12、通过函数调用求s=12+22+32……+n2，n通过InputBox函数输入。 13、编程计算自然数1到1000中所有奇数的和。 14、编程计算自然数1到1000中所有偶数的和。 15、利用循环，打印输出下列图形： A AAA AAAAA AAAAAAA AAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAA AAAAAAAAA AAAAAAA AAAAA AAA A Dim i As Integer, j As Integer For i = 1 To 7 Print Spc(7 - i); For j = 1 To 2 * i - 1 Print A; Next j Print Next i For i = 6 To 1 Step -1 Print Spc(7 - i); For j = 1 To 2 * i - 1 Print A; Next j Print Next i 二、算法步骤描述 1、分析求SUM=1+2+3+……+48+49+50的计算过程，用自然语言描述其算法。 （1）定义存放数据的变量，令SUM存放和值，X存放加数； （2）置初值：SUM为0，X为1； （3）累加求和： SUM=SUM+X； （4）获得下一个加数：X=X+1； （5）当X≤50时重复执行②、③； （6）输出SUM，显示计算结果； （7）过程结束。 2、分析求SUM=2+4+6……+98+100的计算过程，用自然语言描述其算法。 3、给出判定一个正整数M是否是素数的算法。素数的定义为：只能被1或本身整除的数称为素数。 (1) 输入待判断的数，存放在变量m 中 (2) 定义循环变量i，在2~t-1范围内判断是否存在m的因子 (3) 如果存在m的因子，就结果循环，否则重复执行循环直到循环结束为止。 (4) 判断 i的值是否大于t-1，如果条件成立，说明循环执行结束也没有找到能整除m的因子，打印出“是素数”，否则打印“不是素数” (5)结束 4、设计判断某正整数是否是回文数的算法。 (5)i=i+1 (6)如果i小于等于字符串长度的一半，则返回(4) (7)输出S是回文数，程序结束 (8)输出S不是回文数，程序结束。 5、设计一个算法，通过键盘输入10个数，打印出其中的最大值与最小值。 (1) 定义一个数组a(1 to 10)，定义两个变量max，min分别存最大值和最小值 (2)输入10个数放入数组a中 (3)max=a(1):min=a(1) (4)将max的值依次和a(2),a(3)……a(10)比较大小，如果max的值小于其中一个时，将max的值换成这个数 (5)将min的值也和a(2),a(3)