程序阅读题+填空题.docx
- 文档编号:30453877
- 上传时间:2023-08-15
- 格式:DOCX
- 页数:43
- 大小:37.98KB
程序阅读题+填空题.docx
《程序阅读题+填空题.docx》由会员分享,可在线阅读,更多相关《程序阅读题+填空题.docx(43页珍藏版)》请在冰豆网上搜索。
程序阅读题+填空题
一、程序阅读题
1、写出点击按钮command1后,显示在窗体上的内容。
privatesubcommand1_click()
dimk,jasinteger
fork=1to5
printspace(5-k);
forj=1tok*2-1
printchr(asc(“C”)+j);
nextj
nextk
endsub
2、写出点击窗体后,显示在窗体上的内容。
Privatesubform_click()
Callprintdlt(5)
Endsub
PrivateSubprintdlt(nasinteger)
Dimkasinteger
fork=1ton
printspace(n-k);
forj=1to2*k-1
print“*”;
nextj
nextk
fork=1ton-1
printspace(k);
forj=1to2*(n-k)-1
print“*”;
nextj
nextk
endsub
3、写出程序运行时连续三次单击Command1后,a1.dat文件的最终结果
DimaAsInteger,yAsInteger
PrivateSubForm_Load()
Open”c:
\al.dat”ForOutputAs#1
Close#1
EndSub
PrivateSubCommand1_Click()
Open”c:
\a1.dat”ForAppendAs#1
Callaa(5)
y=y+a
Print#1,”y=”;y,”a=”;a:
Close#1
EndSub
Subaa(iAsInteger)
x=1
Dountilx>i
a=a+x
x=x+3
Loop
EndSub
4、写出点击窗体后,显示在窗体上的内容。
Functionchg(byvalmasbyte,nasbyte)asbyte
n=n+2
m=m+n
Chg=2*m
Endfunction
Privatesubform_click()
Dimkasbyte,jasbyte
j=1
Fork=1to3
Printk,j,
Printchg(k,j)
nextk
Endsub
5、写出单击窗体后,显示在窗体上的内容。
PrivateFunctionchg(aAsInteger,byvalbasinteger)AsInteger
Dimnasinteger
b=b+1
Forn=0to2
a=a+b
Nextn
Chg=a
EndFunction
PrivateSubform_click()
Dimaasinteger,basinteger,zasinteger
Dimnasinteger
a=1:
b=1
forn=1to3
z=chg(a,b)
print“n=”;n,”z=”;z
nextn
EndSub
6、写出程序的执行结果
privatesubform_click()
dimxasstring
dimIasinteger,nasinteger
x="ABCDEFG"
n=len(x)
Fori=nto1step-2
x=x+mid(x,i,1)
Printmid(x,i,1);
Nexti
Printx
endsub
7、写出点击三次窗体后,文件“a1.txt”中的内容。
PrivateSubform_click()
StatickAsInteger
DimjAsInteger
k=k+1
Open"c:
\a1.txt"ForAppendAs#1
Forj=1Tok
Print#1,j;
Nextj
Print#1,
Close#1
EndSub
8、写出点击窗体后,文件”c:
\result.txt”中的内容。
Privatesubform_click()
Dimsasstring,k,jasinteger,tasstring
Dima(1to5)asstring
s=”basic”
Fork=1to5
a(k)=mid(s,k,1)
Nextk
Open“c:
\result.txt”foroutputas1
Fork=1to4
Forj=k+1to5
Ifa(k)>a(j)then
t=a(k):
a(k)=a(j):
a(j)=t
Endif
Nextj
Print#1,”a(”+trim(str(k))+”)=”;
Write#1,a(k);
Nextk
Print#1,”a(5)=”;
Write#1,a(5)
Write#1,s
Close1
Endsub
9、写出单击窗体后程序的执行结果
privatesubform_click()
forI=10to1step–1
printI;space
(2);
ifImod3=0then
i=i-1
endif
nexti
endsub
10、写出单击窗体四次,第一次输入1,第二次输入2,第三次输入3,第四次输入4,窗体上显示的结果。
PrivateSubForm_Click()
DimxAsInteger
StaticsAsInteger
x=Val(InputBox("请输入一个正整数="))
IfxMod2=0Then
s=s*x
Else
s=s+x
EndIf
Me.Print"s="+Str(s)
EndSub
11、写出单击窗体后,c:
\data2.dat文件中的数据。
PrivateSubForm_click()
Open"c:
\data1.dat"ForInputAs#1
Calloutputdata("c:
\data2.dat")
Close
EndSub
PrivateSuboutputdata(filenameAsString)
DimaAsString,bAsInteger
OpenfilenameForOutputAs#2
DoWhileNotEOF
(1)
Input#1,a,b
IfLeft(a,1)="李"Andb>=60Then
Print#2,a,b
EndIf
Loop
EndSub
已知在c:
\data1.dat文件中数据如下:
张寇,78,李琳,80,王澜,56,司马,38,李晓,90,刘召,50,李名,45
12、设输入的数据分别为14,3,125,21时,标签框Label1.Caption的值分别是多少?
PrivateSubForm_Click()
DimaAsInteger
a=Val(InputBox(“请输入数据”,100))
SelectCaseaMod5
CaseIs<4
w=a+10
CaseIs<2
w=a*2
CaseElse
w=a-10
EndSelect
Label1.Caption=“w=”&Str(w)
EndSub
13、写出a1.dat文件的最终结果
PrivateSubForm_Click()
Dimf1AsInteger
Dimf2AsInteger,f3AsInteger
Open“c:
\a1.dat”ForOutputAs#1
f1=2:
f2=3
Print#1,”NO”;3,f1
Print#1,”NO”;4,f2
Fori=5To7
f3=f1+f2
Print#1,”NO.”;I,f3
f1=f2
f2=f3
NextI
Close#1
EndSub
14、写出运行以下程序后Form1上的输出结果
写出将标记有①和②的两条语句对调后,重新运行程序时Form1上的输出结果
PrivateSubCommand1_Click()
Constn=6
Dimxx(n)AsInteger
Form1.Cls
Fori=1Ton
xx(i)=i*i
Nexti
Callfchange(xx(),n)
Fori=1Ton
Form1.printxx(i),
Nexti
EndSub
Subfchange(a()AsInteger,m)
Fori=1Tom/2
t=a(i)
a(i)=a(m-i+1)‘①
a(m-i+1)=t‘②
Nexti
EndSub
15、程序运行时单击Command1后,分别写出文本框Text1、Text2和Text3的Text值。
PrivateSubCommand1_Click()
n=0:
x=1:
y=0
DoWhilex<20
n=n+1
y=x+y
x=x*(x+1)
Loop
Text1.Text="n="&Str(n)
Text2.Text="x="&Str(x)
Text3.Text="y="&Str(y)
EndSub
16、写出程序运行时单击窗体后,Form1上输出的结果
PrivateSubForm_Click()
Cls
Fori=1To8
Ifi<=2Then
PrintTab(10);"VVV"
Else
PrintTab(3+i);
Forj=1To17-2*i
Print"V";
Nextj
EndIf
Nexti
EndSub
17、写出程序执行的结果
OptionBase1
PrivateSubForm_Click()
Dima(5,5)AsInteger
DimiAsInteger,jAsInteger
Fori=1To5
Forj=1To5
Ifj<=iThen
a(i,j)=1
EndIf
Printa(i,j);"";
Nextj
Nexti
Endsub
18、写出程序执行的结果
PrivateSubform_click()
DimSAsString
DimkAsInteger,nAsInteger
S="ABCDE"
n=Len(S)
Fork=nTo1Step-1
S=S+Mid(S,k,1)
PrintTab(n-k+1);
PrintMid(S,n-k+1,1)
Nextk
PrintRight(S,n)
EndSub
19、写出往文本框顺序键入”H4E3”后,显示在窗体上的内容。
PrivateSubText1_Change()
PrintText1.Text
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii>=Asc("0")AndKeyAscii<=Asc("9")Then
PrintChr(KeyAscii)+Text1.Text
EndIf
EndSub
20、控件HScroll1的属性设置如下:
HScroll1.Min=1,HScroll1.Max=9,HScroll1.Value=1
HScroll1.Smallchange=2,HScroll1.Largechange=4
下面程序运行时,4次单击滚动条右端箭头,写出各次单击时Text1上的显示结果。
DimyAsSingle
PrivateFunctionf1(x2AsInteger)AsSingle
Staticx1AsInteger
f1=0
Fori%=x1Tox2
f1=f1+i%
Nexti%
x1=i%
EndFunction
PrivateSubHScroll1_Change()
y=y+f1(HScroll1.Value)
Text1.Text=y
EndSub
21、写出单击命令按钮Command1后窗体上的输出结果。
FunctionF(aAsInteger)asinteger
dimbasinteger
Staticcasinteger
b=b+1
c=c+1
F=a+b+c
EndFunction
PrivateSubCommand1_Click()
DimaAsInteger
DimbAsInteger
a=2
Fori=1To3
b=F(a)
Printb
Nexti
EndSub
22、写出程序运行时单击窗体后窗体上的输出结果。
PrivateSubForm_Click()
DimaAsInteger,bAsInteger
a=1
b=2
CallProc1(a,b)
Printa,b
EndSub
PrivateSubProc1(cAsInteger,dAsInteger)
DimaAsInteger,bAsInteger
c=a+b
d=a-b
Printc,d
EndSub
23、请写出程序的执行结果
dimaasinteger,basinteger
dimnasinteger,casinteger
a=12:
b=9:
c=11
ifa>bthenn=b:
b=a:
a=n
ifa>cthenn=c:
c=a:
a=n
ifb>cthenn=b:
b=c:
c=n
print“a=”;a,”b=”;b,”c=”;c
24、写出程序的执行结果
dimIasinteger
dimsasinteger
s=0
forI=-4to5
s=s+sgn(i)
printsgn(i);space
(2);
next
prints
25、写出程序的执行结果
dimIasinteger,jasinteger
forI=1to7
forj=1toI*2-1
printchr(64+j);
nextj
nextI
26、写出程序的执行结果
dimIasinteger,jasinteger
forI=1to5
forj=1toI*2-1
printchr(asc(“D”)+i);
nextj
nexti
27、写出程序的执行结果
forI=10to1step–1
printI;space
(2);
ifImod3=0then
endif
next
28、写出程序的执行结果
subexchange(aasinteger,basinteger)
dimnasinteger
n=a:
a=b:
b=n
endsub
privatesubform_click()
dimIasinteger,jasinteger
I=10:
J=20
PrintI;j
Callexchange(I,j)
Printi;j
endsub
29、写出程序的执行结果
functionchg(byvalaasinteger,basinteger)asinteger
b=b+1
a=a+b
chg=2*a
endfunction
privatesubform1_click()
dimIasinteger,jasinteger,kasinteger
i=1:
j=1
fork=1to3
printI;j;
printchg(I,j)
nextk
endsub
30、写出程序的执行结果
functionchg(nasinteger)asinteger
staticmasinteger
m=m+1
chg=2*n+m
endfunction
privatesubform_click()
dimkasinteger
fork=1to3
printk;chg(k)
nextk
endsub
31、privatestaticsubbbb()
dimaasinteger,basinteger
a=a+2
b=2*a
printa;b
endsub
privatesubform_click()
forI=1to3
callbbb
next
endsub
请写出单击窗体后的执行效果。
32、写出在窗体上单击三次的执行结果
dimaasinteger,yasinteger
privatesubform_click()
callaa(5)
y=y+a
print“y=”;y,”a=”;a
endsub
subaa(Iasinteger)
x=1
dountilx>I
a=a+x
x=x+3
loop
endsub
33、请写出程序的执行后,文件中的内容
privatesubform_click()
dimIasinteger
open“c:
\a1.txt”foroutputas#1
forI=1to5
print#1,“a(”+str(i)+”)=”;
write#1,trim(str(I*i))
nexti
close#1
endsub
答案:
1、
D
DEF
DEFGH
DEFGHIJ
DEFGHIJKL
2、
*
***
*****
*******
*********
*******
*****
***
*
3、
y=5a=5
y=15a=10
y=30a=15
4、
118
2314
3520
5、
n=1z=7
n=2z=13
n=3z=19
GECA
ABCDEFGGECA
6、
1
12
123
7、
a
(1)="a",a
(2)="b",a(3)="c",a(4)="i",a(5)="s"
"basic"
8、
9、
109
76
43
1
10、
s=1
s=2
s=5
s=20
李琳80
李晓90
11、
结果分别是:
w=4
w=13w=135w=31
12、
13、
交换前:
362516941
交换后:
149941
NO32
NO43
NO.55
NO.68
NO.713
14、
15、
n=3
x=42
y=9
16、
VVV
VVV
VVVVVVVVVVV
VVVVVVVVV
VVVVVVV
VVVVV
VVV
V
17、
10000
11000
11100
11110
11111
A
B
C
D
E
EDCBA
18、(对齐稍有误差)
19、
H
4H
H4
H4E
3H4E
H4E3
四次单击后的结果分别是:
6、15、28、45
20、
4
5
6
21、
22、
10
00
二、程序填空题
1.随机生成10个二位整数,并按选择排序法从小到大的顺序进行排序。
dima(1to10)asinteger,Iasinteger
dimjasinteger,ntempasinteger
fori=1to__
a(i)=______________
next
forI=1to9
forj=___to____
ifa(i)>a(j)then___:
_:
_____
nextj
nexti
2.随机生成10个10至50二位整数,并按从小到大的顺序输入
dima(1to10)asinteger,Iasinteger
dimjasinteger,pasinteger
fori=1to10
a(i)=__________
next
forI=1to9
p=____
forj=
ifa(p)>a(j)then_____
nextj
ifp<>ithen
________:
________:
________
endif
nexti
3.随机生成10个50至99二位整数,并按冒泡法从小到大的顺序进行排序
dima(1to10)asinteger,Iasinteger
dimjasinteger,pasinteger
fori=1to10
a(i)=______________
next
forI=1to9
forj=__to__
ifa(j)>a(j+1)then__________
nextj
nexti
4.交换A,B中的数据
n=a:
_____:
______
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序 阅读 填空