vb实验报告5

台州学院VB程序设计实验报告实验五：数 组班级：12化学师范学号：1232010045姓名：屈王波实验日期：2013/5/8一、实验目的和要求1掌握数组的声明、数组元素的引用；2掌握静态数组和动态数组的使用差别；3应用数组解决与数组有关的常用问题。二、实验主要仪器和设备计算机一台，Windows XP操作系统，Visual Basic环境。三、实验内容实验5.1 输入10个数给x数组，找出其中值为最大的元素并将其与第一个元素互换，找出值最小的元素并将其与最后一个元素互换，其他元素不动。如原来：8，7，9，15，0，3，-8，19，31，5输出：31，7，9，15，0，3，5，19，8，-8实验5.2 编写事件过程Command1_Click，完成下列运算：（1）输入10个数到整型数组a；（2）将a(1)各位数字和赋值到b(1)、a(2)各位数字和赋值到b(2)、.、a(10)各位数字和赋值到b(10)；（3）在窗体上以一行输出a数组各元素值（保持原输入值不变）；（4）在窗体上以一行输出b数组各元素值。实验5.3 利用随机函数产生30个不同的三位正整数，打印出这30个数，然后将它们按从大到小的次序排序，并打印出排序后的结果。实验5.4（选做）输入n后，再输入n个数a1,a2,，an,按照下列公式计算s的值并显示。四、实验原始纪录实验5.1程序的界面设计。程序代码。 Private Sub Command1_Click() Dim a(1 To 10) As Integer, i As Integer, max As Integer, min As Integer Dim x As Integer, y As Integer a(1) = Val(InputBox(请输入第1个数) max = a(1): min = a(1) Print 输入:; a(1); For i = 2 To 10 a(i) = Val(InputBox(请输入第 & i & 个数) Print a(i); If max = a(i) Then min = a(i): y = i Else min = min End If Next i Print Print 输出:; a(x) = a(1): a(y) = a(10): a(1) = max: a(10) = min For i = 1 To 10 Print a(i); Next iEnd SubPrivate Sub Command2_Click() EndEnd Sub实验5.2程序的界面设计。程序代码。Private Sub Command1_Click() Dim a(1 To 10) As Long, b(0 To 10) As Long, i As Long Dim m As Integer, n As Integer, x As Long Print a的值：; For i = 1 To 10 a(i) = Val(InputBox(请输入第 & i & 个数) Print a(i); m = Len(a(i) For n = 1 To m4 x = Val(Mid(a(i), n, 1) b(i) = b(i) + x Next n Next i Print Print b的值：; For i = 1 To 10 Print b(i); Next iEnd SubPrivate Sub Command2_Click() EndEnd Sub实验5.3程序的界面设计。程序代码。Private Sub Command1_Click() Dim a(1 To 30), i As Long, j As Long Print 随机数:;: Print For i = 1 To 30 a(i) = Int(Rnd * (999 - 100 + 1) + 100) If i = 11 Or i = 21 Then Print Print a(i); Else: Print a(i); End If Next i For j = 30 To 2 Step -1 For i = 2 To j If a(i - 1) = a(i) Then m = a(i) Else m = a(i - 1) a(i - 1) = a(i) a(i) = m End If Next i a(j) = m Next j Print: Print 从大到小排序：;: Print For i = 1 To 30 If i = 11 Or i = 21 Then Print Print a(i); Else: Print a(i); End If Next i Print Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click() EndEnd Sub实验5.6（选做）程序的界面设计。程序代码。Private Sub Command1_Click() Dim n As Long, m As Long Dim v As Single, s As Single, x As Single, y As Single n = Val(InputBox(请输入n) ReDim a(n) As Long For m = 1 To n a(m) = InputBox(请输入数值) x = x + a(n) Next m v = x / n For m = 1 To n y = y + (a(m) - v) 2 Next m s = y 0.5 / n Print sEnd Sub五、实验结果