VB分章练习题Word格式文档下载.docx
- 文档编号:812404
- 上传时间:2023-04-29
- 格式:DOCX
- 页数:45
- 大小:92.82KB
VB分章练习题Word格式文档下载.docx
《VB分章练习题Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VB分章练习题Word格式文档下载.docx(45页珍藏版)》请在冰点文库上搜索。
22.在文本框中,通过(selstart)属性能获得当前插入点所在的位置。
23.要对文本框中已有的内容进行编辑,按下键盘上的按键,就是不起作用,原因是设置了(locked)的属性为True
24.在窗体上已建立了多个控件如Text1Label1Command1若要使程序已运行焦点就定位在Command1控件上,应对Command1控件设置(TabIndex)属性的值为(0)
第二章练习题
1.在一个语句内写多条语句时,每个语句之间用(B)符号分隔。
(A),(B):
(C)、(D);
2.一句语句要在下一行继续写,用(C)符号作为续行符。
(A)+(B)-(C)_(D)…
3.下面(A)是合法的变量名。
(A)X_YZ(B)123ABC(C)integer(D)X-Y
4.下面(D)是不合法的整常数。
(A)100(B)&
O100(C)&
H100(D)%100
5.下面(B)是合法的字符常数。
(A)ABC$(B)”ABC”(C)’ABC’(D)ABC
6.下面(D)是不合法的单精度型常数
(A)100!
(B)100.0(C)1E+2(D)100.0D+2
7.下面(A)是合法的单精度型变量
(A)num!
(B)sum%(C)xinte$(D)mm#
8.表达式16/4-2^5*8/4MOD5\2的值为(B)
(A)14(B)4(C)20(D)2
9.数学关系3<
=x<
10表示成正确的VB表达式为(B)
(A)3<
=X<
10(B)3<
=XANDX<
10
(C)X>
=3ORX<
10(D)3<
=XAND<
10.\、/、MOD、*四个算术运算符中,优先级别最低的是(C)
(A)\(B)/(C)MOD(D)、
11.与数学表达式
对应,VB的不正确表达式是(D)
(A)a*b/(3*c*d)(B)a/3*b/c/d(C)a*b/3/c/d(D)a*b/3*c*d
12.Rnd函数不可能为下列(B)值
(A)0(B)1(C)0.1234(D)0.0005
13.Int(198.555*100+0.5)/100的值为(C)
(A)198(B)199.6(C)198.56(D)200
14.已知A$=”12345678”则表达式Val(Left$(A$,4)+Mid(A$,4,2))的值为(B)
(A)123456(B)123445(C)8(D)6
15.PrintDateAdd(“m”,1,#1/30/2000#)语句显示的结果是(A)
(A)00-2-29(B)00-2-28(C)00-2-30(D)00-1-31
16.表达式DateDiff(“y”,#12/30/1999#,#1/13/2000#)的结果是(C)
(A)1(B)11(C)14(D)99
17.表达式Len(“123程序设计ABC”)的值为(A)
(A)10(B)14(C)20(D)17
18.表达式LenB(“123程序设计ABC”)的值为(C)
19.下面正确的赋值语句是(C)
(A)X+Y=30(B)Y=π*R*R(C)Y=X+30(D)3*Y=X
20.为了给X,Y,Z三个变量赋值为1,下面正确的赋值语句是(A)
(A)X=1:
Y=1:
Z=1(B)X=1,Y=1,Z=1
(C)X=Y=Z=1(D)XYZ=1
21.赋值语句:
A=123+MID(“1234356”,3,2)执行后,A变量的值为(D)
(A)”12334”(B)123(C)12334(D)157
22.赋值语句:
A=123&
MID(“1234356”,3,2)执行后,A变量的值为(A)
21.在VB中,1234,1234&
1.2346E+5,1.2346D+5四个常数分别表示(),(),(),()类型。
22.表示X是5的倍数或是9的倍数的表达式为()
23.已知A=3.5,B=5.0,C=2.5,D=True则表达式:
A>
=0ANDA+C>
B+3ORNOTD的值为()
24.int(-3.5),int(3.5),fix(-3.5),fix(3.5),round(-3.5),round(3.5)的值分别为多少()
()()()()()
25.表达式Ucase(Mid(“abcdefgh”,3,4))的值为()
26.计算离你毕业还有多少个星期的函数表达式为()(假定毕业日期为7/1/2007)
第三章练习题
1.下面程序运行后的结果为()
x=int(rnd)+3
ifx^2>
8theny=x^2+1
ifx^2=9theny=x^2-2
ifx^2<
8theny=x^3
printy
2.下面程序的功能为()
Dimn%,m%
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13then
IfIsNumeric(Text1)then
SelectCaseText1Mod2
Case0
N=n+text1
Case1
M=m+text1
EndSelect
Endif
Text1=””
Text1.SelFocus
EndSub
3.程序添空
Dimcount1%
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
If()=”(“then
Count1=count1+1
Elseif()=”)”then
()
endif
ifkeyascii=13then
if()then
Print“左右括号配对“
Elseif()then
Print“左括号多于右括号”;
count1;
“个”
Else
Print“右括号多于左括号”;
-count1;
Endif
Endsub
4.输入字符,统计有多少个元音字母,有多少其他字母,直到按了回车键结束并显示结果。
大小写不区分。
DimCounty%,countc%
Dimc$
C=()
If“A”<
=CANDC<
=”Z”then
SelectCase()
Case()
County=county+1
Countc=countc+1
Endselect
Ifthen()
Print“元音字母有”;
county:
Print“其他字母有”;
countc;
第四章练习题
1.以下()式正确的FOR….NEXT的结构
(A)forx=1tostep10(B)forx=3to–3step-3
…..……
nextxnextx
(C)forx=1to10(D)forx=3to10step3
re:
…….…….
Nextxnexty
IfI=10thengotore
2.以下循环能正常结束的是()
(A)I=5(B)I=1
DoDo
I=I+1I=I+2
LoopuntilI<
0loopuntilI=10
(C)I=10(D)I=6
dodo
I=I+1I=I-2
LoopuntilI>
0loopuntilI=1
3.下面程序运行的结果为()
forI=3to1step–1
printspc(5-I);
forj=1to2*I-1
print“*”;
nextj
nextI
(A)*(B)*****(C)*****(D)*****
************
********
4.当在文本框输入“ABCD”四个字符时候,窗体上显示的是()
privatesubtext1_change()
printtext1;
endsub
(A)ABCD(B)A(C)AABABCABCD(D)A
BAB
CABC
DABCD
5.那个程序不能正确表示1!
,2!
,3!
,4!
的值()
(A)ForI=1to4(B)ForI=1to4
N=1forj=1toi
Forj=1toIn=1
N=n*jn=n*j
Nextjnextj
Printnprintn
NextinextI
(C)n=1(D)n=1
forj=1to4j=1
n=n*jdowhilej<
=4
printnn=n*j
nextjprintn
j=j+1
loop
6.要使下列FOR语句循环执行20次,循环变量的初值应当为()
Fork=()to-5step-2
7.下面程序段显示()个“*”
ForI=1to5
Forj=2toI
Print“*”
Nextj
Nexti
8.以下程序运行后。
Si,sj,sk,I,j,k的结果分别为()
Privatesubcommand1_click()
Si=0:
sj=0
ForI=1to3
Forj=1toI
Sk=0
Fork=jto3
Sk=sk+1
Nextk
Sj=sj+1
Si=si+1
NextI
Printsi,sj,sk,I,j,k
9.下面程序运行后的结果为()
ForI=0to3
Printtab(4*I+1);
”2”+I;
”2”&
I;
NextI
10.程序运行结果()
Privatesubcommand1_click()
A$=”*”:
b$=”$”
ForI=1to4
IfImod2=0then
X$=string(len(a$)+I,b$)
X$=string(len(a$)+I,a$)
Endif
Printx$;
11.输入字符,要求将字符顺序倒置。
Dima$,I%,c$,d$
A=inputbox$(“inputchar”)
N=()
ForI=1to()
C=mid(a,I,1)
mid(a,I,1)=()
()=c
printa
12.找出被3,5,7除,余数为1的最小的5个正整数。
Dimcountn,n
Countn=0
N=1
Do
N=n+1
If()then
Printn
Countn=countn+1
Loop()
13.猴子每天吃掉的桃子是所有桃子的一半多一个,到第七天发现只剩下一个了,问最开始有几个桃子?
Dimn,I
X=1
ForI=6to1step–1
print“原来共有”;
x;
”个桃子”
14.键盘输入一个正整数,找除大于或等于该数的第一个素数。
Dimm,x,tagasBoolean
Tag=false
X=inputbox(“inputnum”)
Dowhilenottag
M=2:
tag=()
Dowhiletagand(m<
(x\2))
Ifxmodm=0then()else()
Loop
Ifnottagthenx=x+1
Printx
Endsub
15.将一个正整数分解为质因数乘积。
如,234=2*3*3*13
Dimn,factor,firstasBoolean
N=inputbox(“inputnum”)
Factor=2
First=true
Do
Dowhile()
Iffirstthen
Printn;
“=”;
factor;
Else
Print“*”;
first=false
loop
factor=factor+1
loopuntilfactor>
n
第五章练习题
1.运行结果为()
dima
a=array(1,2,3,4,5,6,7)
forI=Lbound(a)toubound(a)
A(I)=A(I)*A(I)
Printa(i)
2.运行结果为()
optionbase1
privatesubcommand1_click()
dima(3,3)
forI=1to3
forj=1to3
ifj>
1andI>
1then
a(I,j)=a(a(I-1,j-1),a(I,j-1))+1
else
a(I,j)=I*j
endif
printa(I,j);
”“;
nextj
nextI
endsub
3.运行结果为()
privatesubcommand1_click()
dima,b(3,3)
a=array(1,2,3,4,5,6,7,8,9)
b(I,j)=a(I*j)
if(j>
=I)thenprinttab(j*3);
b(I,j);
4.随机产生6位学生的分数(范围1-100),存放在数组a中,以每2分一个“*”显示。
如图:
Dima(1to6)
ForI=1to6
A(I)=()
Print()
5.输出大小可变的正方形图案,最外圈是第一层,要求每层上用的数字与层数相同。
OptionBase1
Privatesubform_click()
Dima()
N=inputbox(“inputN”)‘本例N为9
()
forI=()‘每一层图案上要显示的数字
forj=Iton-I+1‘数组中元素存放对应的数字
fork=Iton-I+1
nextk
forI=1ton
forj=1ton
printtab(j*3);
a(I,j);
6.在一维数组中利用移位的方法显示如图结果
Privatesubform_click()
Dima(1to7)
ForI=1to7
A(i)=I:
printa(i);
T=()
Forj=6to1()
a
(1)=t
forj=1to7
printa(j);
nexti
7.矩阵转置(就是行列互换),矩阵的值为30-80之间。
Optionbase1
Dima%(2,3),b(3,2),I%,j%,n%
N=5
ForI=1to2
Forj=1to3
()‘赋初值
printa(I,j)
forI=1to3
forj=1to2
()‘转置
printb(I,j);
8.下面程序将输入的一个数插入到按递减的有序数列中。
插入后该序列仍有序。
Dima,I%,n%,m%
A=array(19,17,15,13,11,9,7,5,3,2,1)
N=ubound(a)
Redim()
M=val(inputbox(“输入想插入的数“)
ForI=ubound(a)-1to0step-1
Ifm>
=a(i)then
ifI=0thena(i)=m
exitfor
endif
forI=0toubound(a)
printa(i)
9.冒泡法排序
Dima,n%,j%,I%,t
A=array(19,5,15,7,11,9,23,6,3,1)
ForI=0ton-1
Forj=0ton-I+1
Ifa(j)>
a(j+1)then
a(j+1)=t
forI=0toub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 练习题