计算机二级考试题库：VB程序题
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
*计算并输出下面级数前n项中（n=50）偶数项的和。
1*2*3+2*3*4+3*4*5+……+n*(n+1)*(n+2)+…
编写一个复制字符串的程序，如图x_17.jpg所示。
*界面要求：
*使用文本框、命令按钮完成。
*运行要求：
* 1、点击“清除”按钮，将所有的文本框内容清空；
* 2、点击“复制”按钮，如上面文本框有选中的文本，则将选中的文本复制到下面文本框中，
*数组元素值为[0，100]内（包括0和100）的随机整数。
编写程序：
*打印出以下图案。
*
+++
*****
+++++++
*****
+++
*
*（此题要求有源程序，不要求填写程序运行结果）
编写一个登录的程序，如图K_774.jpg所示。
*界面要求：
*使用标签，文本框，命令按钮完成，对输入的密码用“*”显示。
编写程序：
*使用冒泡法，对数组ia(1)=8,ia(2)=6,ia(3)=9,ia(4)=3,ia(5)=2,ia(6)=7
*从小到大排序，并以紧凑格式在一行上输出。
编写一个秒表程序，如图K_309.jpg所示。
*界面要求：
*使用一个标签、两个命令按钮、一个时钟控件完成。
*运行要求：
* 1、点击“开始计时”按钮，开始计时，标签中显示时间，时间精度是百分之一秒；
编写程序：
*已知一个具有10个整数的一维数组，各元素值随机产生（范围在[10，99]内），
*找出第一个偶数所在的位置及其值，然后输出。如果未找到就输出"not found"。
编写程序：
*计算并输出下面级数前n项（n=50）的部分和。
1*2+2*3+3*4+4*5+……+n*(n+1)+…
利用随机函数产生20个10～99之间（包括10和99）的随机整数存入一维数组A，
If Max < A(I) Then _______ = A(I)
Next I
Print "最大元素值为: "; Max
编写一个计算两个数之和的程序，如图x_11.jpg所示。
*界面要求：
*使用文本框，标签，命令按钮完成。
*运行要求：
* 1、当用户单击“计算”按钮后，计算两个数的和，并用MsgBox显示结果。
设窗体上有一命令按钮控件Command1，对其Click事件设计一事件过程。
*统计二维数组A(1 To 6, 1 To 6)第一列所有元素中奇数元素的个数，并在窗体上输出其结果。
*数组元素值为[0，100]内（包括0和100）的随机整数。
界面要求：
*使用标签，文本框，命令按钮完成。
*运行要求：
*点击“累加”按钮，将文本框中输入的数字累加，显示到下方的标签中。
* 2、点击“清除”按钮，清除所有文本框内容；
* 3、点击“结束”按钮，则结束程序运行。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*利用InputBox接收一批字符，将其中的数字打印输出（提示：使用Len和Mid函数）。
编写程序，输出下列三角形：
1
222
33333
4444444
*（此题要求有源程序，不要求填写程序运行结果）
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*设窗体上有一命令按钮控件Command1，对其Click事件设计一事件过程。
*求二维数组A(1 To 6, 1 To 6)的偶数行上元素之和并在窗体上输出其结果。
*数组元素值为[0，100]内（包括0和100）的随机整数。
编写程序：
*计算并输出下面级数前n项（n=50）中偶数项的和。
*否则，将上面文本框所有内容复制到下面文本框中。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*使用冒泡法，对数组ia(1)=8,ia(2)=6,ia(3)=9,ia(4)=3,ia(5)=2,ia(6)=7
*从小到大排序，并以紧凑格式在一行上输出。
编写程序：
*打印出以下图案。
2
222
将其排序，求出相邻两个数的最大差值。
*求出斐波那契数列第20项和第30项的和是多少。
提示：前两项为：0，1，从第3项开始，每一项均为其前两项的和（即：0+1+1+2+3+5+...）。
设窗体上有一命令按钮控件Command1，对其Click事件设计一事件过程。
统计二维数组A(1 To 6, 1 To 6)第一列所有元素中奇数元素的个数，并在窗体上输出其结果。数组元素值为[0，100]内（包Leabharlann Baidu0和100）的随机整数。
* 2、点击“结束计时”按钮，停止计时。
* 3、未计时时，“开始计时”按钮可用，“结束计时”按钮不能用。
*计时过程中，“开始计时”按钮不可用，“结束计时”按钮能用。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*利用随机函数产生20个10～99之间（包括10和99）的随机整数存入一维数组A，
*找出第一个偶数所在的位置及其值，然后输出。如果未找到就输出"not found"。
编写程序：
*计算并输出下面级数前n项（n=50）的部分和。
1*2+2*3+3*4+4*5+……+n*(n+1)+…
求一维数组A(1 TO 8)的最大元素值。
*程序段如下：
_______ = A(1)
For I = 2 To 8
*点击“字母转换”按钮，将小写字母转换成大写字母，大写字母转换成小写字母，其余字母不变，
*并在文本框2中显示转换后的字符串。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*设窗体上有一命令按钮控件Command1，对其Click事件设计一事件过程。
*求二维数组A(1 To 6, 1 To 6)的最大元素值所在位置（即：行号和列号），并在窗体上输出其结果。
22222
2222222
22222
222
2
*（此题要求有源程序，不要求填写程序运行结果）
编写程序：
*求一个4×4的整型矩阵的所有元素的平均值。（其中矩阵元素随机产生）
编写一个程序，如图K_204.jpg所示。
*界面要求：
*使用文本框、命令按钮控件完成。
*运行要求：
* 1、Text1中随机产生500以内的整数；
* 2、点击“验证”按钮，当Text1中输入的数据小于300时，Text2显示Text1中的数据，
*否则，使用MsgBox显示“重新计算”，并使焦点重新回到Text2上。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*已知一个具有10个整数的一维数组，各元素值随机产生（范围在[10，99]内），
编写程序：
*用随机函数产生10个1～10之间（包括1和10）的随机整数存入一维数组A，
*通过键盘输入数值m，然后用A(m)的值作为下标，打印出对应数组元素的值。
编写程序：
*计算并输出下面级数前n项（n=50）的部分和。
1*2+2*3+3*4+4*5+……+n*(n+1)+…
编写一个程序，如图K_204.jpg所示。
*界面要求：
*使用标签、文本框、命令按钮完成。
*运行要求：
*单击“计算”按钮，计算从“起始值”到“终止值”之间（包括起始值和终止值）所有整数的累加和，并显示到标签中。
*如图为输入1和10时运行结果。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*使用数组，求出下列数列的前30项中所有能被3整除的数据项：
编写一个复制字符串的程序，如图x_17.jpg所示。
*界面要求：
*使用文本框、命令按钮完成。
*运行要求：
* 1、点击“清除”按钮，将所有的文本框内容清空；
* 2、点击“复制”按钮，如上面文本框有选中的文本，则将选中的文本复制到下面文本框中，
*否则，将上面文本框所有内容复制到下面文本框中。
*（此题要求上载窗体文件，不要求填写程序运行结果）
*界面要求：
*使用文本框、命令按钮控件完成。
*运行要求：
* 1、Text1中随机产生500以内的整数；
* 2、点击“验证”按钮，当Text1中输入的数据小于300时，Text2显示Text1中的数据，
*否则，使用MsgBox显示“重新计算”，并使焦点重新回到Text2上。
*（此题要求上载窗体文件，不要求填写程序运行结果）
*运行要求：
* 1、输入帐户：张三
* 2、输入密码：123456
* 3、点击“确定”按钮时进行判断。
*如果帐户和密码都对，使用MsgBox显示“此帐户通过验证”；
*如果帐户对密码不对，使用MsgBox显示“密码错误”，清空密码重新输入；
*如果帐户不对，清空帐户和密码输入框，使用MsgBox显示“此帐户不存在”，
*数组元素值为[0，100]内（包括0和100）的随机整数。
编写程序：
使用双重循环，求[100，160]以内的素数并以紧凑格式在窗体上一行输出，然后计算出个数s。
编写一个分类统计的程序，如图K_115.jpg所示。
*界面要求：
*使用文本框、命令按钮完成。
*运行要求：
* 1、在文本框中输入若干英文字符串；
*找出其中的最大值和最小值。
编写程序：
*求出斐波那契数列前9项的和。
*提示：前两项为：0，1，从第3项开始，每一项均为其前两项的和（即：0+1+1+2+3+5+...）。
编写一个字母转换的程序，如图K_401.jpg所示。
*界面要求：
*使用文本框、命令按钮控件完成。
*运行要求：
*在文本框1中输入任意字符串；
编写一个秒表程序，如图K_310.jpg所示。
*界面要求：
*使用一个标签，一个命令按钮、一个时钟控件完成。
*运行要求：
* 1、点击“开始计时”按钮，开始计时，标签中显示时间，时间精度是百分之一秒；
* 2、点击“结束计时”按钮，停止计时。
* 3、“开始计时”，“结束计时”由一个命令按钮实现。
*（此题要求上载窗体文件，不要求填写程序运行结果）
*并将焦点重新定位到帐户输入框。
* 4、点击“取消”按钮，则结束程序运行。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*设窗体上有一命令按钮控件Command1，对其Click事件设计一事件过程。
*统计二维数组A(1 To 6, 1 To 6)的所有值是偶数的元素的个数，并在窗体上输出其结果。
* 2、单击“统计”命令按钮后，判断文本框中“H”到“S”之间各个英文字母（不区分大小写）出现的次数，并输出到窗体上。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*用随机函数产生10个50以内（包括50）的随机整数存入一维数组，从键盘输入一个数，
*然后用顺序查找法，统计该数在一维数组中出现的次数。
ABC
A
（此题要求有源程序，不要求填写程序运行结果）
界面要求：
*使用标签、文本框、命令按钮控件
*运行要求：
*单击“产生随机数”按钮，文本框中随机产生[-10，10]范围内的整数10个；
*单击“统计”按钮，使用标签分别显示正数和零的个数、负数的个数。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
0,0,1,1,2,4,7,13,.......
编写程序：
*要求能够产生一个[10，100]内（包括10和100）的一个随机数，然后判断其是否是素数。
*如果是，在窗体上输出"yes"，否则，输出"no"。
1*2+2*3+3*4+4*5+……+n*(n+1)+…
编写一个同时显示日期和时间的程序，如图K_7844.jpg所示。
*界面要求：
*使用标签、命令按钮、时钟控件完成。
*运行要求：
*点击“显示日期和时间”按钮，标签开始显示日期和时间（上、下居中，左右居中）。
*（此题要求上载窗体文件，不要求填写程序运行结果）
*（此题要求上载窗体文件，不要求填写程序运行结果）
界面要求：
*使用标签、命令按钮、时钟控件完成。
*运行要求：
*点击“显示日期和时间”按钮，标签开始显示日期和时间（上、下居中，左右居中）。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*打印出以下图案。
A
ABC
ABCDE
ABCDEFG
ABCDE
编写程序，输出下列三角形：
1
111
11111
1111111
（此题要求有源程序，不要求填写程序运行结果）
*编写一个根据月份求月天数的程序，如图x_7b.jpg所示。
*界面要求：
*使用文本框，标签，命令按钮完成。
*运行要求：
* 1、点击“天数”按钮，结果文本框中显示今年（2007年）该月份的天数；
* 2、点击“结束”按钮，则结束程序运行。
编写程序：
*统计二维数组A(1 TO 6, 1 TO 6)所有非靠边元素中偶数元素的个数，并在窗体上输出其结果。(数组元素值为[0，10]内的随机整数)。
*编写程序，输出下列三角形：
1234567
12345
123
1
*（此题要求有源程序，不要求填写程序运行结果）
*编写一个计算累加和的程序，如图K_502.jpg所示。
1*2*3+2*3*4+3*4*5+……+n*(n+1)*(n+2)+…
编写一个复制字符串的程序，如图x_17.jpg所示。
*界面要求：
*使用文本框、命令按钮完成。
*运行要求：
* 1、点击“清除”按钮，将所有的文本框内容清空；
* 2、点击“复制”按钮，如上面文本框有选中的文本，则将选中的文本复制到下面文本框中，
*数组元素值为[0，100]内（包括0和100）的随机整数。
编写程序：
*打印出以下图案。
*
+++
*****
+++++++
*****
+++
*
*（此题要求有源程序，不要求填写程序运行结果）
编写一个登录的程序，如图K_774.jpg所示。
*界面要求：
*使用标签，文本框，命令按钮完成，对输入的密码用“*”显示。
编写程序：
*使用冒泡法，对数组ia(1)=8,ia(2)=6,ia(3)=9,ia(4)=3,ia(5)=2,ia(6)=7
*从小到大排序，并以紧凑格式在一行上输出。
编写一个秒表程序，如图K_309.jpg所示。
*界面要求：
*使用一个标签、两个命令按钮、一个时钟控件完成。
*运行要求：
* 1、点击“开始计时”按钮，开始计时，标签中显示时间，时间精度是百分之一秒；
编写程序：
*已知一个具有10个整数的一维数组，各元素值随机产生（范围在[10，99]内），
*找出第一个偶数所在的位置及其值，然后输出。如果未找到就输出"not found"。
编写程序：
*计算并输出下面级数前n项（n=50）的部分和。
1*2+2*3+3*4+4*5+……+n*(n+1)+…
利用随机函数产生20个10～99之间（包括10和99）的随机整数存入一维数组A，
If Max < A(I) Then _______ = A(I)
Next I
Print "最大元素值为: "; Max
编写一个计算两个数之和的程序，如图x_11.jpg所示。
*界面要求：
*使用文本框，标签，命令按钮完成。
*运行要求：
* 1、当用户单击“计算”按钮后，计算两个数的和，并用MsgBox显示结果。
设窗体上有一命令按钮控件Command1，对其Click事件设计一事件过程。
*统计二维数组A(1 To 6, 1 To 6)第一列所有元素中奇数元素的个数，并在窗体上输出其结果。
*数组元素值为[0，100]内（包括0和100）的随机整数。
界面要求：
*使用标签，文本框，命令按钮完成。
*运行要求：
*点击“累加”按钮，将文本框中输入的数字累加，显示到下方的标签中。
* 2、点击“清除”按钮，清除所有文本框内容；
* 3、点击“结束”按钮，则结束程序运行。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*利用InputBox接收一批字符，将其中的数字打印输出（提示：使用Len和Mid函数）。
编写程序，输出下列三角形：
1
222
33333
4444444
*（此题要求有源程序，不要求填写程序运行结果）
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*设窗体上有一命令按钮控件Command1，对其Click事件设计一事件过程。
*求二维数组A(1 To 6, 1 To 6)的偶数行上元素之和并在窗体上输出其结果。
*数组元素值为[0，100]内（包括0和100）的随机整数。
编写程序：
*计算并输出下面级数前n项（n=50）中偶数项的和。
*否则，将上面文本框所有内容复制到下面文本框中。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*使用冒泡法，对数组ia(1)=8,ia(2)=6,ia(3)=9,ia(4)=3,ia(5)=2,ia(6)=7
*从小到大排序，并以紧凑格式在一行上输出。
编写程序：
*打印出以下图案。
2
222
将其排序，求出相邻两个数的最大差值。
*求出斐波那契数列第20项和第30项的和是多少。
提示：前两项为：0，1，从第3项开始，每一项均为其前两项的和（即：0+1+1+2+3+5+...）。
设窗体上有一命令按钮控件Command1，对其Click事件设计一事件过程。
统计二维数组A(1 To 6, 1 To 6)第一列所有元素中奇数元素的个数，并在窗体上输出其结果。数组元素值为[0，100]内（包Leabharlann Baidu0和100）的随机整数。
* 2、点击“结束计时”按钮，停止计时。
* 3、未计时时，“开始计时”按钮可用，“结束计时”按钮不能用。
*计时过程中，“开始计时”按钮不可用，“结束计时”按钮能用。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*利用随机函数产生20个10～99之间（包括10和99）的随机整数存入一维数组A，
*找出第一个偶数所在的位置及其值，然后输出。如果未找到就输出"not found"。
编写程序：
*计算并输出下面级数前n项（n=50）的部分和。
1*2+2*3+3*4+4*5+……+n*(n+1)+…
求一维数组A(1 TO 8)的最大元素值。
*程序段如下：
_______ = A(1)
For I = 2 To 8
*点击“字母转换”按钮，将小写字母转换成大写字母，大写字母转换成小写字母，其余字母不变，
*并在文本框2中显示转换后的字符串。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*设窗体上有一命令按钮控件Command1，对其Click事件设计一事件过程。
*求二维数组A(1 To 6, 1 To 6)的最大元素值所在位置（即：行号和列号），并在窗体上输出其结果。
22222
2222222
22222
222
2
*（此题要求有源程序，不要求填写程序运行结果）
编写程序：
*求一个4×4的整型矩阵的所有元素的平均值。（其中矩阵元素随机产生）
编写一个程序，如图K_204.jpg所示。
*界面要求：
*使用文本框、命令按钮控件完成。
*运行要求：
* 1、Text1中随机产生500以内的整数；
* 2、点击“验证”按钮，当Text1中输入的数据小于300时，Text2显示Text1中的数据，
*否则，使用MsgBox显示“重新计算”，并使焦点重新回到Text2上。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*已知一个具有10个整数的一维数组，各元素值随机产生（范围在[10，99]内），
编写程序：
*用随机函数产生10个1～10之间（包括1和10）的随机整数存入一维数组A，
*通过键盘输入数值m，然后用A(m)的值作为下标，打印出对应数组元素的值。
编写程序：
*计算并输出下面级数前n项（n=50）的部分和。
1*2+2*3+3*4+4*5+……+n*(n+1)+…
编写一个程序，如图K_204.jpg所示。
*界面要求：
*使用标签、文本框、命令按钮完成。
*运行要求：
*单击“计算”按钮，计算从“起始值”到“终止值”之间（包括起始值和终止值）所有整数的累加和，并显示到标签中。
*如图为输入1和10时运行结果。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*使用数组，求出下列数列的前30项中所有能被3整除的数据项：
编写一个复制字符串的程序，如图x_17.jpg所示。
*界面要求：
*使用文本框、命令按钮完成。
*运行要求：
* 1、点击“清除”按钮，将所有的文本框内容清空；
* 2、点击“复制”按钮，如上面文本框有选中的文本，则将选中的文本复制到下面文本框中，
*否则，将上面文本框所有内容复制到下面文本框中。
*（此题要求上载窗体文件，不要求填写程序运行结果）
*界面要求：
*使用文本框、命令按钮控件完成。
*运行要求：
* 1、Text1中随机产生500以内的整数；
* 2、点击“验证”按钮，当Text1中输入的数据小于300时，Text2显示Text1中的数据，
*否则，使用MsgBox显示“重新计算”，并使焦点重新回到Text2上。
*（此题要求上载窗体文件，不要求填写程序运行结果）
*运行要求：
* 1、输入帐户：张三
* 2、输入密码：123456
* 3、点击“确定”按钮时进行判断。
*如果帐户和密码都对，使用MsgBox显示“此帐户通过验证”；
*如果帐户对密码不对，使用MsgBox显示“密码错误”，清空密码重新输入；
*如果帐户不对，清空帐户和密码输入框，使用MsgBox显示“此帐户不存在”，
*数组元素值为[0，100]内（包括0和100）的随机整数。
编写程序：
使用双重循环，求[100，160]以内的素数并以紧凑格式在窗体上一行输出，然后计算出个数s。
编写一个分类统计的程序，如图K_115.jpg所示。
*界面要求：
*使用文本框、命令按钮完成。
*运行要求：
* 1、在文本框中输入若干英文字符串；
*找出其中的最大值和最小值。
编写程序：
*求出斐波那契数列前9项的和。
*提示：前两项为：0，1，从第3项开始，每一项均为其前两项的和（即：0+1+1+2+3+5+...）。
编写一个字母转换的程序，如图K_401.jpg所示。
*界面要求：
*使用文本框、命令按钮控件完成。
*运行要求：
*在文本框1中输入任意字符串；
编写一个秒表程序，如图K_310.jpg所示。
*界面要求：
*使用一个标签，一个命令按钮、一个时钟控件完成。
*运行要求：
* 1、点击“开始计时”按钮，开始计时，标签中显示时间，时间精度是百分之一秒；
* 2、点击“结束计时”按钮，停止计时。
* 3、“开始计时”，“结束计时”由一个命令按钮实现。
*（此题要求上载窗体文件，不要求填写程序运行结果）
*并将焦点重新定位到帐户输入框。
* 4、点击“取消”按钮，则结束程序运行。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*设窗体上有一命令按钮控件Command1，对其Click事件设计一事件过程。
*统计二维数组A(1 To 6, 1 To 6)的所有值是偶数的元素的个数，并在窗体上输出其结果。
* 2、单击“统计”命令按钮后，判断文本框中“H”到“S”之间各个英文字母（不区分大小写）出现的次数，并输出到窗体上。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*用随机函数产生10个50以内（包括50）的随机整数存入一维数组，从键盘输入一个数，
*然后用顺序查找法，统计该数在一维数组中出现的次数。
ABC
A
（此题要求有源程序，不要求填写程序运行结果）
界面要求：
*使用标签、文本框、命令按钮控件
*运行要求：
*单击“产生随机数”按钮，文本框中随机产生[-10，10]范围内的整数10个；
*单击“统计”按钮，使用标签分别显示正数和零的个数、负数的个数。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
0,0,1,1,2,4,7,13,.......
编写程序：
*要求能够产生一个[10，100]内（包括10和100）的一个随机数，然后判断其是否是素数。
*如果是，在窗体上输出"yes"，否则，输出"no"。
1*2+2*3+3*4+4*5+……+n*(n+1)+…
编写一个同时显示日期和时间的程序，如图K_7844.jpg所示。
*界面要求：
*使用标签、命令按钮、时钟控件完成。
*运行要求：
*点击“显示日期和时间”按钮，标签开始显示日期和时间（上、下居中，左右居中）。
*（此题要求上载窗体文件，不要求填写程序运行结果）
*（此题要求上载窗体文件，不要求填写程序运行结果）
界面要求：
*使用标签、命令按钮、时钟控件完成。
*运行要求：
*点击“显示日期和时间”按钮，标签开始显示日期和时间（上、下居中，左右居中）。
*（此题要求上载窗体文件，不要求填写程序运行结果）
编写程序：
*打印出以下图案。
A
ABC
ABCDE
ABCDEFG
ABCDE
编写程序，输出下列三角形：
1
111
11111
1111111
（此题要求有源程序，不要求填写程序运行结果）
*编写一个根据月份求月天数的程序，如图x_7b.jpg所示。
*界面要求：
*使用文本框，标签，命令按钮完成。
*运行要求：
* 1、点击“天数”按钮，结果文本框中显示今年（2007年）该月份的天数；
* 2、点击“结束”按钮，则结束程序运行。
编写程序：
*统计二维数组A(1 TO 6, 1 TO 6)所有非靠边元素中偶数元素的个数，并在窗体上输出其结果。(数组元素值为[0，10]内的随机整数)。
*编写程序，输出下列三角形：
1234567
12345
123
1
*（此题要求有源程序，不要求填写程序运行结果）
*编写一个计算累加和的程序，如图K_502.jpg所示。