Question

vb编程！！请高手帮帮忙~~

1、验证歌德巴赫猜想。即一个大于等于6的偶数可以表示为两个素数之 和。如：6=3+3；8=3+5；10=3+7.
2、将一堆数组中的10个元素向右循环移n位。例如：数组各元素的值依次 为：1、3、5、7、9、2、4、6、8、10；向右移3位后各元素的值依次 为： 6、8、10、1、3、5、7、9。 要求：数组各元素以及移位次数n使 用inputbox（）函数输入，移动和移动后的数据分别打印在窗体上。
3、用随机函数产生100个（0，99）范围内的随机整数，统计个位数上的数字为0 的元素个数。个位上的数字为1的个数......个位上的数字为9的元素个 数。
4、用随机函数产生50个10~100之间的互不相同的整数，存于一数组中，并 以升序每行10个数显示在窗体上。

Answer 1

1-------
Dim a() As Long
Dim N&
Dim pstr As String

Private Sub Prime(num&)
Dim i&, j&
If num < a(0) Then Exit Sub
For j = a(0) To num Step 2
For i = 2 To N
If j Mod a(i) = 0 Then Exit For
If j < a(i) * a(i) Then
N = N + 1
ReDim Preserve a(N)
a(N) = j
pstr = pstr & "," & a(N)
Exit For
End If
Next i
Next j
a(0) = (num \ 2) * 2 + 1
End Sub

Private Sub Form_Click()
Dim jian&, jia&, k&, i&
k = InputBox("输入不小于6的偶数", , 6)
If Not IsNumeric(k) Then Exit Sub
If k <> Int(k) Then Exit Sub
If k Mod 2 Then Exit Sub
Call Prime(k) '计算较大数字是开始会比较慢，越大越慢
jia = k \ 2
Do
For i = 1 To N
If a(i) > jia Then
If InStr(pstr, k - a(i - 1)) Then
i = i - 1
Exit Do
End If
Else
jian = k - a(i - 1)
End If
Next i
For i = N To 1 Step -1
If a(i) < jian Then
If InStr(pstr, k - a(i + 1)) Then
i = i + 1
Exit Do
End If
Else
jian = k - a(i + 1)
End If
Next i
Loop
Form1.Print a(i) & "+" & (k - a(i))
End Sub

Private Sub Form_Load()
N = 2
ReDim a(N)
a(1) = 2
a(2) = 3
a(0) = 3
pstr = "2,3"
End Sub
2-----------
private sub m(n%)
if n=0 then exit sub
dim i%,j
j=a(10)
for i=1 to 9
a(i+1)=a(i)
next i
a(1)=j
call m(n-1)
end sub
3------------
dim a(99)%,b(9)%,i%
for i=0 to 99
a(i)=int(rnd*100)
b(a(i) mod 10)=b(a(i) mod 10)+1
next i
for i=0 to 9
print "个位上为";i;"的数有";b(i);"个"
next i
4------------
dim a(10 to 100)%,i%,j%
i=50
do while i>0
j=int(rnd*91)+10
if a(j)=0 then
a(j)=1
i=i-1
end if
loop
for i =10 to 100
if a(i)=1 then print a(i);" ";
if i mod 10=0 then print
next i