Question

请高手帮忙编写以下vb程序，谢谢

1。编写一个自定义函数，返回给定的整数串中包含指定数码的个数（如：数值2345105中包含数码5的个数为2）
提示：主程序实现整数串和指定数码的输入、以及统计结果的输出，比较、统计的过程由函数实现。方法：转换成字符串处理，用mid函数逐个比较

2。因式分解，实现将任意一个正整数分解为其最小因子的连乘式。如：8=2*2*2
用素数判断 Prime函数

3。编制通用sub过程，将Single类型一位数组反序排放（如实参数组元素依次为6。5。9。7。，调用后为7。9。5。6；若为-3.2 。4 。2.6 。31 。7.3，调用后为7.3 。 31 。2.6 。 4。 -3.2 ）

Answer 1

1。
Private Function FindA(s As String, b As String) As Integer
Dim n As Integer
Dim intCont As Integer
n = Len(s)
For i = 1 To n
If b = Mid(s, i, 1) Then
intCont = intCont + 1
End If
Next i
FindA = intCont
End Function
Private Sub Command1_Click()
Dim s As String
s = Text1.Text
Print FindA(s, Text2.Text)
End Sub
2。
Private Function OutZ(a As Double) As String '取最小因子
Dim str As String
Dim flag As Boolean
For i = 2 To a / 2
If flag = False Then
If (a Mod i) = 0 Then
flag = True
OutZ = i
Debug.Print i
End If
End If
Next i
End Function
Private Function SS(a As Double) As Boolean '判断是否是素数
Dim b As Boolean
For i = 2 To a - 1
If (a Mod i) = 0 Then
b = True
End If
Next i
If b = True Then
SS = False
Else
SS = True
End If
End Function

Private Sub Command1_Click()
Dim a As Double
Dim n As String
Dim p As Integer
p = 0
a = Val(Text1.Text)
Do While SS(a) = False
p = p + 1
n = n & OutZ(a) & "*"
a = Int(a / Val(OutZ(a)))
If SS(a) = True Then
n = n & a
End If
Loop
If p = 0 Then
n = ""
n = "1 * " & a
End If
Text2.Text = n
End Sub

3。
Private Sub Fxpx(V As Variant)
Dim n As Integer
Dim B() As Single
n = UBound(V)
ReDim B(n) As Single
For i = 0 To n
B(n - i) = V(i)
Next i
For i = 0 To n
V(i) = B(i)
Next i
End Sub

Private Sub Command1_Click()
Dim A As Variant
A = Split(Text1.Text, ",") 'text1中输入数字，每个数字用，好分隔。
Fxpx A
For i = 0 To UBound(A)
Text2.Text = Text2.Text & A(i) & ";"
Next i

End Sub