计算机VB语言编程题4个求答案，非常急用！！！答的好追加分数！！！！

来源：百度知道 编辑：UC知道 时间：2024/07/02 02:42:36
1求区间[1,100]的全部质数并统计个数？
2随机产生十个随机整数得到数组A？并用选择排序法将这十个数由小到大排序？有一数组B[3,5,7,11,15]，用合并排序法将A、B合并，按递增顺序放入数组C中？
3有一数组A[11,25,37,46,58,64,72,79,84,97,115]用二分法查找79位置？
4在窗体上随机打印出n个小写的英文字母？

1.添加一个CommandButton
'求1——100之间的质数
Private Sub Command1_Click()
Dim i As Integer,j As Integer,K As Integer,isz As Boolean
ReDim a(0) As Integer
K = 0
For i = 3 To 97 Step 2
isz = True
For j = 2 To Sqr(i)
If i Mod j = 0 Then
isz = False
Exit For
End If
Next j
If (isz = True) Then
ReDim Preserve a(LBound(a) To UBound(a) + 1)
a(K) = i:K = K + 1
End If
Next i
Print "1—100总共有" & K & "个质数"
For i = 0 To K - 1
Print a(i)
Next i
End Sub

2.添加一个CommandButton
Dim A(9) As Integer '定义数组A
Private Sub Command1_Click()
Dim B(4) As Integer, C(14) As Integer, i As Integer
Dim j As Integer, min As Integer, t As Integer, MyValue As Integer
j = 0 '初始化
For i = 0 To 9 '随机产生10个整数
Randomize ' 对随机数生成器做初始化的动作。
MyValue = Int((100 * Rnd) + 1) ' 生成 1 到 100 之间(包括100