VB判实验报告断素数.docVIP

实验报告3：VB程序设计 一、判断素数。 1、目的和要求 （1）熟练掌握控件的使用。 （2）学会利用VB程序设计实现一定的功能。 2、内容和步骤 （1）创建窗体 窗体form1由两个命令按钮command1、command2、三个标签label1、 label2、三个文本框text1 、text2。 （2）设计窗体界面及属性 属性设置： 对象名 控件名 属性名 属性值 功能 command command1 Caption 判断 判断是否为素数 Command2 Caption 退出 退出窗体 label label1 Caption 输入： 提示 Label2 Caption 判断结果： 提示 text text1 Text 空 显示输入 Text2 Text 空 显示判断结果 编写代码 Private Sub Command1_Click If IsNumeric Text1.Text True Then If InStr Text1.Text, . 0 Then If IsPrime Val Text1.Text True Then Text2.Text 是素数. Else Text2.Text 不是素数. End If Else Text2.Text 是实数,不是整数. End If Else Text2.Text 不是数字. End If End Sub Function IsPrime ByVal X As Integer As Boolean 定义循环变量 Dim I As Integer 进行判断 For I 2 To X - 1 If X Mod I 0 Then Exit For Next 返回结果 If I X Then IsPrime True Else IsPrime False End If End Function Private Sub Command2_Click End End Sub （4）保存工程，运行程序 3、调试过程及运行结果 4、实验心得 （1）要学会利用Function过程编写自己的函数过程。 （2）注意参数之间的传递。