最新编程题讲述

1、第一题：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：两个数为15、20，结果显示“5”,要求使用Do . Loop语句来实现。 Public sub f1(m%,n%)If m<n then T =nN=mM=tEnd if R = m <> n If r<>0 then Loop until r =0End if End sub Private sub command_1 click Dim a% ,b%A = text1.text B=text2.text Call f1 (a,b)Text3.text =bEnd sub 第二题：单

2、击窗体输出100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。Private Sub Command1_Click() Dim i As Integer Dim sum As Integer For i = 1 To 100 for j = 2 to i-1If I mod j = 0 Then exit for Next j If j>I then Sum =sum + iEnd if Next I Print sum End Sub第三题：将一个十进制整数m转换成 r(216)进制字符串。方法：将m不断除 r 取余数，直到商为零，以反序得到结果。下面写出一转换函

3、数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等） 函数输出结果是字符串Private Function Tran(ByVal m As Integer, ByVal r As Integer) As String Dim StrDtoR As String, n As Integer Do While m <> o n = m Mod r m = m r If n > 9 Then StrDtoR = Chr(65 + n - 10) & StrDtoR 

4、Else StrDtoR = n & StrDtoR End If Loop Tran = StrDtoR End Function 第四题：单击窗体。已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值输出到窗体上。使用do while.loop语句完成程序 Dim I as integerI=1P=1Do while i= 9P= p*iIf I mod 2 = 1 then S=s+1/pEnd if I=i+1LoopPrint sSun=s 第五题：将一张面值为100元的人民币等值换成100张5元、1元和

5、0.5元的零钞，要求每种零钞不少于1张，问有哪几种组合？将组合数存入变量OUT中。Private sub command _1 click Dima%,b%,c%For a = 1 to 19 For b =1 to 100-5*a C= 2*(100-5*a-b)If a+b+c=100 and c>=1 then print a,b,cNextb Nexta End sub 第六题：单击窗体。生成一个一维数组(10个数组元素依此为： 15、23、72、43、96、23、3、65、88、17) 写程序求出这个数组中的最大值、最小值和平 均值，并输出在窗体上。 将最大值，最小值，平均值分

6、别存入变量 Max,Min,Aver中Dim a(1 To 10) As Integer, i As Integer, j As Integer, max As Integer, min As Integer, Aver As SinglePrivate Sub Form_Click()a(1) = 15: a(2) = 23: a(3) = 72: a(4) = 43: a(5) = 96: a(6) = 23: a(7) = 3: a(8) = 65: a(9) = 88: a(10) = 17For i = 1 To 9For j = i + 1 To 10If a(i) > a(

7、j) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNextNextmax = a(10)min = a(1)Print "最大值：" & maxPrint "最小值：" & minFor i = 1 To 10Sum = Sum + a(i)NextAver = Sum / 10Print "平均值：" & AverEnd Sub第八题：双击窗体。 (响应)求s=1+1×2+1×2×3+1×2×3××10， 并将

8、结果存到变量S中Private sub command _1 click Dim p,s as long S=0 For i=1 1 to10P=1For j=1 to iP =p*jNext jS=s+pNext I Print sEnd sub 第九题：求两个数m,n的最大公约数p和最小公倍数qPrint snb command_1 click Dim m%,n%a= Val(InputBox("输入正整数")b = Val(InputBox("输入正整数")If a*bm = 0 ThenMsgBox "两数任何一个数都不能为0!&quo

9、t;End Ifm=a n=bif a<b then m=bn=a end ifr=m mod ndo while r<>0m=nn=rr=m mod n loopprint”最小公约数”&nprint”最小公倍数”&a*b/nend sub 第十题：编写函数fun，函数的功能是：判断一个字符是'字母字符、数字字符还是其他字符，并做相应的显示。'字母字符显示字符串"字母"'数字字符显示字符串"数字"'其他字符显示字符串"其他"'要求使用IF语句来实现。Priva

10、te Function fun(n As String) As String Dim i As Long i = Asc(n) Select Case i Case 48 To 57 fun = "数字" Case 65 To 90 fun = "字母" Case 97 To 122 fun = "字母" Case Else fun = "其他" End SelectEnd Function第十一题：双击窗体。把一元钞票换成一分、二分和五分的硬币（每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法

11、的数目存入变量N中Private sub command_1 click Print “5分”,”2 分”,”1分”Dim n as integer For a =11 to 19For b=11 to (100-5*a)2C =100-a*5-b*2If c>= 11 then N=n+1Print a,b,cEnd if Next b,a Print “换发总数为：”&nEnd sub 第十二题：Option Base 1Private Sub Command1_Click()Dim a() As IntegerDim max As Integern = Val(InputBox("")ReDim a(10 * n)RandomizeFor i = 1 To 10 * na(i) = Int(Rnd * 100)Print a(i);NextPrintFor i = 1 To 10 * n - 1For j = 10 * n To i + 1 Step -1If a(j - 1) > a(j) Thent = a(j): a(j) = a(j - 1): a(j - 1) = tEnd IfNextNextFor i