在Visual Basic（VB）中编写数组编程的大题，通常需要涵盖数组的初始化、操作、以及输出结果。以下是一些可能的大题示例和解答：
题目1：求100以内的素数
```vb
Private Sub Form_Click（）
Dim i%, j%
For i = 2 To 100
For j = 2 To i - 1
If i Mod j = 0 Then Exit For
Next j
If j = i Then Print i
Next i
End Sub
```
题目2：从键盘输入任意长度的字符串，要求将字符顺序倒置
```vb
Private Sub Command1_Click（）
Dim a$, I%, c$, d$, n%
a = InputBox$（"输入字符串"）
n = Len（a）
For I = 1 To Int（n \ 2）
c = Mid（a, I, 1）
Mid（a, I, 1） = Mid（a, n - I + 1, 1）
Mid（a, n - I + 1, 1） = c
Next I
Print a
End Sub
```
题目3：计算0~200之间所有能被11或5整除的数之和
```vb
Private Sub Form_Click（）
Dim n%, i%
n = 0
For i = 1 To 200
If i Mod 11 = 0 Or i Mod 5 = 0 Then n = n + i
Next i
Print n
End Sub
```
题目4：输入一年份，判断它是否为闰年，并显示有关信息
```vb
Private Sub Command1_Click（）
Dim year%, isLeapYear As Boolean
year = Val（InputBox（"输入年份："））
isLeapYear = （year Mod 4 = 0 And year Mod 100 <> 0） Or （year Mod 400 = 0）
If isLeapYear Then
MsgBox "是闰年"
Else
MsgBox "不是闰年"
End If
End Sub
```
题目5：随机产生n个四位数正整数，求出其中的奇数之和
```vb
Private Sub Command1_Click（）
Dim i As Long, n As Long, sum As Long
n = InputBox（"输入一个正整数：", , 10）
sum = 0
For i = 1 To n
If i Mod 2 <> 0 Then
sum = sum + i
End If
Next i
Label1.Caption = "奇数之和： " & sum
End Sub
```
题目6：随机产生20个数值数据，放入数组a，再将其中的整数放入数组b，然后运用“选择法”将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出
```vb
Private Sub Form_Load（）
Dim arr（1 To 20） As Integer
Dim i As Integer, j As Integer, k As Integer
Randomize
For i = 1 To 20
arr（i） = Int（Rnd * 100）
Next i
For i = 1 To 20
k = i
For j = i + 1 To 20
If arr（k） < arr（j） Then
t = arr（k）
arr（k） = arr（j）
arr（j） = t
End If
Next j
Print arr（i）；
Next i
End Sub
```
题目7：使用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中的最小值
```vb
Private Sub Form_Click（）
Dim arr1（） As Integer
Dim Min As Integer, i As Integer
arr1 = Array（12, 435, 76, 23, 89, 102, 34, 56）
Min = arr1（0）
For i = 1 To UBound（arr1）
If arr1（i） < Min Then
Min = arr1（i）
End If
Next i
MsgBox "最小值为： " & Min
End Sub
```
题目8：输入3个数，输出最大的数