常见VB考试题型Word文档格式.docx
- 文档编号:21869339
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:46
- 大小:82.30KB
常见VB考试题型Word文档格式.docx
《常见VB考试题型Word文档格式.docx》由会员分享,可在线阅读,更多相关《常见VB考试题型Word文档格式.docx(46页珍藏版)》请在冰豆网上搜索。
EndIf
比较后:
3判断一个整数的奇偶性
PrivateSubForm_Click()
x=Val(InputBox("
请输入一个数;
))
IfxMod2=0Then
MsgBox(x&
是偶数"
Else
是奇数"
4帐号和密码
If="
12345"
Then
If="
MsgBox"
登录成功"
64+1,"
登录"
Else
密码错误,请重新输入"
16
EndIf
用户不存在"
16+1,"
5判断一个数是整数还是小数,如果是整数再判断其奇偶性。
x=InputBox("
IfInStr(1,x,"
."
)=0Then
IfxMod2=0Then
是整数,是偶数!
是整数,是奇数!
是小数"
6书店优惠售书
DimxAsSingle,yAsSingle
x=Val
SelectCasex
CaseIs<
=100
y=x*
=200
=300
CaseElse
EndSelect
=y&
元"
7设计一个计程车收费程序
X=Val
SelectCaseX
=3
=6
=30
=6+(X-3)*
=6+27*+(X-30)*2
8输入10个数,输出累加之和。
DimSAsSingle,iAsInteger,xAsSingle
S=0
Fori=1To10
请输入第"
i&
个数"
第"
x
S=S+x
Nexti
十个数累加之和为"
S
9输入10个数,输出偶数之和。
DimSAsSingle,xAsSingle
DimnAsInteger,iAsInteger
S=S+Val(x)
十个数中偶数累加之和为"
10求S=1+2+3+……+100
DimIAsInteger,SAsLong
ForI=1To100
S=S+I
NextI
PrintTab(10);
S="
11求S=1+3+5+……+99
s=0
Fori=1To100Step2
s=s+i
s="
12S=1+22+32+……+102,计算并输出s
s=s+i^2
13S=1+22+32+……+n2,问n为多少时,s的值大于100000
n=0
DoWhiles<
=100000
n=n+1
s=s+n^2
Loop
PrintTab(15);
n="
n
141)S=1/2+1/4+1/6+1/8+1/10+…+1/20,求s并输出s的值。
DimsAsSingle,iAsInteger
s=0
Fori=2To20Step2
s=s+1/i
Nexti
Print"
15s=1×
2×
3×
……×
10
求n!
n为[1~10]之间的随机整数。
DimsAsLong,iAsInteger
s=1
s=s*i
10!
="
16已知一数列的前两项均为1,从第3项开始,每一项的值为其前面两项之和,求数列的前20项的和。
DimsAsInteger,f1AsInteger
Dimf2AsInteger,f3AsInteger
f1=1
f2=1
s=f1+f2
Fori=3To20
f3=f1+f2
s=s+f3
f1=f2
f2=f3
17
DimsAsSingle,f1AsInteger,f2AsInteger
Dimf3AsInteger,iAsInteger
f2=2
Fori=1To20
s=s+f2/f1
f3=f2
f2=f1+f2
f1=f3
18S=1!
+2!
+3!
+....+10!
DimsAsLong,s1AsLong,iAsInteger,jAsInteger
s1=1
Forj=1Toi
s1=s1*j
Next
s=s+s1
考虑另一种算法
见其他打印部分
19s=1+(1+2)+(1+2+3)+…+(1+2+…+10)
DimsAsInteger,s1AsInteger
DimiAsInteger,jAsInteger
s1=0
s1=s1+j
Nextj
20s=1-1/3!
+1/5!
-1/7!
+…直到某一项的绝对值小于10^(-5)
DimSAsSingle,S1AsSingle
DimiAsInteger,FAsInteger,JAsInteger
S1=1
i=1
F=1'
正负符号标志
DoWhile1/S1>
10^(-5)
S1=1
J=1
DoWhileJ<
=i
S1=S1*J
J=J+1
Loop
S=S+1/S1*F
i=i+2
F=-F'
换符号
S-1/S1,"
I="
i
x=1
n=1
DoWhile1/x>
=10^(-5)
S=S+(1/x)*(-1)^(n+1)
x=x*(n*2)*(2*n+1)
n=n+1
21s=2+22+222+2222+22222+222222
Fori=1To6
s1=s1+2*10^(j-1)
s=s+s1
Next
22S=a+aa+aaa+……+aaaa(N个a)其中a是一个[1,9]的随机整数,N是一个[5,10]的随机整数。
DimaAsInteger,nAsInteger
Cls
Randomize
a=Int(9*Rnd)+1
n=Int(6*Rnd)+5
Fori=1Ton
s1=s1+a*10^(j-1)
当a="
a,"
n;
时"
23S=1+12+123+1234+12345+123456
s1=0
s1=s1*10+i
Prints1
s1=s1+j*10^(i-j)
s
24将一字符串逆序输出
DimnAsInteger,s1AsString,s2AsString
s1=
s2="
n=Len(Trim)
Fori=nTo1Step-1
s2=s2&
Mid(s1,i,1)
=s2
25判断任给一大于3的整数是否是素数。
DimNAsInteger,IAsInteger
N=InputBox("
请输入一个大于3的整数"
ForI=2ToN-1
IfNModI=0Then
ExitFor
IfN=IThen
MsgBox(N&
是素数"
不是素数"
26输出3~100之间的素数
输出
Forn=3To100
Fori=2Ton-1
IfnModi=0Then
Ifi=nThen
Printn
Nextn
换行输出
PrivateSubCommand2_Click()
DimmAsInteger
m=0
m=m+1
IfmMod5=0Then
Printn;
dimmasin
PrintTab(6*m);
m=0
27输出100~999之间的水仙花数
DimIAsInteger,AAsInteger
DimBAsInteger,CAsInteger
ForI=100To999
A=Int(I/100)
B=Int(I/10)-A*10
C=I-A*100-B*10
IfA^3+B^3+C^3=IThen
I;
28陈婷的QQ密码是一个5位数。
但因为有一段比较长的日子没上了,陈婷把这个密码给忘了。
不过陈婷的生日是8月1日,她妈妈的生日是9月1日,她特别喜欢把同时是8l和9l的倍数用作密码。
陈婷还记得这个密码的中间一位(百位数)是l。
你能设计一个程序帮她找回这个密码吗
陈婷密码:
5位数,能被81,91整除,百位是1
DimiAsLong,xAsInteger
Fori=10100To99199
x=i\100Mod10
Ifx=1Then
IfiMod91=0AndiMod81=0Then
密码是"
29百元买百鸡问题。
假定小鸡每只5角,公鸡每只2元,母鸡每只3元。
现在有100元钱要求买100只鸡(每种鸡至少一只),编程列出所有可能的购鸡方案
OptionExplicit
DimXAsInteger,YAsInteger
DimzAsInteger,IAsInteger
I=0
ForX=1To100
ForY=1To50
Forz=1To33
IfX+Y+z=100And*X+2*Y+3*z=100Then
I=I+1
方案"
I&
:
小鸡"
X&
只,"
_
公鸡"
Y&
母鸡"
z&
只。
Nextz,Y,X
30鸡兔合笼共20只,脚46只问鸡几只兔几只
DimxAsInteger,yAsInteger
Forx=1To20
Fory=1To20-x
Ifx+y=20And2*x+4*y=46Then
鸡"
x&
只"
兔"
y&
只"
Nexty
Nextx
31找出100之内的自然数对。
(两数的和是某个自然数的平方,两数的差也是某数的平方)
Fori=1To99
Forj=i+1To100
IfInt(Sqr(j-i))=Sqr(j-i)AndInt(Sqr(j+i))=Sqr(j+i)Then
Printi,j
32找出1000-9999之间的玫瑰花数。
DimiAsInteger
Dima1AsInteger,a2AsInteger
Dima3AsInteger,a4AsInteger
Fori=1000To9999
a1=i\1000
a2=i\100Mod10
a3=i\10Mod10
a4=iMod10
Ifa1^4+a2^4+a3^4+a4^4=iThen
Printi
33猴子吃桃子。
小猴在某天摘桃若干个,当天吃掉一半多一个;
第二天吃了剩下的桃子的一半多一个;
以后每天都吃尚存桃子的一半多一个,到第7天要吃时只剩下一个,问小猴共摘下了多少个桃子
DimXAsInteger,IAsInteger
X=1
ForI=6To1Step-1
X=(X+1)*2
天桃子数是:
个。
34瓜农有西瓜1020个,每天能卖掉前一天剩下的总数的一半还多两个,问多少天能卖完。
X=1020
DoWhileX>
0
X=X/2-2
="
天能卖完."
35一球从10米高空落下,每次弹起高度为落下高度的40%,求第8次落下,小球经历的路程。
DimsAsSingle,hAsSingle,iAsInteger
s=10
h=10
Fori=2To8
h=h*
s=s+h*2
球第八次落下经历的路程是:
s;
米"
36输入十个数,输出其中的最大数和最小数
DimxAsSingle,iAsInteger
DimmaxAsSingle,minAsSingle
请输入第1个数"
Printx
max=x:
min=x
Fori=2To10
x=Val(InputBox("
Printx
Ifx>
maxThen
max=x
Ifx<
minThen
max="
max,"
min="
min
377个裁判给选手打分,要求去掉最高分和最低分,求平均分。
DimC(7),MAX,MIN,S,I
MAX=
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 常见 VB 考试 题型
![提示](https://static.bdocx.com/images/bang_tan.gif)