2021年vb题库程序设计题讲解.doc

题目：(事件)单击窗体 (响应)用输入框输入一自然数，判断是正数、负数 或零，并依照输入数用消息框显示正数、负数 或零。n = InputBox(输入一种自然数)If n 0 Then result = 正数ElseIf n = A And UCase(n) = 0 And n = 90 Then fun = 先进ElseIf mark = 80 Then fun = 良好ElseIf mark = 70 Then fun = 中档ElseIf mark = 60 Then fun = 及格Else fun = 不及格End If题目：编写函数fun，函数功能是：判断一种字符是字母字符、数字字符还是其她字符，并做相应显示。字母字符显示字符串字母数字字符显示字符串数字其她字符显示字符串其她规定使用Select Case语句来实现。Private Function fun(n As String) As String*Program* End *End FunctionSelect Case n Case a To z，A To Z fun = 字母 Case 0 To 9 fun = 数字 Case Else fun = 其她End Select题目：编写函数fun，函数功能是：当x初值为10，每年增长率为千分之八，计算多少年后来x值能达到y，并显示所需年数值（变量名必要为n）。规定使用Do While . Loop语句来实现。x = 10n = 0Do While x y x = x * 1.008 n = n + 1Loopfun = n题目：编写函数fun，函数功能是：计算两个正整数最大公约数，并显示。如：两个数为15、20，成果显示5规定使用Do . Loop语句来实现。Do r = m Mod n If r = 0 Then Exit Do m = n n = rLoopfun = n编写函数fun，函数功能是：求11000以内能同步被m、n整除数总和并显示。Sum = 0For i = 1 To 1000 If i Mod m = 0 And i Mod n = 0 Then Sum = Sum + i End IfNext ifun = Sum题目：编写函数fun，函数功能是：求从m到n乘积并显示，Product = 1For i = m To n Product = Product * iNext ifun = Product题目：(事件)单击窗体。 (响应)一球从100米高度自由落下，每次落地返回 原高度一半，求第10次落地时，共通过多 少米？并将成果在窗体上输出。Dim j，i As Integers = 0j = 100For i = 2 To 10 j = j / 2 s = s + 2 * jNexts = 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 End If Next题目：(事件)双击窗体。 (响应)把一元钞票换成一分、二分和五分硬币 （每种至少有一枚），求出其所有换法， 把成果输出在窗体上。 将所有换法数目存入变量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) n = n + 1 End If Next NextNext题目：(事件)双击窗体。 (响应)写程序解决百钱买百鸡问题：公鸡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 + 1 End If Next NextNext题目：(事件)单击窗体。 (响应)求1020之间所有素数乘积并输出在窗体上。 将成果存入变量L中。Dim i As Integer Dim j As Integer 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 End If Next If b = False Then l = l * i End If b = False Next Print Str(l)题目：(事件)单击窗体。 (响应)求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100值。 将成果存入变量J中。Dim i As Integer 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 End If Next Print j题目：(事件)双击窗体。 (响应)求1+2+3+5+8+13+前20项和，并将结 果在窗体上输出。将成果存入变量SUM中。Dim i As Integer Dim j(1 To 20) As Integer For i = 1 To 20 If i = 0 And t r Then r = t End If Next a0Next b0fun = r