Visual Basic程序设计复习题及答案3EF文档格式.docx
- 文档编号:14547609
- 上传时间:2022-10-23
- 格式:DOCX
- 页数:14
- 大小:43.43KB
Visual Basic程序设计复习题及答案3EF文档格式.docx
《Visual Basic程序设计复习题及答案3EF文档格式.docx》由会员分享,可在线阅读,更多相关《Visual Basic程序设计复习题及答案3EF文档格式.docx(14页珍藏版)》请在冰豆网上搜索。
A.cmB.mC.TwipD.Pix
8.VB6.0中专门为程序代码的书写提供了一个()窗口。
[]
A.代码B.属性C.窗体D.立即
9.下列可作为VisualBasic的变量名的是[]
A.AbtB.TABC.IFD.A[B]T
10.以下不是VisualBasic中的事件是[]
A.DblClickB.MouseMoveC.CaptionD.Change
11.InputBox函数返回值的类型是[]
A.数值B.字符串C.变体D.逻辑
12.VisualBasic程序中的注释所使用的字符是[]
A.'
B.:
C.\D._
13.下列可作为VisualBasic的变量名的是[]
A.FilenameB.A(A+B)C.A%DD.Print
14.要让菜单项无效,应将()属性值设置为False。
A.VisibleB.EnabledC.MoveableD.Checked
15.若要设置定时器的定时间隔为10秒,应将()属性值设为10000。
[]
A.IntervalB.ValueC.EnabledD.Text
二、填空题:
1.工程文件的扩展名是_______,窗体文件的扩展名是_______。
2.函数Val(”12Bc”)的值为___________。
3.表达式9^2MOD45\2*3的值__________________。
4.表达式Fix(-3.2)+Int(-2.4)的值为______________。
5.VisualBasic提供的对数据文件的三种访问方式为随机访问方式,__________和二进制访问方式。
6.表达式Str(Int(-2.3)+Sgn(6)+Sqr(25))的值为________。
7.以下语句的输出结果是__________。
a%=3.14156
printa%
8.执行下面的程序段后,S的值为_______。
Fori=2.6To4.9Step0.6
s=s+1
Nexti
9.在VisualBasic中最基本的对象是____________.
10.设有如下程序语句:
ForI=1To100Step7
S=S+1
NextI
在该循环语句中,循环体S=S+1的循环执行次数应为______________
循环次数=[(100-1)/7+1]=15
11.下列表达式返回的值为True还是False_________。
9>
4+3
Or
5+3>
10
And
Not(4+2>
5
EQV
3+5>
2)
12.假定一个文本框的Name属性为Text1,为了在该文本框中显示“Hello!
”,所使用的语句为_______。
13.为了选择多个控件,可以按住_______键,然后单击每个控件。
14.窗体控件的属性一般可在_______窗口中可以改变。
15.设有以下的循环:
x=1
Do
x=x+2
Printx
LoopUntil_______
运行程序后,要求执行3次循环体,请填空。
三、程序改错:
1.程序功能:
求当N=20时,1/(1*2)+1/(2*3)+1/(3*4)+….+1/(N*(N+1))的值。
要求:
按四舍五入的方式精确到小数点后第二位。
程序中有一行有错误。
改正错误,使它能输出正确的结果。
PrivateSubCommand1_Click()
s=0
n=1
DoWhilen<
=20
s=s+1/n*(n+1)
n=n+1
Loop
Printformat(s,"
##0.##"
)
EndSub
2.程序功能:
求S=1+1/2+1/3+……+1/100,程序中有一行错误。
OptionBase1
sum1=sumd(100)
Printsum1
PrivateFunctionsumd(nAsInteger)AsSingle
i=0
i=i+1
s=s+1/i
LoopUntili>
=n
sumf=s
3.程序功能:
已知24有8个正整数因子(即:
1,2,3,4,6,8,12,24),而24正好被其因子个数8整除。
求[100,300]之间能被其因子数目整除的数中最大的数。
程序中有两行有错误。
PrivateSubCommand1_Click()
DimNAsInteger
DimsAsInteger
DimiAsInteger
ForN=300To100
s=0
Fori=1ToN
IfNModi=0Then
s=s+1
EndIf
Nexti
IfsModN=0Then
PrintN
ExitFor
NextN
EndSub
4.程序功能:
建立一个过程来计算12的阶乘,程序中有错误,改正错误,使程序能输出正确的结果。
Calln(12)
PublicSubn(aAsInteger)
DimiAsInteger
DimfAsInteger
f=0
Fori=1Toa
f=f*i
Printf
四、程序填空题:
1.求200到400间,能被3整除但不能被7整除的数的个数。
DimcountAsInteger
DimxAsInteger
count=0
x=200
Whilex<
=400
If________________Then
count=count+1
__________
Printcount
2.在窗体画1个命令按钮,然后编写一个函数:
Functiona(i)
DimsAsInteger
S=0
Fork=1Toi
s=s+(k+1)*k
Nextk
a=s
EndFunction
b=5
x=a(b)
Printx
程序运行的结果为________.
3.编写一个Function过程,求数组a(10,50,34,26,5,79,35)的最小值
PrivateFunctionFindMin(a()AsInteger)
Dimx1AsInteger,x2AsInteger,iAsInteger
X1=LBound(a)
X2=_________
Min=a(x1)
Fori=x1Tox2
Ifa(i)>
MinThen
_________
FindMin=Min
DimnAsInteger
n=_________
printn
4.用选择法将数组a中的6个整数按降序排列.
Dima(1To6)asInteger,MasInteger,TasInreger
a=Array(324,78,459,728,439,357)
Fori=____
Forj=_____
Ifa(i)______a(j)Then
M=j
T=a(i)
a(i)=a(j)
a(j)=T
Nextj
Fori=1To10
Printa(i)
5.编程求1-99的平方根的和并输出结果。
(保留两位小数)
PrivateSubcmdSqrt_Click()
DimiAsInteger,sAsSingle
s=_________
Fori=1To99
________________
s=Round(s,2)
FontSize=12
FontBold=True
Prints
6.已知一个数列的前3项为0,0,1,从第4项开始,每项为前3项的和,编程求此数列的第39个数。
PrivateSubForm_Click()
Dimi%,f0&
f1&
f2&
f3&
FontSize=14:
FontBold=True
f0=0
f1=0
f2=1
Fori=4to39
f0=f1
f1=f2
f2=f3
Printf3
五、编程题:
本大题1个小题,15分。
1.在窗体上有一个命令按钮:
Command1,4个文本框控件:
Text11~Text4功能是找出三个数中的最大数,界面如下图所示:
2.在窗体上画两个标签,名称分别为label1、label2,标题分别为“请输入x:
”、“输出y:
”;
再在窗体上画两个文本框,名称分别为Text1、Text2,标题为空;
最后画一个按钮,名称为Command
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic程序设计复习题及答案3EF Basic 程序设计 复习题 答案 EF