Dim n As Integer, t As Integer
n = Val(Text1.Text)
If n <= 5 Then MsgBox "请输入较大的素数！": Exit Sub
Do
n = n - 1
If isprime(n) Then
Label1(t).Caption = n
t = t + 1
End If
If t = 3 Then Exit Do
Loop
End Sub
Private Function isprime(Num As Integer) As Boolean
If Num < 2 Then isprime = False: Exit Function
Dim i As Long
For i = 2 To Sqr(Num)
If (Num Mod i) = 0 Then
isprime = False
Exit Function
End If
Next i
isprime = True
End Function
VB编程:输出1~100之间所有素数
Private Sub Command1_Click()Dim a() As Long, nStr As String 'Call FindSuShu(18, 100, a, 5) '查找大于17的5个素数存入数组a Call FindSuShu(1, 1000, a) '查找1到1000之间的所有个素数 '显示到 Text1 For I = LBound(a) To UBound(a)nStr = nStr & a(I) & " "Next ...
输入一个正整数,若其是素数,将其输出,否则,找出与其最邻近的素数,并输...
新建一个vb窗体，画个按钮，输入如下代码 Option Explicit '首先要知道如何判定一个数是不是素数 '素数普遍公式：若自然数N不能被不大于(N^0.5)的任何素数整除，则N是一个素数。Private Function prime(numberinput As Double) As Boolean '判定一个数是不是素数 Dim number As Double number = n...
用VB编写一段代码判断输入的数是否素数。
1、首先启动vb6，创建一个新的标准exe文件，然后调整表单大小。2、选择表单并在属性中设置font属性的值。 字体是田英章的笔触书，字体大小是1号。3、双击表单以编写代码，单击设置过程，对象为表单form1。4、接着输入代码内容：代码的内容是根据题目定义的。5、单击“开始”按钮进行编译和调试，并根据错...
vb编程,大佬看下哪里错了?
其实代码本身没有语法错误。这程序代码是把文本框中输入的数，插入到一个有序数组中，使数组依然保持有序。只要补全代码中需要的四个控件（一个命令按钮、两个列表框、一个文本框），就可以正确运行程序了：Private Sub Command1_Click()List1 = ""Dim a(10) As Integer Dim X As Integer X = ...
VB中的while循环求素数问题
a = Val(Text1)‘从文本框获取数字 For b = 2 To a - 1’循环，从2起，到a-1止，If a Mod b = 0 Then‘求余数，如果余数为0，则说明所输入的数是合数 Exit For’是合数就退出循环 End If’结束一次判断 Next b‘下一下数 If b >= a Then‘如果b不小于a（如果是素数的话，b...
求VB编程代码:题目:判断一个数是否是素数?
参考程序如下：dim i as integer dim j as integer dim x as integer x=val(inputbox("请输入一个自然数：","输入提示"))for i=2 to x-1 if x mod i=0 then exit for next i if i=x then '此处若i的值变为x则说明所以上面的循环全被执行完 print x & "是素数"else print ...
vb编程 要求用户在txtNumber中输入一个数字来计算该数的平方根_百度知...
添加一文本控件text2,一个命令按钮commond1, 双击命令按钮，输入以下代码：text2.text=sqr(txtnumber)
vb编程题:填补空缺的代码。要求实现在文本框tbN中输入N,单击计算...
1、a 2、true 3、j=j+1 4、a 5、false 6、tbN.text 7、isPrime(i)8、i
哪位大哥,帮个忙,用VB帮我编一下,大学作业。
这是查找100到200直接的素数，自己改一下就行了：Option Explicit '“查找”按钮 Private Sub Command1_Click()Dim N As Integer Dim k As Integer Dim count As Integer count = 0 For N = 100 To 200 '判断N是否为素数，若是素数则输出N For k = 2 To N - 1 If N Mod k = 0 ...
vb编程题:急急急!在100以内的素数中,找出两两之间包含的合数最多(或...
Private Sub Command1_Click() List1.Clear Me.Caption = "在100以内的素数中找出间隔最大的一对相邻素数" Dim Flag As Boolean, MaximumInterval As Integer, Subscript As Integer For i = 2 To 100 Flag = True For j = 2 To Sqr(i) If i Mod j = 0 Then Flag ...
