最新編程題講述

1、第一題：編寫函數(shù)fun，函數(shù)的功能是：計(jì)算兩個(gè)正整數(shù)的最大公約數(shù)，并顯示。如：兩個(gè)數(shù)為15、20，結(jié)果顯示“5”,要求使用Do . Loop語句來實(shí)現(xiàn)。 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 第二題：?jiǎn)?/p>

2、擊窗體輸出100-200之間所有素?cái)?shù)，并將這些數(shù)求和，求和結(jié)果存入所給變量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第三題：將一個(gè)十進(jìn)制整數(shù)m轉(zhuǎn)換成 r(216)進(jìn)制字符串。方法：將m不斷除 r 取余數(shù)，直到商為零，以反序得到結(jié)果。下面寫出一轉(zhuǎn)換函

3、數(shù)，參數(shù)idec為十進(jìn)制數(shù)，ibase為要轉(zhuǎn)換成數(shù)的基（如二進(jìn)制的基是2，八進(jìn)制的基是8等） 函數(shù)輸出結(jié)果是字符串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 第四題：?jiǎn)螕舸绑w。已知s=1+1/3!+1/5!+1/7!+1/9!,請(qǐng)將s結(jié)果值輸出到窗體上。使用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張，問有哪幾種組合？將組合數(shù)存入變量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 第六題：?jiǎn)螕舸绑w。生成一個(gè)一維數(shù)組(10個(gè)數(shù)組元素依此為： 15、23、72、43、96、23、3、65、88、17) 寫程序求出這個(gè)數(shù)組中的最大值、最小值和平 均值，并輸出在窗體上。 將最大值，最小值，平均值分

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第八題：雙擊窗體。 (響應(yīng))求s=1+1×2+1×2×3+1×2×3××10， 并將

8、結(jié)果存到變量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 第九題：求兩個(gè)數(shù)m,n的最大公約數(shù)p和最小公倍數(shù)qPrint snb command_1 click Dim m%,n%a= Val(InputBox("輸入正整數(shù)")b = Val(InputBox("輸入正整數(shù)")If a*bm = 0 ThenMsgBox "兩數(shù)任何一個(gè)數(shù)都不能為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”最小公約數(shù)”&nprint”最小公倍數(shù)”&a*b/nend sub 第十題：編寫函數(shù)fun，函數(shù)的功能是：判斷一個(gè)字符是'字母字符、數(shù)字字符還是其他字符，并做相應(yīng)的顯示。'字母字符顯示字符串"字母"'數(shù)字字符顯示字符串"數(shù)字"'其他字符顯示字符串"其他"'要求使用IF語句來實(shí)現(xiàn)。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 = "數(shù)字" Case 65 To 90 fun = "字母" Case 97 To 122 fun = "字母" Case Else fun = "其他" End SelectEnd Function第十一題：雙擊窗體。把一元鈔票換成一分、二分和五分的硬幣（每種至少有一枚），求出其所有的換法，把結(jié)果輸出在窗體上。將所有的換法

11、的數(shù)目存入變量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 “換發(fā)總數(shù)為：”&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