VB机试答题带答案

1、1. 设 S=35, 0=0.3,编写程序，计算并输 出下面级数的部分和。结果取小数点后面 7 位。 0/1!- 质 3/3!+ 质 5/5!-+ (-1) (S-1)*CA(2*S-1)/ (2*S-1)!+ PrivateSub Command l_Click()Dim n As IntegerDim x As Doublex = 0.3Dim item As DoubleDim sum As DoubleDim fac As DoubleFor n = 1 To 35fac = 1Dim i As IntegerFor i = 1 To 2 * n - 1fac = fac * iNex

2、titem = (-1) 人( n - 1) * x 人( 2 * n -l)/facsum = sum + itemNextsum = Int(sum * 10000000 + 0.5) / 10000000MsgBox (sum)End Sub'sum = 0.4794262. 定义一个下标上界为 30的单精度数 组，设置好其初值 (值处于 20, 90), 计算数组中所有元素的均值。Dim i, sum, ave As Integer Dim a(30)As Single For i = 0 To 30a(i) = 20+Int(Rnd() * 71) NextFor i = 0

3、 To 30 sum = sum + a(i)Nextave = sum / 31print sum3. 在窗体上放置文本框 Textl 、Text2, 放 置按钮 Command 1 。在 Textl 里写入一 个整数，点击按钮时，对 Textl 内的数据进 行判断，如果是偶数，则在 Text2 里显示 “该数是偶数”。x = Val(Textl .Text)IfxMod2 = 0ThenTText2.Text = ”该数是偶数 "ElseText2.Text = ”该数是奇数”End If4. 输入一个三位数，分别输出它的百位数 字、十位数字和个位数字。Dim a, baiwei

4、, gewei, shiwei AsIntegera 二 Val(InputBox("")gewei = a Mod 10 baiwei= a 100 shiwei = (a 10) Mod 10 MsgBox(gewei) MsgBox(shiwei)5. 计算 sum=2+4+6+. . +1000Dim sum, i As IntegerFor i = 2 To 1000 Step 2sum = sum + iNextprint sum6. 求下面级数前 S项中奇数项的和sum。在求和过程中，以第一个奇数项的数值大于 10000 的项为末项。 1 !-2!+3!-4!

5、+ - + (-1) 八 (S- 1)*S!+Private Sub Command 1 _Click()Dim n As Integer Dim item AsDouble Dim i As Integer Dim sumAs Double Dim fac As Double sum= 0n = 1Do While Trueitem = 1For i = 1 To nitem = item * iNext isum = sum + itemIfAbs(item) > 10000 Then ExitDoElseDim x As IntegerPrivate Sub Command l_C

6、lick()End IfDim item As DoubleLoopMsgBox (sum)End Sub8. 已知 A、B 为整数， A 和 B 的立方 和为 1000,求所有的 A、BoDim x, y As IntegerFor x = 0 To 10For y = 0 To 10 Ifx A3 + yA3 = 1000 ThenMsgBox(x & ” ”&y)End IfNextNext10.建立一个 5X5 的整型二维数组，由 Rnd 函数产生25, 95)的随机整数对该数组赋 初值，输出数组中的最大元素。Dim A(4, 4) As IntegerDim i, j

7、 As IntegerFor i = 0 To 4For j = 0 To 4A(i, j) = 25+Int(Rnd() *71)NextNextDim max As Integermax = A(0, 0)For i = 0 To 4For j = 0 To 4If A(i, j) > max Then max= A(i, j) End IfNextNext Text 1.Text = max1. 求下面级数前 s项中偶数项的和SUM 。在求和过程中，以第一个数值大于10000 的项为末项，计算并输出和 SUM 。1! 一 2!+3! -4!+ (-1)人(s-1)*s!+ Dim

8、n As IntegerDim sum As Double sum = 0 n = 2Do While True item = 1 Dim i As Integer For i = 2 To n item = item * i Next sum = sum + item If item > 10000 Then Exit Do Else n = n + 2 End IfLoopsum = -l*sumMsgBox (sum)End Sub'sum = 3680472. 建立一个 9X9 的整型二维数组 ( 由 Rnd 函数产生 10, 60)的随机整数对数组初始 化) ，输出数组

