vb题库程序设计Word文件下载.docx
《vb题库程序设计Word文件下载.docx》由会员分享，可在线阅读，更多相关《vb题库程序设计Word文件下载.docx（19页珍藏版）》请在冰豆网上搜索。
sum=sum+i
5,'
求1到m之间的偶数之积。
DimyAsDouble
y=1
Fori=1Tom
IfiMod2=0Then
y=y*i
EndIf
fun=y
6,'
根据一个百分制成绩mark（整数），显示对应五级制的评定。
条件如下：
mark大于等于90显示"
优秀"
mark小于90且大于等于80显示"
良好"
mark小于80且大于等于70显示"
中等"
mark小于70且大于等于60显示"
及格"
mark小于60显示"
不及格"
要求使用Select语句来实现。
SelectCasemark
CaseIs>
=90
fun="
=80
=70
=60
CaseElse
EndSelect
7,'
（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中
IfiMod2=1Then
8,'
（响应）输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。
------------------------------------
Fori=100To200
Forj=2ToSqr（i）
IfiModj=0ThenExitFor
Ifj>
Int（Sqr（i））Then
Sum=Sum+i
PrintSum
9,'
将一个十进制整数m转换成→r（2－16）进制字符串。
方法：
将m不断除r取余数，直到商为零，以反序得到结果。
下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串
chr函数：
将ascii码转换为对应字母。
DimstrDecR$,iDecR%
strDecR="
"
DoWhileidec<
>
iDecR=idecModibase
IfiDecR>
=10Then
strDecR=Chr$（65+iDecR-10）&
strDecR
Else
strDecR=iDecR&
idec=idec\ibase
TrDec=strDecR
10,'
（事件）单击按钮。
（响应）随机产生N个两位正整数（N由输入对话框输入，且N>
0），求出其中的最大数和最小数，并在标签框Label1上显示最大数与最小数的差。
--------------------------------
x=InputBox（"
请输入x"
）
n=1
t=x
s=x
DoUntilAbs（t）<
0.00000001
n=n+1
t=t*（-1）/n
s=s+t
Label1.Caption="
s="
&
s
（响应）已知s=1+1/3!
+1/5!
+1/7!
+1/9!
请将s结果值输出到窗体上。
使用dowhile...loop语句完成程序
i=1
p=1
DoWhilei<
=9
p=p*i
s=s+1/p
i=i+1
Prints
sum=s
（响应）求从100到1000之间所有是3的倍数的数之和，当和大于3000时，停止计算并输出和。
请将结果输出到窗体上,并存入所给变量SUM中。
使用for...next语句完成程序
sum=0
fori=100to1000
ifimod3=0then
ifsum>
3000then
exitfor
endif
i=i+1
next
（响应）求1-100中为5或7的倍数的和。
使用while...wend语句完成程序
Whilei<
=100
IfiMod5=0OriMod7=0Then
Wend
（响应）求出100以内所有素数的和，并将结果输出到窗体上,并存入所给变量SUM中。
DimjAsInteger
DimkAsInteger
DimbAsBoolean
b=False
Fori=2To100
j=CInt（Sqr（i））
Fork=2Toj
IfiModk=0Then
b=True
Ifb=FalseThen
（响应）求1!
+2!
+3!
+……+10!
的值，并在窗体上输出。
结果存入变量L中。
DimsAsLong
s=1
s=s*i
l=l+s
PrintStr（l）
求一个四位数的各位数字的立方和
DimdAsInteger,kAsInteger,sAsInteger
Whilen>
d=nMod10
s=s+d*d*d
n=n/10
fun=s
第46题（1.0分）题号:
490
-------------------------------------------------
（响应）已知sum=1-1/4+1/9-1/16+1/25...-1/100,
请将sum结果值输出到窗体上。
fori=1to10
sum=sum+（-1）^（i-1）/（i*i）
第48题（1.0分）题号:
478
编写函数fun，其功能是:
能计算从1开始到n的
自然数中偶数的平方的和。
DimsumAsInteger,iAsInteger
Fori=2TonStep2
sum=sum+i*i
fun=sum
第49题（1.0分）题号:
208
请用Select语句编程计算打折后的金额？
折扣方法如下:
购物300以下，无优惠（使用MsgBox显示“无优惠”）；
购物300以上，95折；
购物500以上，9折；
购物1000以上，85折；
购物5000以上，8折?
SelectCasen
5000
n=n*0.8
1000
n=n*0.85
500
n=n*0.9
300
n=n*0.95
MsgBox"
无优惠"
将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞，要求每种零钞不少于1张，
问有哪几种组合？
将组合数存入变量OUT中。
DimnAsInteger
Dimi%,j%,k%
Print"
5?
1?
0.5?
Fori=1To20
Forj=1To100-i
k=100-i-j
If5#*i+1#*j+0.5*k=100Then
Printi,j,k
Nextj
out=n
（响应）我国现有人口为13亿，设年增长率为1%，
计算多少年后增加到20亿。
并将结果输出在窗体上。
将结果存入变量year中。
使用dowhile...loop语句完成程序。
dimpasdouble
dimrassingle
dimnasinteger
r=0.01
p=p+p*r
n=n+1
loop
print"
n="
n
year=n
应用选择法对数组A按升序排列
基本思想:
1）对有n个数的序列（存放在数组a（n）中），从中选出最小的数，与第1个数交换位置；
2）除第1个数外，其余n-1个数中选最小的数，与第2个数交换位置；
3）依次类推，选择了n-1次后，这个数列已按升序排列。
Dimi,j,imin,tempAsInteger
Fori=1Ton-1
imin=i
Forj=i+1Ton
Ifa（imin）>
a（j）Thenimin=j
temp=a（i）
a（i）=a（imin）
a（imin）=temp
（响应）求一个数,它除3余2，除5余3，除7余2，请将满足上面条件的最小数保存到sum变量中。
Fori=2To1000
IfiMod3=2AndiMod5=3AndiMod7=2Then
Printi
sum=i
（响应）生成一个一维数组（10个数组元素依此为：
15、23、72、43、96、23、3、65、88、17），写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。
将最大值，最小值，平均值分别存入变量
Max,Min,Aver中
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）
Ifa（i）<
minThen
min=a（i）
s=s+a（i）
aver=Int（s/10）
Print（CStr（max））
Print（CStr（min））
Print（CStr（aver））
（事件）双击窗体。
（响应）求s=1+1×
2+1×
2×
3+…+1×
3×
…×
10，并将结果存到变量S中
Dimi,jAsInteger
DimkAsLong
k=1
Forj=1Toi
k=k*j
s=s+k
Print（CStr（s））
（响应）求100到500之间奇数的和，将结果输出
在窗体上并存入变量SUM中。
使用do...loopuntil语句完成程序
i=100
do
sum=sum+i
loopuntili>
（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。
s=s+1/（i^i）
Print（s）
（事件）单击命令按钮Command1。
（响应）计算如下表达式s的值,
s=1+（1*2）+（1*2*3）+……+（1*2*3*……*6）
并将结果输出到文本框Text1中。
j=1
Fori=1To6
j=j*i
s=s+j
Text1.Text=s
求两个数m,n的最大公约数p和最小公倍数q
nm=n*m
Ifm<
nThent=m:
m=n:
n=t
DoWhile（r<
0）
p=n
q=nm/n
计算n门课程的平均值，计算结果作为函数值返回。
例如，若有5门课程的成绩是：
92，76，69，58，88，则函数的值为76.6。
DimyAsSingle
Fori=1Ton
y=y+a（i）
fun=y/n
（响应）求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中
Fori=201To300
If（（iMod3）=0）And（（iMod7）=0）Then
Print（CStr（i））
（事件）单击窗体
（响应）用输入框输入一自然数，判断是"
正数"
、"
负数"
或"
零"
，并根据输入的数用消息框显示"
。
-------------------------------------
n=InputBox（"
输入一个自然数"
Ifn>
0Then
result="
ElseIfn<
ElseIfn=0Then
输入的数据"
n&
为：
result
或者
（响应）求出50以内所有奇数的和。
Fori=1To50
判断一个字符是'
字母字符、数字字符还是其他字符，并做相应的显示。
字母字符显示字符串"
字母"
数字字符显示字符串"
数字"
其他字符显示字符串"
其他"
要求使用IF语句来实现。
IfUCase（n）>
="
A"
AndUCase（n）<
Z"
Then
ElseIfn>
0"
Andn<
9"
（响应）求50以内所有偶数的和，并在窗体上输出出来。
将结果存入变量S中。
Fori=2To50
If（iMod2）=0Then
s=s+i
（响应）求100以内偶数的和，并将结果输出在窗体上。
（响应）把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。
将所有的换法的数目存入变量N中
Dimi,j,kAsInteger
Forj=1To50
Fork=1To20
If（（i+2*j+k*5）=100）Then
Print（CStr（j））
Print（CStr（k））
编写函数fun其功能是：
根据整型形参m，计算如下公式的值：
y=1/2＋1/4＋1/6＋...＋1/2m
y=y+1/（2*i）
根据整型形参m，计算如下公式的值:
y=1＋1/3＋1/5＋1/7＋...＋1/（2m+1）
例如：
若m=9，则应输出：
2.133255
y=y+1/（2*i+1）
升级会员 