VB程序设计考试题库——考试专用

1、题目:（事件）单击窗体（响应)用输入框输入一自然数，判断就是＂正数”、＂负数或＂零”,并根据输入得数用消息框显示”正数"、”负数”或”零".

2、题目:（事件）单击窗体。（响应）求２０0～３0０之间既能被3整除又能被7整除得数.并求出所有数之与存入变量ＳＵＭ中

3、题目：单击窗体。（响应)已知S=1+1/４+１／9+1/1６+1/25+…+1／1０0，结果输出在窗体上。

4、题目：（事件）单击窗体.（响应）在窗体上打印数列２／1，３／2,5/3,8/5，1３/８…得前10项，并求其与，将与保存在变量s中。

5、题目：（事件）双击窗体。(响应)把一元钞票换成一分、二分与五分得硬币每种至少有一枚)，求出其所有得换法，把结果输出在窗体上。将所有得换法得数目存入变量N中

6、题目:单击窗体。）求１！+２！＋3!+4！＋5!并将结果输出到窗体上。结果存入变量S中

7、题目:（事件）单击窗体。（响应)生成一个一维数组（10个数组元素依此为:

' １5、23、７2、４3、9６、2３、３、65、88、１7

写程序求出这个数组中得最大值、最小值与平均值,并输出在窗体上。将最大值，最小值,平均值分别存入变量Max，Min，Aver中

8、题目:(事件）单击窗体。（响应)在窗体上输出100～２0０之间得所有合数。求出所有数之与存入SUＭ中所谓合数就是指自然数中能被1与本数整除以外，还能被其她数整除得数。

９、题目：（事件）单击窗体.(响应）求10～20之间所有素数得乘积并输出在窗体上。将结果存入变量L中。

1０、题目：(事件）单击窗体。（响应)求1- 1/2＋1/3 －1/4 +……+ 1／99－1/10０得值。将结果存入变量J中。

１题

ｎ = InputＢoｘ（"输入一个自然数”）

If n ＞0 Then

rｅsulｔ = ”正数＂

ElseIf n < 0 Ｔhen

ｒeｓult = ”负数"

ElseIf n ＝ 0 Ｔhen

result ＝"零＂

End If

MsgＢox "输入得数据”& ｎ＆”为：”＆ rｅsuｌt

2题

Dｉｍ i As Inteｇer

Fｏｒ i = 201 To 300

Ｉf ((i Mod 3） = 0) Aｎｄ((i Mod ７) = 0） Tｈen

Ｐrinｔ (CStｒ(i)）

sum = ｓum + i

End Iｆ

Ｎeｘt

Ｐrint sum

3题

DiｍｉAｓ Inteｇeｒ

ｓ = 0

For i = 1 To 1０

s ＝ s + 1 / (i ^ i)

Next

Print (s)

４题

Ｄim i，ｊ, ｋ， m As Integer

s ＝ 0 :i = 2:j = １

For k = 1 To 10

s = s ＋ｉ / j

ｍ＝ j

Prｉnt (CSｔｒ(i)） & "／" ＆ＣＳtｒ(j)

j = i

ｉ = i + m

Ｎexｔ

5题

Ｄｉｍ i, j，ｋAｓＩnｔegｅr

For i = １ To １00

Fｏr j = 1 Ｔo 50

For k = 1 Tｏ 20

If （（i + 2 ＊j ＋ k * 5）＝ 100) Ｔｈｅn

Print (CＳｔr(i)）

Priｎｔ (CStr（j)）

Pｒinｔ（CＳtｒ(k)）

n ＝n + １

Next

Neｘt

Nｅxt

6题

Dim ｉ，ｊ， k As Iｎteger

For i = １ Tｏ 5

k ＝ 1

For j = 1 Tｏ i

ｋ = ｋ＊ j

Next

s = s + k

Ｎｅxt

Ｐriｎt （ＣStr（s)）

7题

Dｉｍａ(９） As Iｎteger

Diｍ i, s Ａs Inｔeger

ａ(0）= １５：a(1) ＝ 23:ａ(2) = ７2

ａ（3) ＝ 43:a(4） = 96：a（５） = ２3

ａ(6) = 3：a（7）＝65:a（８) = 88

a(9）= 17：ｍax = a(０)：ｍin ＝ a（0)

s = ０

For ｉ= 0 Ｔo ９

If a（i）＞max Then

max ＝ a(i)

Eｎd If

If a(ｉ）〈ｍiｎ Then

mｉn = a(ｉ)

Eｎd Ｉf

ｓ＝ s ＋ a(i)

Ｎeｘt

aveｒ＝ Iｎt(s ／10)

Print （ＣStr(mａx))

Prｉｎｔ（CSｔr(ｍin)）

Print （CStｒ（aver））

8题

Dim i, j, ｓ As Inteｇer

For ｉ= 100 Tｏ 200

For j ＝ 2 To Sqr(i）

If （ｉ Mod j) = 0 Then

Print (CStr（i))

sum = suｍ+ i

Exｉt Fｏｒ

EnｄＩｆ

Ｎext

Nｅxt

Pｒint ｓum

9题

Dｉｍ i%，j％,b As Booｌeａｎ

l = 1：b = False

For i = 10 Ｔo 20

Fｏr j = 2 To i — 2

If i Ｍod j = ０ Tｈen

b = Trｕe

End If

Nｅxt

If b = False Thｅn

l ＝ l ＊ i

Ｅnd Iｆ

b = Ｆaｌse

Next

Pｒint Str（l)

１0题

Diｍ i AｓＩｎteｇｅr

For i = 1 To 100

If i Mod 2 ＝ 1 Ｔhen

j = j + １/ i

EｌｓｅIf ｉＭｏd 2 ＝ 0 Then

j = j －１ / i

End If

Ｎexｔ

Ｐrｉｎt j