vb题库程序设计题讲解Word下载.docx

1、End IfMsgBox 输入的数据 & n & 为： result编写函数fun，函数的功能是：判断一个字符是字母字符、数字字符还是其他字符，并做相应的显示。字母字符显示字符串字母数字字符显示字符串数字其他字符显示字符串其他要求使用IF语句来实现。If UCase（n） = A And UCase（n） 0 And n = 90 ThenElseIf mark = 80 Then= 70 Then= 60 Then要求使用Select Case语句来实现。Private Function fun（n As String） As StringSelect Case n Case a To z,

2、 Case ElseEnd Select当x的初值为10，每年增长率为千分之八，计算多少年以后x的值能达到y，并显示所需年数的值（变量名必须为n）。要求使用Do While . Loop语句来实现。x = 10n = 0Do While x y x = x * 1.008 n = n + 1Loopfun = n计算两个正整数的最大公约数，并显示。如：两个数为15、20，结果显示5要求使用Do . Loop语句来实现。Do r = m Mod n If r = 0 Then Exit Do m = n n = r求11000以内能同时被m、n整除的数的总和并显示。Sum = 0For i =

3、1 To 1000 If i Mod m = 0 And i Mod n = 0 Then Sum = Sum + i End IfNext ifun = Sum求从m到n的乘积并显示，Product = 1For i = m To n Product = Product * ifun = Product（事件）单击窗体。 （响应）一球从100米高度自由落下，每次落地返回 原高度的一半，求第10次落地时，共经过多 少米？并将结果在窗体上输出。Dim j, i As Integers = 0j = 100For i = 2 To 10 j = j / 2 s = s + 2 * jNexts =

4、 100 + sPrint （CStr（s） （响应）求出1000-9999之间具有如下特点的四位数字， 它的平方根恰好就是它中间的两位数字，例如， 2500开平方为50，恰为2500的中间两位，找出 所有这样的四位数。并求出所有这样的数的和 存入SUM中Dim i As Integer Dim j As Integer For i = 1000 To 9999 j = Val（Mid（Trim（Str（i）, 2, 2） If j 2 = i Then Print i, sum = sum + i Next（事件）双击窗体。 （响应）把一元钞票换成一分、二分和五分的硬币 （每种至少有一枚），

5、求出其所有的换法， 把结果输出在窗体上。 将所有的换法的数目存入变量N中Dim i, j, k As IntegerFor i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If （i + 2 * j + k * 5） = 100） Then Print （CStr（i） Print （CStr（j） Print （CStr（k） （响应）写程序解决百钱买百鸡问题：公鸡3元1只， 母鸡5元1只，小鸡一元3只，怎样用100元买 100只鸡。把结果输出到窗体上。 将答案数存放在变量N中For i = 1 To 20 母鸡 For j = 1 To 33 公鸡

6、 For k = 3 To 100 小鸡 If （k Mod 3） = 0） And （i * 5 + j * 3 + k / 3） = 100） And （i + j + k） = 100） Then （响应）求1020之间所有素数的乘积并输出在窗体上。 将结果存入变量L中。 Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True If b = False Then l = l * i Print Str（l） （响应）求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100的值。 将结果存入变量J中。 For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i Print j （响应）求1+2+3+5+8+13+前20项的和，并将结 果在窗体上输出。将结果存入变量SUM中。 Dim j（1 To 20） As Integer For i = 1 To 20 If i = 0 And t r Then r = t Next a0Next b0fun = r