VB习题.docVIP

★【程序设计】 题目：编写函数fun，函数的功能是：判断一个数是否为素数。 并显示相应提示。如： 该数为素数时，显示素数；该数为非素数时，显示非素数 要求使用For语句来实现，用布尔型变量flag作为该数 是否为素数的标志，注意：不得使用Goto语句。 注意： 请在指定的事件内编写代码 代码只能写在两行标识之间 不得修改已有代码 保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 Private Function fun(m As Long) As String Dim flag As Boolean **********Program********** ********** End ********** End Function Private Sub Form_Load() Show Print fun(225) NJIT_VB End Sub Private Sub NJIT_VB() Dim i As Integer 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 Step 1 Line Input #fIn, a(i) Print #fOut, fun(Val(a(i))) Next Close #fIn Close #fOut End Sub ★ Function GCD(ByVal x%, ByVal y%) Do While y 0 tmp = x Mod y x = y y = tmp Loop GCD = x End Function Private Sub Command1_Click() x = Val(Text1.Text) y = Val(Text2.Text) Text3.Text = GCD(x, y) End Sub Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = End Sub ★ 下面程序的功能是：统计存放在数组A中的N个数有多少个是不同的。具体做法是：变量Left指向要被处理的数（从第2个元素开始），Right指向数组最后一个元素。 若A(Left)与排在它前面的某个数组元素值相同，就用数组元素A(Right)的值来替换A(Left)的值，同时将变量Right的值减1；否则将变量Left的值加1，处理数组下 一个元素，重复以上过程，直到LeftRight为止。Right的值即为不同的数的个数。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim A() As Integer, N As Integer, I As Integer Dim OP As Integer N = InputBox(请输入数据个数, , 10) ReDim A(N) Randomize For I = 1 To N A(I) = Int(Rnd * 10) + 1 Text1 = Text1 A(I) Next I Call Statistic(A, OP) Text2 = 有 OP 个不同的数: For I = 1 To OP Text2 = Text2 A(I) Next I End Sub Private Sub Statistic(A() As Integer, Right As Integer) Dim Left As Integer, K As Integer, I As Integer **********SPACE********** Right = UBound(A) Left = 2 Do While Left = Right **********SPACE********** K = Left - 1 For I = K To 1 Step -1 If A(Left) = A(I) Then Exit