VB题库程序填空1文档格式.docx
- 文档编号:22154233
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:41
- 大小:23.96KB
VB题库程序填空1文档格式.docx
《VB题库程序填空1文档格式.docx》由会员分享,可在线阅读,更多相关《VB题库程序填空1文档格式.docx(41页珍藏版)》请在冰豆网上搜索。
功能:
输入任何一个英文字母x,
若x的值为"
a"
"
c"
d-f"
则显示x的大写字母;
m"
o"
p-z"
则显示x的小写字母;
若x的值为其它的值,则显示xa(如输入的X的值是g,则显示ga)。
PrivateSubCommand1_Click()
x=Text1.Text
【?
】
Case【?
Label1.Caption=UCase(x)
Case"
"
p"
To"
z"
Label1.Caption=LCase(x)
CaseElse
1).SelectCasex
2)."
d"
f"
3).Label1.Caption=Trim(x)+"
或Label1.Caption=x+"
〖第3题〗『程序填空』(1分)(题号:
36)
以下程序的功能如(图1)。
PrivateSubForm_Click()
Dima%,b%,c%,d!
Dimx1,x2
Dimp,q,r
a=InputBox("
请输入a的值"
)
b=InputBox("
请输入b的值"
c=InputBox("
请输入c的值"
d=b*b-4*a*c
p=-b/(2*a)
Ifd>
=0Then
If【?
】Then
r=Sqr(d)/(2*a)
x1=p+r
x2=p-r
Else
x1=p
x2=p
Print"
x1="
;
x1,"
x2="
x2
【?
q=Sqr(-d)/(2*a)
p;
"
q;
i"
EndIf
1).d>
0或0<
d
2).EndIf
3).Else
〖第4题〗『程序填空』(1分)(题号:
51)
下面的程序段用于建立文件并输出文件,文件内容如下:
*****
*****
Open"
c:
\1.txt"
For【?
】As#1
Fori=1To5
Print#1,Spc(i);
*****"
Nexti
LineInput#1,x
Printx
Close#1
1).Output
2).Close#1或Close
3).Input
〖第5题〗『程序填空』(1分)(题号:
49)
以下程序段用于求∑n!
DimsumAsInteger,nAsInteger
n=InputBox("
请输入一个正整数"
sum=0
Fori=1Ton
sum=【?
Nexti
Printsum
PrivateFunctionmul(ByValxAsInteger)
DimsAsInteger,iAsInteger
s=1
Fori=1To【?
s=s*i
EndFunction
1).sum★+★mul(i)
2).x
3).mul=s
〖第6题〗『程序填空』(1分)(题号:
61)
根据输入的学习成绩,分别显示优秀(90分以上),良好
(75分以上),及格(60分以上),不及格几个等级。
Ifx>
=90Then
优秀"
ElseIf【?
】Then
良好"
ElseIfx>
=60Then
不及格"
1).x>
=75或75<
=X
及格"
或Label1="
〖第8题〗『程序填空』(1分)(题号:
46)
从键盘输入学生分数,统计学生总人数和各分数段人数,
即优秀(90-100)、良好(80-89)、中等(70-79)、
及格(60-69)、不及格(60以下)的人数。
Dimscore%,n1%,n2%,n3%,n4%,n5%
msg="
请输入分数(-1结束)"
msgtitile="
输入数据"
score=Val(InputBox(msg,msgtitle))
While【?
total=total+1
SelectCase【?
CaseIs>
=90
n1=n1+1
=80
n2=n2+1
=70
n3=n3+1
=60
n4=n4+1
n5=n5+1
Wend
Printn1,n2,n3,n4,n5,total
1).score>
=0★And★score<
=100或0<
=score★And★score<
=score★And★100>
=score或score>
=0★And★100>
=score
2).score
3).EndSelect
〖第9题〗『程序填空』(1分)(题号:
56)
输入数字1-7,显示其对应是星期几(例:
输入1,显示星期日,
如果输入其它内容,一律显示"
输入错误"
dimxasinteger
dimyasstring
x=val(text1.text)
case1
y="
今天是星期日"
case2
星期一"
case3
星期二"
case4
y="
星期三"
case5
星期四"
case6
case7
星期六"
y="
endselect
Text2.Text=y
1).selectcasex
2).y="
星期五"
3).CaseElse
〖第10题〗『程序填空』(1分)(题号:
41)
下面过程max()用于求3个数中最大值,利用这个过程求5个数中最大值。
Print"
5个数34、124、68、73、352的最大值是:
"
max1=max(34,124,68)
max1=【?
Printmax1
PublicFunctionmax(ByVala%,ByValb%,ByValc%)
If【?
m=a
Else
m=b
max=m
max=c
1).max(max1,73,352)
2).a>
b或b<
a
3).m>
c或c<
m
〖第11题〗『程序填空』(1分)(题号:
43)
下面的程序段用于实现以下功能:
利用冒泡法将一组整数
从小到大排序。
Constn=15
Dima(1Ton)AsInteger,workAsBoolean
DimiAsInteger,jAsInteger,xAsInteger
Randomize
Fori=1Ton
a(i)=Int(90*Rnd)+10
Printa(i);
Fori=nTo2【?
work=True
Forj=1Toi-1
Ifa(j)>
a(j+1)Then
x=a(j):
a(j)=a(j+1):
a(j+1)=x
EndIf
Nextj
IfworkThen【?
1).Step-1
2).work=False或work=0或notwork=true
3).ExitFor
〖第12题〗『程序填空』(1分)(题号:
37)
以下程序用于判断一个正整数(≥3)是否为素数。
n=InputBox("
请输入一个正整数(≥3)"
k=Int(Sqr(n))
i=2
swit=0
DoWhilei<
=kAnd【?
swit=1
Loop
Ifswit=0Then
Printn;
是一个素数"
不是素数"
1).swit=0
2).nModi=0或n/i★=★n\i或n/i★=★int(n/i)
3).i=★i★+★1
〖第13题〗『程序填空』(1分)(题号:
55)
过程suixian可以判断某一个数字是否是水仙花数,利用
该过程找出三位数中所有水仙花数。
所谓"
水仙花数"
是指一个3位数,其各位数字立方和等于
该数本身。
DimiAsInteger
Fori=100To999
PublicSubsuixian(xAsInteger)
Dimi%,j%,k%
i=【?
j=(x-i*100)\10
k=x-i*100-j*10
】ThenPrintx
1).suixian(i)或callsuixian(i)或suixiani
2).x\100或int(x/100)
3).x=★i^3★+★j^3★+★k^3或x=★i*i*i★+★j*j*j★+★k*k*k
〖第14题〗『程序填空』(1分)(题号:
50)
从键盘上输入一串字符,以"
?
结束,统计输入字符中的
大、小写字母和数字的个数。
Dimch$,n1%,n2%,n3%
n1=0
n2=0
n3=0
ch=InputBox("
请输入一个字符"
DoWhile【?
SelectCasech
9"
Printn1,n2,n3
1).ch★<
>
★"
或notch="
或not"
=ch
A"
Z"
3).Loop
〖第15题〗『程序填空』(1分)(题号:
54)
本程序用于实现:
从键盘接收一数字,判断其是否在数组
中,如果在数组中则将其删除,否则显示该数字不在数组
中。
Dima(10)AsInteger,xAsInteger
Fori=1To10
a(i)=Int(Rnd*90)+10
x=InputBox("
请输入要删除的整数"
Ifa(i)=xThen【?
Fork=iTo9
**********SPACE*
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 题库 程序 填空