求助，vb编程题。设计一个程序，找出100~900之间的无暇素数 编写程序求出100到999之间的无暇素数.

Option Explicit
Private Sub Command1_Click()
  Dim i As Integer, ImmaculacyPrimeNumber As Integer
  Dim InversionNumber, Counter As Integer
  For i = 100 To 900
    ImmaculacyPrimeNumber = 100 * (i Mod 10) + 10 * (i \ 10 Mod 10) + i \ 100
    If IsPrimeNumber(i) And IsPrimeNumber(ImmaculacyPrimeNumber) Then
      Counter = Counter + 1
      Print i;
      If Counter Mod 10 = 0 Then Print
    End If
  Next i
End Sub

Private Function IsPrimeNumber(ByVal n As Integer) As Boolean
  Dim i As Integer
  IsPrimeNumber = True
  For i = 2 To Sqr(n)
    If n Mod i = 0 Then
      IsPrimeNumber = False
      Exit Function
    End If
  Next i
End Function

我解答的1800多道题，都是原创，没有一道是复制的。

我解答的1800多道题，都是原创，没有一道是复制的！

我解答的1800多道题，都是原创，没有一道是复制的！！

我解答的1800多道题，都是原创，没有一道是复制的！！！

'******************主要程序如下：
dim i as integer
for i=100 to 900
if sushu(i)=true then '调用下方sushu函数
dim dz as integer
dz=diaozhuan(i) ’调用下方dianzhuan函数
if sushu(dz)=true then
textbox1.text=textbox1.text & i & " "
end if
end if
next i
程序没试过，不过应该基本没问题，有问题也是小改一下就行了，基本这个思路。
‘***************************************
Private Function sushu(data1 As integer) as Boolean’该函数判断是不是素数
dim kf as integer
dim sign as Boolean=true
kf=int(sqr(data1)) ’开方取整，作用：比如16，你除以2等于8能够整除，就不用再
‘判断除以8能不能整除了。900开方也就是30次而已，比900小多了。
dim i as integer
for i=2 to kf
if data1 mod i=0 then
sign=false
exit for
end if
next i

Return sign
End Function

Private Function diaozhuan(data1 as integer) as integer '求某数的逆序数，例如123，变成321
dim result1 as string=""
dim astr as string
astr=Cstr(data1)
dim len1 as integer
len1=len(astr)

dim i as integer
for i=len1 to 1 step -1
result1=result1&Mid(astr,i,1)
next i

Return Val(result1)
End Function

vb编程 找出100-900之间的无暇素数。所谓无暇素数是指本身为素数，且其~

Private Sub Command2_Click() For i = 100 To 999 If IsPrime(i) And IsPrime(GetF(i)) Then Print i Next iEnd SubPrivate Function IsPrime(ByVal n As Integer) As Boolean Dim pb As Integer pb = n - 1 IsPrime = True For i = 2 To pb If n Mod i = 0 Then IsPrime = False Exit For End If Next iEnd FunctionPrivate Function GetF(ByVal n As Integer) As Integer GetF = 100 * (n Mod 10) + 10 * ((n Mod 100) \ 10) + (n \ 100)End Function

所谓无暇素数是指本身为素数,且其逆序数也是素数的数。
例如：
//参考代码如下：#include#includeint main ( ){ int n,a,b,c,k,d,i,flag; for(n=100;n<=900;n++)//从100-900依次判断是否是无暇素数 { flag=1; k=(int)sqrt(n); for(i=2;i<=k;i++)//先判断n是否为素数 { if(n%i==0) flag=0; } if(flag)//如果n为素数，计算n的逆序数 { a=n%10; b=n/10%10; c=n/100; d=a*100+b*10+c; k=(int)sqrt(d); for(i=2;i<=k;i++)//判断逆序数是否为素数 { if(d%i==0) flag=0; } if(flag)//均为素数输出该数（无暇素数） printf("%d ",n); }} printf("
");return 0;}/*运行结果101 107 113 131 149 151 157 167 179 181 191 199 311 313 337 347 353 359 373 383389 701 709 727 733 739 743 751 757 761 769 787 797 */

