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

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

Print(CStr(k))

n=n+1

EndIf

Next

Next

Next

6题

Dimi,j,kAsInteger

Fori=1To5

k=1

Forj=1Toi

k=k*j

Next

s=s+k

Next

Print(CStr(s))

7题

Dima(9)AsInteger

Dimi,sAsInteger

a(0)=15：a(1)=23：a(2)=72

a(3)=43：a(4)=96：a(5)=23

a(6)=3：a(7)=65：a(8)=88

a(9)=17：max=a(0)：min=a(0)

s=0

Fori=0To9

Ifa(i)maxThen

max=a(i)

EndIf

Ifa(i)minThen

min=a(i)

EndIf

s=s+a(i)

Next

aver=Int(s/10)

Print(CStr(max))

Print(CStr(min))

Print(CStr(aver))

8题

Dimi,j,sAsInteger

Fori=100To200

Forj=2ToSqr(i)

If(iModj)=0Then

Print(CStr(i))

sum=sum+i

ExitFor

EndIf

Next

Next

Printsum

9题

Dimi%，j%，bAsBoolean

l=1：b=False

Fori=10To20

Forj=2Toi-2

IfiModj=0Then

b=True

EndIf

Next

Ifb=FalseThen

l=l*i

EndIf

b=False

Next

PrintStr(l)

10题

DimiAsInteger

Fori=1To100

IfiMod2=1Then

j=j+1/i

ElseIfiMod2=0Then

j=j-1/i

EndIf

Next

Printj

11、题目：(事件)单击窗体。(响应)如果一个数的真因子之和等于这个数本身，则称这样的数为“完全数”。例如，整数28的真因子为1、2、4、7、11，其和是28。因此28是一个完全数。请编写一个程序，求出500以内最大的完全数。并存入变量SUM中。使用for...next语句完成程序

12、题目：应用选择法对数组A按升序排列

13、题目：单击窗体。求一个数,它除3余2，除5余3，除7余2，请将满足上面条件的最小数保存到sum变量中。使用for...next语句完成程序。

14、题目：编写函数fun，函数的功能是：判断一个字符是字母字符、数字字符还是其他字符，并做相应的显示。字母字符显示字符串字母，数字字符显示字符串数字，其他字符显示字符串其他，要求使用IF语句来实现。

PrivateFunctionfun(nAsString)AsString

**********Program**********

**********End**********

EndFunction

PrivateSubForm_Load()

Show

Printfun(A)

Printfun(9)

Printfun()

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

DimlAsInteger

Dima(10)AsString*1

DimfInAsInteger

DimfOutAsInteger

fIn=FreeFile

OpenApp.Path\in.datForInput