急求高手解答两道vb题。n-m素数和图形显示

来源：百度知道 编辑：UC知道 时间：2024/05/13 05:22:25
1.有三个文本框。在第一个和第二个中各输入一个三位数以内的数字，求它们之间的素数，然后在第三个文本框中全部显示出来。要求每行显示5个数据，数据相隔两个空格，且上下数据对齐。
2.单击“显示图形”按钮时对于任意给定的一个1到17之间的整数m,在图形框中显示m行由星号组成的图形，左右星号之间有一个空格。其中上半个图形为实心，下半个图形为空心。
当单击“结束程序”按钮时，停止程序的执行，回到编辑状态。
最好能做好程序，我的邮箱yyt166@126.com

必须的控件，Text1、Text2、Text3、Picture1、Command1、Command2、Command3，其他的自己按照图示添加

Rem 第一题，text3的MultiLine属性设置为True，ScrollBars设置为2

Private Function isprime(Num As Integer) As Boolean
If Num < 2 Then isprime = False: Exit Function

Dim i As Integer

For i = 2 To Sqr(Num)
If (Num Mod i) = 0 Then
isprime = False
Exit Function
End If
Next i

isprime = True
End Function

Private Sub Command1_Click() '显示素数按钮
Dim n As Integer, m As Integer, i As Integer, k As Integer
Text3 = ""
k = 0
n = Val(Text1)
m = Val(Text2)
If n < 0 Or m < 0 Or n > 999 Or m > 999 Then MsgBox "只接受三位数以内的数值！": Exit Sub
For i = n To m
If isprime(i) Then
Text3 = Text3 & Space(2) & CStr(i)
k = k + 1
If k Mod 5 = 0 Then Text3 = Text3 & vbCrLf
End If
Next

End Sub

Rem 第二题
Private Sub Command2_Click() '显示图形按钮<