编写一个逆序函数

Private Function Invert(ss as string ) as string   Dim i As Integer

For i = len(ss) To 1 Step -1

Invert = Invert & mid(ss,I,1)

If   s= Invert(s) Then    ‘

2找一个nm的二维数组的“鞍点”。“鞍点”是指它在本行中数值最大，在本列中数值最小。也可能在一个数组中找不到鞍点。输出鞍点的行、列号，如无鞍点则输出“无鞍点”。ReDim a(n, m)   maxvr = a(i, 1): col = 1  If maxvr > a(j, col) Then Exit For

 If Not find Then Print "鞍点元素不存在"

3图所示由用户输入生成10个自然数，分别显示其中的偶数、奇数以及它们的和。

Dim a(n) as INteger   

a(i) = Val(InputBox("请输入A(" & I & "):", ,I))

Text1.Text = Text1.Text & “  “ & a(i) 

If    I mod 2=0         Then Txteven= Txteven & I & vbcrlf   

 even = even + i

Else Txtodd= Txtodd & I & vbcrlf 

   Odd=odd+i                   

4利用数组存放Fibonacci数列的前20项，并显示输出（每4个一行）。说明：Fibonacci数列的前两项为1，从第三项开始，每项数据都等于前两项数据之和，即数列为：1，1，2，3，5，8，13，……

     Fibo(1 to 20) As Integer         

 Fibo(1) = 1

   Fibo(2)=1                  

For i = 3 To 20

Fibo(i)=   Fibo(i-1)+Fibo(i-2)              Print Fibo(i),                If I mod 4=0 then print     

5如图所示由用户输入生成10个自然数，分别显示其中的偶数、奇数以及它们的和。

Option Explicit

Const n = 10

 Dim a(1 to n) As integer        ‘定义数组

Private Sub CmdCreate_Click()

Dim i  As Integer

Text1 = ""

For i = 1 To n 

a(i) =    val(Inputbox(“请输入第”, & I & “个数”,”project1”))          

Text1.Text = Text1.text & a(i) & ”  ”   

 Next i

End Sub

Private Sub CmdDisp_Click() Dim I As Integer, odd As Integer, even As Integer Txteven = ""  :    Txtodd = "" even = 0 :  odd = 0 For  i=1 to n If    a(i) mod 2=0           Then   Txteven= Txteven & a(i) & vbcrlf    even = even + a(i)ElseTxtodd= Txtddd & a(i) & vbcrlf   

  Odd=odd+a(i)                      

 End If Next i Txteven = Txteven & "偶数和为" & even Txtodd = Txtodd & "奇数和为" & odd