VB程序设计的常用算法填空题概要.docx

VB程序设计的常用算法 例:用随机函数产生100个［0, 99］范围内的随机整数，统计个位上的数字分 别为 1,2, 3, 4, 5, 6, 7, 8, 9, 0的数的个数并打印出来。 将程序编写在一个GetTJput过程中，代码如下： Public Sub GetTJput( Dim a(1 To 100 As In teger Dim x(1 To 10 As In teger Dim i As In teger, p As In teger '产生100个［0, 99］范围内的随机整数，每行10个打印出来 If a(i < 10 Then Form1.Print Space(2; a(i; Else Form1.Pri nt Space(1; a(i; End If The n Next i '统计个位上的数字分别为1,2, 3, 4, 5, 6, 7, 8, 9, 0的数的个数,并将统计结果保 存在数组x(1,x(2,...,x(10中,将统计结果打印出来 For i = 1 To 100 p = a(i Mod 10 '求个位上的数字 If p = 0 The n p = 10 Next i Forml.Pri nt"统计结果" For i = 1 To 10 If i = 10 The n p = 0 Form1.Print "个位数为"+ Str(p + "共"+ Str(x(i + "个" Next i End Sub 二、求两个整数的最大公约数、最小公倍数 m=i nputBox("m=" n=in putBox(" n=" nm=n*m r=m mod n Do While m=n n=r Loop Prin t "最大公约数 Prin t "最小公倍数 三、判断素数 m =val( InputBox("请输入一个数" For i=2 To in t(sqr(m If m Mod i = 0 Then Exit For Next i The n Print "该数是素数" Else Print "该数不是素数" End If 将其写成一函数,若为素数返回True不是则返回False Private Function Prime( m as In teger As Boolea n Dim i% Prime=True For i=2 To If m Mod i = 0 Then : Exit For Next i End Function 四、排序问题 1?选择法排序(升序 程序代码如下： For i = 1 To n - 1 If a(i > a(j The n temp = a(i a(i = a(j a(j = temp Next j Next I 2?冒泡法排序(升序 程序段如下 If Then temp=a(j:a(j=a(j+1:a(j+1=temp End if Next j Next i 3.合并法排序(将两个有序数组A、B合并成另一个有序的数组 C ,升序基本 思想: 1先在A、B数组中各取第一个元素进行比较,将小的元素放入C数组； 2取小的元素所在数组的下一个元素与另一数组中上次比较后较大的元素比较 重复上述比较过程，直到某个数组被先排完； 3将另一个数组剩余元素抄入 C数组，合并排序完成。 程序段如下： '当A和B数组均未比较完 If A(ia < B(ib The n C(ic = A(ia: Else C(ic = B(ib:ib = ib + 1 End If Loop Do While ia <= UBound(A 'A 数组中的剩余元素抄入 C数组 ia = ia + 1:ic = ic + 1 Loop Do While ib <= UBou nd(B 'B数组中的剩余元素抄入 C数组 C(ic = B(ib Loop 五、插入法 把一个数插到有序数列中，插入后数列仍然有序 将其写成一插入函数 Private Sub Instert(a( As Single, x As Single Dim p%, n %, i% n = UBo un d(a p = 0 Do While x > a(p And p < =n '确定x应插入的位置 p = p + 1 Loop For i = n To p Step -1 Next i End Sub 六、矩阵(二维数组运算 (1矩阵的加、减运算 C(i,j=a(i,j+b(i,j 加法 C(i,j=a(i,j-b(i,j 减法 (3矩阵转置 例：有二维数组a(5,5，要对它实现转置，可用下面两种方式 For i=1 to 5 (2 For i=2 to 5 For t=a(i,j t=a(i,j a(i,j= a(j,i a(i,j= a