南华大学计算机学院 visual basic程序设计实验指导1.doc

南华大学计算机学院 visual basic程序设计实验指导 实验任务 任务一、窗体上有一个标题为“得分”的框架，在框架中有一个名称为Text1的文本框数组，含六个元素；文本框Text2用来输入难度系数。程序运行时，在左边的六个文本框中输入6个得分，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并在文本Text3中显示（如图所示）。计算方法为去除最高分、最低分后，求出平均分，平均分*难度系数，得出最后得分。 任务二、数组a中的100个正整数(显示在Text1文本框中),单击“分组”按钮，则将数组a中所有3的倍数的元素存入数组b中，并对数组b中的元素从小到大排序后显示在文本框Text2中。数组a中的数据随机产生，数组b中的数据使用冒泡法排序。 任务三、单击“产生数组”按钮，则用随机函数生成10个0~100之间（不含0和100）互不相同的数值，并将他们保存到一维数组a中，同时也将这10个数值显示在Text1文本框内；单击“查找”按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数“不存在于数组中”；否则给出该数在数组中的位置。 任务四、窗体上有一个单选按钮数组，含三个单选按钮；还有一个标题为“显示”的命令按钮（如图所示）。程序的功能是，在运行时，如果选中一个单选按钮并单击“显示”按钮，则在窗体上显示相应的信息，例如若选中“小学生”，则在窗体上显示“我是小学生”。 阅读练习： 1、在窗体上画一个名称为Label1 的标签，然后编写下列事件过程： Private Sub Form_Click( ) Dim arr(10,10)As Integer Dim i As Integer, j As Integer For i=2 To 4 For j=2 To 4 arr(i,j)=j*j Next j Next i Label1. Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是（ ）。 2、阅读程序： Option Base 1 Dim arr( )As Integer Private Sub Form_Click( ) Dim i As Integer, j As Integer ReDim arr(3,2) For i = 1 To 3 For j = 1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 to 4 arr(3,j)=j+9 Next j Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输出结果为（ ）。 A）21 B）13 C）8 D）25 3、在窗体上画一个名称为Command1 的命令按钮，然后编写下列事件过程： Option Base 1 Private Sub Command1_Click( ) Dim c As Integer, d As Integer d=0 c=6 x=Array(2,4,6,8,10,12) For i = 1 To 6 If x(i)c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的内容为（ ）。 A）10 B）16 C）12 D）20 4、有下列程序： Option Base 1 Private Sub Command1_Click( ) Dim arr1 Dim Min As Integer , i As Integer arr1=Array(12,435,76,-24,78,54,866,43) Min= 【12】 For i=2 To 8 If arr1(i)Min Then 【13】 Next i Print最小值是:;Min End Sub 以上程序的功能是：用Array 函数建立一个含有8 个元素的数组，然后查找并输出该 数组中各元素的最小值。请填空。 5、在窗体上画一个命令按钮，其名称为Command1，然后编写下列事件过程： Private Sub Command1_Click( ) Dim a1(4,4),a2(4,4) For i=1 To 4 For j=1 To 4 a1(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i Print a1(3,3);a2(3,3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是（ ）。 A）6 6 B）10 5 C）7 21 D）6 12 6、25）有下列事件过程：