关于VB的编程问题编,写一个加密程序。。。爆急啊
答：Private Sub Command1_Click()'用每个字母的Ascii码加7，相加之后的Ascii码值若超过90但不超过97，'则减去10，若超过122，则减去8。Dim a, b As Integer a = Asc(Left(Text1.Text, 1)) + 7 b = Asc(Right(Text1.Text, 1)) + 7 If ((a > 90) And (a < 97)) Then a = a ...

VB程序设计
答：VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

VB程序设计里的题目,求详细编程。谢谢了
答：你只要在窗口中放一个frame，再在frame中放两个label1和label2。再在frame外面放一个label3，一个command1，一个text1。其他由程序完成，程序如下：Private Sub Command1_Click()Dim Sum As String Dim N As Integer Dim I As Integer, J As Integer, K As Integer Dim S As Integer N = ...

VB编程题
答：'运行效果如图所示?'实现上述功能的VB程序如下?请在划线处填入适当的语句和代码 , 把程序补充完整?Private Sub Command1_Click()Dim a() As Integer, b() As Integer, m As Integer, n As IntegerDim i As Integer, k As Integer, c As Integer, x As Integern = Val(Text1....

VB.net设计一个程序:随机一串字符(abc···),打字,后弹出小窗口(时间...
答：1.可以 一、应用程序没有检查内存分配失败 程序需要一块内存用以保存数据时，就需要调用操作系统提供的“功能函数”来申请，如果内存分配成功，函数就会将所新开辟的内存区地址返回给应用程序，应用程序就可以通过这个地址使用这块内存。这就是“动态内存分配”，内存地址也就是编程中的“指针”。内存不是...

VB程序编程题
答：实现代码如下 Dim a(1 To 10)Private Sub Command1_Click() '产生10个1-99的随机数 Dim strg As String, i% For i = 1 To 10 a(i) = Int(99 * Rnd + 1) strg = strg & a(i) & " " Next i Text1.Text = strg '随机数显示到TextEnd SubPrivate Sub...

一道VB编程题,窗体自己设计。
答：Form2.Picture1.Line (-5, 0)-(5, 0)Form2.Picture1.Line (0, 5)-(0, -5)For x = -4 To 4 Step 0.1 If x < 0 Then For y = 0.1 * x ^ 3 To 0 Step 0.05 Form2.Picture1.PSet (x, y), vbBlack Next y ElseIf x >= 0 Then For y = 0 To 0.1 * x ^...

求VB编程,需要一个可以再屏幕上滚动显示姓名,按空格使滚动停止,显示当 ...
答：用一个picturebox，一个timer和两个label实现 picturebox用于限制滚动字幕的范围，两个label必须画在picturebox里面 然后在timer控件的控制下两个label一起向左移动，当一个label碰到picture的左边时，把另一个label移动到它的背后，仍然一起左移。'以下程序，label必须直接画在picture里面，否则可能出错 Pri...

vb 编程题
答：f.Size = Combo1.Text run End Sub Private Sub Combo1_Click()f.Size = Combo1.Text run End Sub Private Sub Command1_Click()End End Sub Private Sub Command2_Click()Default End Sub Private Sub Form_Load()BorderStyle = 3 Width = 8265 Caption = "字体属性程序"Height = 5500 L...

vb程序设计
答：也太多了吧，先搞第一个 1、Dim i As Integer Dim x As String Dim s As Long For i = 1 To 5 x = InputBox("请输入一个整数：")If Val(x) >= 1 And Val(x) < 10 Then Print x & " 是一位数"Print ElseIf Val(x) >= 10 And Val(x) < 100 Then Print x & " 是...