计算机VB简单编程题目实训九

《计算机VB简单编程题目实训九》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实训九数组的应用一、实训目的1、掌握数组的声明、数组元素的引用等基本使用方法。2、能够熟练地应用控件数组。二、实训内容1、数组的基本使用【实训要求】随机产生二位整数的二维数组a(3,3)并打印在窗体上，然后交换最左边和最右边的两列元素，然后输出对角线上的元素。结果如图所示：sx9_1.VBP制作：柳淑花【实训步骤】第1步：启动VB，新建一标准工程。第2步：编写代码：PrivateSubForm_Click()ClsPrint"输出原数组："Fori=0To3Randomize‘初始化随机数生成器a(i,j)=Int(90*Rn

2、d+10)Printa(i,j);NextPrintNext制作：柳淑花Print"===================="'第0列与第3列交换Fori=0To3NextPrint"输出交换后的数组："Fori=0To3Forj=0To3NextPrintNextPrint"===================="制作：柳淑花Print"输出数组对角线元素："Fori=0To3Forj=0To3Printa(i,j);ElsePrint"";'4个空格EndIfNextPrintNextEndSub运行程序后，单击窗体将在

3、窗体上显示出如上图所示的方阵。制作：柳淑花2、控件数组【实训要求】单击界面中的不同图标便可以启动相应的Windows程序。sx9_2.VBP【实训步骤】第1步：在窗体上添加一个命令按钮数组（Command1(0)、Command1(1)、Command1(2)、Command1(3)）。第2步：设置对象属性，如下表：控件名属性属性值Command1(0)Caption记事本Command1(1)Caption画图Command1(2)Caption写字板Command1(3)Caption计算器制作：柳淑花第3步：编写代码：P

4、rivateSubCommand1_Click(indexAsInteger)SelectCaseIndexCase0Shell“c:windowsotepad.exe”,1Case1Shell“c:windowspbrush.exe”,1Case2Shell“c:windowswrite.exe”,1Case3Shell“c:windowscalc.exe”,1EndselectEndSub想一想：如何给按钮加上图片？如图：制作：柳淑花3、做一做要求：随机产生的10个整数存放在数组sort（1To10）中，

5、然后用冒泡法按递增的顺序进行排序。sx9_3.VBPPrivateSubForm_Click()DimtempAsIntegerFori=1To10randmizeNextPrint"排序前："Fori=1To10NextPrint制作：柳淑花'开始排序Fori=1To9Ifsort(j)>sort(j+1)ThenEndIfNextjNextiPrint"排序后："Fori=1To10NextPrintEndSub制作：柳淑花4、做一做要求：编程显示国际象棋的棋盘，界面如图：sx9_4.VBPPrivateSubForm_L

6、oad()Form=1To63LoadLabel1(m)'产生Label1控件数组的其他63个成员Label1(m).Visible=True'将Label1控件数组的其他63个成员设置为可见NextEndSub制作：柳淑花制作：柳淑花