VB考试复习资料答案最终.docx
《VB考试复习资料答案最终.docx》由会员分享，可在线阅读，更多相关《VB考试复习资料答案最终.docx（34页珍藏版）》请在冰豆网上搜索。
VB考试复习资料答案最终
一、填空题
1、“#”（井字符号）
2、窗体窗口;属性窗口;代码窗口
3、对象属性的设置;程序运行和调试程序;保存文件
4、Visible
5、属性;事件;方法
6、设计模式;运行模式;中断模式
7、600
8、Enabled;False
9、Locked;True
10、AutoSize;True
11、DIMCh5AsString*8
12、LOAD;UNLOAD
13、SHOW;HIDE
14、顺序结构;分支选择结构;循环结构
15、1;0
16、局部变量;窗体模块变量;全局变量
17、属性窗口;程序代码
18、常量;已赋值的
19、INT（RND*101+100）
20、4
21、ASCII
22、25
23、TRUE
24、Case
25、标准EXE程序
26、227、“-”
28、循环次数=INT（终值－初值）/步长＋1
29、F4
30、双引号
31、text1.Setfocus
32、picture1.picture=loadpicture（"c:
\pic2.gif"）
33、preserve
34、2
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、Ｔop，Ｌeft，Ｈeight，Ｗidth
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>MaxN13._Changevalue
14.nMod2=0或n/2=n\2
15._change
16.fori=1to100sum=sum/100或aver=sum/100
17.x>=0x18.List1_DblClickList1.Text或List1.list（listIndex）
19.imin=ia（j）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"a（3,";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.b34.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
IfxNexti
Forj=10Toi+1Step-1
Y（j+1）=Y（j）
Nextj
Y（i+1）=x
Fori=1To11
PrintY（i）
Nexti
四、阅读程序写结果
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
5
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>cThen
t=a:
a=c:
c=t
EndIf
EndIf
Print（"三个数由小到大顺序是：
"）
Printa;","&b;","&c
EndSub
PrivateSubForm_Load（）
MsgBox（"请你单击窗体再输入的三个数！
！
"）
EndSub
2、输入10个学生记录（每个记录包括学号、成绩），组成记录类型数组，统计出平均成绩，及成绩最低的学生的学号和成绩。
Dimk（）AsSingle
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubCommand3_Click（）
DimaAsSingle
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
Nextj
Nexti
Fori=0To1
Forj=0To1
Printk（i,j）
Nextj
Nexti
EndSub
3、写一程序将一个数插入到已经有序（设从小到大排序）的数组中，使数组还继续保持有序。
假设原数组中的数为-12，-4，10，23，68。
Dima（）AsInteger
PrivateSubForm_Load（）
ReDima（0To4）
a（0）=-12
a
（1）=-4
a
（2）=10
a（3）=23
a（4）=68
Show
Print"原来数组中的数据：
"
Fori=0To4
Printa（i）;"";
Nexti
Print
t=InputBox（"请输入要插入的数:
"）
n=UBound（a）
ReDimPreservea（n+1）
Fori=0Ton
Ifa（i）>tThenExitFor
Nexti
Ifi>n+1Then
a（n+1）=t
Else
Fork=n+1Toi+1Step-1
a（k）=a（k-1）
Nextk
a（i）=t
EndIf
Print"插入一个数后：
"
Fori=0Ton+1
Printa（i）;"";
Nexti
EndSub
4、求两个数m和n的最大公约数和最小公倍数，要求用一个函数过程来实现。
DimdAsInteger
PrivateSubCommand1_Click（）
DimmAsInteger,nAsInteger
m=Text1.Text
n=Text2.Text
Ifmt=m:
m=n:
n=t
EndIf
Label5.Caption=gcd（m,n）
Label6.Caption=d
EndSub
PublicFunctiongcd（aAsInteger,bAsInteger）AsInteger
IfaModb=0Then
gcd=b
Else
gcd=gcd（b,aModb）
EndIf
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
EndSub
6、鸡翁一，值钱五，鸡母一，值钱三，鸡雏一，值钱一，百元买百鸡，问鸡翁、鸡母、鸡雏各几何？
PrivateSubForm_Click（）
DimxAsInteger,yAsInteger,zAsInteger
Forx=1To19
Fory=1To32
Forz=1To100
Ifx+y+z=100And5*x+3*y+z/3=100Then
Print"鸡翁";x;"只，鸡母";y;"只，鸡雏";z;"只"
EndIf
Nextz
Nexty
Nextx
EndSub
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）
Nexti
Fori=1To100
Picture1.Printa（i）;
IfiMod10=0ThenPicture1.Print
Nexti
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）imin=i
Nexti
aver=sum/100
Label1="最大值是：
"&max&"最小值是：
"&min&"平均值是：
"&aver
EndSub
8、编写程序，求S=A！
+B！
+C！
。
阶乘的计算分别用SUB过程和FUNCTION过程两种方法来实现。
DimA,B,CAsInteger
PrivateSubform_load（）
Command1.Caption="调用Function过程"
Command2.Caption="调用Sub过程"
EndSub
PrivateSubCommand1_Click（）
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
EndSub
PrivateSubCommand2_Click（）
A=Val（Text1.Text）
B=Val（Text2.Text）
C=Val（Text3.Text）
Picture1.Print
Picture1.Print
Picture1.Print"调用Sub过程时的输出结果为:
";
DimA1,B1,C1AsDouble
factSA,A1
factSB,B1
factSC,C1
S=A1+B1+C1
Picture1.PrintS
EndSub
SubfactS（ByValnAsInteger,fac）
fac=1
Fori=1Ton
fac=fac*i
Nexti
EndSub
FunctionfactF（ByValnAsInteger）
t=1
Fori=1Ton
t=t*i
Nexti
factF=t
EndFunction
9、把两个按升序（即从小到大）排列的数列a
（1），
（2），……、a（n）和b
（1）、b
（2）……、b（m），合并成一个仍为升序排列的新数列。
Dima（5）AsInteger,b（5）AsInteger,c（5）AsInteger
PrivateSubCommand1_Click（）
DimiAsInteger,jAsInteger
Fori=0To5
a（i）=InputBox（"请输入元素"&i&"的值"）
Nexti
EndSub
PrivateSubCommand2_Click（）
DimiAsInteger
Fori=0To5
t=i
Forj=i+1To5
Ifa（j）Nextj
Ift<>jThen
Min=a（i）
a（i）=a（t）
a（t）=Min
EndIf
Nexti
Fori=0To5
Picture1.Printa（i）;
Next
Picture1.Print（""）
Fori=0To5
t=i
Forj=i+1To5
Ifb（j）Nextj
Ift<>jThen
Min=b（i）
b（i）=b（t）
b（t）=Min
EndIf
Nexti
Fori=0To5
Picture1.Printb（i）;
Next
Picture1.Print
EndSub
PrivateSubCommand3_Click（）
Fori=0To5
c（i）=a（i）+b（i）
Nexti
Fori=0To5
t=i
Forj=i+1To5
Ifc（j）Nextj
Ift<>jThen
Min=c（i）
c（i）=c（t）
c（t）=Min
EndIf
Nexti
'Picture1.Cls
Fori=0To5
Picture1.Printc（i）;
Next
EndSub
PrivateSubCommand4_Click（）
DimiAsInteger,jAsInteger
Fori=0To5
b（i）=InputBox（"请输入元素"&i&"的值"）
Nexti
EndSub
10、编写一个函数，将一个十进制整数转换成2，8，16进制字符串。
PrivateSubCommand1_Click（）
Dimm0AsInteger,r0AsInteger,iAsInteger
m0=Val（Text1）
r0=Val（Text2）
Ifr0<2Orr0>16Then
i=MsgBox（"输入的r进制数超出范围",vbRetryCancel）
Ifi=vbRetryThen
Text2=""
Text2.SetFocus
Else
End
EndIf
EndIf
Label3="转换成"&r0&"进制数"
Text3=trandec（m0,r0）
EndSub
Functiontrandec（ByValm%,ByValr%）
Dimstrdtor$
Dimmr%
strdtor=""
DoWhilem<>0
mr=mModr
m=m\r
Ifmr>=10Then
strdtor=Chr（mr-10+65）&strdtor
Else
strdtor=mr&strdtor
EndIf
Loop
trandec=strdtor
EndFunction
11、编程序输出在指定范围内的3个随机函数，范围在文本框中输入。
PrivateSubCom
升级会员 