9、中所有奇数行元素的和。Dim A(8, 8) As IntegerDim i, j As IntegerFor i = 0 To 8For j = 0 To 8A(i,j)= 10+Int(Rnd() *51) NextNextDim sum As IntegerFor i = 0 To 8 Step 2For j = 0 To 8sum = sum + A(i, j)NextNextTextl.Text = sum* 所有奇数行元素 的和为： 5063. 编写一个函数，判断某整数是否为素数。调用该函数，输出区间 1 000, 2000内所有素数的和。Private Function ispr

10、ime(ByVal n As Integer)As BooleanDim i As IntegerFor i = 2 To n - 1If n Mod i = 0 Then isprime = False Exit Function End IfNextisprime = TrueEnd FunctionPrivate Sub Command l_Click()Dim i As IntegerDim sum As LongFor i = 1000 To 2000If isprime(i)= True Then sum = sum + iEnd IfNextText 1.Text = "

11、;sum=" & sumEnd Sub'sum= 4196844. 编写一个函数，求某个数的阶乘。 调用该 函数计算 22! 。Public Function fact(ByVal n As Integer) AsLongDim i As Integer, f As Long f= 1For i = 1 To n f=f*iNext ifact = fEnd FunctionPrivate Sub Command l_Click()Dim m As Integer, i As Integer, s As Longm = InputBox ( ”输入一个正整数： &qu

12、ot;)s = fact(m)MsgBox (s)End Sub 4790016005. 编写子过程，计算并输出 3000-4000 之 间 的素数之和 C 与其中最小的素数 MIN 。Private Sub Command 1 _Click()Dim sum, i, min As Integer min=0For i = 3000 To 4000Dim isprime As Boolean =TrueDim j As IntegerForj = 2Toi- 1If i Mod j = 0 Thenisprime =False Exit ForEnd IfNextIf isprime = Tr

13、ue ThenIf min = 0 Thenmin = i End If If i<min Thenmin=iEnd IfC = C + iEnd IfNextMsgBox(sum)MsgBox(min)End Sub,sum=1617104 mi=160016. 定义下标上界为 35 的整型数组，并赋 初 值( 用 Rnd 函数初始化数组，使各个元 素的 值处于 200, 300之间 ) ，求数组中 所有不 大于 350 的元素之和。Dim a(35), i, sum As IntegerFor i = 0 To 35a=200+1 nt(R nd() * 101)NextFor i

14、= 0 To 35Ifa(i) <=350 Thensum = sum + a(i)End IfNextprint sum7. 编写函数，计算S=1/1!+1/3!+1/5!+. .+1/9!Private Function Fact (By Vai x AsInteger) As IntegerDim sum, i, f As Double f= 1For i = 1 To 9f=f*i IfiMod2= 1 Then sum = sum + 1/fEnd IfNextFact = sumEnd Function8. 编写一个函数 (参数为一维整型数组 ) ， 求所有数组元素中最小值的

15、下标。Public Function max(ByRef a() As Integer) As IntegerDim t As Integer t = 0Dim i As IntegerFor i = 1 To UBound(a) If a(i) v a(t) Then t = i End IfNextmax = tEnd Function9. 定义一个下标上界为 100 的整型数组， 井 为其赋初值 ( 各个元素值处于 500, 1000 ), 计算数组中所有不大于 800 的元素 的和。Dim a(100), i, sum As Integer For i = 0 To 100a(i) =

