Question

麻烦帮忙做下列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的程序文件保存在同一个文件夹中。

Answer 1

第一题答案：
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

追问

需要第二题

追答

不会了

Answer 2

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
private sub command1_click()
dim n as integer
n=__inputbox("请输入n的值")_
if __isprime(n)_then
print n;"是素数"
else
print n ; "不是素数" ' 请自己完善这一段内容
end if
end sub
2. open app.path & “\a2.txt” for input as #1
do while not eof(1)
lineinput #1,a
str1=str1 &a
loop
open app.path & "a1.txt " for append as #2
print #2,str1
close