vb题库程序设计题讲解

1、题目：（事件）单击窗体'（响应）用输入框输入一自然数，判断是 ”正数”、”负数”或"零"，并根据输入的数用消息框显示”正数”、”负数"或”零"。n = InputBox（" 输入一个自然数"）If n > 0 Thenresult =" 正数"Elself n < 0 Thenresult ="负数-Elself n = 0 Thenresult =" 零"End IfMsgBox "输入的数据"& n & " 为：&q

2、uot;& result题目编写函数fun，函数的功能是：判断一个字符是 '字母字符、数字字符还是其他字符，并做相应的显示。'字母字符显示字符串"字母"'数字字符显示字符串'其他字符显示字符串"数字“"其他"'要求使用IF语句来实现。If UCase( n) >= "A" And UCase( n) <= "Z" Then fun = “ 字母"Elself n >= "0" And n <= "

3、;9" Thenfun = “ 数字"Elsefun = “ 其他"End If '题目：编写函数fun，函数的功能是：根据一个百分制 '成绩mark （整数），显示对应五级制的评定。条件如下:'mark大于等于90显示"优秀- 'mark小于90且大于等于80显示"良好" 'mark小于80且大于等于70显示"中等" 'mark小于70且大于等于60显示"及格" 'mark小于60显示"不及格"'要求使用IF语

4、句来实现。P rivate Function fun(mark As Integer) As String'*Program* End *End FunctionIf mark >= 90 The nfun ="优秀"ElseIf mark >= 80 Thenfun ="良好"Elself mark >= 70 Thenfun ="中等"Elself mark >= 60 Thenfun = “及格"Else不及格"End If'题目编写函数fun，函数的功能是：判断一个字

5、符是'字母字符、数字字符还是其他字符，并做相应的显示。'字母字符显示字符串 '数字字符显示字符串 '其他字符显示字符串 '要求使用Select Case语句来实现。P rivate Function fun(n As String) As String '*Program* '* End *End FunctionSelect Case nCase "a" To "z", "A" To "Z"fun =" 字母"Case "0&q

6、uot; To "9"fun =" 数字"Case Elsefun =" 其他"End Select '题目：编写函数fun，函数的功能是：当x的初值为10，'每年增长率为千分之八，计算多少年以后X的值能达到y，'并显示所需年数的值（变量名必须为n）。'要求使用Do While . Loop语句来实现。x = 10Do While x < yx = x * 1.008Loop fun = n15、20,结果显示"5" Do . Loop语句来实现。'题目：编写函数fun

7、，函数的功能是：计算两个正整数的 '最大公约数，并显示。如：'两个数为'要求使用Dor = m ModIf r = 0 Then Exit DoLoop fun = n编写函数fun，函数的功能是：求 11000以内能 '同时被m、n整除的数的总和并显示。Sum = 0For i = 1 To 1000If i Mod m = 0 And i Mod n = 0 ThenSum = Sum + iEnd IfNext i fun = Sum'题目：编写函数fun ,函数的功能是：求从m到n的乘积并显示,Product = 1For i = m To nP

8、roduct = P roduct * iNext i fun = P roduct'题目：（事件）单击窗体。'（响应）一球从100米高度自由落下，每次落地返回'原高度的一半，求第10次落地时，共经过多'少米？并将结果在窗体上输出。Dim j, i As Integer j = 100For i = 2 To 10Next s = 100 + sPrint （CStr（s）题目：（事件）单击窗体。'（响应）求出1000-9999之间具有如下特点的四位数字，'它的平方根恰好就是它中间的两位数字，例如，'2500开平方为50,恰为2500的中

9、间两位，找出'所有这样的四位数。并求出所有这样的数的和'存入SUM中Dim i As IntegerDim j As IntegerFor i = 1000 To 9999j = Val(Mid(Trim(Str(i), 2, 2)If j A 2 = i ThenPrint i,sum = sum + iEnd IfNext'题目：（事件）双击窗体。'（响应）把一元钞票换成一分、二分和五分的硬币'（每种至少有一枚），求出其所有的换法,'把结果输出在窗体上。'将所有的换法的数目存入变量 N中Dim i, j, k As IntegerFo

10、r i = 1 To 100For j = 1 To 50For k = 1 To 20If (i + 2 * j + k * 5) = 100) ThenPrint (CStr(i)Print (CStr(j)Print (CStr(k)End IfNextNextNext'题目：（事件）双击窗体。'（响应）写程序解决百钱买百鸡问题：公鸡3元1只，'母鸡5元1只，小鸡一元3只，怎样用100元买'100只鸡。把结果输出到窗体上。'将答案数存放在变量 N中Dim i, j, k As IntegerFor i = 1 To 20 ' 母鸡For j

11、 = 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) ThenPrint (CStr(i)Print (CStr(j)Print (CStr(k)End IfNextNextNext'题目：（事件）单击窗体。'（响应）求1020之间所有素数的乘积并输出在窗体上。'将结果存入变量L中。Dim i As IntegerDim j As IntegerDim b As Booleanb = Fal

12、seFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNextIf b = False ThenEnd Ifb = FalseNextPrint Str(l)+ 1/99 - 1/100 的值。'题目：（事件）单击窗体。'（响应）求 1 - 1/2 + 1/3 - 1/4 +'将结果存入变量J中。Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 ThenElseIf i Mod 2 = 0 ThenEnd IfNextPrint j题目：（事件

13、）双击窗体。SUM 中。'（响应）求1+2+3+5+8+13+前20项的和，并将结'果在窗体上输出。将结果存入变量Dim i As IntegerDim j(1 To 20) As IntegerFor i = 1 To 20If i < 3 Thenj(i) = iElsej(i) = j(i - 1) + j(i - 2)End Ifsum = sum + j(i)NextPrint sum'题目有一根长度为 321米的钢材，要将它截取为两种规格的'短料，两种规格的长度分别为a米、b米。每种至少一段。'编写函数fun，函数的功能是：'求出分割成两种规格后剩余残料r最少的值，并显示。如:'a为51