[偃旗息鼓的偃和息是什么意思谢谢了]偃旗息鼓 [读音][yǎn qí xī gǔ] [解释]偃：仰卧，引伸为倒下。放倒旗子，停止敲鼓。原指行军时隐蔽行踪，不让敌人觉察。现比喻事情终止或声势减弱。 [出处]《三国志·赵云传》：...+阅读

另外说一下，您的题目有错误：长度为十的数组应该为a(9)，不是a(10),a(9)= a(0)->a(9)

代码：

Option Explicit

Dim I As Integer

Private Sub Command1_Click()

Dim a(9) As Integer

Dim Max%, Min%, tmp%

Randomize Timer

Form1.Cls

Print ＂十个随机数：＂

For I = 0 To 9

a(I) = Int(Rnd() * 100 + 1)

Print a(I)

Next I

Max = FindMax(a()): Min = FindMin(a())

Print ＂最大数下标：＂； Max: Print ＂最小数下标：＂； Min

tmp = a(Max): a(Max) = a(Min): a(Min) = tmp

Print ＂重组后：＂

For I = 0 To 9

Print a(I)

Next I

End Sub

Private Function FindMax(ByRef Str() As Integer) As Integer

Dim tmp As Integer: tmp = LBound(Str())

For I = LBound(Str()) + 1 To UBound(Str())

If Str(I) > Str(tmp) Then tmp = I

Next I

FindMax = tmp

End Function

Private Function FindMin(ByRef Str() As Integer) As Integer

Dim tmp As Integer: tmp = LBound(Str())

For I = LBound(Str()) + 1 To UBound(Str())

If Str(I) < Str(tmp) Then tmp = I

Next I

FindMin = tmp

End Function

以下为关联文档：

毕业贺词谢谢说几个初三凤凰花吐露着艳红，在祝福你我的梦。？当我们飞向那海阔天空，不要彷徨也不要停留。？？ 让我们共同摒弃对幸福的一味幻想，把希望寄托在对事业的执著追求上 也许你不情愿，也许你胆怯，但只...

什么是中国画？简单点拜托了各位谢谢中国画简称“国画”，在世界美术领域自成独特体系。它用毛笔、墨和中国画颜料，在特制的宣纸或绢上作画。在题材上有人物画、山水画、花鸟画、动物画等之分。在技法上又可分为工...

我们要向全校介绍自己的班集这个班的优点和特色！谢谢各位了！例如： 在飞厦校园中，有一个班级，它正迈着坚实的步伐向前，它正靠着勤奋的精神向上，它也正展开宏翅，翱翔于高空。那就是初二（3）班，一个拥有66名同学的团体，一个班级荣誉至上的团结集体。...

谁能帮忙找几首适合春天听的歌曲要节奏轻快点的谢谢！why dont you play it louder----why 我的爱情不见了------------------龙梅子&蓝雨 Tik Tok----------------------------Ke$ha 无法原谅---------------------------李佳...

求中文语法的标准句子结构谢谢指的是词、短语、句子在构造上具有一致性。 例如： 见面（词） 下雨（短语） 下雨了。（句子）， --这都是动宾结构。 地震（词） 你走（短语） 小王回来了。（句子） --这都是主谓结构。 请你读一读朱德...

结婚当天对新人当面说的的祝福语英文谢谢1. Please accept my hearty congratulations upon your marriage.May Peace,Health,Happiness and Bright Future attend both your bride and yourself until the end. 值...

我总是尿频怎么办拜托了各位谢谢中医将尿频列为“肾虚”的症状之一。当人的体质下降时是容易出现尿频现象.体质下降出现尿频问题是出在膀胱张力上。膀胱是由平滑肌组成的空腔容器，它的作用是储存尿液，它本身...

用VB编写程序'第一题答案 Private Sub Form_Click() Dim a(1 To 10) As Integer Print ＂原数组是：＂ For i = 1 To 10 a(i) = InputBox（＂请输入一个整数：＂） Print a(i); ＂ ＂; Next i Print Print ＂从...

VB简单程序编写新建个工程，在默认的窗口的Load里写代码： Private Sub Form_Load() Dim j As Integer Print ＂＂ Print ＂＂ For j = 1 To 5 Print Space(j - 1) + String((6 - j)， ＂▲＂） + Space(8) + S...