VB经典试题.docx
《VB经典试题.docx》由会员分享，可在线阅读，更多相关《VB经典试题.docx（19页珍藏版）》请在冰点文库上搜索。
VB经典试题
VB经典问题
1、鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，百钱买百鸡，求出公鸡、母鸡和小鸡的数量
PrivateSubCommand1_Click（）
Dimi,j,k
Fori=0To20
Forj=0To33
k=100-i-j
IfkMod3=0Andi*5+j*3+k/3=100Then
Print"母鸡",j&"公鸡",i&"小鸡",k
EndIf
Nextj
Nexti
EndSub
2、水仙花数是指一个n位数（n≥3），它的每个位上的数字的n次幂之和等于它本身。
（例如：
1^3+5^3+3^3=153）
Fori=1To9
Forj=0To9
Fork=0To9
Ifi^3+j^3+k^3=i*100+j*10+kThen
Printi*100+j*10+k
EndIf
Nextk
Nextj
Nexti
3、淮安民间传说着一则故事——“韩信点兵”，其次有成语“韩信点兵，多多益善”。
韩信带1500名兵士打仗，战死四五百人，站3人一排，多出2人；站5人一排，多出4人；站7人一排，多出6人。
韩信马上说出人数：
1049。
DimnAsInteger
Forn=1To1100
Do
If（nMod3=2）And（nMod5=4）And（nMod7=6）Then
Printn
ExitDo
EndIf
n=n+1
Loop
Nextn
4、①、普通年能被4整除且不能被100整除的为闰年。
②、世纪年能被400整除的是闰年。
（如2000年是闰年，1900年不是闰年）
DimyAsInteger
y=Int（Val（Text1.Text））
IfyMod4=0Then
IfyMod100=0Then
IfyMod400=0Then
Text2.Text=Text1.Text+"是闰年"
Else
Text2.Text=Text1.Text+"不是！
"
EndIf
Else
Text2.Text=Text1.Text+"是闰年！
"
EndIf
Else
Text2.Text=Text1.Text+"不是"
EndIf
5、分析：
求最大公约数的算法思想：
（最小公倍数=两个整数之积/最大公约数）
（1）对于已知两数m，n，使得m>n；
（2）m除以n得余数r；（3）若r=0，则n为求得的最大公约数，算法结束；否则执行（4）；（4）m←n，n←r，再重复执行
（2）。
m=val（InputBox（"m="））
n=Val（InputBox（"n="））
P=n*m
Ifmt=m:
m=n:
n=t
endif
r=mmodn
DoWhile（r<>0）
m=n
n=r
r=mmodn
Loop
Print"最大公约数=",n
Print"最小公倍数=",P/n
6、判断素数：
质数又称素数,指在一个大于1的自然数中，除了1和此整数自身外，没法被其他自然数整除的数。
m=val（InputBox（"请输入一个数"））
Fori=2Toint（sqr（m））
IfmModi=0ThenExitFor
Nexti
Ifi>int（sqr（m））Then
Print"该数是素数"
Else
Print"该数不是素数"
EndIf
7、四、验证哥德巴赫猜想
（任意一个大于等于6的偶数都可以分解为两个素数之和） 基本思想：
n为大于等于6的任一偶数，可分解为n1和n2两个数，分别检查n1和n2是否为素数，如都是，则为一组解。
如n1不是素数，就不必再检查n2是否素数。
先从n1=3开始，检验n1和n2（n2=N-n1）是否素数。
然后使n1+2再检验n1、n2是否素数，…直到n1=n/2为止。
利用上面的prime函数，验证哥德巴赫猜想的程序代码如下：
哥德巴赫猜想：
在1742年给欧拉的信中哥德巴赫提出了以下猜想：
任一大于2的整数都可写成三个质数之和。
因现今数学界已经不使用“1也是素数”这个约定，原初猜想的现代陈述为：
任一大于5的整数都可写成三个质数之和。
欧拉在回信中也提出另一等价版本，即任一大于2的偶数都可写成两个质数之和。
今日常见的猜想陈述为欧拉的版本。
把命题"任一充分大的偶数都可以表示成为一个素因子个数不超过a个的数与另一个素因子不超过b个的数之和"记作"a+b"。
1966年陈景润证明了"1+2"成立，即"任一充分大的偶数都可以表示成二个素数的和，或是一个素数和一个半素数的和"。
a）任一不小于6之偶数，都可以表示成两个奇质数之和；b）任一不小于9之奇数，都可以表示成三个奇质数之和。
Dimi,j,x,A,zAsInteger
k:
x=Val（InputBox（"请输入一个数"））
Ifx<6AndxMod2<>0Then
GoTok
Else
Printx
Fory=2Tox/2
z=x-y
Fori=2Toy-1
IfyModi=0ThenExitFor
Nexti
Ifi>y-1Then
Forj=2Toz-1
IfzModj=0ThenExitFor
Nextj
Ifj>z-1Then
Printy;"+";z
EndIf
EndIf
Nexty
EndIf
8、五、排序问题
1．选择法排序（升序）基本思想：
1）对有n个数的序列（存放在数组a（n）中），从中选出最小的数，与第1个数交换位置；
2）除第1个数外，其余n-1个数中选最小的数，与第2个数交换位置；
3）依次类推，选择了n-1次后，这个数列已按升序排列。
Dima（20）AsInteger
ForI=1To5
a（I）=Val（InputBox（""））
NextI
Fork=1To5
Printa（k）;
Nextk
ForI=1To5-1
t=I
Forj=I+1To5
Ifa（t）>a（j）Thent=j
Nextj
temp=a（I）‘交换两个数的位置
a（I）=a（t）
a（t）=temp
NextI
Print
Fork=1To5
Printa（k）;
Nextk
2．冒泡法排序（升序）基本思想：
（将相邻两个数比较，小的调到前头）
1）有n个数（存放在数组a（n）中），第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”；
2）第二趟对余下的n-1个数（最大的数已“沉底”）按上法比较，经n-2次两两相邻比较后得次大的数；
3）依次类推，n个数共进行n-1趟比较，在第j趟中要进行n-j次两两比较。
Dima（20）AsInteger
Fori=1To5
a（i）=Val（InputBox（""））
Nexti
Fork=1To5
Printa（k）;
Nextk
Fori=1To5-1
Forj=1To5-i
Ifa（j）>a（j+1）Then
temp=a（j）
a（j）=a（j+1）
a（j+1）=temp
EndIf
Nextj
Nexti
Print
Fork=1To5
Printa（k）;
Nextk
3．合并法排序（将两个有序数组A、B合并成另一个有序的数组C，升序）
1）先在A、B数组中各取第一个元素进行比较，将小的元素放入C数组；
2）取小的元素所在数组的下一个元素与另一数组中上次比较后较大的元素比较，重复上述比较过程，直到某个数组被先排完；
3）将另一个数组剩余元素抄入C数组，合并排序完成。
程序段如下：
DoWhileia<=UBound（A）Andib<=UBound（B）'当A和B数组均未比较完
IfA（ia）C（ic）=A（ia）：
ia=ia+1
Else
C（ic）=B（ib）：
ib=ib+1
EndIf
ic=ic+1
Loop
DoWhileia<=UBound（A）'A数组中的剩余元素抄入C数组
C（ic）=A（ia）
ia=ia+1：
ic=ic+1
Loop
DoWhileib<=UBound（B）'B数组中的剩余元素抄入C数组
C（ic）=B（ib）
ib=ib+1：
ic=ic+1
Loop
六、查找问题
1．①顺序查找法（在一列数中查找某数x）
基本思想：
一列数放在数组a
（1）---a（n）中，待查找的数放在x中，把x与a数组中的元素从头到尾一一进行比较查找。
用变量p表示a数组元素下标，p初值为1，使x与a（p）比较，如果x不等于a（p），则使p=p+1，不断重复这个过程；一旦x等于a（p）则退出循环；另外，如果p大于数组长度，循环也应该停止。
（这个过程可由下语句实现）
p=1
DoWhilex<>a（p）Andp<=n
p=p+1
Loop
下面写一查找函数Find，若找到则返回下标值，找不到返回0
OptionBase1
PrivateFunctionFind（a（）AsSingle,xAsSingle）AsInteger
Dimn%,p%
n=Ubound（a）
p=1
DoWhilex<>a（p）Andp<=n
p=p+1
Loop
Ifp>nthenp=0
Find=p
EndFunction
②基本思想：
一列数放在数组a
（1）---a（n）中，待查找的关键值为key，把key与a数组中的元素从头到尾一一进行比较查找，若相同，查找成功，若找不到，则查找失败。
（查找子过程如下。
index：
存放找到元素的下标。
）
PublicSubSearch（a（）AsVariant,keyAsVariant,index%）
Dimi%
Fori=LBound（a）ToUBound（a）
Ifkey=a（i）Then
index=i
ExitSub
EndIf
Nexti
index=-1
EndSub
2．折半查找法（只能对有序数列进行查找）
基本思想：
设n个有序数（从小到大）存放在数组a
（1）----a（n）中，要查找的数为x。
用变量bot、top、mid分别表示查找数据范围的底部（数组下界）、顶部（数组的上界）和中间，mid=（top+bot）/2，折半查找的算法如下：
（1）x=a（mid），则已找到退出循环，否则进行下面的判断；
（2）x（3）x>a（mid），x必定落在mid+1和top的范围之内，即bot=mid+1；
（4）在确定了新的查找范围后，重复进行以上比较，直到找到或者bot<=top。
将上面的算法写成如下函数，若找到则返回该数所在的下标值，没找到则返回-1。
Functionsearch（a（）AsInteger,xAsInteger）AsInteger
Dimbot%,top%,mid%
DimfindAsBoolean'代表是否找到
bot=LBound（a）
top=UBound（a）
find=False'判断是否找到的逻辑变量，初值为False
DoWhilebot<=topAndNotfind
mid=（top+bot）2
Ifx=a（mid）Then
find=True
ExitDo
ElseIfx top=mid-1
Else
bot=mid+1
EndIf
Loop
IffindThen
search=mid
Else
search=-1
EndIf
EndFunction
七、插入法
把一个数插到有序数列中，插入后数列仍然有序
基本思想：
n个有序数（从小到大）存放在数组a
（1）—a（n）中，要插入的数x。
首先确定x插在数组中的位置P；（可由以下语句实现）
p=1
dowhilex>a（p）andp<=n
p=p+1
loop
a（p）—a（n）元素向后顺移一个位置以空出a（p）元素放入x，可由以下语句实现：
fori=ntopstep-1
a（i+1）=a（i）
nexti
a（p）=x
将其写成一插入函数
PrivateSubInstert（a（）AsSingle,xAsSingle）
Dimp%,n%,i%
n=UBound（a）
ReDimPreservea（n+1）
p=0
DoWhilex>a（p）Andp<=n'确定x应插入的位置
p=p+1
Loop
Fori=nTopStep-1
a（i+1）=a（i）
Nexti
a（p）=x
EndSub
八、矩阵（二维数组）运算
（1）矩阵的加、减运算
C（i,j）=a（i,j）+b（i,j）加法
C（i,j）=a（i,j）-b（i,j）减法
（2）矩阵相乘
（矩阵A有M*L个元素，矩阵B有L*N个元素，则矩阵C=A*B有M*N个元素）。
矩阵C中任一元素（i=1,2,…,m;j=1,2,…,n）
Fori=0Tom
Forj=0Ton
c（i,j）=0
Fork=0Tol
c（i,j）=c（i,j）+a（i,k）*b（k,j）
Nextk
Nextj
Nexti
（3）矩阵传置
例:
有二维数组a（5,5），要对它实现转置，可用下面两种方式：
Fori=1to5
（2）Fori=2to5
Forj=i+1to5Forj=1toi
t=a（i,j）t=a（i,j）
a（i,j）=a（j,i）a（i,j）=a（j,i）
a（j,i）=ta（j,i）=t
NextjNextj
NextiNexti
（4）求二维数组中最小元素及其所在的行和列
基本思路同一维数组，可用下面程序段实现（以二维数组a（2,3）为例）：
‘变量max中存放最大值，row,column存放最大值所在行列号
Max=a（1,1）:
row=1:
Column=1
Fori=1To2
Forj=1To3
Ifa（i,j）>a（row,Column）Then
Max=a（i,j）
row=i
Column=j
EndIf
Nextj
Nexti
Print"最大元素是";Max
Print"在第"&row&"行,";"第"&Column&"列"
九、迭代法
算法思想：
对于一个问题的求解x，可由给定的一个初值x0，根据某一迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x；再以新值作为初值，即：
x1→x0,重新按原来的方法求x1,重复这一过和直到|x1-x0|<ε（某一给定的精度）。
此时可将x1作为问题的解。
例：
用迭代法求某个数的平方根。
已知求平方根的迭代公式为：
PrivateFunctionFsqrt（aAssingle）ASsingle
Dimx0AsSingle,x1AsSingle
x0=a/2'迭代初值
x1=0.5*（x0+a/x0）
Do
x0=x1'为下一次迭代作准备
x1=0.5*（x0+a/x0）
LoopWhileAbs（x1-x0）>0.00001
Fsqrt=x1
EndFunction
十、数制转换
将一个十进制整数m转换成→r（2－16）进制字符串。
方法：
将m不断除r取余数，直到商为零，以反序得到结果。
下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串。
PrivateFunctionTrDec（idecAsInteger,ibaseAsInteger）AsString
DimstrDecR$,iDecR%
strDecR=""
DoWhileidec<>0
iDecR=idecModibase
IfiDecR>=10Then
strDecR=Chr$（65+iDecR-10）&strDecR
Else
strDecR=iDecR&strDecR
EndIf
idec=idecibase
Loop
TrDec=strDecR
EndFunction
十一、字符串的一般处理
1．简单加密和解密
加密的思想是：
将每个字母C加（或减）一序数K，即用它后的第K个字母代替，变换式公式：
c=chr（Asc（c）+k）
例如序数k为5，这时"A"→"F"，"a"→?
"f"，"B"→?
"G"…
当加序数后的字母超过"Z"或"z"则c=Chr（Asc（c）+k-26）
例如：
Youaregood→Dtzfwjltti
解密为加密的逆过程
将每个字母C减（或加）一序数K，即c=chr（Asc（c）-k）,
例如序数k为5，这时"Z"→"U"，"z"→"u"，"Y"→"T"…当加序数后的字母小于"A"或"a"则c=Chr（Asc（c）-k+26）
下段程序是加密处理：
i=1:
strp=""
nL=Len（RTrim（strI））
DoWhile（i<=nL）
strT=Mid$（strI,i,1）'取第i个字符
If（strT>="A"AndstrT<="Z"）Then
iA=Asc（strT）+5
IfiA>Asc（"Z"）TheniA=iA-26
strp=strp+Chr$（iA）
ElseIf（strT>="a"AndstrT<="z"）Then
iA=Asc（strT）+5
IfiA>Asc（"z"）TheniA=iA-26
strp=strp+Chr$（iA）
Else
strp=strp+strT
EndIf
i=i+1
Loop
Printstrp
2．统计文本单词的个数
算法思路：
（1）从文本（字符串）的左边开始，取出一个字符；设逻辑量WT表示所取字符是否是单词内的字符，初值设为False
（2）若所取字符不是“空格”，“逗号”，“分号”或“感叹号”等单词的分隔符，再判断WT是否为True，若WT不为True则表是新单词的开始，让单词数Nw=Nw+1，让WT=True;
（3）若所取字符是“空格”，“逗号”，“分号”或“感叹号”等单词的分隔符，则表示字符不是单词内字符，让WT=False;
（4）再依次取下一个字符，重得
（2）（3）直到文本结束。
下面程序段是字符串strI中包含的单词数
Nw=0:
Wt=False
nL=Len（RTrim（strI））
Fori=1TonL
strT=Mid$（strI,i,1）'取第i个字符
SelectCasestrT
Case"",",",";","!
"
Wt=False
CaseElse
IfNotWtThen
Nw=Nw+1
Wt=True
EndIf
EndSelect
Nexti
Print"单词数为：
",Nw
十二、穷举法
穷举法（又称“枚举法”）的基本思想是：
一一列举各种可能的情况，并判断哪一种可能是符合要求的解，这是一种“在没有其它办法的情况的方法”，是一种最“笨”的方法，然而对一些无法用解析法求解的问题往往能奏效，通常采用循环来处理穷举问题。
例：
将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞，要求每种零钞不少于1张，问有哪几种组合？
Dimi%,j%,k%
Print"5元1元0.5元"
Fori=1To20
Forj=1To100-i
k=100-i-j
If5.0*i+1.0*j+0.5*k=100Then
Printi,j,k
EndIf
Nextj
Nexti
十三、递归算法
用自身的结构来描述自身，称递归
VB允许在一个Sub子过程和Function过程的定义内部调用自己，即递归Sub子过程和递归Function函数。
递归处理一般用栈来实现，每调用一次自身，把当前参数压栈，直到递归结束条件；然后从栈中弹出当前参数，直到栈空。
递归条件：
（1）递归结束条件及结束时的值；
（2）能用递归形式表示，且递归向终止条件发展。
例：
编fac（n）=n!
的递归函数
Functionfac（nAsInteger）AsInteger
Ifn=1Then
fac=1
Else
fac=n*fac
升级会员 