【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：VB实验5（数组） - 编程语言绩等信息，祝愿广大网友取得需要的信息，参考学习。

    

第八章 数组实验 案例一、数组For循环 程序运行后建立一个二维数组要求第一维的下标从1到7第二维的下标从1到8.然后给数组中的每个元素赋值赋值规则为aiji10j。

    然后在窗体上输出所有数值。

    实现两种输出方式1、所有数据输出在不同行上2、按矩阵形式输出 Option Base 1 Private Sub Form_Click Dim i j Dim a7 8 As Integer For i 1 To 7 For j 1 To 8 ai j 10 i j Print ai j Next j Print Next i End Sub 案例二、二维数组 要求 1、首先在程序中定义一个整型二维数组Arr1 to51 to 4 2、利用双重循环给数组赋值具体赋值公式为 Arriji10j 3、在窗体上输出数组的值界面如图4-1所示 4、画命令按钮1单击时输出各行和各列的和。

     5、画命令按钮2单击时输出主对角线和副对角线上的数 6、交换第二行和第三行的数据并在窗体上输出换行后的数组界面如图4-2所示。

     7、交换第二列和第四列的位置界面如图4-3所示。

     Option Base 1 Private Sub Command1_Click Dim arr5 4 As Integer For i 1 To 5 For j 1 To 4 arri j 10 i j Print arri j 图4-1 Next j Print Next i End Sub Private Sub Command2_Click Dim arr5 4 As Integer Print For i 1 To 5 Sum 0 For j 1 To 4 arri j 10 i j Sum Sum arri j Next j Print i 行的和 Sum Next i End Sub Private Sub Command3_Click Dim arr5 4 As Integer Print For j 1 To 4 Sum 0 For i 1 To 5 arri j 10 i j Sum Sum arri j Next i Print j 列的和 Sum Next j End Sub Private Sub Command4_Click Dim arr5 4 As Integer i j Print For i 1 To 5 For j 1 To 4 arri j 10 i j If i j Or j i 5 Then Print arri j Next j Next i End Sub 案例三、冒泡排序法 将数组“5 7 6 10 3 8 12”按降序排列。

     案例四、数组For循环 在考生文件夹下有一个工程文件sjt3.vbp相应的窗体文件为sjt3.frm。

    其功能是产生20个0-1000的随机整数放入一个数组中然后输出这20个整数中小于500的所有整数之和。

    程序运行后单击命令按钮名称为Command1标题为“输出小于500的整数之和”即可求出这些整数的和并在窗体上显示出来这个程序不完整请把它补充完整并能正确运行。

     要求请去掉程序中的注释符把程序中的改为正确的内容使其实现上述功能但不能修改程序中的其他部分最后把修改后的文件按原文件名存盘。

     案例五、数组For循环 在考文件夹下有一个工程文件sjt3.vbp相应的窗体文件为sjt3.frm。

    其功能是产生30个0-1000的随机整数放入一个数组中然后输出其中的最小值。

    程序运行后单击命令按钮名称为Command1标题为“输出最小值”即可求出其最小值并在窗体上显示出来如图所示。

    这个程序不完整请把它补充完整并能正确运行。

     要求去掉程序中的注释符把程序中的改为正确的内容使其实现上述功能但不能修改程序中的其他部分。

    最后把修改后的文件按原文件名存盘。

     案例六、数组 在考生文件夹中有工程文件sjt3.vbp其中的窗体如图所示。

    程序刚运行时会生成一个有10个元素的整型数组。

    若选中“查找最大值”或“查找最小值”单选按钮再单击“查找”按钮则找出数组中的最大值或最小值并显示在标签label2中。

    请去掉程序中的注释符把程序中的改为正确的内容。

     注意考不得修改窗体文件中已经存在的程序最后把修改后的文件按原文件名存盘。

     案例七、打印图案1 要求请修改给出的程序代码使得单击窗体时可以在窗体上打印出如下图形。

    提示请先将如下图4-2 代码复制到代码窗口然后去掉程序前面的注释符号“’”将“”改为相应的程序 已给出程序如下 Private Sub Form_Click FontSize 14 star For i 1 To 9 Print Tab16 -i String2i-1 star Next i For i 8 To 1 Step -1 Print Tab16 -i String2i-1 star Next i End Sub 案例八、打印图案2 要求请在下面的程序中的“”处加入适当的语句块使得单击窗体时可以在窗体上打印出如下图形。

     Private Sub Form_Click FontSize 14 ss ★ For i 1 To 5 Print Tab16 - 2 i For j 1 To 2 i - 1 Print ss Next j Print Next i For i 4 To 1 Step -1 Print Tab16 - 2 i For j 1 To 2 i - 1 Print ss Next j Print Next i End Sub