vb程序阅读题与填空题Word文档格式.docx
- 文档编号:5631166
- 上传时间:2023-05-05
- 格式:DOCX
- 页数:40
- 大小:132.27KB
vb程序阅读题与填空题Word文档格式.docx
《vb程序阅读题与填空题Word文档格式.docx》由会员分享,可在线阅读,更多相关《vb程序阅读题与填空题Word文档格式.docx(40页珍藏版)》请在冰点文库上搜索。
If
sNum=sNum+1
EndIf
5、若命令按钮的名称为CmdExit,程序要求单击以上命令按钮时,程序停止运行。
请在画线处中填入适当的内容。
PrivateSubCmdExit_()
6、下面的事件过程判断文本框txt1中输入的数所在区间,并在文本框txt2中输出判断结果。
在画线处填入正确的内容。
PrivateSubComandl_Click()
Dimint1AsInteger
int1=val(txt1.Text)
SelectCaseint1
Case
txt2.Text="
值为0"
值在1和10之间(包括1和10)"
值大于10"
CaseElse
值小于0"
EndSelect
四、读程序题,写出程序运行结果。
1.运行结果:
PrivateSubForm_Click()
ForI=1To9
Forj=1To30-3*I
Print"
"
;
Nextj
Fork=1ToI
Printk;
Nextk
Fork=I-1To1Step-1
NextI
EndSub
2.运行结果:
PrivateSubCommand1_Click()
StaticSAsInteger
DimiAsInteger
S=1
Fori=1To5
S=S*i
Nexti
PrintS
3.运行结果:
ForX=5To1Step–1
ForY=1To6-X
PrintTab(Y+5);
*"
NextY
NextX
4.运行结果:
S=0:
T=0:
U=0
ForX=1To3
ForY=1ToX
ForZ=YTo3
S=S+1
NextZ
T=T+1
U=U+1
PrintS;
T;
U
5.运行结果:
DimbAsInteger
a=3.6
b=3.6
Text1.Text=a
Text2.Text=b
2.以下程序判断从文本框Text1中输入的数据,如果该数据满足条件:
除以3余2,除以5余3,除以7余4,则输出;
否则将焦点定位在文本框Text1中,选中其中的文本。
PrivateSubCommand_Click()
X=Val(Text1.Text)
If
(1)Then
PrintX
Else
(2)
(3)
(4)
EndIf
五、编程题
1.设计一个计算程序。
该程序用户界面如图所示,由四个文本框:
文本框1(text1)、文本框2(text2)、文本框3(text3)、文本框4(text4),和三个按钮:
命令按钮1(command1)、命令按钮2(command2)、命令按钮3(command4)组成.程序运行后,用户按清除按钮,则清除文本框中显示的内容,按计算按钮,则计算三科平均成绩。
单击退出按钮则退出。
PrivateSubCommand1_Click()
Text1.Text=[1]
Text2.[2]="
"
[2]
[3].Text="
[3]
PrivateSubCommand2_Click()
IfText1.[4]="
OrText2.Text=[5]OrText3.Text="
Then[4]
MsgBox"
成绩输入不全!
[5]
Else
Text4.Text=([6]+Val(Text2.Text)[6]
+Val(Text3.Text))/[7][7]
[8][8]
PrivateSubCommand3_Click()
Unload[9][9]
[10]Sub[10]
3.设计一个欢迎程序。
该程序用户界面如图所示。
要求程序运行后,用户选中粗体复选框时“欢迎您!
”几个字的字体变成粗体,用户选中斜体复选框时“欢迎您!
”几个字的字体变成斜体。
若取消选中,则恢复原字体。
按结束,则退出。
4.任给3个数,求其中间数,写出程序代码。
三、阅读程序题
1.阅读下列程序并写出程序运行结果
PrivateSubForm_Click()
DimsAsLong,fAsLong,nAsInteger,iAsInteger
n=3
Fori=1Ton
f=f+i
s=s+f
Next
s="
s
写出程序运行时单击窗体后,窗体Form1上的输出结果。
运行结果:
2.阅读下列程序并写出程序运行结果
x=0
DoWhilex<
100
x=(x+2)*(x+4)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
Text3.Text=Val(Text1.Text)+Val(Text2.Text)
文件框Text3的结果是:
3.阅读下列程序并写出程序运行结果
DimSum1AsInteger,Sum2AsInteger
Sum1=0:
Sum2=1
ForI=1To4
ForJ=1ToI
Sum2=Sum2*J
NextJ
Sum1=Sum1+Sum2
NextI
PrintSum1
写出程序运行时单击命令按纽后,窗体上的输出结果。
4.阅读下列程序并写出程序运行结果
DimxAsInteger
6.阅读下列程序并写出程序运行结果
DimA(2To7)AsInteger
DimbAsInteger
Forb=2To7
A(b)=b
Nextb
Text1.Text=A(b-2)
程序运行后,单击命令按纽文本框Text1的结果是:
StaticsAsInteger
x=Val(InputBox("
请输入一个正整数="
))
Ifx<
6Then
s=s*x
s=s+x
Text1.Text="
&
Str(s)
程序运行时连续3次单击Command1,且设输入
的数据为6、5、4时,分别写出文本框Text1的值。
5.阅读下列程序并写出程序运行结果
DimA(1To3)AsString
DimcAsInteger,jAsInteger
A
(1)=“2”
A
(2)=“4”
A(3)=“6”
c=0
Forj=1to3
c=c+Val(A(j))
Nextj
Printc
EndSub
写出程序运行时单击窗体后,窗体Form1上的结果:
11.阅读下列程序并写出程序运行结果
StaticSumAsInteger
I=1
Whilei<
=3
Sum=Sum+I
I=I+1
Wend
PrintSum
点击两次后,Sum的值应该是:
7.阅读下列程序并写出程序运行结果
Subtest(iAsInteger)
i=i+1
x=4
x="
x
Calltest(x)
8.阅读下列程序并写出程序运行结果
a=1:
A="
a;
B="
b
Callmult(a)
PrivateSubmult(x)
x=2*x
b=3*b
9.阅读下列程序并写出程序运行结果
DimiAsInteger,aAsInteger
k=0
Fori=1To6
3Then
a=a+4
a=a+1
Nexti
Printi,a
写出程序运行时单击窗体后,Form1上的输出结果。
10.阅读下列程序并写出程序运行结果
SubChange(ByValxAsInteger,ByValyAsInteger)
DimtAsInteger
t=x
x=y
y=t
Printx,y
Endsub
DimaAsInteger,bAsInteger
a=3:
b=4
Changea,b
Printa,b
写出程序运行时单击窗体后,Form1上的输出结果
(20)
下列程序段执行结果为()
x=5
y=-6
If
Not
x>
0
Then
x=y-3
Else
y=x+3
x-y;
y-x
A)
-3
3
B)
5
-9C)
D)
-6
5
(23)
单击命令按钮时,下列程序的执行结果为()
Private
Sub
Command1_Click()
Dim
x
As
Integer,
y
Integer
x=12:
y=32
Call
Proc(x,y)
x;
y
End
Sub
Public
Proc(n
ByVal
m
Integer)
n=n
Mod
10
m=m
1232
232C)
23
123
二、填空题
(1)
完成下面的程序,使显示结果如下图所示。
Form_Click()
FontSize=18
Sample$="
【1】
x=(ScaleWidth-TextWidth(Sample$)
)
/2
y=(ScaleHeight-TextHeight(Sample$)
CurrentX=x
CurrentY=y
【2】
Sample$
(2)
下列程序的功能是:
当x<
50时,y=0.8×
x;
当50≤x≤100时,y=0.7×
当x>
100时,没有意义。
请填空。
Single
x=InputBox("
请输入x的值!
【3】
Case
Is
<
50
y=0.8
*
x
50
To
100
y=0.7
【4】
输入的数据出界!
Select
x,
35.窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序:
Command1_Click()
x=2
Text1.Text=
p2(p1(x),y)
Text2.Text=
p1(x)
Privage
Function
P1(x
=x+y:
y=x+y
P1=x+y
Function
P2(x
P2=
2*x+y
当单击1
次和单击2次命令按钮后,文本框Text1和Text2内的值分别是(C)
5.执行了以下的程序后,列表框中的数据项有________。
SubForm_click()
Fori=0To4
List1.AddItemi
Fori=1To2
List1.RemoveItemi
31.如下程序,运行的结果是(B)
Form_Click()
Integer,i
Integer,x(10)
For
i=
to
4
x(i)=i
+
1
Next
i
i=1
2
proc(x)
x(i);
proc(a()
Integer)
Static
i
Do
a(i)=a(i)+a(i+1)
i=i+1
Loop
While
i<
32.假设有以下程序段:
I=1
3
j=5
1
Step
-1
I*j
j
I
则语句Print
I*j的执行次数I、j的值分别是(A)
33.在窗体上一个文本框,其名称为Text1,然后编写如下事件过程:
Text1_KeyPress(KeyAscii
str
String
n
=
UCase
(Chr(KeyAscii))
n=Len(str)
Text1=String(n,
str)
程序运行后,如果在键盘上输入单字母"
K"
,则在文本框Text1中显示的内容为()
5.下面的程序输入X的值,按以下公式求Y值。
PrivateSubCommand1_Click()
X=Val(Text1.Text)
SelectCaseX
Case【1】
Print"
X<
-100ORX>
200"
Case【2】
Y=100-X
Case【3】
Y=100+X
Case【4】
Y=400
EndSelect
Text2.Text=Y
6.以下程序是利用公式
来计算
的值。
其中,变量k表示当前符号项,t表示当前项,n表示当前项的序号,要求精度控制在0.00001内。
试分析程序,完成空格处填的内容。
DimpiAsSingle,tAsSingle
DimnAsSingle,kAsSingle
pi=0:
n=1
k=1:
t=1
DoWhile(【1】)
pi=pi+t
k=-k
t=【2】
n=n+1
Loop
pi=【3】
Print"
pi="
pi
7.下列程序的功能是输出的前20项,按每行5个数的形式输出。
Fibonacci数列:
F1=1,F2=1,Fn=Fn-1+Fn-2(n>
=2)
DimaAsInteger,bAsInteger
DimcAsInteger,iAsInteger
a=1:
b=1:
i=3
Printa,b,
DoWhile(i<
=20)
c=a+b
a=b
b=c
【1】
If【2】Then
【3】
4.执行下面的程序段后,s的值为____________。
a=5
Fori=2.6To4.9Step0.6
s=s+1
Nexti
5.下面是一个体操评分程序。
20位评委,除去一个最高分和一个最低分,计算平均分(设满分为10分)。
Max=0
Min=10
Fori=1To20
n=Val(InputBox"
请输入分数"
)
If______________ThenMax=n
If______________ThenMin=n
s=s+n
s=______________
p=s/18
Print"
最高分"
Max,"
最低分"
Min
最后得分:
p
6.下面程序的功能是求1到100的平方和,如果平方和超过了1000则跳出循环,输出此时的和S。
9.以下程序段,程序运行后,要求执行4次循环。
x=1
x=x+1
print15
loopUntil___________
10.下列程序运行后,内层循环的循环总次数___________。
Forx=1to4
Fory=1tox
Printy
Nexty
Nextx
ForI=1To100
s=s+i*i
Ifs>
1000Then
______________
nexti
abc:
Prints
7.以下程序段的输出结果是____________。
num=0
Whilenum<
=2
num=num+1
Printnum
Wend
8.以下程序段的输出结果是____________。
DimjAsInteger,sAsInteger
Do
3.写出下面程序的运行结果。
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To2
x=x+6
Nextk
Nextj
printx
s=s+j
j=j+1
LoopUntilj=5
s
四、程序阅读题
1.写出下面程序的运行结果。
DimsAsInteger,kAsInteger,mAsInteger,nAsInteger
s=1
Form=1To3
Forn=mTo3
Fork=nTomStep-1
s=s*k
Nextk,n,m
Prints
2.写出下面程序的运行结果。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 程序 阅读 填空