VB期末考试上机模拟题附代码.docx
《VB期末考试上机模拟题附代码.docx》由会员分享,可在线阅读,更多相关《VB期末考试上机模拟题附代码.docx(14页珍藏版)》请在冰豆网上搜索。
VB期末考试上机模拟题附代码
一、基本操作题
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
1、在名称为Form1的窗体上画一个名称为Chk1的复选框数组(Index属性从0开始),含三个复选框,其标题分别为“语文”、“数学”、“英语”。
利用属性窗口设置适当的属性,使“语文”未选,“数学”被选中,“英语”为灰色,再把窗体的标题设置为“选课”,程序运行时的窗体界面如图所示。
2、在名称为窗体上画一个命令按钮,其名称为Cmd1,标题为“清除”。
请编写适当的事件过程,使得程序运行后,窗体上的标题为“VB期末上机考试”,如图1所示,如单击命令按钮,则清除窗体的标题,程序运行时的窗体界面如图2所示。
PrivateSubCommand1_Click()
Form1.Caption=""
EndSub
PrivateSubForm_Load()
Form1.Caption="VB期末考试"
EndSub
图1图2
3、在名称为Form1的窗体上画一个命令按钮,其名称为Cmd1,标题为“移到左上”。
编写适当的事件过程,使程序运行时,如单击命令按钮,则按钮移到窗体的左上角。
程序中不得使用任何变量。
程序运行时的窗体界面如图。
PrivateSubCommand1_Click()
Command1.Top=0:
Command1.Left=0
EndSub
4、在名称为Form1的窗体上建立一个名称为L1的标签,标题为“选课”,其字号大小为4号;再建立三个复选框,名称分别为Chk1、Chk2、Chk3,标题分别为“操作系统”、“数据库原理”、和“概率论”,字体大小均为14,其中“概率论”被禁用,运行界面如图。
5、在Form1的窗体上画一个命令按钮,其名称为Cmd1,标题为“显示”;再画一个文本框,其名称为Txt1,编写适当的事件过程。
程序运行后,在窗体加载时使文本框不可见,如双击窗体,则文本框出现;此时如单击命令按钮,则在文本框中显示“期末考试”,如图所示。
PrivateSubCommand1_Click()
Text1.Text="期末考试"
EndSub
PrivateSubForm_DblClick()
Text1.Visible=True
EndSub
PrivateSubForm_Load()
Text1.Visible=False
EndSub
6、在名称为Form1的窗体上,画一个组合框和一个命令按钮。
组合框的名称为Cbo1,初始内容为空,有“长跑”、“游泳”、和“跳远”三个可供选择项。
命令按钮的名称为Cmd1,Opt2,标题为“确定”。
编写适当的事件过程,使得程序运行时,选择组合框中的某项,单击命令按钮后,就会弹出一个对话框,内容为“您选择了(该项)”。
程序中不得使用任何变量。
程序运行时的窗体界面如图所示。
PrivateSubCommand1_Click()
MsgBox"你选择了"&Combo1.Text
EndSub
7、在名称为Form1的窗体上画一个名称为H1的水平滚动条,请在“属性”窗口中设置它的属性值,使之满足以下要求:
它的最大刻度值为100,最小刻度值为1,在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边的按钮),滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1和L2的标签,并分别显示1和100,运行时的窗体界面如图所示。
PrivateSubForm_Click()
HScroll1.Value=HScroll1.Value+10
EndSub
8、在名称为Form1的窗体上画两个文本框,无初始内容;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下有两个子菜单项,名称分别为Copy和Clear,标题分别为“复制”和“清除”。
请编写适当的事件过程,使得程序运行时,单击“复制”菜单项,则把Text1中的内容复制到Text2中,单击“清除”菜单项,则清除Text2中的内容。
程序运行时的窗体界面如图所示。
要求在程序中不得使用任何变量,每个事件过程中只能写一个语句。
PrivateSubclear_Click()
Text2.Text=""
EndSub
PrivateSubcopy_Click()
Text2.Text=Text1.Text
EndSub
9、在Form1的窗体上画一个文本框,其名称为Text1,程序运行时,在文本框中输入字符,文本框中的字符将赋值到窗体的标题栏中。
注意,本程序代码中不得使用任何变量。
程序运行时的窗体界面如图所示。
PrivateSubText1_Change()
Form1.Caption=Text1.Text
EndSub
10、在窗体上有一个名称为text1的文本框,一个名称为C1,标题为“校验”的命令按钮。
其中文本框用来输入口令,要求在文本框中输入的内容都必须以“*”显示(通过属性窗口设置)。
要求程序运行后,输入口令,单击命令按钮后,对口令进行校验。
如果输入的内容是“ABC”这3个大写字母,则用MsgBox信息框输出“正确”,否则输出“错误”。
如图所示。
PrivateSubCommand1_Click()
IfText1.Text="ABC"Then
MsgBox("正确")
Else
MsgBox("错误")
EndIf
EndSub
二、简单应用题
1、在窗体Form1上已有两个文本框,一个命令按钮,命令按钮标题为“转换”。
要求在窗体上补充三个单选钮,名称分别为Opt1、Opt2、Opt3,标题分别为“大小写转换”、“全部大写”、“全部小写”。
要求补充完整代码窗口的代码后,在Text1中输入一段字符,选中“大小写转换”,单击转换按钮后,Text2中显示大小写相反的字符串;选中“全部大写”,单击转换按钮后,Text2中显示全部大写字符串,选中“全部小写”,单击转换按钮后,Text2中显示全部小写字符串。
界面如图。
PrivateSubCommand1_Click()
DimnAsInteger,kAsInteger,chAsString,aAsString
ch=""
IfOpt1.Value=TrueThen
n=Len(Text1)
Fork=1Ton
a=Mid$(Text1,k,1)
Ifa>="a"Anda<="z"Then
ch=ch+UCase(a)
ElseIfa>="A"Anda<="Z"Then
ch=ch+LCase(a)
Else
ch=ch+a
EndIf
Nextk
EndIf
IfOpt2.Value=TrueThench=UCase(Text1)
IfOpt3.Value=TrueThench=LCase(Text1)
Text2=ch
EndSub
2、编写程序,演示列表框控件的基本操作。
在窗体上建立两个列表框,两个命令按钮。
程序运行后,在第一个列表框中选择所需要的项目,单击“添加”按钮,把所选择的项目移到第二个列表框中。
如果单击“删除”按钮,则执行相反的操作。
程序运行时的窗体界面如图。
3、在窗体上建立一个命令按钮,标题为“输出最大值”。
要求产生30个0~100的随机整数,放入一个数组中,然后输出其中的最大值。
请把程序中有“?
”号的地方补充完整。
程序运行时的效果如图。
OptionBase1
PrivateSubCommand1_Click()
Dimarrn(30)AsInteger,maxAsInteger
Randomize
Fori=1To30
arrn(i)=Int(Rnd*101+0)
Nexti
max=arrn
(1)
Fori=2To30
IfmaxNexti
Printmax
EndSub
4、在Form1的窗体上有一个名称为Txt1的文本框和两个命令按钮,命令钮名称分别为Cmd1和Cmd2,标题分别为“显示A”和“显示B”。
要求程序运行后,如单击“显示A”命令按钮,则弹出对话框,输入要显示的个数,根据输入的数值在文本框中显示相应数量的字符串A;如单击“显示B”命令按钮,也弹出对话框,输入要显示的个数,根据输入的数值在文本框中显示相应数量的字符串B。
程序运行时的窗体界面如图所示。
PrivateSubCmd1_Click()
DimaAsInteger
a=InputBox("请输入显示个数")
Fori=1Toa
Text1.Text=Text1.Text&"A"
Nexti
EndSub
PrivateSubCmd2_Click()
DimbAsInteger
b=InputBox("请输入显示个数")
Forj=1Tob
Text1.Text=Text1.Text&"B"
Nextj
EndSub
5.在窗体上建立一个名称为Label1和Label2的2个标签,单击命令按钮command1,使Label1中的内容与Label2中的内容互换,按命令按钮Command2,结束程序。
PrivateSubCommand1_Click()
DimchAsString
ch=Label1.Caption:
Label1.Caption=Label2.Caption:
Label2.Caption=ch
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_Load()
Label1.Caption="你好":
Label2.Caption="Hello"
EndSub
6、在窗体Form1上有一个文本框,名称为Text1;请在窗体上画两个框架,名称分别为F1和F2,标题分别为“性别”和“身份”;在F1中画两个单选钮Op1和Op2,标题分别为“男”和“女”;在F2中画两个单选钮Op3和Op4,标题分别为“学生”和“教师”;再画一个命令按钮,名称为C1,标题为“确定”。
程序运行时的窗体界面如图所示。
请编写适当的事件过程,使得在运行时,在F1和F2中各选一个按钮,然后单击“确定”按钮,就可以照表中内容把结果显示在文本框中。
性别
身份
文本框中显示的内容
男
学生
我是男学生
男
教师
我是男教师
女
学生
我是女学生
女
教师
我是女教师
PrivateSubC1_Click()
Dimch1,ch2AsString
IfOp1.Value=TrueThen
ch1=Op1.Caption
Else
ch1=Op2.Caption
EndIf
IfOp3.Value=TrueThen
ch2=Op3.Caption
Else
ch2=Op4.Caption
EndIf
Text1.Text="我是"&ch1&ch2
EndSub
7、编写一个通用过程FindMax求数组的最大值。
在窗体上的4个文本框中各输入一个整数作为各数组元素的值,然后单击命令按纽,即可求出数组的最大值,并在