淮师期末真vb填空改修正版尊贵独享版.docx

资源描述

淮师期末真vb填空改修正版尊贵独享版.docx

《淮师期末真vb填空改修正版尊贵独享版.docx》由会员分享，可在线阅读，更多相关《淮师期末真vb填空改修正版尊贵独享版.docx（37页珍藏版）》请在冰豆网上搜索。

淮师期末真vb填空改修正版尊贵独享版.docx

淮师期末真vb填空改修正版尊贵独享版

真·超级·无敌·vb期末填空最终形态·完全体·零式·改

必看题

1.若有一个动态数组a有两个元素a（0）和a

（1），现要令数组a有三个元素a（0）、a

（1）和

（2），则应当使用______语句。

【ReDima

（2）】

2.下面程序的功能是从键盘输入1个大于100的整数m，计算并输出满足不等式

的最大的n。

请填空。

------【0】【n-1】

PrivateSubCommand1_Click（）

Dims,m,nAsInteger

m=Val（InputBox（"请输入一个大于100的整数"））

n=______

s=0

DoWhiles

n=n+1

s=s+n*n

Loop

Print"满足不等式的最大n是";______

EndSub

3.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

PrivateSubCommand1_Click（）

a$="NationalComputerRankExamination"

n=Len（a$）

s=0

Fori=1Ton

b$=Mid（a$,i,1）

Ifb$="n"Then

s=s+1

EndIf

Nexti

Prints

EndSub

程序运行后，单击命令按钮，输出结果是______。

【4】

4.以下程序的功能是：

从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。

请在______处填入适当的内容，将程序补充完整。

PrivateSubForm_Click（）

DimxAsSingle,amaxAsSingle,aminAsSingle

x=InputBox（"Enterascore"）

amax=x

amin=x

DoWhile______

Ifx>amaxThen

amax=x

EndIf

If______Then

amin=x

EndIf

x=InputBox（"Enterascore"）

Loop

Print"Max=";amax,"Min=";amin

EndSub------【x>=0】【xx或amin>=x】

5.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：

PrivateSubForm_Click（）

Text1.Text="VB程序设计"

EndSub

PrivateSubText1_Change（）

Picture1.Print"VBProgramming"

EndSub

程序运行后，单击窗体，则在文本框中显示的内容是_______，而在图片框中显示的内容是_______。

【VB程序设计】【VBProgramming】

6.在窗体上画一个名称为Command1的命令按钮，编写如下事件过程

PrivateSubCommand1＿Click

DimaAsString

a=_________

Fori=1To5

PrintSpace（6-i）;Mid$（a,6-i,2*i-1）

EndSub

程序运行后，单击命令按钮，要求在窗体上显示的输出结果为

456

34567

2345678

123456789

请填空。

--【123456789】

7.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的______属性设置为______。

【interval】【500】

8.执行下面的程序段后，b的值为______。

[300]

a=300

B=20

a=a+B

B=a-B

a=a–B

9.执行下面的程序段后，变量S的值___________。

[9]

S=5

Fori=2.6To4.9Step0.6

S=S+1

Nexti

10.在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按钮的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。

程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应计算结果显示在Label4中，程序运行情况如图所示。

请在______处填入适当的内容，将程序补充完整。

PrivateSubCommand1_Click（）

Fori=0To3

If______=TrueThen

opt=Option1（i）.Caption

EndIf

SelectCase______

Case"+"

Result=Val（Text1.Text）+Val（Text2.Text）

Case"-"

Result=Val（Text1.Text）-Val（Text2.Text）

Case"*"

Result=Val（Text1.Text）*Val（Text2.Text）

Case"/"

Result=Val（Text1.Text）/Val（Text2.Text）

EndSelect

______=Result

EndSub----[option1（i）][opt][label4]

11.下面的程序用"冒泡"法将数组a中的10个整数按升序排列，请将程序补充完整。

OptionBase1

PrivateSubCommand1_Click（）

Dima

a=Array（678,45,324,528,439,387,87,875,273,823）

Fori=1To9

Forj=______

Ifa（i）>=a（j）Then

a1=a（i）

a（i）=a（j）

a（j）=a1

EndIf

Nextj

Nexti

