VB考试复习资料答案最终Word下载.docx
- 文档编号:18431795
- 上传时间:2022-12-16
- 格式:DOCX
- 页数:34
- 大小:29.81KB
VB考试复习资料答案最终Word下载.docx
《VB考试复习资料答案最终Word下载.docx》由会员分享,可在线阅读,更多相关《VB考试复习资料答案最终Word下载.docx(34页珍藏版)》请在冰豆网上搜索。
35、滚动条
36、MDIChild;
true
37、静态数组;
动态数组
38、COS(2*3.14)^3
39、FALSE
40、2001-6-1
41、shift键;
ctrl键;
Alt键
42、左键;
右键;
中键
43、方法
44、MsgBox,inputBox
45、Print,pset,line
46、Loadpicture,使控件自动按照图象大小进行调整
47、Callbeeps(5),beeps5
48、Popupmenu
49、组合框
50、True,1或checked
51、窗体模块,标准模块,类模块
52、整型(Integer),长整型(Long),字符型(String),日期型(Date),字节型(Byte),逻辑型(Boolean)
53、工程,窗体,标准模块
54、对象,事件驱动的
55、“‘”“-”“:
”
56、Integer%
57、EnabledFalse
58、clear
59、LargeChange
60、选中
61、CTRL;
SHIFT
62、预定义的对话框;
通用对话框;
用户自定义对话框
63、对象的数据,对象能执行的动作
64、Optionexplict
65、Timer
66、ASCII口口ASCIIASCII口口口
67、ScaleHeightScaleWidth
68、Top,Left,Height,Width
69、相对
70、5,459.40
71、255
72、一个表示文件指针字节数
73、整型,长整型,单精度型,双精度型
74、控件名,事件名
75、对象的标题,对象的名称,字体
76、可插入对象
77、ADO技术
78、selstart
79、事件
80、end
81、较小
82、数组
83、无限循环死循环永真循环
84、Text;
空白
85、false
86、False
87、ASCII码
88、窗体属性,事件过程,事件
89、MultiLine
90、0
91、窗体名
92、属性窗口,程序代码
93、0,0
94、学习版 专业版 企业版
95、驱动器列表框、目录列表框、文件列表框
96、FreeFile函数
97、AddItemRemoveItem
98、FileCopyKill
99、ASCII;
二进制文件
100、顺序访问模式、随机访问模式、二进制访问模式
二、选择题
1~5CCDCD6~10DCABC
11~15BDAAA16~20BBACB
21~25DBACC26~30CBCCC
31~35ABDCC36~40CDCAC
41~45ABBDD46~50CACBD
51~55DAACD56~60BDDDB
61~65DDCBB66~70BDBBC
71~75BABCC76~80BADAC
81~85CBDBB86~90DBCAA
91~95ACAAD96~100BBCAC
101~105CCCAD106~110CCBAD
111~115DADAB116~120B无ABD
121~125DBACC126~130DCCCD
131~135ABDCA136~140BDAAC
141~145CDBAB146~150ADBCA
151~155BBDCC156~160CCBBC
161~165CABCC166~170BBBCC
171~175DBDBA176~180DCCCC
181~185ADABD186~190BCABA
191~195DCDAC196~200ACCDA
三、程序填空
1.Caseelse:
Form1.caption=”other”
2.dimkk(0to9)asinteger
kk(i)=1
nexti
3.hideshow
4.i=20sum=sum+i
5.NN-i+1或N+1-i
6.1To9i+1To10>
=
7.nmod3=1andnmod5=1andnmod7=1UntilCountN>
=5或WhileCountN<
5
8.“123456789”
9._KeyPressCombo1.List(i)AddItem
10.Int(Rnd*100+1)x\2或int(x/2)
11.t=a(j)a(j)=a(10-j+1)a(10-j+1)=t
12.N>
MaxN<
MinS-Max-Min
13._Changevalue
14.nMod2=0或n/2=n\2
15._change
16.fori=1to100sum=sum/100或aver=sum/100
17.x>
=0x<
amin
18.List1_DblClickList1.Text或List1.list(listIndex)
19.imin=ia(j)<
a(imin)
20.Forj=1To30-3*Ik=i-1To1Step-1
21.PrintTab(3*j);
j*i;
22.x=1To100Step2
23.a(i,j)=i*2+jReDimPreservea(3,4)Picture1.Print"
a(3,"
;
j-2;
"
)="
a(3,j-2),
Picture1.Print"
j;
a(3,j)
24.a(i,j)=a(i-1,j-1)+a(i-1,j)Picture1.PrintTab(20-i*2);
Picture1.Printa(i,j);
25.sc(i,j)=i*5+j
26.x>
200
27.(-1)^(K+1)/KForm1.Print4*S
28.M=1S+M或M+S(题目中S和M的数据类型应改为定义成双精度:
dims#,m#)
29.And
30.K*10+M或10*k+M或M+10*k或m+K*10Form1.PrintS
31.题目有错
32.P=1200000000N=N+1
33.b<
c
34.n=mn=11-mm=1To10
35.a<
>
0delta>
0a=0
31.更正代码:
DimY(1To11)
Fori=1To10
Y(i)=Val(InputBox("
请输入Y(i):
"
))
Nexti
x=Val(InputBox("
请输入x:
Fori=10To1Step-1
Ifx<
Y(i)ThenExitFor
Forj=10Toi+1Step-1
Y(j+1)=Y(j)
Nextj
Y(i+1)=x
Fori=1To11
PrintY(i)
四、阅读程序写结果
1)、B
2)、24
3)、456
4)、4321
5)、10
6)、1.251
7)、1234
8)、30
9)、9
10)、50
11)、11
12)、为数为:
55
13)、55
14)、30
15)、113
16)、272
17)、100
18)、-33
19)、25
20)、5
21)、2
22)、4
23)、1.251
24)、14
25)、21
26)、42
27)、18
28)、498
29)、88
30)、n
(2)=2
n(3)=3
31)、42
32)、99to1
33)、134
34)、2468
35)、2010
1015
36)、456
37)、A
38)、15
五、编程题
1、输入3个数,要求按从小到大输出。
PrivateSubCommand1_Click()
End
EndSub
PrivateSubForm_Click()
DimaAsSingle
DimbAsSingle
DimcAsSingle
DimtAsSingle
a=InputBox("
请你输入一个数:
b=InputBox("
c=InputBox("
Ifa>
bThent=a:
a=b:
b=t
Ifb>
cThen
t=b:
b=c:
c=t
Ifa>
t=a:
a=c:
EndIf
EndIf
Print("
三个数由小到大顺序是:
Printa;
"
&
b;
c
PrivateSubForm_Load()
MsgBox("
请你单击窗体再输入的三个数!
!
2、输入10个学生记录(每个记录包括学号、成绩),组成记录类型数组,统计出平均成绩,及成绩最低的学生的学号和成绩。
Dimk()AsSingle
PrivateSubCommand2_Click()
PrivateSubCommand3_Click()
DimiAsInteger
DimjAsInteger
DimminAsSingle
ReDimk(1,1)
min=k(0,0)
Fori=0To1
Forj=0To1
a=InputBox("
请你输入学号:
b=InputBox("
请你输入成绩:
Text1=a
txxt2=b
k(i,j)=a&
b
Printk(i,j)
3、写一程序将一个数插入到已经有序(设从小到大排序)的数组中,使数组还继续保持有序。
假设原数组中的数为-12,-4,10,23,68。
Dima()AsInteger
ReDima(0To4)
a(0)=-12
a
(1)=-4
a
(2)=10
a(3)=23
a(4)=68
Show
Print"
原来数组中的数据:
Fori=0To4
Printa(i);
Nexti
t=InputBox("
请输入要插入的数:
n=UBound(a)
ReDimPreservea(n+1)
Fori=0Ton
Ifa(i)>
tThenExitFor
Ifi>
n+1Then
a(n+1)=t
Else
Fork=n+1Toi+1Step-1
a(k)=a(k-1)
Nextk
a(i)=t
插入一个数后:
Fori=0Ton+1
Printa(i);
4、求两个数m和n的最大公约数和最小公倍数,要求用一个函数过程来实现。
DimdAsInteger
DimmAsInteger,nAsInteger
m=Text1.Text
n=Text2.Text
Ifm<
nThen
t=m:
m=n:
n=t
Label5.Caption=gcd(m,n)
Label6.Caption=d
PublicFunctiongcd(aAsInteger,bAsInteger)AsInteger
IfaModb=0Then
gcd=b
Else
gcd=gcd(b,aModb)
c=gcd
d=(a*b)/c
EndFunction
5、有一个数列,它的头三项是0,0,1,以后每个数都是其前三个数的和。
编程在窗体上每行输出5个数,输出此数列,直到最后一个数超过1010为止。
PrivateSubForm_click()
Dima%,b%,c%
a=0
b=0
c=1
Printa,b,c,
i=3
Do
t=a+b+c
i=i+1
Printt,
a=b
b=c
c=t
IfiMod5=0ThenPrint
LoopWhilet<
1010
6、鸡翁一,值钱五,鸡母一,值钱三,鸡雏一,值钱一,百元买百鸡,问鸡翁、鸡母、鸡雏各几何?
DimxAsInteger,yAsInteger,zAsInteger
Forx=1To19
Fory=1To32
Forz=1To100
Ifx+y+z=100And5*x+3*y+z/3=100Then
鸡翁"
x;
只,鸡母"
y;
只,鸡雏"
z;
只"
Nextz
Nexty
Nextx
7、用随机函数产生100个20-100之间的随机整数,赋予A数组。
以每行输出10个元素的紧凑格式在图形框中输出,并在标签框中输出数组元素中的最大值、最小值和它们的平均值。
PrivateSubPicture1_Click()
Dima(1To100)AsInteger,iAsInteger
DimsumAsLong,averAsSingle
DimmaxAsInteger,minAsInteger,imaxAsInteger,iminAsInteger
Fori=1To100
a(i)=Int(20+Rnd*81)
Picture1.Printa(i);
IfiMod10=0ThenPicture1.Print
max=a
(1):
min=a
(1):
sum=a
(1)
imax=1:
imin=1
Fori=2To100
sum=sum+a(i)
Ifa(i)>
maxThenmax=a(i):
imax=i
Ifa(i)<
minThenmin=a(i):
imin=i
aver=sum/100
Label1="
最大值是:
max&
最小值是:
min&
平均值是:
aver
8、编写程序,求S=A!
+B!
+C!
。
阶乘的计算分别用SUB过程和FUNCTION过程两种方法来实现。
DimA,B,CAsInteger
PrivateSubform_load()
Command1.Caption="
调用Function过程"
Command2.Caption="
调用Sub过程"
A=Val(Text1.Text)
B=Val(Text2.Text)
C=Val(Text3.Text)
Picture1.Print
Picture1.Print"
调用Function过程的输出结果为:
S=factF(A)+factF(B)+factF(C)
Picture1.PrintS
调用Sub过程时的输出结果为:
DimA1,B1,C1AsDouble
factSA,A1
factSB,B1
factSC,C1
S=A1+B1+C1
SubfactS(ByValnAsInteger,fac)
fac=1
Fori=1Ton
fac=fac*i
FunctionfactF(ByValnAsInteger)
t=1
t=t*i
factF=t
9、把两个按升序(即从小到大)排列的数列a
(1),
(2),……、a(n)和b
(1)、b
(2)……、b(m),合并成一个仍为升序排列的新数列。
Dima(5)AsInteger,b(5)AsInteger,c(5)AsInteger
DimiAsInteger,jAsInteger
Fori=0To5
a(i)=InputBox("
请输入元素"
i&
的值"
t=i
Forj=i+1To5
Ifa(j)<
a(t)Thent=j
Ift<
jThen
Min=a(i)
a(i)=a(t)
a(t)=Min
Picture1.Printa(i);
Next
Picture1.Print("
Fori=0To5
Ifb(j)<
b(t)Thent=j
Min=b(i)
b(i)=b(t)
b(t)=Min
Picture1.Printb(i);
Picture1.Print
c(i)=a(i)+b(i)
Ifc(j)<
c(t)Thent=j
Min=c(i)
c(i)=c(t)
c(t)=Min
'
Picture1.Cls
Picture1.Printc(i);
PrivateSubCommand4_Click()
b(i)=InputBox("
10、编写一个函数,将一个十进制整数转换成2,8,16进制字符串。
Dimm0AsInteger,r0AsInteger,iAsInteger
m0=Val(Text1)
r0=Val(Text2)
Ifr0<
2Orr0>
16Then
i=MsgBox("
输入的r进制数超出范围"
vbRetryCancel)
Ifi=vbRetryThen
Text2="
Text2.SetFocus
End
Label3="
转换成"
r0&
进制数"
Text3=trandec(m0,r0)
Functiontrandec(ByValm%,ByValr%)
Dimstrdtor$
Dimmr%
strdtor="
DoWhilem<
0
mr=mModr
m=m\r
Ifmr>
=10Then
strdtor=Chr(mr-10+65)&
strdtor
strdtor=mr&
Loop
trandec=strdtor
11、编程序输出在指定范围内的3个随机函数,范围在文本框中输入。
PrivateSubCom
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 考试 复习资料 答案 最终
![提示](https://static.bdocx.com/images/bang_tan.gif)