16、 500+Int(Rnd() *501)NextFor i = 0 To 100If a(i) <=800 Then sum = sum + a(i)End IfNextprint sum10. 计算并输出下面级数中奇数项的和SUM, 要求在第一次出现 SUM 的绝对值大于 100 时 结束。 1*2-2*3+3*4-4*5+ + (-1 广 (m-1) *m* (m+1) + Private Sub Command 1 _Click()Dim sum As Long Dim itemAs Long Dim n As Integer n = 1 Do(n+1)item = (-1)人(

17、n - 1) * n *sum = sum + item n = n +2Loop While Abs(sum) <= 100 MsgBox (sum)End Sub'sum=-681. 建立一个 6X6 的整型二维数组 ( 数据 由 程序调用 Rnd 函数产生 0, 10 )的随机 整 数数) ，输出数组中所有奇数列元素的和。Dim A(5, 5) As IntegerDim i, j As IntegerFor i = 0 To 5For j = 0 To 5A(i,j) = Int(Rnd()* 10)NextNextDim sum As IntegerFor i = 0

18、To 5For j = 0 To 5 Step 2 sum = sum + A(i, j) NextNext 902. 编写一个函数，其功能为求两个数的最 大公约数。Public Function gcd(ByVal m As Integer, By Vai n As Integer) As IntegerDim i As IntegerIf m > n ThenDim t As Integert = m: m = n:n = tEnd IfFor i = m To 1 Step -1If m Mod i = 0 And n Mod i =0 Thengcd = iExit Functi

19、onEnd IfNextEnd Function3. 用 I nputBox 输入一个年份，判断该年 份 是否是平年，若是则输出“Yes”， 否则输出“ No”。Dim year As Integer year = Val(InputBox( ,n)If(year Mod 400 = 0)Or(year Mod 4 = 0 And year Mod 100<>0) ThenMsgBox( ” No”)ElseMsgBox("Yes")End If4. 建立一个 6X6 的整型二维数组 ( 数据 由 程序调用 Rnd 函数产生 0, 20 )的随机 整 数数 )

20、，输出数组中所有奇数列元素的和。Dim A(5, 5) As Integer Dim i, j As Integer For i = 0 To 5 For j = 0 To 5 A(i, j) = Int(Rnd() *20)NextNextDim sum As IntegerFor j= 0 To 5 Step 2For i = 0 To 5 sum = sum + A(i, j)NextNextText 1.Text 二 sum， 所有奇 数列 元素的和为： 1885. 输入两个整数m、n,编写程序使得m>=n,并输出 m、 n 的值。,HDim m, n As Integer m

21、= Val(InputBox( ) n = Val(InputBox( ,H) If m < n ThenDim t As Integert = m:m = n:n = tEnd IfMsgBox( ”m=” &m&& ”n=” & n)6. 求下面级数前n项的和S,在求和过程 中，当某项 ( 注意，该项参与求和 )的绝对 值小于 0. 0001 时求和终止。结果取 5 位 小 数。1-1/3+1/5-1/7+1/9-1/11+ (-1) 八 (n -1) *1 / (2n _1) +Private Sub Command 1 _Click()Dim n

22、As IntegerDim item As DoubleDim sum As Doublei= 1Do While Trueitem = (-l) A(i- 1)* 1/(2* i-1)sum = sum + itemIf Abs(item) < 0.0001 ThenExit DoElsei = i+ 1End IfLoopM sgB ox(Format(sum,” 0.0000 )”)End Sub*sum=0.785457. 编写程序，建立一个 6X6 的整型二维 数组( 数据由程序调用 Rnd 函数产生 0,10 )的随机整数数 ) ，输出数组中的最大元 素。Private Su

23、b Command 1 _Click()Dim A(5, 5) As Integer Dim i, jAs Integer For i = 0 To 5For j = 0 To 5A(i, j) = Int(Rnd() *10)NextNextDim max As Integer For i = 0To 5For j = 0 To 5If A(i, j) > max Thenmax = A(i, j)End IfNextNextText 1.Text = max ' 最大元素 为： 9 End Sub8. 编写一个函数，其功能为判断一个 3 位 正整数是否是 "水仙花数

24、”。 (" 水仙花数 " 是 指各位数字的立方和与该数相等，如 153=1"3+5"3+3"3, 153 就是水仙花数。 ) Public Function Panduan(ByVal x As Integer) As BooleanDim a As Integer, b As Integer,c As Integera = x100b = (x Mod 100) 10c = x Mod 10Ifx = aA3+bA3 + cA3 ThenPanduan = TrueElsePanduan = FalseEnd IfEnd FunctionPr

25、ivate Sub Command 1 _Click() Dim i As Integeri = InputBox( H 输入一个 3 位 正 整数 ： ")MsgBox (Panduan ) End Sub9. 计算 sum=1 +2+ . +100Dim sum, i As Double For i = 1 To100 sum = sum + i Next print sum10. 定义一个下标上界为 10 整型数 组，并 为其赋值 (值处于 0, 100之间 )， 计算数组中所有不小于 60 的数据的和。Dim a(10), i, sum As IntegerFor i = 0

26、 To 10a =1 nt(R nd() * 101)NextFor i = 0 To 10Ifa(i) =60 Then sum =sum + a(i)End IfNext print sum61. 如果一个三位整数等于其各位数字的立 方和，则称这个数为水仙花数，如 153 = 1 人 3+5 人 3+3 人 3 。试编写程序，找出所有 的水 仙花数。Dim i As IntegerFor i = 100 To 999a = i Mod 10c = i100b = (i Mod 100) 10Ifi = a A3+bA3 + cA3 Then Print iNext2. 编写程序，建立并输出

27、一个 5*5 的矩阵 , 该矩阵主对角线元素为5,其余元素为 1 。Dim a(l To 5, 1 To 5) As IntegerDim i%,j%For i = 1 To 5For j = 1 To 5a(i,j) = 1NextNextFor i = 1 To 5a(i, i) = 5NextFor i = 1 To 5For j = 1 To 5Print a(i, j);NextPrintNext3. 输入三个数a、b、c,判断其是否能够构成三角形，若能，则计算其面积，并用MsgBox 输出；否则用 MsgBox 输出“不能 构成三角形”。Private Sub Command l_

28、Click()Dim a As Double, b As Double, c As DoubleDim p As Double, s As Doublea = Val(InputBox( nAH)b = Val(InputBox( HBH)c = Val(InputBox( HCH)If a + b > c And a + c > b And b + c > a Then p = (a + b + c)/2 s = Sqr(p * (p - a) * (p - b) * (p - c) MsgBox ( ”面积是” & s)ElseMsgBox ( ”不能构成三角形”

29、)End IfEnd Sub4. 用 InputBox 输入一个年份，判断该年份是否是闰年，若是则输岀“Yes”否则输岀“No。”Private Sub Command l_Click()Dim a As Integera 二 Val(InputBox("year")If (a Mod 4 = 0 And a Mod 100 <> 0) Or aMod 400 = 0 ThenPrint nYesnElsePrint nNonEnd IfEnd Sub5. 输入长方形的边长 , 计算长方形的对角 线长。输入圆的半径，计算圆的面积。Dim a As Double,

30、 b As Double, c As Double a = Val(InputBox (”长” )b = Val(InputBox(" 宽” ) c = Sqr(a A 2 + b2) Print cPrivate Sub Command 1 _Click()Dim r As DoubleDim s As Doubler = Val(InputBox( n 半径” )s = r A 2*3.1415Print圆面积"，sEnd Sub6, 随机输岀0, 10)的随机数； 0, 10的 随机整数。Print Int(Rnd * 10)Print Int(Rnd * 11)7,

31、 随机输岀一个大写字母。Private Sub Command 1 _Click()a = Int(Rnd * (90 - 65 + 1) + 65 Print Chr(a)End Sub8, 输入三个数a, b, c,输岀三个数的最大值 maxDim a As Double, b As Double, c As Double a 二 Val(InputBox( nasasd") b = Val(InputBox("asasd") c 二 Val(InputBox( nasasd")Max = aIf Max < b Then Max = bIf

32、Max < c Then Max = cPrint Max9, 输入两个数，交换它们的值，并输岀。Dim a As Double, b As Double, t As Double a 二 Val(InputBox( nasasd") b = Val(InputBox("asasd") t = a a = bb = tPrint a, b10, 在窗体上放置文本框 Textl , 按钮 Command 1?在文本框中输入一个数，单击 Command 1, 如果其大于等于 5,且小于等 于10,则用MsgBox输岀“True,”否则输 岀 "Fals

33、e 。Private Sub Command l_Click()Dim a As Doublea = Val(Textl)If a >= 5 And a <= 10 ThenMsgBox ("true")ElseMsgBox ("false")End IfEnd Sub11. 计算 sum=2+4+6+.+100Sum = 0For i = 2 To 100 Step 2Sum = Sum + iNextPrint Sums = 0n = 0For i = 1000 To 1500Iffl(i) = True Then s = s + i n

34、 = n + 1If min > i Then min = iEnd IfNextPrint ”最小 min; "个数”； n; ”合”； s End Sub12. 计算 sum=l/l!+l/3!+l/5!+.+l/9!Private Function fl(x As Integer) As DoubleDim i As Integer fl = 1 For i = 1 To xf 1 = f 1 * iNextEnd FunctionPrivate Sub Command l_Click()Dim sum As Double, i As Integer sum = 0 Fo

35、r i = 1 To 9 Step 2sum = sum + 1 / fl(i)NextPrint sumEnd Sub14. 编写程序，建立一个 6X6 的整型二维 数组 ( 数据是 0, 15 )的随机整数 )输出 奇数 列的和si,奇数行的和s2。编写函数，求元 素最小值 min。Private Function amin(x() As Integer) As Integeramin = x(l, 1)minx = 1miny = 1For i = 1 To 6For j = 1 To 6If amin > x(i, j) Then amin = x(i, j) minx = i1

36、3. 编写一个函数，其功能为判断某个整 数 是不是素数。调用该函数，计算并输出1000-1500之间的素数的个数n,所有素数 的和s,最小的素数min。Private Function fl(x As Integer) As BooleanDim i%fl = TrueFor i = 2 To x - 1If x Mod i = 0 Thenfl = FalseExit ForEnd IfNextEnd FunctionPrivate Sub Command 1 _Click()Dim n%, min%, s As Double, i% min =1500a = Textl.TextDim a

37、%1 输入圆的半径，计算圆的面积，并输出Private SubCommandl_Click() Dim r!,s!miny = j End IfNextNextPrint minx; minyEnd FunctionPrivate Sub Command l_Click()Dim a(l To 6, 1 To 6) As Integer For i = 1 To 6 For j = 1 To 6a(i,j) = Int(Rnd* 15)NextNextsi = 0For j = 1 To 5 Step 2For i = 1 To 6si =sl +a(i,j)NextNext s2 = 0Fo

38、r i = 1 To 5 Step 2For j = 1 To 6s2 = s2 + a(i, j)NextNextPrint siPrint ,n,; s2Print amin(a)End Subr = InputBox( H 请输入半径”，”输入框”) s = 3.1415926* "2Text 1.Text = sEnd Sub 输入正方形的边长，计算正方形的面积，并 输出。Private Sub Command 1 _Click()s = a * aPrint sEnd Sub计算长方形周长Private Sub Command 1 _Click()Dim m#, n#m二V

39、al(l叩utBox(请输入长方形的长”)n 二 Val(InputBoxC* 请输入长方形的宽” ) MsgBox (2 * (m + n)End Sub 输入三个数判断是否能构成三角形，若能计 算其面积Private Sub Commandl_Click()Dim i As lnteger, a(2) As lnteger, p AsSingle, s As SingleFor i = 0 To 2a(i) = Val(lnputBox(" 输入第” & i & ”条边 的边长：” )Next ilf a(0) + a(l) > a(2) And a(0)

40、+ a(2) > a(l)And a(l) + a(2) > a(0) Thenp = (a(0) + a(l) + a(2) / 2s = Sqr(p * (p - a(0) * (p - a(l) * (p - a )MsgBox (s)ElseMsgBox ( ”不能构成三角形” )End lfEnd Sub2 输入一个两位数，分别输出它的个位数字 和十位数字。Private Sub Command 1 _Click()a = Val(lnputBox( M",")lf a >= 10 And a < 100 Thenc = a 10d = a

41、Mod 10End IfPrint a & ”的十位数为：”& c & ”，个位数为 : ”&dEnd Sub 输入一个四位数，分别输出它的个位数字、 十位数字、百位数字和千位数字。Private Sub Command l_Click()a = Val(InputBox(" n, "")If a >= 1000 And a < 10000 Thenc = a 1000d = (a - c * 1000) MOOe = (a - c * 1000-d* 100) 10f=a-c* 1000 - d * 100- d *

42、10& cEnd If0 -JPrint a & n 的千位数为&dPrint a && e的百位数为 Print a & n &f的十位数为 Print a & ”的个位数为 EndSub3 裴波那契数列是由计算某类动物繁殖增长 量而提出的。数列的前两项是1、1,以后的每一项都是其相邻前两项之和。编写程序 求：数列前 30项和 FS; (2178308) Private Sub Commandl_Click()Dim a#(l To 30), fs&a(l) = 14 编写程序，产生一个整型二维数组A (N ,N), (

43、N 取 5),数组元素的取值范围为 0, 20), 计算数组中每一列数据的和Option Base 1Private Sub Form_Click()RandomizeDim a(lTo5, 1 To 5)For i = 1 To 3For j = 1 To 3a(i,j) = Int(Rnd*21)Print a(i,j);”Next jPrintNext ic = ”每列相加的值是：” &vbCrLfFor i = 1 To 3For j = 1 To 3t = t + a(j, i) a(2) 二 1 For i = 3 To 30 a(i) = a(i - 1) + a(i -

44、 2) Next For i = 1 To 30 fs = fs + a(i) Next Print fs End Sub 用 Function 过程求斐波那契数列的第 n 项，并调用该函数，显示数列的第 5项。 斐波那 契数列： 1, 1, 2, 3, 5, 8 Dim i As Integer Private Sub Command 1 _Click() n = InputBox( nn, HH) For i = 1 To nPrint f(i) Next i End Sub Private Function f(a) If a = 1 Or a = 2 Then f= 1 Else f

45、= f(a- l) + f(a-2) End If End FunctionNext j c = c & t & ” ” t = 0 Next i Print c End Sub 编写程序，建立一个 6X6 的整型二维数组 ( 数据由程序调用 Rnd 函数产生0, 15 ) 的随机整数数 ) ，输出数组中的最大元素。 Option Base 1 Private Sub Command 1 _Click() Dim a(6, 6) As Integer Randomize Max = a(l, 1) For i = 1 To 6For j = 1 To 6a(i,j) = Int

46、(Rnd* 16 + 0) Ifa(i,j)>Max Then Max = a(i, j)End If Print a(i, j);n = n + 1IfnMod6 = 0ThenPrintEnd IfNext jNext iPrint" 最大元素为： MaxEnd Sub 编写一个函数，其参数为一个一维整型数 组，其功能为求数组中所有元素的平均值。 Option Base 1Private Sub Command l_Click()Dim a()a()=Array(l,2, 3,4, 5, 6, 7, 8, 9)Print "数组中所有元素的平均值为： "

47、& ave(a()End SubPrivate Function ave(a()For i = 1 To UBound(a)Sum = Sum + a(i)Next iave = Sum / UBound(a)End Function5 编写程序，计算并输出下面级数前 n 项 (n=50) 中偶数项的和。8 编写一个函数，其功能为判断某个整数是 不是素数并判断 100001 是否是素数。Private Sub Form_Click()Dim n, i#n = InputBox( nn=n)i = 2While n Mod io 0i = i+ 1WendIfi = nThenPrint

48、 n & ”是素数”ElsePrint n & 不是素数”End Ifs = l*2+2*3+3*4+4*5+n*(n+l)+ 22750Private Sub Form_Activate()s = 0For I = 2 To 50 Step 2s = s + I*(I + l)Next IPrint sEnd Sub6 编写程序，设 n=20, x=3.4, 编写程序， 计算并输岀S(n)的值，要求结果保留5位小数。 S(n)=lnx/x+ln2x/x A2+ln3x/x A3+ +ln(n*x)/xAn+ (其中， In 为自然对数函数 )Private Sub Comma

49、nd 1 _Click()Const x = 3.4For n = 1 To 20s = s + Log(n * x) / x 人 nNext nPrint Format(s, "0.#")End Sub7 随机输岀一个小写字母 Dim letterasscii, i%, letter$ letterascii = Int(Rnd * 26) + 97 letter = Chr(letterascii)Print letterMsgBox (letter)如果是求大写字母就把 97 改为 65End Sub用 VB 编写程序，判断 100到 200 之间的素 数, 并求和P

50、rivate Sub Command 1 _Click()Dim i As Integer, j As Integer, sum As Integer Print n100 到 200 之间的素数：”For i = 100 To 200If Prime Thenj=j + lPrint CStr(i) & n”；Ifj Mod 5=0 Then Printsum = sum + iEnd IfNext iPrintPrintn 总和：”Print sumEnd SubPrivate Function Prime(n As Integer) As BooleanIf n <= 1

51、ThenExit FunctionElself n = 2 ThenPrime = True: Exit FunctionElself n Mod 2 = 0 ThenExit FunctionEnd IfDim i As IntegerFor i = 3 To Sqr(n) Step 2If n Mod i = 0 Then Exit FunctionNext iPrime = TrueEnd Function 判断一个数是否为素数 Dim n, i# n = InputBox("n=") i = 2While n Mod i <> 0i = i+ 1Wend

52、Ifi = nThenPrint n & ”是素数”ElsePrint n & "不是素数 "End If9 编写程序实现，从键盘输入一个十六进制 数，将其转换为十进制数，并输出结果。要 求：转换过程用 Function 过程实现。Private Sub Command 1 _Click()a = InputBox ( ”请输入十六进制数： ", ”输 入”) Print a & ”转成十进制：” & HEX_to_DEC(a) End SubPublic Function HEX_to_DEC(ByVal HexAsString)

53、 As LongDim i As LongDim B As LongHex = UCase(Hex)For i = 1 To Len(Hex)Select Case Mid(Hex, Len(Hex) - i +0Case ”T':B = B + 16A (i - 1) *1Case n2n: B = B + 16 A (i - 1) *2Case ”：3”B = B + 16A(i-l)*3Case ”：4”B = B + 16 A (i - 1) *4Case ”：5”B = B + 16 A(i- 1) *5Case ” 6”B = B + 16 人(i- 1)*6Case ”：

54、7”B = B + 16 A (i - 1)*7Case ”：8”B = B + 16 A (i - 1)* 8Case ”：9”B = B + 16A(i-l)*9Case ”A”B = B + 16A(i-l)*10CasenBH: B = B + 16 A (i - 1) * 11Case ” C” B = B + 16 人(i - 1)*12Case ”D”B = B + 16A(i-l)*13CaseHEH:B = B + 16 A(i-l)*14Case ”：F”B = B + 16 A (i - 1)*15End SelectNext iHEX_to_DEC = BEnd Fun

55、ction1,1)Case n0n: B = B + 16 A (i - 1) *Private Sub Command l_Click() Print BIN_to_DEC(l 110011) End SubPublic Function BIN_to_DEC(ByVal Bin As String) As Long Dim i As Long For i = 1 To Len(Bin)BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1) Next iEnd Function10 编写一个函数，其功能为求两个数的最大公约数。Private Sub

56、Form_Click()Dim m%, n% m = InputBox( H 请输入第一个自然数”) n = InputBox(" 请输入第二个自然数”)Print m; ”和”；n; ”的最大公约数是”；Print gcd(m, n) End SubPublic Function gcd%(x%, y%)Dim r% r = x Mod yWhile r <> 0 x = y y = r r = x Mod y Wend gcd = y End Function11输入整数 M, N,编程让m>n,并输岀m, n的值Private Sub Command 1 _Click()Dim m, n% m = Val(InputBox(