Fori=1To10

Printa（i）

Nexti

EndSub-----【i+1to10】

12.在窗体上画一个命令按钮，然后编写如下程序：

Functionfun（ByValnumAsLong）AsLong

DimkAsLong

k=1

num=Abs（num）

DoWhilenum

k=k*（numMod10）

num=num\10

Loop

fun=k

EndFunction

PrivateSubCommand1_Click（）

DimnAsLong

DimrAsLong

n=InputBox（"请输入一个数"）

n=CLng（n）

r=fun（n）

Printr

EndSub

程序运行后，单击命令按钮，在输入对话框中输入"345"，输出结果为______。

[60]

13.以下程序在文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中。

PrivateSubCommand1_Click（）

DimNAsString,DAsString

N=Text1.Text

M=______

Fori=MTo1Step-1

c=Mid（N,i,1）

D=D&______

Nexti

______=D

EndSub—[Len（text1）][c][text2]

14.在窗体上画一个名称为"Command1"的命令按钮。

然后编写如下事件过程

PrivateSubCommand1_Click（）

DimaAsString

a="123456789"

Fori=1To5

PrintSpace（6-i）;Mid$（a,______,2*i-1）

Nexti

EndSub

程序运行后，单击命令按钮，窗体上的输出结果是

456

34567

2345678

123456789

请填空。

--[6-i]

15.当用______方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。

---[append]

16.设有如下程序

PrivateSubForm＿Click（）

DimaAsInteger,bAsInteger

a=20:

b=50

p1a,b

p2a,b

p3a,b

Print"a=";a,"b=";b

EndSub

Subp1（xAsInteger,ByValyAsInteger）

x=x+10

y=y+20

EndSub

Subp2（ByValxAsInteger,yAsInteger）

x=x+10

y=y+20

EndSub

Subp3（ByValxAsInteger,ByValyAsInteger）

x=x+10

y=y+20

EndSub

该程序运行后，单击窗体，则在窗体上显示的内容是：

a=__________和b=____________。

---[30][70]

17.为了显示一个窗体，所使用的方法为______；为了隐藏一个窗体，所使用的方法为______。

【show】【Hide】

18.以下语句输出结果是_______。

[12345.68]

PrintInt（12345.6789*100+0.5）/100

19.在窗体上画两个列表框，其名称分别为List1和List2，然后编写如下程序：

PrivateSubForm_______（）

List1.AddItem"语文"

List1.AddItem"数学"

List1.AddItem"物理"

List1.AddItem"化学"

List1.AddItem"英语"

List1.AddItem"政治"

EndSub

PrivateSubList1_DblClick（）

List2.AddItem______.Text

List1.RemoveItemList1.ListIndex

EndSub

PrivatesubList2_DblClick（）

List1.AddItem______.Text

List2.RemoveItemList2.ListIndex

EndSub

该程序的功能是：

程序运行后在左侧列表框中显示各科目的名字，如果双击该列表框中的某个科目，则该科目从该表框中消失，并移到右列表框中；如果双击右侧列表框中的某个科目，则该科目从该列表框中消失，并移向左侧列表框中。

请填空将程序补充完整。

---[load][list1][list2]

20.在窗体上画一个文本框和一个标签，其名称分别为Text1和Label1，然后编写如下程序：

Functionfun（sAsInteger）

Fori=1Tos

Sum=Sum+i

Nexti

fun=Sum

EndFunction

PrivateSubForm_Click（）

Text1.Text=Str（fun（5））

EndSub

PrivateSubText1_Change（）

Label1.Caption="VBProgramming"

EndSub

程序运行后，单击窗体则文本框中显示的内容是______，而在标签中显示的内容是______。

[15][VBProgramming]

21.某人编写如下函数来判断a是否为素数，若是，则函数返回True；否则返回False

Functionprime（aAsInteger）AsBoolean

DimkAsInteger,isprimeAsBoolean

Ifa<2Then

isprime=False

Else

isprime=True

k=2

DoWhilek

在测试时发现有1个非素数也被判断为素数，这个错判的数是______。

【4】

22..在窗体上画一个文本框和一个图片框，通过属性窗口设置图片框Picture1的AutoRedraw属性为True。