首页 > 计算机 > 计算机考试 正文

[填空题] 下面程序的功能是从输入的一串数字中找出全部由该数字串中连续数字组成的素数。Option ExplicitPrivate Sub CmdRun_Click() Dim n As Long,

时间:2021-07-20 18:28:46 解答: 90 次

[填空题] 下面程序的功能是从输入的一串数字中找出全部由该数字串中连续数字组成的素数。Option ExplicitPrivate Sub CmdRun_Click() Dim n As Long,s As String Dim i As Integer,j As Integer S=Text1.Text For i=1 To Len(s)For j=1 To Len(s)-i+1 n=___(19)___ If prime(n) Then List1.AddItem CStr(n)Next j Next iEnd SubPrivate Function prime(___(20)___)As BooleanDim i As IntegerFor i=2 To Sqr(n) If n Mod i=0 Then Exit FunctionNext i___(21)___End Function

正确答案:

Mid(s,i,j)N as LongPrime=true

  • 相关题库

请充值VIP继续使用(未注册用户支付后会自动注册登录)

×

95元 29元

VIP截止日期:2025-01-01 02:24:06

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2025-01-01 02:24:06

←请使用微信扫码支付