发布时间 : 星期日 文章VB实训指导书更新完毕开始阅读bb175a32b90d6c85ec3ac60c
Visual Basic实用程序设计教程
（4）结合（3），当I为1时， String（2*I+1，Trim（Str（I）））则生成字符串\。 3 编写程序，求1+2+3+...+100的和，将结果打印在窗体上。 4 编写程序，计算Sum=1+2+3+...，的值，直到Sum > 6000为止。 5 计算S?1?122?132?142???1n2的值，当第i项1i2?10?5时结束。
6 将实验4-3用Do ... While循环和Do While ... Loop循环中的另外一种循环应该怎样实现？进一步地，要用Do ... Loop Until循环或Do Until ... Loop循环又该如何实现？
7 使用双重循环，输出“九九乘法表”，如图4-3所示。
图4-3 实验4-7程序运行界面
【提示】
（1）注意行号和该行乘法单元的个数之间的关系。
（2）注意乘法单元的规律：“4×3＝12”中4为行号，3为列号，且列号不大于行号。 （3）乘号“×”可从汉字输入法软键盘菜单的“数学符号”中找到；或从Word中菜单【插入】->【符号】中找到，再从Word中剪切或复制到VB代码中。
（4）可以将窗体的AutoRedraw属性设为True，以防初始大小的窗体显示不下全部内容。 8 显示所有的水仙花数。所谓水仙花数，就是指一个3位正整数，其各位数字的立方和等于该数本身。例如，153?1?5?3，153即为水仙花数。 【提示】
本题目解法有两种：
（1）对3位数的各位数组合进行穷举：利用3重循环，将3个个位数组成一个3位数进行判断。例如，3位数的各位数从高位到低位依次为a、b、c，则对应的3位数为a*100+b*10+c。
（2）对所有3位数进行穷举：利用单循环对所有3位数进行穷举，循环内将一个3位数拆成3个个位数进行判断。例如，对s＝678进行拆解时：个位数＝s Mod 10；十位数＝（s\\10）
306
333Mod 10；百位数＝s\\100。当然，也可以将上述拆解过程写为一个循环（这时就是利用双重循环，内层循环即为拆解过程）。
9 循环密文。现有一个字符串，将该字符串内的每个英文字符都改为其后（前）的第n个字符，非英文字符的符号保持不变，修改之后的字符串即为密文，而修改之前的字符串称为明文。当修改后的字符超出了“a”～“z”或“A”～“Z”字符序列范围后，应将其循环回字符序列的最开始或最末尾。例如，n＝4时，“a”译为“e”，“w”译为“a”，“May！”就被译为“Qec！”。反之，当知道n（正为向后，负为向前）后，即可恢复密文为可读文本。 给定一个任意由纯英文字符（ASCII字符）和标点符号组成的字符串，例如“I Love This Computer Game!”，将其转换为密文（n自己给定）并显示，然后再将密文译为明文。
【提示】
（1）加密需逐个字符进行。获取字符串中的某个字符可以从Left()、Mid()或Right()等函数里选取一个；Len()函数可以返回字符串的长度。
（2）应该判断从字符串中获取的字符是否为英文字符。
（3）获取某字符的ASCII码值使用Asc()函数，而获取某ASCII码值所对应的字符应使用Chr()函数。
Visual Basic实用程序设计教程
实验五 数组及其应用
(设计型 4学时)
一、实验目的
1．掌握数组的基本概念。 2．掌握数组的声明、引用。 3．掌握静态数组和动态数组的区别。 4．掌握控件数组。
4．掌握如何利用数组解决与数组相关的常用算法（特别是排序算法）。
二、实验内容
1 用数组保存随机产生的10个介于20到50之间的整数，求其中的最大数、最小数和平均值，然后将10个随机数和其最大数、最小数以及平均值显示在窗体上。
2 随机产生10个介于0到100之间的整数，分别用选择法和冒泡法对其进行排序。 3 用数组求得Fibonacci数列（1 1 2 3 5 8 13 21 34?）的前20项,并按照每行5个打印在图片框控件（PictureBox）中。Fibonacci数列数学描述式为：F（i）= F（i-2）+F（i-1）。
【提示】
为了便于控制，将打印内容打印到图片框中，例如，Picture1.Print \！\。 4 有矩阵A，用二维数组求其转置矩阵B。要求将两矩阵按照矩阵样式显示。
?14?
?123??25?
B＝，A＝????
?456???36??
【提示】
所谓转置，即：b(i,j)=a(j,i)。
5 有3×4矩阵A，求其中值最大和值最小的那两个元素的值，以及它们所在的行号和列
?1472???号。其中，A＝9768。 ????0537??6 打印出如图5-1a所示的杨辉三角形，要求先输入行数n。进一步要求：如果要显示为图5-1b所示的样式，该如何改动原来的程序呢？
【提示】
308
（1）杨辉三角形是（a?b)n展开后各项的系数，具有如下规律：各行的第一个和最后一个数都是1；从第三行起，除上面指出的第一个数和最后一个数之外，其它的数是上一行同列和前一列两个数之和，即：a[i,j]?a[i?1,j]?a[i?1,j?1]，i为行，j为列。
（2）为了便于控制，将内容显示在图片框（PictureBox）中。
（3）要显示为图5.1（b）所示的样式，应该利用TAB函数对每行显示的起始位定位。
图5-1（a） 实验5.6程序运行界面 的第一个元素。要求用户可以输入x。
【提示】
（1）首先要查找待删除的元素，没有则返回。
（2）如果找到待删除的元素，则从下一个元素到最后元素依次往前移位。 （3）最后利用ReDim Preserve语句将数组大小减1。
8 使用控件数组，产生如图5-2所示的QBColor颜色系统的16种标准色，每行显示8个。
图5-1（b） 实验5.6程序运行界面
7 已知数组A＝Array(7,6,5,1,8,5,3,9,4)，编写一程序，删除数组中值为x（例如为3）
图5-2 实验5-8程序运行界面
【提示】