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 "最大值是:" & 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
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