麻烦帮忙做下列vb题：1.编写一个判断素数的函数；并在单选按钮的单击事件过程中,用inputbox输入数据,再调用函数判断是否是素数.function isprime(m as___)as __dim i as integer ________for i=2 to sqr(m)if ____
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/22 11:55:53
麻烦帮忙做下列vb题：1.编写一个判断素数的函数；并在单选按钮的单击事件过程中,用inputbox输入数据,再调用函数判断是否是素数.function isprime(m as___)as __dim i as integer ________for i=2 to sqr(m)if ____
麻烦帮忙做下列vb题：1.编写一个判断素数的函数；并在单选按钮的单击事件过程中,用inputbox输入数据,再调
用函数判断是否是素数.
function isprime(m as___)as __
dim i as integer
________
for i=2 to sqr(m)
if ____ then
isprime=false
exit for
______
______
end function
private sub command1_click()
dim n as integer
n=___
if ___then
print n;"是素数"
' 请自己完善这一段内容
end if
end sub
2．编程：在一个窗体中单击命令按钮时,能够将 a2.txt 文件的内容合并到 a1.txt 中的原有内容之后.
准备工作：用记事本创建两个文本文件 a1.txt 和 a2.txt,各输入一些文本,保存后关闭.
运行程序前后,分别用记事本打开两个文件察看内容,以确认程序是否运行成功.
建议：两个文本文件与VB的程序文件保存在同一个文件夹中.
麻烦帮忙做下列vb题：1.编写一个判断素数的函数；并在单选按钮的单击事件过程中,用inputbox输入数据,再调用函数判断是否是素数.function isprime(m as___)as __dim i as integer ________for i=2 to sqr(m)if ____
第一题答案：
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