期末vb作业

上机操作练习题2011-5
1．某数组有20个元素，其值为随机产生的两位整数。

现要求将前10个元素与后10个元素对换。

即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。

在窗体上输出数组原来各元素的值与对换后各元素的值。

2．从数组中删除一个数。

先定义一个一维数组，大小、数组的值自定。

从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中”
注意：1）如果数组中存在多个与该数相同的元素，每一个都能删除；
2）能实现多次删除
3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。

注意：要求利用动态数组，能够实现多次插入
4．6个评委为4位歌手打分，分数介于1-100之间。

去掉一个最高分，一个最低分，求出每位选手的最后得分。

将4位歌手得分从高到低排列输出，同时输出该选手的编号。

如：歌手3 95分
歌手1 87分
歌手4 80分
歌手2 70分
5．编写函数求一元二次方程ax2+bx+c=0的解。

注意：要求考虑方程有两相等实根、两不等实根和两个虚根的情况。

6. 任意输入一组字符，统计出大写字母多少个，小写字母多少个，数字多少个？要求用过程实现。

7．随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。

8．编写一个函数，能将字母按下列规律译成密码：
A<-->Z a<-->z
B<-->Y b<-->y
即第1个字母与第26个字母互换，第i个字母与第(26-i+1)个字母互换。

在文本框中任意输入一个字符串，调用该函数将密码显示在另一个文本框中。

9．编写2个函数，分别求两个正整数的最大公约数和最小公倍数，用户任意输入两个数，采用函数嵌套调用，该函数将它们在窗体显示。

10. 编写计算阶乘的Function过程，利用e x的下列公式计算e（直到最后一项小于10-6为止）的近似值。

e x≈1+x/1!+x2/2!+x3/3!+…+x n/n!
11．输入整数N，显示具有N行的杨辉三角形，要求按正三角形的形式在图片框中显示。

12．编写一个过程，输出以下菱形图形：
A
BBB
CCCCC
DDDDDDD
CCCCC
BBB
A
主程序输入一个奇数（>＝3），调用过程在窗体上输入图形。

13．编写一个将十进制转换为二进制字符串输出的函数。

调用函数计算用户输入一个十进制数，在文本框中输出二进制值。

注意：输入数据为负数，应该将符号位输出
如-13 结果-1101
14．输入一个整数N，产生N个随机数（范围1—10*N），然后采用任何2种算法实现由小到大的排序。

将排序前后的数据显示出来。

15．编写程序，在窗体上输出3~100之间的所有素数。

要求每行显示4个数。

16．把文本框1、文本框2指定的范围内的所有素数添加到列表框中，并选中列表框数据中最后一位是9的所有数据(设定selected属性)，把它们的和值输出。

17. 编写2个函数，分别采用递归法和递推法求斐波纳契数列的第n个月的兔子数，n
使用inputbox输入，调用函数的结果在窗体上显示。

18. 有一个数列：1，1，2，3，5，8，13，21，…，按规律计算出前40项的和，结果写入到顺序文件（out.txt）中。

界面设计见图1，写入结果的数据文件out.txt用“记事本”打开如图2。

图1 运行界面图2 outt.txt文件内容
19. 单击读数按钮从文件in.txt中读入一个整数（先用记事本创建一个in.txt文件，其中输入任意一个素数，如图3中输入的是101），单击计算按钮则计算出大于该数的第1个素数，单击存盘将结果保存到文件out.txt中,如图5。

运行界面如图13-3所示。

图3 图4 图5
20. 如图6所示。

当选中某一个单选按钮并单击“计算”按钮时，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来；单击“存盘”按钮将计算所得的素数之和以out.txt文件名存入“c:\exam”目录中。

判断一个数是否为素数的过程自己编写，存盘过程已经给出。

编写两个命令按钮的Click事件过程。

图6
Sub putdata(t_FileName As String, T_Str As Variant) ‘存盘过程
Dim sFile As String
Open "c:\exam\" & t_FileName For Output As #1 ' 存入c:\exam目录下
Print #1, T_Str
Close #1
End Sub。