查人人中国名人网四川航天大学是985吗?:vb编程两小题(thank you)
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/27 16:58:54
1.随机产生10个10-99之间的整数,存入数组,找出其中最大和最小值的元素及其位置.
2.编一个函数过程delete(s1,s2)将字符串s1中出现的s2的字符串删去,结果还是存放在s1中,例如s1="qwe123ad",s2="123"结果为:s1="qwead".
2.编一个函数过程delete(s1,s2)将字符串s1中出现的s2的字符串删去,结果还是存放在s1中,例如s1="qwe123ad",s2="123"结果为:s1="qwead".
1
Dim i As Long, lTemp(9) As Long, lTemp2 As Long, MaxIndex As Long, Max As Long, MinIndex As Long, Min As Long
For i = 1 To 10
Randomize
lTemp2 = Rnd * 99 + 1
lTemp(i - 1) = lTemp2
Next
lTemp2 = lTemp(0)
Max = 10
Min = 99
For i = 0 To 9
If Max < lTemp(i) Then
MaxIndex = i
Max = lTemp(i)
End If
If Min > lTemp(i) Then
MinIndex = i
Min = lTemp(i)
End If
Next
MsgBox "max is " & Max & ",index=" & MaxIndex & vbCrLf & "min is " & Min & ",index=" & MinIndex
2简单
sub delete(s1 as string,s2 as string)
s1=replace(s1,s2,"")
end sub