vb自编程序阅读题Word文档下载推荐.docx
- 文档编号:6431603
- 上传时间:2023-05-06
- 格式:DOCX
- 页数:15
- 大小:17.62KB
vb自编程序阅读题Word文档下载推荐.docx
《vb自编程序阅读题Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《vb自编程序阅读题Word文档下载推荐.docx(15页珍藏版)》请在冰点文库上搜索。
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)
4、程序运行时单击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)
5、写出程序的执行结果
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
6、程序如下
PrivatesubForm_Click()
n=inputbox(“n=”)
k=10:
j=1
fori=1ton
printspace(k);
string(j,trim(str(i)))
ifi<
=n\2then
k=k–1:
j=j+2
else
k=k+1:
j=j-2
endif
nexti
分别写出当输入n的值分别为2,3,4的运行结果。
7、写出点击按钮command1后,显示在窗体上的内容。
privatesubcommand1_click()
dimk,jasinteger
fork=1to5
printspace(5-k);
forj=1tok*2-1
printchr(asc(“C”)+j);
nextj
nextk
8、写出程序运行时单击窗体后,Form1上输出的结果
Cls
Fori=1To8
Ifi<
=2Then
PrintTab(10);
"
VVV"
Else
PrintTab(3+i);
Forj=1To17-2*i
Print"
V"
;
Nextj
EndIf
Nexti
9、写出点击窗体后,显示在窗体上的内容。
Privatesubform_click()
Callprintdlt(5)
Endsub
PrivateSubprintdlt(nasinteger)
Dimkasinteger
fork=1ton
printspace(n-k);
forj=1to2*k-1
print“*”;
nextj
nextk
fork=1ton-1
forj=1to2*n-2*k-1
10、写出程序执行的结果
OptionBase1
Dima(5,5)AsInteger
DimiAsInteger,jAsInteger
Fori=1To5
Forj=1To5
Ifj<
=iThen
a(i,j)=1
Printa(i,j);
Nextj
11、写出下列程序运行时,单击窗体后窗体上显示的内容。
subprnt(b()asstring*1,nasinteger)
dimiasinteger
fori=1ton
printb(i);
nexti
dima(7)asstring*1,iasinteger
fori=1to7
a(i)=chr(asc(“A”)+i-1)
fori=7to4step–1
callprnt(a,i)
12、写出运行以上程序后Form1上的输出结果
写出将标记有①和②的两条语句对调后,重新运行程序时Form1上的输出结果
Constn=6
Dimxx(n)AsInteger
Form1.Cls
Fori=1Ton
xx(i)=i*i
Callfchange(xx(),n)
Form1.printxx(i);
Subfchange(a()AsInteger,m)
Fori=1Tom/2
t=a(i)
a(i)=a(m-i+1)‘①
a(m-i+1)=t‘②
13、写出单击窗体后程序的执行结果
privatesubf(sasstring)
dimIasinteger,nasinteger,casstring
n=len(s)
ifnmod2=1thenc=mid(s,n\2+1,1)
forI=1tolen(s)\2
c=mid(s,len(s)+1-I,1)+c+mid(s,I,1)
nextI
s=c
dimxasstring
x=inputbox(“x=”)
callf(x)
printx
单击command1后输入“abc”,窗体上显示的内容是什么?
单击command1后输入“abcd”,窗体上显示的内容是什么?
14、写出点击窗体后,显示在窗体上的内容。
Functionchg(byvalmasbyte,nasbyte)asbyte
n=n+2
m=m+n
Chg=2*m
Endfunction
Dimkasbyte,jasbyte
j=1
Fork=1to3
Printk,j,
Printchg(k,j)
15、写出单击窗体后,显示在窗体上的内容。
PrivateFunctionchg(aAsInteger,byvalbasinteger)AsInteger
Dimnasinteger
b=b+1
Forn=0to2
a=a+b
Nextn
Chg=a
EndFunction
Dimaasinteger,basinteger,zasinteger
a=1:
b=1
forn=1to3
z=chg(a,b)
print“n=”;
n,”z=”;
z
nextn
16、写出程序运行时单击窗体后窗体上的输出结果。
DimaAsInteger,bAsInteger
a=1
b=2
CallProc1(a,b)
Printa,b
PrivateSubProc1(cAsInteger,dAsInteger)
DimaAsInteger,bAsInteger
c=a+b
d=a-b
Printc,d
17、写出单击命令按钮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
18、写出往文本框顺序键入”H4E3”后,显示在窗体上的内容。
PrivateSubText1_Change()
PrintText1.Text
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii>
=Asc("
0"
)AndKeyAscii<
9"
)Then
PrintChr(KeyAscii)+Text1.Text
19、控件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%
PrivateSubHScroll1_Change()
y=y+f1(HScroll1.Value)
Text1.Text=y
EndSub
20、写出点击窗体后,文件”c:
\result.txt”中的内容。
Dimsasstring,k,jasinteger,tasstring
Dima(1to5)asstring
s=”basic”
Fork=1to5
a(k)=mid(s,k,1)
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
Print#1,”a(”+trim(str(k))+”)=”;
Write#1,a(k);
Print#1,”a(5)=”;
Write#1,a(5)
Write#1,s
Close1
21、写出程序运行时连续三次单击Command1后,a1.dat文件的最终结果
DimaAsInteger,yAsInteger
PrivateSubForm_Load()
Open”c:
\al.dat”ForOutputAs#1
Close#1
\a1.dat”ForAppendAs#1
Callaa(5)
y=y+a
Print#1,”y=”;
y,”a=”;
a:
Subaa(iAsInteger)
x=1
Dountilx>
i
a=a+x
x=x+3
22、写出点击三次窗体后,文件“a1.txt”中的内容。
StatickAsInteger
DimjAsInteger
k=k+1
Open"
a1.txt"
ForAppendAs#1
Forj=1Tok
Print#1,j;
Print#1,
23、写出单击窗体后,c:
\data2.dat文件中的数据。
PrivateSubForm_click()
Open"
c:
\data1.dat"
ForInputAs#1
Calloutputdata("
\data2.dat"
)
Close
PrivateSuboutputdata(filenameAsString)
DimaAsString,bAsInteger
OpenfilenameForOutputAs#2
DoWhileNotEOF
(1)
Input#1,a,b
IfLeft(a,1)="
李"
Andb>
=60Then
Print#2,a,b
Loop
已知在c:
\data1.dat文件中数据如下:
张寇,78,李琳,80,王澜,56,司马,38,李晓,90,刘召,50,李名,45
24、写出a1.dat文件的最终结果
Dimf1AsInteger
Dimf2AsInteger,f3AsInteger
Open“c:
\a1.dat”ForOutputAs#1
f1=2:
f2=3
Print#1,”NO”;
3,f1
4,f2
Fori=5To7
f3=f1+f2
Print#1,”NO.”;
I,f3
f1=f2
f2=f3
NextI
Close#1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 程序 阅读
![提示](https://static.bingdoc.com/images/bang_tan.gif)