vb编程：找出仅由数字1、2、3、4组成的4位素数,要求每个素数由四个不同的数字组成

来源：学生作业帮助网编辑：作业帮时间：2024/05/04 09:20:15

vb编程：找出仅由数字1、2、3、4组成的4位素数,要求每个素数由四个不同的数字组成
vb编程：找出仅由数字1、2、3、4组成的4位素数,要求每个素数由四个不同的数字组成

vb编程：找出仅由数字1、2、3、4组成的4位素数,要求每个素数由四个不同的数字组成
不错的问题,
在 1楼得分析下,程序如下
Private Sub Command1_Click()
If IsPrime(4321) Then
Text1.Text = Text1.Text & "4321 Is Prime!" & vbCrLf
End If
If IsPrime(4231) Then
Text1.Text = Text1.Text & "4231 Is Prime!" & vbCrLf
End If
If IsPrime(3421) Then
Text1.Text = Text1.Text & "3421 Is Prime!" & vbCrLf
End If
If IsPrime(3241) Then
Text1.Text = Text1.Text & "3241 Is Prime!" & vbCrLf
End If
If IsPrime(2341) Then
Text1.Text = Text1.Text & "2341 Is Prime!" & vbCrLf
End If
If IsPrime(2431) Then
Text1.Text = Text1.Text & "2431 Is Prime!" & vbCrLf
End If
If IsPrime(4213) Then
Text1.Text = Text1.Text & "4213 Is Prime!" & vbCrLf
End If
If IsPrime(4123) Then
Text1.Text = Text1.Text & "4123 Is Prime!" & vbCrLf
End If
If IsPrime(2143) Then
Text1.Text = Text1.Text & "2143 Is Prime!" & vbCrLf
End If
If IsPrime(2413) Then
Text1.Text = Text1.Text & "2413 Is Prime!" & vbCrLf
End If
If IsPrime(1423) Then
Text1.Text = Text1.Text & "1423 Is Prime!" & vbCrLf
End If
If IsPrime(1243) Then
Text1.Text = Text1.Text & "1243 Is Prime!" & vbCrLf
End If
End Sub
Private Function IsPrime(Number As Integer) As Boolean
Dim i As Integer
IsPrime = True
For i = 2 To Sqr(Number)
If Number Mod i Then
Else
IsPrime = False
Exit Function
End If
Next i
End Function

vb编程：找出仅由数字1、2、3、4组成的4位素数,要求每个素数由四个不同的数字组成编程由1、2、3、4这四个数字可以组成的所有四位数及其个数.(各位数字可以重复) 用vb没财富了.呜呜呜急求VB编程：找出指定范围内本身及其平方数均由不同数字组成的整数. vb 打印由1,2,3,4四个数字组成的四位数字,并统计它们的个数（允许四位数字中有相同的数字）81是由哪4个相同的一位数组成的用VB编程求1+2+3+……+n,n由键盘输入计算由数字0,1,2和3组成不超过三位数的奇数之和(可以重复)c语言编程对于数字1～9,把它们组成3个三位数,这3个三位的比值为1：2：3,编程找出这3个三位数 C语言编程列出由1,2,3,4 组成的所有没有重复数字的四位数来统计它们的个数 VB输出由1,2,3,组成的三位数字,并统计他们有多少种组合(注:三位数字不可以重复） vb编程 1 已知三个数abc（用随机数产生）找出其中最大值 2输入一个整数,判断它能否被3,5,7整除用vb编程解决试找出所有正整数n,使得1+2+3+.+n的和是由一个数字组成的三位数编程实现s=1-2=3-4+...+97-98+99-100的计算是vb编程 (5^3+3^3)/(5^3+2^3)=(5+3)/(5+2)这仅由1位数字组成的你能举例出一个由10位数字组成的类似例子吗有4、7、8、1、2、5六个数字,用它们组成的六位数的3倍仍然是一个六位数,也由这6个数字组成.能找出几组? vb编程.会的来.感激不尽~vb 【循环结构】编程计算【s=1+2+3++100的值】用VB语言编程,在1-10000中,找出同时能满足用3除余2,用5除余3,用7除余4的所有整数 1+1/2-1/3+4/1-1/5+.1/98的vb编程语句 VB编程~求s=1!+2!+3!+4!+……+10!