管载 2022-01-03 14:05 采纳率: 75%
浏览 47
已结题

VB题有人能给我解解惑吗

求100-350中的所有素数,输出在窗体,再求这些素数中个位十位百位,如果三位都是素数,则输出在窗体,大佬们求算法求算法求算法!

另外还有两个小问题,inputbox返回给变量的值,如果不定义变量的数据类型,默认情况下是什么数据类型?定义了数据类型,如整形,那么这个返回的值是否就是整形?

最后一个问题是val返回的是什么数据类型?如果直接给变量定义数值数据类型、能不能进行计算?
(目前在中专/-/自己摸索学太难了,求大佬解答)

  • 写回答

2条回答 默认 最新

  • chuifengde 2022-01-03 22:21
    关注
    Option Explicit
    
    Private Sub Command1_Click()
    Call Prime(100, 350)
    End Sub
    Private Sub Prime(s As Integer, e As Integer)
    Dim data() As Integer
    ReDim Preserve data(e) As Integer
    Dim II As Integer, JJ As Integer
    
    For II = 0 To e
        If II < 2 Then
            data(II) = 0
        Else
            data(II) = 1
        End If
    Next II
    
    For II = 0 To Int(Math.Sqr(e))
        If II > 1 Then
            If data(II) = 1 Then
                For JJ = 0 To UBound(data)
                    If JJ > II And JJ Mod II = 0 Then
                        data(JJ) = 0
                    End If
                Next JJ
            End If
        End If
    Next II
    
    For II = 0 To UBound(data)
        If II < e + 1 And II > s - 1 And data(II) = 1 Then
            List1.AddItem II
            If getPrime(II) = True Then
                List2.AddItem II
            End If
        End If
    Next II
    End Sub
    
    Private Function getPrime(n As Integer) As Boolean
    getPrime = False
    If InStr("2357", Mid(n, 1, 1)) > 0 Then
        If InStr("2357", Mid(n, 2, 1)) > 0 Then
            If InStr("2357", Mid(n, 3, 1)) > 0 Then
                getPrime = True
                Exit Function
            End If
        End If
    End If
    End Function
    
    
    

    img

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论 编辑记录
查看更多回答(1条)

报告相同问题?

问题事件

  • 系统已结题 1月17日
  • 已采纳回答 1月9日
  • 创建了问题 1月3日

悬赏问题

  • ¥20 Yolov5训练报错
  • ¥15 Unity发布gzip压缩的webgl之后让浏览器可以正常显示画面
  • ¥15 有没有人知道这种提示怎么关?现在不做ts项目了不知道咋关了,求解,现在我以前的js项目都是这种提示了
  • ¥15 为什么mysql做了碎片化处理data_free还是很高
  • ¥15 single positional indexer is out-of-bounds
  • ¥15 LSTM 模型数据量需要多少?
  • ¥15 mysql数据抓包开发报表
  • ¥15 linux系统下安装office打不开
  • ¥20 rsync脚本分发错误,文件不齐全
  • ¥15 labview顺序结构与时间延时