第五章经典例题及课后****题
数组
2012年5月23日制作
第五章经典例题及课后****题答案
-100之间的20个数打印,找出最值
Private Sub Command1_Click()
Dim max As Integer, min As Integer, x As Integer, i As Integer
Cls '每单击一次清除原来内容
max = 0 '假设较小的数为最大
min = 100 '假设较大的数为最小
Randomize
For i = 1 To 20
x = Int(Rnd * 101)
Print x;
If i Mod 10 = 0 Then Print '这一句设什么意思?有什么作用?
If x > max Then max = x
If x < min Then min = x
Next i
Print
Print "最大值为"; max
Print "最小值为"; min
End Sub
,在文本框输入一个数,将其插入到数组中,使得数组中的各元素保持小到大的次序,并显示,然后删除数组中负数元素并显示最后结果。
Dim a()
Private Sub Form_Load()
a = Array(-3, -6, 2, 4, 8, 12)
Print "原数组中的元素为:"
For i = 0 To 5
Print a(i);
Next i
Print
End Sub
Private Sub Command1_Click()
Dim i, j, x
x = Val()
For i = 0 To UBound(a)
If x <= a(i) Then Exit For
Next i
ReDim Preserve a(UBound(a) + 1)
For j = UBound(a) To i Step -1
a(j) = a(j - 1)
Next j
a(i) = x
Print "插入元素后的数组为:"
For i = 0 To UBound(a)
Print a(i);
Next i
Print
End Sub
Private Sub Command2_Click()
i = 0
Do While (i <= UBound(a))
If a(i) < 0 Then
If i < UBound(a) Then
For j = i To UBound(a) - 1
a(j) = a(j + 1)
Next j
End If
ReDim Preserve a(UBound(a) - 1)
n = n - 1
Else
i = i + 1
End If
Loop
Print "删除负数后数组为:"
For i = 0 To UBound(a)
Print a(i);
Next i
End Sub
输入十个数找出最小的数的下标并显示
Private Sub Command1_Click()
Dim a(1 To 10) As Single, min As Single, s As Single, n As Integer
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个数")
Next i
min = a(1)
For i = 1 To 10
If a(i) <= min Then
n = i: min = a(i)
End If
Next i
MsgBox ("最小的数的下标是:" & n)
End Sub
,将两数组元素合并,使合并后的数组仍然升序排
Private Sub Command
第五章(数组)编程题 来自淘豆网www.taodocs.com转载请标明出处.