vb题库程序设计题讲解

1、题目：（事 件 ）单 击 窗体（ 响应）用输入框输入一自然数，判断是 ”正数”、”负数” 或零，并根据输入的数用消息框显示”正数、”负数或零。n = lnputBox（输入一个自然数）If n 0 Thenresult = 正数Elself n = A And UCase（n） = 0 And n = 90 The nfun = 优秀ElseIf mark = 80 Then fun = 良好 ElseIf mark = 70 Then fun = 中等 ElseIf mark = 60 Then fun = 及格 Elsefun = 不及格 End If 题目：编写函数 fun ，函数的功能

2、是：判断一个字符是 字母字符、数字字符还是其他字符，并做相应的显示。 字母字符显示字符串 字母 数字字符显示字符串 数字 其他字符显示字符串 其他 要求使用 Select Case 语句来实现。Private Function fun(n As String) As StringI*Program*I*End*End FunctionSelect Case nCase a To z, A To Zfun = 字母 Case 0 To 9fun = 数字 Case Elsefun = 其他 End Select 题目：编写函数 fun ，函数的功能是：当 x 的初值为 10， 每年增长率为千分之

3、八，计算多少年以后 x 的值能达到 y ， 并显示所需年数的值（变量名必须为 n）。 要求使用 Do While . Loop 语句来实现。x = 10n = 0Do While x yx = x * 1.008n = n + 1Loop fun = n 题目：编写函数 fun ，函数的功能是：计算两个正整数的 最大公约数，并显示。如： 两个数为 15、 20，结果显示 5 要求使用 Do . Loop 语句来实现。 Dor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopfun = n编写函数fun，函数的功能是：求 11000 以内能 同时被m n整

4、除的数的总和并显示。Sum = 0For i = 1 To 1000If i Mod m = 0 And i Mod n = 0 ThenSum = Sum + iEnd IfNext ifun = Sum题目：编写函数fun，函数的功能是：求从m到n的乘积并显示,Product = 1For i = m To nProduct = Product * iNext ifun = Product题目：(事件)单击窗体。( 响应)一球从100米高度自由落下，每次落地返回原高度的一半，求第 10次落地时，共经过多少米？并将结果在窗体上输出。Dim j, i As Integers = 0j = 10

5、0For i = 2 To 10j = j / 2s = s + 2 * jNexts = 100 + sPrint (CStr(s)题目：(事件)单击窗体。( 响应)求出1000-9999之间具有如下特点的四位数字，它的平方根恰好就是它中间的两位数字，例如，2500开平方为50,恰为2500的中间两位，找出所有这样的四位数。并求出所有这样的数的和存入SUM中Dim i As IntegerDim j As IntegerFor i = 1000 To 9999j = Val(Mid(Trim(Str(i), 2, 2)If j 人 2 = i ThenPrint i,sum = sum +

6、iEnd IfNext 题目： ( 事件 ) 双击窗体。 (响应 ) 把一元钞票换成一分、二分和五分的硬币 (每种至少有一枚) ，求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N 中Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20 If (i + 2 * j + k * 5) = 100) ThenPrint (CStr(i)Print (CStr(j)Print (CStr(k)n = n + 1End IfNextNextNext 题目： ( 事件 ) 双击窗体。 (响应)写程序解决百

7、钱买百鸡问题：公鸡3元 1只， 母鸡 5 元 1 只，小鸡一元 3 只，怎样用 100 元买 100 只鸡。把结果输出到窗体上。 将答案数存放在变量 N 中Dim i, j, k As IntegerFor i = 1 To 20 母鸡For j = 1 To 33 公鸡For k = 3 To 100 小鸡If (k Mod 3) = 0) And (i * 5 + j * 3 + k / 3) = 100) And (i + j + k) = 100) Then Print (CStr(i) Print (CStr(j) Print (CStr(k) n = n + 1End IfNext

8、NextNext 题目： ( 事件 ) 单击窗体。 (响应 ) 求 1020 之间所有素数的乘积并输出在窗体上。 将结果存入变量 L 中。Dim i As IntegerDim j As IntegerDim b As Booleanl = 1 b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNextIf b = False Thenl = l * iEnd Ifb = FalseNextPrint Str(l)的值。 题目： ( 事件 ) 单击窗体。( 响应)求 1-1/2 + 1/3 - 1/4 + 1/99 -1/100 将结果存入变量 J 中。Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Thenj = j - 1 / iEnd IfNextPrint j题目： ( 事件 ) 双击窗体。( 响应)求1+2+3+5+8+13+前20