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

题目：(事件)单击窗体 (响应)用输入框输入一自然数，判断是正数、负数 或零，并根据输入的数用消息框显示正数、负数 或零。 n = InputBox(输入一个自然数) If n 0 Then result = 正数 ElseIf n 0 Then result = 负数 ElseIf n = 0 Then result = 零 End If MsgBox 输入的数据 n 为： result 题目：编写函数fun，函数的功能是：判断一个字符是 字母字符、数字字符还是其他字符，并做相应的显示。 字母字符显示字符串字母 数字字符显示字符串数字 其他字符显示字符串其他 要求使用IF语句来实现。 If UCase(n) = A And UCase(n) = Z Then fun = 字母 ElseIf n = 0 And n = 9 Then fun = 数字 Else fun = 其他 End If 题目：编写函数fun，函数的功能是：根据一个百分制 成绩mark（整数），显示对应五级制的评定。条件如下： mark大于等于90显示优秀 mark小于90且大于等于80显示良好 mark小于80且大于等于70显示中等 mark小于70且大于等于60显示及格 mark小于60显示不及格 要求使用IF语句来实现。 Private Function fun(mark As Integer) As String **********Program********** ********** End ********** End Function If mark = 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 Function Select 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 = 10 n = 0 Do While x y x = x * 1.008 n = n + 1 Loop fun = n 题目：编写函数fun，函数的功能是：计算两个正整数的 最大公约数，并显示。如： 两个数为15、20，结果显示5 要求使用Do ... Loop语句来实现。 Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 编写函数fun，函数的功能是：求1~1000以内能 同时被m、n整除的数的总和并显示。 Sum = 0 For i = 1 To 1000 If i Mod m = 0 And i Mod n = 0 Then Sum = Sum + i End If Next i fun = Sum 题目：编写函数fun，函数的功能是：求从m到n的乘积并显示， Product = 1 For i = m To n Product = Product * i Next 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 * j Next s = 100 + s Print (CStr(s)