vb第五次练习题.docVIP

程序设计 ================================================== 题号：19524 ------------------------------------------------- 【程序设计】 ------------------------------------------------- 题目：判断一个数是否是素数。 ------------------------------------------------- 注意：请在指定的事件内编写代码。 *********Begin**********和********** End **********不可删除 ------------------------------------------------- Private Function Prime(ByVal m As Integer) As Boolean ********** Begin ********* ********** End ************* End Function Private Sub Form_Load() Dim m, i As Integer Show m = Val(InputBox(请输入一个数)) If Prime(m) = True Then Print 该数是素数 Else Print 该数不是素数 End If TestFunc End Sub Private Sub TestFunc() Dim i As Integer Dim s As String Dim l As Long Dim d As Double Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path \in.dat For Input As #fIn fOut = FreeFile Open App.Path \out.dat For Output As #fOut For i = 1 To 10 Line Input #fIn, a(i) l = Val(a(i)) Print #fOut, Prime(l) Next Close #fIn Close #fOut End Sub 示例代码： Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i 程序填空 ================================================== 题号：19819 ------------------------------------------------------- 【程序填空】 ------------------------------------------------------- 功能：在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。 其功能是产生20个0～1000的随机整数，放入一个数组中，然后输出这20个整数中小于500的所有整数之和。 程序运行后，单击命令按钮（名称为Command1，标题为输出小于500的整数之和），即可求出这些整数的和，并在窗体上显示出来（如图所示）。 在窗体文件中已经给出了全部控件，但程序不完整，请将程序中？号行的注释符去掉并把改为正确的内容，实现上述功能。 注意：不要删除******* FILL ******，否则影响评分成绩,不能修改程序的其他部分和各控件的属性。 -------------------