反洗钱考试题库及答案 VB期末考试题库及答案.docVIP

反洗钱考试题库及答案 VB期末考试题库及答案 导读：就爱阅读网友为您分享以下“VB期末考试题库及答案”的资讯，希望对您有所帮助，感谢您对92的支持! ‘**********SPACE********** 【?】 Loop For i = 1 To 8 - Len(s) s = \ Next i ‘**********SPACE********** 【?】 End Function 第2题 ‘下面程序的功能是：统计存放在数组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(\请输入数据个数\ 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 = \有 \个不同的数: \ 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=【?】 Left = 2 Do While Left For I = K To 1 Step -1 If A(Left) = A(I) Then Exit For Next I ‘**********SPACE********** If 【?】 Then 17 Left = Left + 1 Else A(Left) = A(Right) ‘**********SPACE********** 【?】 End If Loop End Sub 第3题 ‘下面程序的功能是随机生成小于100的诸素数组成的数据。程序界面如下图所示。 Option Explicit Private Sub Command1_Click() Dim p() As Integer,i As Integer,n As Integer Dim st As String,k As Integer Randomize k =InputBox(\元素个数；\ ReDim p(k) Do n =Int(Rnd*90)+10 ‘**********SPACE********** If 【?】 Then i =i+1 p(i) =n End If ‘**********SPACE********** Loop Until【?】 For i =1 To UBound(p) st =st Str(p(i)) If i Mod 10 =0 Then st =st vbCrLf Next i Text1 =st End Sub Private Function prime(n As Integer) As Boolean Dim i As Integer Prime =True For i =2 To Sqr(n) If n Mod i =0 T