作业帮 > 综合 > 作业

麻烦帮忙做下列vb题:1.编写一个判断素数的函数;并在单选按钮的单击事件过程中,用inputbox输入数据,再调

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/04/28 18:15:30
麻烦帮忙做下列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输入数据,再调
第一题答案:
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