vb题库程序设计题讲解_第1页
vb题库程序设计题讲解_第2页
vb题库程序设计题讲解_第3页
vb题库程序设计题讲解_第4页
免费预览已结束,剩余1页可下载查看

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、题目:(事件)单击窗体(响应)用输入框输入一自然数,判断是 正数、负数或零,并根据输入的数用消息框显示正数、负数或零。n = InputBox( 输入一个自然数)If n 0 Thenresult = 正数Elself n = A And UCase(n) = 0 And n = 90 Thenfun = 优秀ElseIf mark = 80 Thenfun =良好Elself mark = 70 Then fun = 中等Elself 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, 每年增长率为千分之八,计算多少年以后x的值能达到y,并显示所需年数的值(变量名必须为n)。要求使用Do

3、 While . Loop 语句来实现。x = 10n = 0Do While x yx = x *1.008Loopfun = n,题目:编写函数fun,函数的功能是:计算两个正整数的最大公约数,并显示。如:两个数为15、20,结果显示5要求使用Do . Loop语句来实现。Dor = m Mod nIf r = 0 Then Exit Dom = n n = r Loop fun = n 编写函数fun ,函数的功能是:求11000以内能 同时被m、n整除的数的总和并显示。Sum = 0For i = 1 To 1000If i Mod m = 0 And i Mod n = 0 Then

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

5、,Print (CStr(s) 题目:(事件)单击窗体。 (响应)求出1000-9999之间具有如下特点的四位数字,它的平方根恰好就是它中间的两位数字,例如,2500开平方为50,恰为2500的中间两位,找出所有这样的四位数。并求出所有这样的数的和存入SUM中Dim i As IntegerDim 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 + iEnd IfNext题目:(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币(每

6、种至少有一枚),求出其所有的换法,把结果输出在窗体上。将所有的换法的数目存入变量N中Dim i, j, k As IntegerFor 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) n = n + 1End IfNextNextNext题目:(事件)双击窗体。(响应)写程序解决百钱买百鸡问题:公鸡 3元1只,母鸡5元1只,小鸡一元 3只,怎样用100元买100只鸡。把结果输出到窗体上。将答案数存放在变量

7、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 IfNextNextNext题目:(事件)单击窗体。(响应)求1020之间所有素数的乘积并输出在窗体上。将结果存入变量L中。Dim i As IntegerDim j

8、 As IntegerDim b As Boolean l = 1b = 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项的和,并

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论