vb数据类Word格式.docx
- 文档编号:18872746
- 上传时间:2023-01-01
- 格式:DOCX
- 页数:15
- 大小:17.95KB
vb数据类Word格式.docx
《vb数据类Word格式.docx》由会员分享,可在线阅读,更多相关《vb数据类Word格式.docx(15页珍藏版)》请在冰豆网上搜索。
y=x+y
4.执行下面程序,若依次输入10,20,30,40,50,60,则输出结果是____103050204060__。
OptionBase1
PrivateSubCommand1_Click()
Dima(3,2)AsInteger
Dimi%,j%,t
Fori=1To3
Forj=1To2
a(i,j)=InputBox("
请输入数组元素的值"
)
ForEachtIna
Printt;
Nextt
5.运行下列程序,单击窗体后在窗体上显示的结果是____-3___。
DimxAsInteger,yAsInteger
x=-5
y=-20
IfNotx>
0Then
x=y-3
Else
y=x+3
EndIf
Printx-y
Endsub
6.下列程序段的执行结果为___1224________。
n=0
Forj=5ToiStep-1
n=n+1
Printn;
j;
i
7.执行下面程序段,如果运行时输入2,则在窗体上输出结果是_____4_。
DimxAsInteger
x=InputBox("
inputx"
Ifx>
1Then
y=x+2
ElseIfx<
5Then
y=x+3
ElseIfx=2Then
y=x
Printy
8.运行以下程序,单击窗体后,如果依次输入20和40,则输出内容是_60_______。
请输入变量x的值"
"
输入窗口"
y=InputBox("
请输入变量y的值"
Printx+y
9.设有数组声明语句:
DimA(-1To2,-1To1)AsLong,则数组A在内存中所占的字节数为____48__。
10.函数Len(Str(Val("
123.4"
)))的值为__6
____。
11.运行以下程序,单击命令按钮后在窗体上输出内容___0______。
PrivateSubCommand1_Click()
Dima()AsInteger
DimiAsInteger,jAsInteger
ReDima(3,4)
Forj=1To4
a(i,j)=(i-1)*10+j
ReDima(4,5)
Printa(2,3)
EndSub
12.设有如下程序:
OptionBase1
PrivateSubForm_Click()
DimA
DimiAsInteger
A=Array(1,2,3,4,5,6,7,8,9)
Fori=1To4
PrintA(4+i);
程序运行后,单击窗体,则在窗体上显示的是___5678_____。
13.执行下面的程序,输出结果是_____1830______。
OptionExplicit
DimMAsInteger,NAsInteger
M=1:
N=2
PrintM+N+F(M,N);
M=2:
N=1
PrintF(M,N)+F(M,N)
PrivateFunctionF(XAsInteger,YAsInteger)
X=X+Y
Y=X+3
F=X+Y
EndFunction
14.下列程序段的执行结果为__0223______。
DimM
(2)
Fori=1To2
M(i)=0
Nexti
K=2
Fori=1Tok
Forj=1TOk
M(j)=M(i)+1
PrintM(k);
15.执行下列程序段,输出结果为_70_________。
Dima(10)AsInteger
DimiAsInteger
Fori=1To10
a(i)=2*i-1
Printa(4);
Erasea
Printa(4)
16.执行下面的程序,输出结果是___1830________。
17.运行下列程序并用记事本打开数据文件观察结果为__"
李斌"
89,67
_________。
Open"
c:
\score.dat"
ForOutputAs#1
Write#1,"
89,67
Close#1
18.执行以下语句后,a的值为__溢出______。
DimaAsInteger
a=1
Do
a=a+2
LoopUntila=100
19.在下面的程序段中,循环体将执行__0____次。
Forv=10To20Step-2
printv
Nextv
20.下面程序段的运行结果为_1212288_______。
n=1
Fori=1To4
Forj=1Toi
n=n*j
Printn;
21.在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
DimAAsInteger
A=Inputbox("
EnterAnInteger"
B=Inputbox("
Text1.Text=B+A
程序运行后,单击命令按钮,如果在输入对话框中分别输入4和56,则文本框中显示的内容是____60___。
22.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程:
N=Text1.Text
SelectCaseN
Case1To20
X=10
Case2,4,6
X=20
CaseIs<
10
X=30
Case10
X=40
EndSelect
Text2.Text=X
程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是__10__。
23.运行下面程序,输出结果是__8___。
DimaAsInteger,bAsInteger,cAsInteger
DimdAsInteger
a=5
b=-3
c=8
d=IIf(a>
bAnda>
c,a,IIf(b>
c,b,c))
printd
24.表达式(7\3+1)*(18\5-1)的值是__6____。
25在下面的程序段中,循环体将执行____6__次。
Forv=20To10Step-2
26.下列程序段的执行结果为_1224__________。
27.有如下程序
a=100
s=s+a
a=a+1
LoopWhilea>
120
运行后的输出结果为__101____。
28.运行下面的程序,第二行显示结果是_112233__________。
OptionBase1
Dima,b(),i,j,k
a=Array(11,12,13,21,22,23,31,32,33)
ReDimb(3,3)
Callread(a,b)
Callprt(b)
PrivateSubread(a,b)
Forj=1To3
b(i,j)=a(k)
PrivateSubprt(b)
p=b(i,j)Mod3+1
q=b(j,i)Mod3+1
Printb(p,q);
29.执行以下程序,单击命令按钮后,输出结果是_012345678910_____。
Dima(10)AsInteger
Dimb
Fori=1To10
a(i)=i
ForEachbIna
Printb;
Nextb
30.执行下面程序段,如果运行时输入2,则在窗体上输出结果是__4____。
31.执行下面的程序段,文本框Text1中显示的是___9____。
i=1
DoWhilei<
20
j=i+j
i=i*(i+1)
Loop
Text1.Text=j
32.运行下列程序,单击窗体后在窗体上显示的结果是__-3_____。
33.运行以下程序,单击窗体后,如果依次输入20和40,则输出内容是__2040______。
34.执行下列程序,单击命令按钮在窗体上输出结果为563______。
Dima(3,3)AsInteger,kAsInteger
DimiAsInteger,jAsInteger,nAsInteger
n=UBound(a,1)
Fori=1Ton-2
Forj=iTon-i
a(i,j)=k+1
a(j,n+1-i)=k+2
a(n+1-i,n+1-j)=k+3
a(n+1-j,i)=k+4
k=k+4
IfnMod2<
>
0Then
a((n+1)/2,(n+1)/2)=k+1
Printa(1,2);
a(2,3);
a(3,3)
35.表达式Int(-17.8)+Abs(17.8)的值是_-0.2_____。
36.运行以下程序,单击命令按钮后,如果用户从键盘上输入6、5、4、3、2、1,则窗体上输出内容为___9______。
ReDima(6)
Fori=5To10
a(10-i+1)=InputBox("
inputnumber"
ReDimPreservea(10)
a(10)=a(5)+a(4)
Printa(10)
37.执行下列程序段,输出结果为____出错______。
Dima()AsInteger
ReDima(10)
38.设有如下程序:
程序运行后,单击窗体,则在窗体上显示的是_5678_______。
39.在窗体上画一个文本框,然后编写如下事件过程:
X=Inputbox("
请输入一个整数"
PrintX+Text1.Text
40.程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击"
确定"
按钮后,在窗体上显示的内容是123456_______。
41.下列程序段的执行结果为_12_24_________。
42运行如下程序后,输出结果为__19______。
Form=1To4
Forj=1To5
Fork=1To6
a=a+3
Nextk
Nextm
43.运行下列程序,单击命令按钮后,在窗体上输出结果为_91215_____。
Dima(3,3),s(3)
Dimx,i%
s(i)=0
a(i,j)=i+j
s(i)=s(i)+a(i,j)
ForEachxIns
Printx;
Nextx
44.运行如下程序段,输出结果为__16______。
PrivateSubcommand1_click()
a=1:
b=2:
c=3
a=a+b:
b=b+a:
c=b+a
Ifa<
3Orb<
3Then
a=b-a:
b=c-a:
Printa+b+c
45.执行下面程序段,如果运行时输入2,则在窗体上输出结果是____4__。
46.运行以下程序,单击窗体后,如果依次输入20和40,则输出内容是__2040______。
47.运行下面程序,输出结果是____8_。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 数据