Nexti
'=“完成”
'=fault
EndSub
PrivateSubLabel2_Click()
EndSub
12.在考生文件夹中有文件及其窗体文件,该程序是不完整的,请在有号的地方填入正确内容,然后删除及所有注释符(即'号),但不能修改其它部分。
存盘时不得改变文件夹和文件名。
本题描述如下:
窗体上有一个名称为Text1的文本框;两个复选框,名称分别为Ch1和Ch2,标题分别为"爱心社"和"学通社"。
要求程序运行后,如果只选中Ch1,单击窗体,则在文本框中显示"报名参加爱心社";如果只选中Ch2,然后单击窗体,则在文本框中显示"报名参加学通社";如果同时选中Ch1和Ch2,单击窗体,则在文本框中显示"报名参加爱心社和学通社";如果Ch1和Ch2都不选取,在单击窗体后,则在文本框中什么都不显示。
OptionExplicit
PrivateSubForm_Click()
=""
If=1Then
=+"爱心社"
EndIf
IfThen
If<>""Then="爱心社"+"和"
=+"学通社"
EndIf
If<>""Then
="报名参加"+
EndIf
EndSub
13.请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个水平滚动条,请在属性窗口中把它的名称设置为HS1,Max属性设置为100,Min属性设置为0,Value属性设置为100。
程序运行后,滚动框位于滚动条最右端(如图所示),如果单击滚动条之外的窗体部分,则滚动框跳到最左端。
*注意:
1)只能直接为相应的属性赋值,不得使用变量。
2)保存时必须存放在考生文件夹下,窗体文件名为,工程文件名为。
答案:
PrivateSubForm_click()
=0
EndSub
14.)按下述要求在属性窗口中设置属性:
在名称为Form1的窗体中建立一个标签,名称为L1,在标签上显示"选课",其字号大小为四号;再建立三个复选框,名称分别为Chk1、Chk2和Chk3,标题分别为"操作系统"、"数据库原理"、"概率论",字体大小均为14,其中"概率论"被禁用。
*注意:
保存时必须存放在考生文件夹下,窗体文件名为,工程文件名为。
答案:
PrivateSubForm_Load()
=False
EndSub
15.在考生文件夹下有一个工程文件,其窗体上画有2个名称分别为
Text1、Text2的文本框,其中Text1可多行显示。
请画2个名称为Command1、
Command2,标题为"产生数组"、"查找"的命令按钮。
如图所示。
程序功
能如下:
1)单击"产生数组"按钮,则用随机函数生成10个0~100之间(不含0和
100)互不相同的数值,并将它们保存到一维数组a中,同时也将这10个
数值显示在Text1文本框内;
2)单击"查找"按钮将弹出输入对话框,接收用户输入的任意一个数,并
在一维数组a中查找该数,若查找失败,则在Text2文本框内显示该数"
不存在于数组中";否则给出该数在数组中的位置。
要求:
请去掉程序中的注释符,把程序中的改为正确的内容,使其实现上述
功能,但不能修改窗体文件中已经存在的控件和程序。
最后把修改后的
文件按原文件名存盘。
PrivateSubCommand1_Click()
="":
=""
Fori=1To10
a(i)=Fix(Rnd*99+1)
Forj=1Toi-1
Ifa(i)=a(j)Then
i=i-1
ExitFor
EndIf
Nextj
Nexti
Fori=1To10
=+Str(a(i))+Space
(2)
Nexti
EndSub
PrivateSubCommand2_Click()
DimnumAsInteger,iAsInteger
num=InputBox("请输入待查找的数")
Fori=1To10
Ifa(i)=numThen
=Str(num)+"是数组中的第"+Str(i)+"个值"
ExitFor
EndIf
Nexti
Ifi>10Then
=Str(num)+"不存在于数组中"
EndIf
EndSub
16.在考生文件夹下有一个工程文件(相应的窗体文件名为
),其功能是通过调用过程FindMax求数组的最大值,请装入该文件。
程
序运行后,在四个文本框中各输入一个整数,然后单击命令按钮,即可求
出数组的最大值,并在窗体上显示出来(如图所示)。
这个程序不完整,
请把它补充完整,并能正确运行。
要求:
去掉程序中的注释符,把程序中的改为正确的内容,使其实现上述功
能,但不能修改程序中的其他部分。
最后把修改后的文件按原文件名存
盘。
OptionBase1
PrivateFunctionFindMax(a()AsInteger)
DimStartAsInteger
DimFinishAsInteger,iAsInteger
Start=LBound(a)
Finish=UBound(a)
Max=a(Start)
Fori=StartToFinish
Ifa(i)>MaxThenMax=a(i)
Nexti
FindMax=Max
EndFunction
PrivateSubCommand1_Click()
Dimarr1
Dimarr2(4)AsInteger
arr1=Array(Val,Val,Val,Val)
Fori=1To4
arr2(i)=CInt(arr1(i))
Nexti
M=FindMax(arr2)
Print"最大值是:
";M
EndSub
17.15
(1)在考生文件夹下有一个工程文件,窗体上有一个单选按钮数组,含三个单选按钮,均没有标题,请利用属性窗口,为单选按钮依次添加标题为“北京”、“上海”、“广州”;再添加一个标题为“显示”的命令按钮,如图所示。
程序的功能是在运行时,如果选中一个单选按钮后,单击“显示”按钮,则根据单选按钮的选中情况,在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。
要求:
1)依次添加单选按钮标题为“北京”、“上海”、“广州”;设初始选中的是“广州”,添加命令按钮标题为“显示”。
2)去掉程序中的注释符,把程序中的改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的其他属性。
最后把修改后的文件按原文件名存盘。
PrivateSubC1_Click()
Fori=0To2
IfOp1(i).value=TrueThen
Print"我的出生地是"+Op1(i).caption
EndIf
Next
EndSub
18.在名称为Form1的窗体上画一个文本框(名称为Text1,Text属性为“国”,FontName属性为“黑体”)和一个水平滚动条(名称为HScroll1),如图1所示。
在属性窗口中对滚动条设置如下属性:
Min10
Max100
LargeChange5
SmallChange2
编写适当的事件过程。
程序运行后,如果移动滚动条上的滚动框,则可扩大或缩小文本框中的“国”字。
运行后的窗体如图2所示。
要求程序中得使用任何变量。
*注意存盘时必须存放在考生文件夹下,工程文件名为,窗体文件名为。
解析
PrivateSubHScroll1_Change()
=
endSub
19.请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在Form1的窗体上建立一个主菜单,标题为"操作",名称为Op,该菜单有两个子菜单,其标题分别为"显示"和"清除",其名称分别为Dis和Clea,编写适当的事件过程。
程序运行后,如果单击"操作"菜单中的"显示"命令,则在窗体上显示"等级考试";如果单击"清除"命令,则清除窗体上显示的内容。
程序的运行情况如图所示。
*注意:
存盘时必须存放在考生文件夹下,工程文件名为,窗体文件名为。
PrivateSubClea_Click()
Cls
EndSub
PrivateSubDis_Click()
Print"等级考试"
EndSub
20.在考生文件夹下有一个工程文件,请在窗体上画两个单选按钮(
名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目”
),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1
所示。
编写窗体的Click事件过程。
程序运行后,如果选择“添加项目”
单选按钮,然后单击窗体,则从键盘上输入要添加的项目(内容任意,不
少于三个),并添加到列表框中;如果选择“删除项目”单选按钮,然后
单击窗体,则从键盘上输入要删除的项目,将其从列表框中删除。
程序的
运行情况如图2所示。
在考生文件夹下的工程文件(相应的窗体文件名为),
可以实现上述功能。
但这个程序不完整,请把它补充完整。
要求:
去掉程序中的注释符,把程序中的改为适当的内容,使其正确运行,
但不能修改程序中的其他部分。
最后把修改后的文件按原文件名存盘。
图1图2
PrivateSubForm_Click()
If=TrueThen
=InputBox("请输入要添加的项目")
EndIf
If=TrueThen
=InputBox("请输入要删除的项目")
Fori=0To-1
If(i)=Then
i
EndIf
Nexti
EndIf
EndSub
21.在考生文件夹下有一个工程文件(相应的窗体文件名为
),其功能是通过调用过程Sort将数组按降序排序,请装入该文件。
程序
运行后,在四个文本框中各输入一个整数(如图1所示),然后单击命令
按钮,即可使数组按降序排序,并在文本框中显示出来(如图2所示)。
这个程序不完整,请把它补充完整,并能正确运行。
要求:
去掉程序中的注释符,把程序中的改为正确的内容,使其实现上述功
能,但不能修改程序中的其他部分。
最后把修改后的文件按原文件名存
盘。
图1
PrivateSubSort(a()AsInteger)
DimStartAsInteger,FinishAsInteger
DimiAsInteger,jAsInteger,tAsInteger
Start=LBound(a)
Finish=UBound(a)
Fori=FinishTo2Step-1
Forj=1ToFinish-1
Ifa(j)t=a(j+1)
a(j+1)=a(j)
a(j)=t
EndIf
Nextj
Nexti
EndSub
22.其功能是产