填空题.docx
- 文档编号:6664714
- 上传时间:2023-05-10
- 格式:DOCX
- 页数:20
- 大小:19.43KB
填空题.docx
《填空题.docx》由会员分享,可在线阅读,更多相关《填空题.docx(20页珍藏版)》请在冰点文库上搜索。
填空题
一、填空
第1题(2.0分)
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimnAsInteger
n=Val(InputBox("请输入一个整数:
"))
IfnMod3=0AndnMod2=0AndnMod5=0Then
Printn+10
EndIf
EndSub
程序运行后,单击命令按钮,在输入对话框中输入60,则输出结果是【1】.
答案:
=======(答案1)=======
70
第2题(4.0分)
下列程序段找出被3、5、7除,余数为1的最小的5个正整数,请在空处填入相应的内容.
PrivateSubCommand1_Click()
DimCountN%,n%
CountN=0
n=1
Do
n=n+1
If【1】Then
Printn
CountN=CountN+1
EndIf
Loop【2】
EndSub
答案:
=======(答案1)=======
nMod3=1AndnMod5=1AndnMod7=1
=======(答案2)=======
UntilCountN=5
=========或=========
WhileCountN<5
=========或=========
UntilCountN>=5
第3题(2.0分)
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
PrivateSubCommand1_Click()
DimM(10)AsInteger
Fork=1To10
M(k)=12-k
Nextk
x=6
PrintM(2+M(x))
EndSub
程序运行后,单击命令按钮,输出结果是【1】.
答案:
=======(答案1)=======
4
第4题(4.0分)
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger
Dima(10,10)AsInteger
Fori=1To3
Forj=1To3
a(i,j)=(i-1)*3+j
Printa(i,j);
Nextj
Nexti
EndSub
程序运行后,单击命令按钮,第一行显示【1】,第三行显示【2】.
答案:
=======(答案1)=======
123
=======(答案2)=======
789
第5题(2.0分)
窗体上有Command1、Command2两个命令按钮.现编写以下程序:
OptionBase0
Dima()AsInteger,mAsInteger
PrivateSubCommand1_Click()
m=InputBox("请输入一个正整数")
ReDima(m)
EndSub
PrivateSubCommand2_Click()
m=InputBox("请输入一个正整数")
ReDima(m)
EndSub
运行程序时,单击Command1后输入整数10,再单击Command2后输入整数5,则数组a中元素的个数是【1】.
答案:
=======(答案1)=======
6
第6题(4.0分)
窗体上有名称为Command1的命令按钮.事件过程及2个函数过程如下:
privatesubcommand1_click()
dimxasinteger,yasinteger,z
x=3:
y=5:
z=fy(y)
printfx(fx(x)),y
endsub
functionfx(byvalaasinteger)
a=a+a
fx=a
endfunction
functionfy(byrefaasinteger)
a=a+a
fy=a
endfunction
运行程序,并单击命令按钮,则窗体上显示的2个值是【1】和【2】.
答案:
=======(答案1)=======
12
=======(答案2)=======
10
第7题(6.0分)
在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine
属性设置为True,然后编写如下的事件过程:
PrivateSubForm_Click()
Open"d:
\test\smtext1.Txt"ForInputAs#1
DoWhileNot【1】
LineInput#1,aspect$
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
【2】
Open"d:
\test\smtext2.Txt"ForOutputAs#1
Print#1,【3】
Close#1
EndSub
运行程序,单击窗体,将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,
然后把该文本框中的内容存入磁盘文件smtext2.txt.请填空.
答案:
=======(答案1)=======
EOF
(1)
=======(答案2)=======
Close#1
=========或=========
Close1
=======(答案3)=======
whole$
=========或=========
whole
=========或=========
text1
=========或=========
text1.text
第8题(2.0分)
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimnAsInteger
n=Val(InputBox("请输入一个整数:
"))
IfnMod3=0AndnMod2=0AndnMod5=0Then
Printn+10
EndIf
EndSub
程序运行后,单击命令按钮,在输入对话框中输入60,则输出结果是【1】.
答案:
=======(答案1)=======
70
第9题(4.0分)
执行下面程序,单击Command1,则窗体上显示的第一行是_【1】___,
第三行是__【2】__。
OptionExplicit
PrivateSubCommand1_Click()
DimxAsInteger,yAsInteger
x=5:
y=0
DoWhilex>0
IfxMod3=0Then
y=y+x
Else
y=y-x
EndIf
x=x-2
Printx,y
Loop
EndSub
答案:
=======(答案1)=======
3-5
=======(答案2)=======
-1-3
第10题(2.0分)
若将二维数组a(3,4)转化为一位数组b(12),请完善下列程序.
OptionBase1
PrivateSubCommand1_Click()
Dima(3,4)AsInteger,b(12)AsInteger
Fori=1To3
Forj=1To4
【1】=a(i,j)
Nextj
Nexti
EndSub
答案:
=======(答案1)=======
b((i-1)*4+j)
=========或=========
b(j+(i-1)*4)
=========或=========
b(4*(i-1)+j)
=========或=========
b(j+4*(i-1))
第11题(4.0分)
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
PrivateSubCommand1_Click()
Dima(3,3)
Form=1To3
Forn=1To3
Ifn=mOrn=4-mThen
a(m,n)=m+n
Else
a(m,n)=0
EndIf
Printa(m,n);
Nextn
Nextm
EndSub
程序运行后,单击命令按钮,第一行显示【1】,第三行显示【2】.
答案:
=======(答案1)=======
204
=======(答案2)=======
406
第12题(2.0分)
标准模块中有如下程序代码:
PublicxAsInteger,YAsInteger
Subvar_pub()
x=10:
y=20
EndSub
在窗体上有1个命令按钮,并有如下事件过程:
PrivateSubCommand1_Click()
DimxAsInteger
Callvar_pub
x=x+100
y=y+100
Printx;y
EndSub
运行程序后单击命令按钮,窗体上显示的是【1】.
答案:
=======(答案1)=======
100120
第13题(4.0分)
在窗体上画一个名称为Command1的命令按钮.然后编写如下程序:
OptionBase1
PrivateSubCommand1_Click()
Dima(10)AsInteger
Fori=1To10
a(i)=i
Next
Callswap(【1】)
Fori=1To10
Printa(i);
Next
EndSub
Subswap(b()AsInteger)
n=UBound(b)
Fori=1Ton/2
t=b(i)
b(i)=b(n)
b(n)=t
【2】
Next
EndSub
上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a
(1)与a(10)的值互换,a
(2)与a(9)的值互换,…….请填空.
答案:
=======(答案1)=======
a
=========或=========
a()
=======(答案2)=======
n=n-1
第14题(6.0分)
在窗体上画一个标签、一个计时器和一个命令按钮,其名称分别为Label1、Timer1和
Command1,如图1所示。
程序运行后,如果单击命令按钮,则标签开始闪烁,
每秒钟"欢迎"二字显示、消失各一次,如图2所示。
以下是实现上述功能的程序,请填空。
PrirateSubForm_Load()
Label1.Caption="欢迎"
Timer1.Enabled=False
Timer1.Interval=【1】
Command1.Caption="开始闪烁"
Endsub
PrivateSubTimer1_Timer()
Label1.visible=【2】
Endsub
PrivateSubCommandl_Click()
【3】
Endsub
答案:
=======(答案1)=======
500
=======(答案2)=======
notlabel1.visible
=========或=========
iif(label1.visible=true,false,true)
=========或=========
iif(label1.visible,false,true)
=========或=========
iif(label1.visible=false,true,false)
=========或=========
iif(notlabel1.visible,true,false)
=======(答案3)=======
Timer1.enabled=true
第15题(6.0分)
在当前目录下有一个名为"myfile.txt"的文本文件,其中有若干行文本.下面程序的
功能是读入此文件中的所有文本行,按行计算每行字符的ASCII码之和,并显示在窗体上.
请填空
PrivateSubCommand1_Click()
Dimch$,AsciiAsInteger
Open"myfile.txt"For【1】As#1
WhileNotEOF
(1)
LineInput#1,ch
Ascii=ToAscii(【2】)
PrintAscii
Wend
Close#1
EndSub
PrivateFunctionToAscii(mystr$)AsInteger
n=0
Fork=1To【3】
n=n+Asc(Mid(mystr,k,1))
Nextk
ToAscii=n
EndFunction
答案:
=======(答案1)=======
Input
=======(答案2)=======
ch
=========或=========
ch$
=======(答案3)=======
len(mystr)
=========或=========
len(mystr$)
第16题(2.0分)
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
PrivateSubCommand1_Click()
x=1
Result=1
Whilex<=10
Result=【1】
x=x+1
Wend
PrintResult
EndSub
上述事件过程用来计算10的阶乘,请填空.
答案:
=======(答案1)=======
result*x
=========或=========
x*result
第17题(4.0分)
执行下列程序,运行后a的值为【1】,b的值为【2】。
PrivateSubcmd1_Click()
DimaAsInteger,bAsInteger
a=0:
b=0
DoWhilea<=3
b=b+a*a
a=a+1
Loop
Printa,b
EndSub
答案:
=======(答案1)=======
4
=======(答案2)=======
14
第18题(2.0分)
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
PrivateSubCommand1_Click()
Dima1(4)AsInteger,a2(4)AsInteger
Fork=0To2
a1(k+1)=InputBox("请输入一个整数")
a2(3-k)=a1(k+1)
Nextk
Printa2(k)
EndSub
程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为【1】.
答案:
=======(答案1)=======
2
第19题(4.0分)
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger
Dima(10,10)AsInteger
Fori=1To3
Forj=1To3
a(i,j)=(i-1)*3+j
Printa(i,j);
Nextj
Nexti
EndSub
程序运行后,单击命令按钮,第一行显示【1】,第三行显示【2】.
答案:
=======(答案1)=======
123
=======(答案2)=======
789
第20题(2.0分)
阅读程序:
Functionfac(ByValnAsInteger)AsInteger
DimtempAsInteger
temp=1
Fori%=1Ton
temp=temp*i%
Nexti%
fac=temp
EndFunction
PrivateSubForm_Click()
DimnsumAsInteger
nsum=1
Fori%=2To4
nsum=nsum+fac(i%)
Nexti%
Printnsum
EndSub
程序运行后,单击窗体,输出结果是【1】.
答案:
=======(答案1)=======
33
第21题(4.0分)
在窗体上画一个名称为Command1的命令按钮.然后编写如下程序:
OptionBase1
PrivateSubCommand1_Click()
Dima(10)AsInteger
Fori=1To10
a(i)=i
Next
Callswap(【1】)
Fori=1To10
Printa(i);
Next
EndSub
Subswap(b()AsInteger)
n=UBound(b)
Fori=1Ton/2
t=b(i)
b(i)=b(n)
b(n)=t
【2】
Next
EndSub
上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a
(1)与a(10)的值互换,a
(2)与a(9)的值互换,…….请填空.
答案:
=======(答案1)=======
a
=========或=========
a()
=======(答案2)=======
n=n-1
第22题(6.0分)
设窗体上有一个名称为Label1的标签。
程序运行时,单击鼠标左键,再移动鼠标,
鼠标的位置坐标会实时地显示在Label1标签中;单击鼠标右键则停止实时显示,
并将标签中内容清除。
下面的程序可实现这一功能,请填空。
DimdownAsBoolean
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle)
SelectCase 【1】
Case1
down=True
Case2
down=False
EndSelect
EndSub
PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle)
If 【2】 Then
【3】="X="&X&" Y="&Y
Else
Label1.Caption=""
EndIf
EndSub
答案:
=======(答案1)=======
button
=======(答案2)=======
down
=========或=========
down=true
=======(答案3)=======
label1.caption
=========或=========
label1
第23题(6.0分)
在当前目录下有一个名为"myfile.txt"的文本文件,其中有若干行文本.下面程序的
功能是读入此文件中的所有文本行,按行计算每行字符的ASCII码之和,并显示在窗体上.
请填空
PrivateSubCommand1_Click()
Dimch$,AsciiAsInteger
Open"myfile.txt"For【1】As#1
WhileNotEOF
(1)
LineInput#1,ch
Ascii=ToAscii(【2】)
PrintAscii
Wend
Close#1
EndSub
PrivateFunctionToAscii(mystr$)AsInteger
n=0
Fork=1To【3】
n=n+Asc(Mid(mystr,k,1))
Nextk
ToAscii=n
EndFunction
答案:
=======(答案1)=======
Input
=======(答案2)=======
ch
=========或=========
ch$
=======(答案3)=======
len(mystr)
=========或=========
len(mystr$)
第24题(6.0分)
在窗体上画一个标签、一个计时器和一个命令按钮,其名称分别为Label1、Timer1和
Command1,如图1所示。
程序运行后,如果单击命令按钮,则标签开始闪烁,
每秒钟"欢迎"二字显示、消失各一次,如图2所示。
以下是实现上述功能的程序,请填空。
PrirateSubForm_Load()
Label1.Caption="欢迎"
Timer1.Enabled=False
Timer1.Interval=【1】
Command1.Caption="开始闪烁"
Endsub
PrivateSubTimer1_Timer()
Label1.visible=【2】
Endsub
PrivateSubCommandl_Click()
【3】
Endsub
答案:
=======(答案1)=======
500
=======(答案2)=======
notlabel1.visible
=========或=========
iif(label1.visible=true,false,true)
=========或=========
iif(label1.visible,false,true)
=========或=========
iif(label1.visible=
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 填空