vb题库程序设计题讲解

（事件）单

' （响应）用输入框输入一自然数，判断是”正数”、”负数”

或”零”，并根据输入的数用消息框显示”正数”、"负数"

或”零”。

n = lnputBox（" 输入一个自然数"）

If n > 0 Then

result =" 正数"

Elself n < 0 Then

result =" 负数"

Elself 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 The n

fun =" 优秀"

ElseIf mark >= 80 The n

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

I********* *Program **********

I********** 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

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))

题目：(事件)单击窗体。

' (响应)求岀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

'题目：(事件)双击窗体。

' (响应)把一元钞票换成一分、二分和五分的硬币

' (每种至少有一枚)，求出其所有的换法，

' 把结果输出在窗体上。