第一题答案：
Option Explicit
Private Sub Command1_Click()
Dim n As Integer
n = Val(InputBox("请输入一个数"))
If isprime(n) Then
Print n; "是素数"
Else
Print n; "不是素数"
End If
End Sub
Private Function isprime(m As Integer) As Boolean
Dim i As Integer
isprime = True
For i = 2 To Sqr(m)
If m Mod i = 0 Then
isprime = False
Exit For
End If
Next i
End Function
最新问答： 1、2、2、3、3、3、4、4、4、4、5、5、5、5、5----从头开始第99个数是多少 若有所悟的意思 一条长方形水渠的横截面是梯形,梯形的下底是1.2m,上底是0.8m,高是0.5m, Sone are taking picture _____the Eiffel Tower.A.about B.of C 下列过程或现象与盐类水解无关的是?为什么? 如火车车速达到150km/h,“150km/h”是平均速度还是瞬时速度? 1.Bob can`t find his pen in his pencil-box,so he uses a penc Look!There are three ____（man doctor)coming to us 不塞不流不止不行 塞读什么我在成语词典上看到是读SE 但是其他很多地方都读SAI 这两个读音的意思又完全一样 我想知道到 请注明分段段义和总概括,记住,是[天窗}这篇课文. 一间教室的面积大约48平方分米．______（判断对错） 以平衡为话题的作文 龙生龙凤生凤,老鼠的儿子去打洞这句话用英文如何翻译 已知x＝4是方程ax_18＝6的解,a的值是（）. 利用判别式判断下列方程的根的情况：（3）x²-4√2 x9=0 （4）3x²+10=2x² 你会排序吗?排列句子 你会排序吗?排列句子组成对话. 1.No,it isn't.2.Yes.It's in my de 已知a，b，c都是正数，且a+2b+c=1，则[1/a+1b+1c]的最小值是 ___ ． Is day-by-day repetition burning living ,be so tenacious? 他来自哪里 （英语)用英语怎么说 A dog is akind of a_.补充单词
相关问答： 函数
