VB题库考试必备Word格式文档下载.docx
- 文档编号:17935035
- 上传时间:2022-12-12
- 格式:DOCX
- 页数:28
- 大小:23.02KB
VB题库考试必备Word格式文档下载.docx
《VB题库考试必备Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VB题库考试必备Word格式文档下载.docx(28页珍藏版)》请在冰豆网上搜索。
否则用Msgbox输出
“不能构成三角形”。
PrivateSubCommand1_Click()
DimiAsInteger,a
(2)AsInteger,pAsSingle,sAsSingle
Fori=0To2
a(i)=Val(InputBox("
输入第"
&
i&
条边的边长:
"
))
Nexti
Ifa(0)+a
(1)>
a
(2)Anda(0)+a
(2)>
a
(1)Anda
(1)+a
(2)>
a(0)Then
p=(a(0)+a
(1)+a
(2))/2
s=Sqr(p*(p-a(0)*p-a
(1))*(p-a
(2)))
MsgBox(s)
Else
MsgBox("
不能构成三角形!
EndIf
(2)勾股定理中3个数的关系是:
a^2+b^2=c^2,编程输出20以内满足上述关系的整数组合,例如3、4、5就是一个整数组合
Dima%,b%,c%
Fora=1To20
Forb=aTo20
Forc=bTo20
Ifc^2=a^2+b^2Then
Printa,b,c
Nextc
Nextb
Nexta
3、水仙花数
如果一个三位整数等于其各位数字的立方和,则称该数位水仙花数,请输入一个三位数并判断其是否为水仙花数
x=InputBox("
请输入一个三位数字"
a=x\100
b=(xMod100)\10
c=x-a*100-b*10
Ifa^3+b^3+c^3=xThen
Printx;
是水仙花数"
不是水仙花数"
4、国际象棋问题
Dimx#
x=0
Fori=1To64
x=x+2^(i-1)
Nexti
Print"
该棋盘上一共放了"
;
x;
粒麦子。
5、九九乘法表
编写一个程序打印九九乘法表
Privatesubpp(byvali%,byvalj%)
Printtab((j-1)*9+1);
i&
“x”&
j&
“=”&
i*j;
Endsub
Dimi%
Fori=1To9
Forj=1toi
Callpp(I,j)
Nextj
6、有关素数
(1)输入一个整数n,判断其是否为素数
PrivateSubForm_click()
Dimn%
n=InputBox("
请输入一个整数(>
=3)"
k=Int(Sqr(n))
i=2
flag=1
Whilei<
=kAndflag=1
IfnModi=0Then
flag=0
i=i+1
Wend
Ifflag=1Then
Printn;
是一个素数"
不是素数"
(2)编写一个函数,其功能为判断某个整数是不是素数。
调用该函数,判断100001是否是素数。
或100007,100003
PublicFunctionf(n#)
Fori=2Ton-1
IfnModi=0ThenExitFor
Ifi>
n-1Andn>
1Then
f=True
是素数"
EndFunction
Dimp%
p=f(100001)
p=f(100007)
p=f(100003)
(3)求一段范围内素数。
并求和。
PrivateFunctionprim(ByValm%)AsBoolean
Dimk%,i%
prim=True
k=int(Sqr(m))
Fori=2Tok
IfmModi=0Thenprim=False:
ExitFor
Next
EndFunction
Dimm%,n%,i%,k%,sum#,count%
m=Val(InputBox("
下限"
n=Val(InputBox("
上限"
Ifm>
nThenk=m:
m=n:
n=k
Print"
范围["
m&
"
n&
],素数有:
Fori=mTon
Ifprim(i)Then
Printi;
Spc(5-Len(Str(i)));
count=count+1
sum=sum+i
IfcountMod8=0ThenPrint
个数"
count
和是"
sum
7、分段函数
编程实现下列分段函数
(1)当x为偶数时,y的值为x的二分之一
(2)当x为奇数时,y的值为x的二倍
PrivateSubForm_Click()
Dimx%,y%
x=Val(InputBox("
请输入一个整数"
IfxMod2=0Then
y=x/2
y=x*2
y="
y
8、完数问题
如果一个数的因子之和等于这个数本身,则称这样的数位完全数,编程:
从键盘上输入正整数N和M,求出M和N之间所有完全数
请输入m的值"
请输入n的值"
m与n之间的所有完全数为:
Fori=mTon
s=0
Forj=1Toi\2
IfiModj=0Then
s=s+j
Ifi=sThen
Printi
9、数组问题
(1)定义一个具有20元素的一维数组,并对其随机赋值,然后求出其中元素值为奇数的元素的和
OptionBase1
Dima%(20),sum&
Randomize
Fori=1To20
a(i)=Int(11*Rnd()):
Printa(i);
ifa(i)mod2<
0thensum=sum+a(i)
Print“sum=”;
sum
(2)定义一个具有15个元素的一位数组,并对其赋值,然后检查元素值,如果某元素值既是3的倍数,也是7的倍数,则将该元素的值改为370
Dima%(15),sum&
Fori=1To15
a(i)=Int(31*Rnd())
Ifa(i)Mod3=0Anda(i)Mod7=0ThenPrinta(i),:
a(i)=370:
Printa(i)
(3)建立一个10*10的矩阵,将其对角线上的元素赋值为1,其他元素赋值为0
Dimarr(10,10)AsInteger,iAsInteger,jAsInteger
Fori=1To10
Forj=1To10
Ifi=jOri+j=11Thenarr(i,j)=1Elsearr(i,j)=0
Printarr(i,j);
EndSub
(4)建立一个10*10矩阵,求出每一行的和以及每一列的和
arr(i,j)=Int(10*Rnd)
Dimsum(10)AsInteger
sum(i)=0
sum(i)=sum(i)+arr(i,j)
Printsum(i);
Dimsum1(10)AsInteger
sum1(j)=0
sum1(j)=sum1(j)+arr(i,j)
Printsum1(j);
(5)编写程序实现两个矩阵相加
Dima%(3,4),b%(3,4),c%(3,4)
Fori=1To3
Forj=1To4
a(i,j)=Int(11*Rnd())
Printa(i,j);
b(i,j)=Int(11*Rnd())
Printb(i,j);
c(i,j)=a(i,j)+b(i,j)
Printc(i,j);
(6)定义一个具有100个素的整型数组,范围【0,100】,每行输出十个
Dima%(99),i%
Randomize
Fori=0To99
a(i)=Int(101*Rnd)
Next
Spc(4-Len(Str(a(i))));
IfiMod10=9ThenPrint
(7)编写程序,建立一个6×
6的整型二维数组
(数据由程序调用Rnd函数产生[0,15)的随机整数数),输出数组中的最小元素。
PrivateSubcommand1_click()
Dima%(6,6),i%,j%
Fori=1To6
Forj=1To6
a(i,j)=Int(Rnd*15)
Min=a(1,1)
IfMin>
a(i,j)ThenMin=a(i,j)
数组中最小元素为:
Min
(8)编写程序,产生一个整型二维数组A(N,N),(N取5),数组元素的取值范围为[0,15),计算数组中每一列数据的和。
Dima%(5,5)
Dimi%,j%
Fori=1To5
Forj=1To5
s1=s1+a(i,1)
第一列数据之和是"
s1
s2=s2+a(i,2)
第二列数据之和是"
s2
s3=s3+a(i,3)
第三列数据之和是"
s3
s4=s4+a(i,4)
第四列数据之和是"
s4
s5=s5+a(i,5)
第五列数据之和是"
s5
(9)编写一个函数,其参数为一个一维整型数组,其功能为求数组中所有元素的最小值。
PublicFunctionfindmin%(b%())
Dimi%
Min=b(LBound(b))
Fori=LBound(b)ToUBound(b)
IfMin>
b(i)ThenMin=b(i)
findmin=Min
Dima%(1To10),i%
Fori=1To10
a(i)=Int(Rnd*100)
数组最小值是"
findmin(a())
(10)定义一个下标上界为10的整形数组,并随机函数为其赋值(值处于0到100之间),计算数组中所有偶数的和
Privatesubcommand1_click()
Dima%(10)
Dimi%,s%
Fori=0to10
A(i)=101*rnd()
Ifa(i)mod2=0then
S=s+a(i)
Endif
10、随机数问题
(1)随机输入一个位于0到100的整数
Dims%
S=int(101*rnd)
Prints
(2)随机输出一个小写字母
dimaasstring
randomize
a=chr(int(97+26*rnd))
magbox(a)
endsub
(3)随机输出一个小(大)写字母。
Dims
s=Chr$(Int(Rnd*26+97))
p=Chr$(Int(Rnd*26+65))
输出的随机小写字母是"
s
输出的随机大写字母是"
p
(4)编写函数过程实现返回一个1~100之间的随机整数
OptionExplicit
PrivateFunctionp()AsInteger
p=Int(100*Rnd+1)
Printp(),
11、斐波那契数
(1)斐波那契数的第X项值
Dima#,b#,c#
a=1
b=1
请输入x"
Fori=3Tox
c=a+b
a=b
b=c
Printc
(2)斐波那契数列前N项和
Sum=2
Sum=Sum+c
PrintSum
(3)用Function过程求斐波那契数列的第n项,并调用该函数,显示数列的第5项。
斐波那契数列:
1,1,2,3,5,8……
p=f(5)
PublicFunctionf(n%)
Dima#(),i%
ReDima#(1Ton)
a
(1)=1:
a
(2)=1
Fori=3Ton
a(i)=a(i-1)+a(i-2)
f=a(n)
第"
n;
项是"
a(n)
(1)有一个分数序列,2/1,3/2,5/3,8/5,13/8,21/13,……,求该数列的前二十项
Dima#,b#,sum#,i#
a=1:
b=2:
sum=0:
i=1
Fori=1To20
sum=sum+b/a
b=a+b
a=b-a
该数列前20项之和为:
(2)计算s=1+(1+2)+(1+2+3)+(1+2+3+4)+……+(1+2+3+4+5+…..+n)
Dims#
Fori=1Ton
Forj=1Toi
s的值为:
(3)设s=1^1*2^2*3^3*4^4*…….*n^n,求s不大于400000是最大的n值
Dims&
s=1:
i=0
Do
s=s*(i^i)
LoopUntils>
400000
s不大于400000时最大的n值为:
i-1
(4)计算sum=1*3*5....*9
DimsumAsLong,iAsInteger
sum=1
Fori=1To9Step2
sum=sum*i
MsgBox(sum)
(5)计算sum=1/2!
+1/4!
+1/6!
+...+1/10!
Privatesubcommand1_click()
Dimi%,f#,s#
F=1:
s=0
Fori=1to10
F=f*i
Ifimod2=0then
S=s+1/f
Endif
sum=1/2!
="
s
(6)计算sum=2!
+4!
+6!
+...+10!
《计算、sum=1!
+3!
+5!
+...+9!
》
S=s+f
sum=2!
(7)编写程序,计算并输出下面级数前n项(n=20)中奇数项的和。
1*2*3-2*3*4+3*4*5-4*5*6+…+(-1)^(n-1)*n*(n+1)*(n+2)+…(其中,^表示幂运算)
Private
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 题库 考试 必备