2道VB题,急!

来源：百度知道 编辑：UC知道 时间：2024/05/06 02:30:30
一个自然数是素数,且他的数字位置经过任意兑换后仍为素数,则称为绝对素数,例如13.试找出所有的2位绝对素数.
编写一个程序,将任意一个整数N的立方分解为N个连续的奇数之和.例如:输入4,输出13.15.17.19.即4的立方=13+15+17+19

谁能帮忙写一下,谢谢.

Private Sub Command1_Click()
For i = 11 To 99 Step 2
If IsPrime(i) Then
n = i \ 10 + (i Mod 10) * 10
If IsPrime(n) Then Print i;
End If
Next i
End Sub

Public Function IsPrime(ByVal num As Long) As Boolean
Dim m As Long
m = Sqr(num)
IsPrime = True
For i = 2 To m
If num Mod i = 0 Then
IsPrime = False
Exit For
End If
Next i
End Function

Private Sub Command2_Click()
Dim a As Integer
a = InputBox("输入")
n = a ^ 2
For i = 1 - a To a - 1 Step 2
Print n + i;
Next i
Print
End Sub

'第一题
Dim Panduan As Boolean
Private Sub Form_Click()
Dim a As Integer
For i = 10 To 99
SuShu i
a = Val(Right(CStr(i), 1) & Left(CStr(i), 1))
If Panduan = True Then
SuShu a