计算机作业

输出比较大小后的数字

Option Base 1

Dim a(10) As Integer

 

 

Private Sub Command1_Click()

For i = 1 To 10

   a(i) = InputBox("输入第" & i & "个数")

Next i

 

End Sub

 

Private Sub Command2_Click()

 Dim max As Integer

 Dim min As Integer

 Dim sum As Integer

 max = a(1)

 min = a(1)

 sum = 0

  Print "数组元素是："

  For i = 1 To 10

    Print a(i)

    sum = sum + a(i)

    If max < a(i) Then max = a(i)

    If min > a(i) Then min = a(i)

Next i

Print

Print "最大值是：" & max

Print "最小值是：" & min

Print "平均值是：" & sum / 10

 

End Sub

 

 

Dim a()

Private Sub Command1_Click()

Dim n As Integer '

Dim wz As String

wz = Text1.Text

n = Len(wz)

ReDim a(1 To n)

For i = 1 To n

a(i) = Mid(wz, i, 1)

Next

 

 

For i = n To 1 Step -1

Text2.Text = Text2.Text & a(i)

Next

 

End Sub

 

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

 

End Sub

 

 

 

 

 

 

Dim a(1 To 4, 1 To 4) As Integer

 

 

Private Sub Command1_Click()

For i = 1 To 4

   For j = 1 To 4

       Print a(i, j)

    Next j

    Print

   

Next i

 

End Sub

 

Private Sub Command2_Click()

Dim sum As Integer

Dim a As Integer

sum = 0

For i = 1 To 4

    For j = 1 To 4

    sum = sum + a(i, j)

    If i = j Or i = 5 - j Then s = s + a(i, j)

    Next j

Next i

Print "所有元素之和：" & sum

Print "主对角元素之和：" & s

 

   

 

End Sub

 

Private Sub Form_Load()

Dim p As Integer

  p = 31

  For i = 1 To 4

      For j = 1 To 4

      a(i, j) = p + (j - 1) * 2

       Next j

       p = p + 10

  Next i

 

End Sub