《计算机程序设计A》复习试题答案.docx
- 文档编号:8779826
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:31
- 大小:33.97KB
《计算机程序设计A》复习试题答案.docx
《《计算机程序设计A》复习试题答案.docx》由会员分享,可在线阅读,更多相关《《计算机程序设计A》复习试题答案.docx(31页珍藏版)》请在冰豆网上搜索。
《计算机程序设计A》复习试题答案
《计算机VB程序设计》复习试题
1.以下叙述中错误的是
(B)VisualBasic应用程序不具有明显的开始和结束语句
(C)VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性
(D)VisualBasic中控件的某些属性只能在运行时设置
2.设有如下变量声明:
DimTestDateAsDate
为变量TestDate正确赋值的表达式是(B】)
(A)TestDate=#“6/22/2003”#
(B)TestDate=#6/22/2003#
(C)TestDate=Date(“6/22/2003”)
(D)TestDate=Format(“m/d/yy”,“6/22/2003”)
3.以下关于变量作用域的叙述中,正确的是(【4】)
(A)窗体中凡被声明为Private的变量只能在某个指定的过程中使用
(B)全局变量只能在标准模块中声明
(C)模块级变量只能用Private关键字声明
(D)Static类型变量的作用域是它所在的窗体或模块文件
4.
5.设a=3,b=5,则以下表达式值为真的是(【6】)
(A)(-3+5)And(b>0) (B)a>=bAndb>10
(C)(a>b)Or(b>0) (D)(a<0)Eqv(b>0)
6.以下关于图片框控件的说法中,错误的是(【4】)
(A)可以通过Print方法在图片框中输出文本
(B)清空图片框控件中图形的方法之一是加载一个空图形
(C)图片框控件可以作为容器使用
(D)用Stretch属性可以自动调整图片框中图形的大小
7.设窗体上有一个列表框控件List1,且其中含有若干列表项。
则以下能表示当前被选中的列表项内容的是
(A)List1.List (B)List1.Text (C)List1.ListIndex (D)List1.Index
8.设a=100,b=50,c=10,执行语句Printa>b>c后,窗体上显示的是
(A)True (B)False (C)1 (D)出错信息
9.M
10.“$”格式符用于在数值前面加上一个$,以表示货币
11.如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是
(A)用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体
(B)不能把标准模块设置为启动模块
(C)如果工程中含有SubMain过程,则程序一定首先执行该过程
(D)任何时刻最多只有一个窗体是活动窗体
12.在窗体上画一个名称为Command1的命令按钮,然后编写如下的事件过程:
PrivateSubCommand1_Click()
DimaAsInteger
Open“c:
\VbTest\Test32.dat”ForBinaryAs#1
a=1000
Seek#1,10
Put#1,,a
Close#1
EndSub
则以下叙述中正确的是(【32】)
(A)如果文件c:
\VbTest\Test32.dat不存在,则Open命令执行失败
(B)由于Put命令中没有指明位置,因此把变量a的值写到文件的末尾
(C)变量a的值会从文件的第10个字节处开始写入
(D)变量a的值会从文件的第10个记录处开始写入
13.为了将变量a,b,c的值以标准输出格式写入顺序文件Ks39.txt中,所使用的语句的格式为(【39】)
(A)Print#文件号,a;b;c (B)Print#文件号,a,b,c
14.为了把一个记录型变量Stu的内容写入随机文件Ks48.dat中的指定位置,所使用的语句格式为(【48】)
(A)Put#文件号,记录号,Stu (B)Put#文件号,Stu,记录号
(C)Get#文件号,记录号,Stu (D)Get#文件号,Stu,记录号
15.Sub过程的定义(【49】)
(A)一定要有形参 (B)一定要有过程的名称
(C)一定要指明是公有的还是私有的 (D)一定要指定其类型
16.Function过程有别于Sub过程的最主要的特点是(【50】)
(A)Function过程一定要有形参,而Sub过程可以没有形参
(C)Function过程用于计算函数值,而Sub过程用于改变属性值
(D)Function过程要返回函数值,而Sub过程没有值的返回
17.下列定义Func为函数过程的定义语句中错误的是(【52】)
(A)FunctionFunc(aAsInteger)AsInteger
18.下列函数调用中错误的是(【54】)
(A)Str$=InputBox(“请输入数据”)
(B)InputBox(“请输入数据”)
(C)Msg=MsgBox(“是否继续输入数据?
”)
(D)MsgBox(“是否继续输入数据?
”)
19.要使窗体Form1显示出来,应使用(【55】)
(A)LoadForm1 (B)Form1Load (C)Show.Form1 (D)Form1.Show
20.用Open语句打开文件时,若省略For子句,则隐含打开文件的存取方式为(【57】)
(A)Binary (B)Random (C)Input (D)OutPut
21.给文件改名的VB语句正确的是(【59】)
(C)Name原文件名As新文件名(D)Rename原文件名As新文件名
22.在窗体上画一个名称为Command1的命令按钮,然后编写如下的事件过程:
OptionBase1
PrivateSubCommand1_Click()
Dima(10)AsInteger
Fori=1To10
a(i)=i
Next
CallSwap【5】
Fori=1To10
Printa(i);
Next
EndSub
SubSwap(b()AsInteger)
n=【5】
Fori=1Ton/2
t=b(i)
b(i)=b(n)
b(n)=t
【5】
Next
EndSub
上述程序的功能是,通过调用过程Swap,调换数组中数值的存放位置,即a
(1)与a(10)的值互换,a
(2)与a(9)的值互换,……,a(5)与a(6)的值互换。
请填空。
23.下面程序是从键盘上输入一个字符串,把该字符串中的大写字母转换成小写字母,输出到文件Ks61.dat中,然后从该文件中读出字符串并显示出来。
请完善下面的程序:
PrivateForm_Click()
DimStr1AsString*50,Str2AsString,FileNoAsInteger
FileNo=【63】
Open“d:
\Vb2003Ks\Ks61.dat”For【64】AsFileNo
Str1=InputBox(“请输入一个字符串:
”)
Str1=Lcase(Str1)
Seek#FileNo,1
Put#FileNo,,Str1
【65】#FileNo,1
Str2=Input(【66】,#FileNo)
PrintStr2
EndSub
【63】(A)Free (B)File (C)FreeFile (D)FileFree
【64】(A)Input (B)Output (C)Random (D)Binary
【65】(A)Loc (B)Lof (C)Eof (D)Seek
【66】(A)Len(Str1) (B)Len(Str2) (C)StrLen(Str1)(D)StrLen(Str2)
24.在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:
PrivateSubForm_Load()
Text1.Text=“”
Text1.SetFocus
Fori=1to10
Sum=Sum+i
Nexti
Text1.Text=Sum
EndSub
程序运行后,输出结果为(【67】)
(A)在文本框Text1中输出55 (B)在文本框Text1中输出0
(C)在文本框Text1中输出不定值 (D)出错
25.在
26.在
(D)PrivateSubCommand1_Click()
Label3.Caption=HScroll1.Text*HScroll2.Text
EndSub
27.下面程序共执行了(【71】)次循环。
DimIntsumAsInteger,iAsInteger,jAsInteger
i=1:
j=1
Do
Do
Intsum=Intsum+j
j=j+2
Printj;
LoopUntilj>3
i=i+1
LoopUntili>11
PrintIntsum
(A)10 (B)11 (C)12 (D)13
28.下列程序执行后,变量x的值为(【72】)
Dima,b,c,d,xAsSingle
a=200:
b=100:
c=500
Ifb>aThen
d=a:
a=b:
b=d
EndIf
Ifb>cThen
x=b
ElseIfa>cThen
x=c
Else
x=a
EndIf
Printx
(A)0 (B)100 (C)200 (D)500
29.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimnumAsInteger
num=1
DoUntilnum>6
Printnum;
num=num+2.4
Loop
EndSub
程序运行后,单击命令按钮,则窗体上显示的内容是
(A)13.45.8 (B)135 (C)147 (D)无数据输出
30.有如下函数:
FunctionFacn(xAsInteger)AsLong
DimpAsLong,iAsInteger
p=1
Fori=1Tox
p=p*i
Nexti
Facn=p
EndFunction
调用它的事件过程如下:
PrivateSubCommand1_Click()
i=Val(InputBox(“请输入数据”))
a=Facn((i))‘实参i用圆括号括起,则强制为值传递
Printa
EndSub
若输入数据6,则程序运行结果为(【73】)
(A)60 (B)120 (C)600 (D)720
31.在窗体上画一个命令按钮,然后编写如下事件过程,该过程执行结果为(【75】)
OptionBase1
PrivateSubCommand1_Click()
DimaAsVariant,sAsInteger
a=Array(2,4,6,8)
j=1
Fori=1To4Step1
s=s+a(i)*j
j=j*10
Nexti
Prints
EndSub
(A)0 (B)1110 (C)2468 (D)8642
设有如下通用过程:
PublicFunctionf(xAsInteger)
DimyAsInteger
x=20
y=2
f=x*y
EndFunction
32.对窗体编写如下代码:
OptionBase1
PrivateSubForm_KeyPress(KeyAsciiAsInteger)
a=Array(123,86,57,248,32)
m1=a
(1)
m2=1
IfKeyAscii=13Then
Fori=2To5
Ifa(i)>m1Then
m1=a(i)
m2=i
EndIf
Nexti
EndIf
Printm1,m2
EndSub
程序运行后,按回车键,输出结果为(【76】)
(A)325 (B)2484 (C)321 (D)2485
设有如下通用过程:
PublicSubFun(a(),ByValxAsInteger)
Fori=1To5
x=x+a(i)
Next
EndSub
33.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程:
PrivateSubCommand1_Click()
Dimarr(5)AsVariant
Fori=1To5
arr(i)=i
Next
n=10
CallFun(arr(),n)
Text1.Text=n
EndSub
程序运行后,单击命令按钮,则在文本框中显示的内容是
(A)10 (B)15 (C)25 (D)24
34.阅读程序:
FunctionFunc(aAsInteger)
b=1
StaticcAsInteger
b=b+1
c=c+1
Func=a+b+c
EndFunction
PrivateSubCommand1_Click()
DimaAsInteger
a=3
Fori=1to3
PrintFunc(a)
Nexti
EndSub
运行上面的程序,单击命令按钮后,输出结果为(【77】)
(A)6 (B)6 (C)6(D)6
76813
861021
35.在窗体上画一个名称为Command1的命令按钮,然后编写如下代码:
OptionBase1
PrivateSubCommand1_Click()
d=0
c=10
x=Array(10,12,21,32,24)
Fori=1To5
Ifx(i)>cThen
d=d+x(i)
c=x(i)
Else
d=d-c
EndIf
Nexti
Printd
EndSub
程序运行后,如果单击命令按钮,则在窗体上输出的内容为
(A)89 (B)99 (C)23 (D)77
36.有如下一个函数过程:
FunctionFunc(ByValNumAsLong)
DimkAsLong
k=1
Num=Abs(Num)
DoWhile(Num)
k=k*(NumMod10)
Num=Num\10
Loop
Func=k
EndFunction
以下是一个调用该函数的事件过程,在运行该过程后,在输入对话框中输入“2345”,则该过程的运行结果是(【78】)
PrivateSubCommand1_Click()
DimnAsLong,rAsLong
n=InputBox(“请输入数据:
”)
n=CLng(n) ‘CLng函数的返回值是一个长整型数值
r=Func(n)
Printr
EndSub
(A)0 (B)24 (C)60 (D)120
37.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程:
PrivateSubCommand1_Click()
n=Val(Text1.Text)
SelectCasen
Case1To20
x=10
Case2,4,6
x=20
CaseIs<10
x=30
Case10
x=40
EndSelect
Text2.Text=x
EndSub
程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是
(A)10(B)20(C)30(D)40
38.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:
PrivateSubCommand1_Click()
N=Val(Text1.Text)
Ifn\2=n/2Then
f=f1(N)
Else
F=f2(N)
EndIf
Printf;n
EndSub
PublicFunctionf1(ByRefx)
x=x*x
f1=x+x
EndFunction
PublicFunctionf2(ByValx)
x=x*x
f1=x+x+x
EndFunction
程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是(【79】)
(A)726 (B)1086 (C)7236 (D)10836
39.设在工程中有一个标准模块,其中定义了如下记录类型
TypeBooks
NameAsString*10
TelNumAsString*20
EndType
在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click()时,在顺序文件Ks74.Txt中写入一条记录。
下列能够完成该操作的事件过程是(【79】)
(A)PrivateSubCommand1_Click()
DimbAsBooks
Open“D:
\Vb2003Ks\Ks74.Txt”ForOutPutAs#1
b.Name=InputBox(“输入姓名”)
b.TelNum=Inputbox(“输入电话号码”)
Write#1,b.Name,b.TelNum
Close#1
EndSub
(B)PrivateSubCommand1_Click()
DimbAsBooks
Open“D:
\Vb2003Ks\Ks74.Txt”ForInPutAs#1
b.Name=InputBox(“输入姓名”)
b.TelNum=Inputbox(“输入电话号码”)
Print#1,b.Name,b.TelNum
Close#1
EndSub
(C)PrivateSubCommand1_Click()
DimbAsBooks
Open“D:
\Vb2003Ks\Ks74.Txt”ForOutPutAs#1
b.Name=InputBox(“输入姓名”)
b.TelNum=Inputbox(“输入电话号码”)
Write#1,b
Close#1
EndSub
(D)PrivateSubCommand1_Click()
DimbAsBooks
Open“D:
\Vb2003Ks\Ks74.Txt”ForInPutAs#1
b.Name=InputBox(“输入姓名”)
b.TelNum=Inputbox(“输入电话号码”)
Print#1,Name,TelNum
Close#1
EndSub
40.在窗体上画一个名称为Text1的文本框,并编写如下程序:
PrivateSubForm_Load()
Show
Text1.Text=""
Text1.SetFocus
EndSub
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Print"程序设计"
EndSub
PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
Print"VisualBasic";
EndSub
程序运行后,如果按"A"键,然后单击窗体,则在窗体上显示的内容是
(A)VisualBasic (B)程序设计
(C)A程序设计 (D)VisualBasic程序设计
41.下列程序运行后,运行结果不是144的程序是(【80】)
(A)DimzAsInteger (B)DimxAsInteger
PrivateSubForm_Click()PrivateSubForm_Click()
x=12x=12
CallFun(x)CallFun(x,z)
PrintzPrintz
EndSubEndSub
SubFun(y)SubFun(y,z)
z=y*yz=y*y
EndSubEndSub
(C)PrivateSubForm_Click()(D)PrivateSubForm_Click()
x=12x=12
CallFun(x)CallFun(x,z)
PrintzPrintz
EndSubEndSub
SubFun(Byrefy)SubFun(Byrefy,z)
z=12*12z=y*y
EndSubEndSub
42.设有如下程序:
PrivateSubCommand1_Click()
DimsumAsDouble,xAsDouble
sum=0
n=0
Fori=1To5
x=n/i
n=n+1
sum=sum+x
Next
EndSub
该程序通过For循环计算一个表达式的值,这个表达式是
(A)1+1/2+2/3+3/4+4/5 (B)1+1/2+2/3+3/4
(C)1/
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机程序设计A 计算机 程序设计 复习 试题答案