考试必备之vb实例编程代码Word文档下载推荐.docx
《考试必备之vb实例编程代码Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《考试必备之vb实例编程代码Word文档下载推荐.docx（80页珍藏版）》请在冰点文库上搜索。
本题窗体的Caption属性需要修改
第三题
新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。
PrivateSubCommand1_Click（）
"
PrivateSubCommand2_Click（）
PrivateSubText1_Change（）
Text2.Text=Text1.Text
Text3.Text=Text1.Text
文本框font属性修改时可以考虑修改字号、加粗etc，尽量强化视觉效果的差异
第四题
设计一个窗体，如上图所示。
当单击某个命令按钮时，对文本框中的文字完成相应的设置。
其中，每单击一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小5磅，“粗体”按钮将使文本框中的文字加粗，“斜体”按钮将使文本框中的文字倾斜，“下划线”按钮将使文本框中的文字加下划线，“删除线”按钮将使文本框中的文字加删除线。
Text1.FontSize=Text1.FontSize+5
Text1.FontSize=Text1.FontSize-5
PrivateSubCommand3_Click（）
Text1.FontBold=NotText1.FontBold
PrivateSubCommand4_Click（）
Text1.FontItalic=NotText1.FontItalic
PrivateSubCommand5_Click（）
Text1.FontUnderline=NotText1.FontUnderline
PrivateSubCommand6_Click（）
Text1.FontStrikethru=NotText1.FontStrikethru
第五题
设计一个窗体，如下图所示。
程序中将π定义成符号常量（用Const）,运行时，输入底面半径r和圆柱高h，然后单击“计算”命令按钮，在相应文本框中显示计算结果。
运算结果为只读。
Constpi=3.1415926
Dimr!
h!
h=Text1.Text
r=Text2.Text
Text3.Text=pi*r*r
Text4.Text=2*pi*r
Text5.Text=pi*r*r*h
左侧两个文本框从上到下分别是text1、text2；
右侧三个文本框从上到下分别是text3、text4、text5；
注意窗体、按钮、标签等控件的Caption属性的设置；
椭圆和线条用Shape控件和Line控件实现；
画图时可以考虑借助窗体表面点阵；
文本框text属性建议留空；
文本框“只读”设置对应Locked属性，改为True；
第六题
设计界面如上图所示。
单击“出题”按钮，产生任意两个【1，100】之间的随机整数于Text1、Text2中，单击“计算”按钮，求两个数的和。
Dima,b
Randomize
a=Fix（1+100*Rnd（））
b=Fix（1+100*Rnd（））
Text1.Text=a
Text2.Text=b
Text3.Text=a+b
text3的locked属性置为true，以此设置只读；
文本框text属性建议留空
记得使用Randomize语句进行随机数生成的初始化操作；
熟练掌握指定范围内随机整数的生成方法，算是个笔试的热门考点；
注意Caption的设置，对此后续题目将不再赘述；
第七题
设计一个数字钟表程序，界面如图所示。
运行时单击窗体，显示当前的年月日星期及时间。
PrivateSubForm_Click（）
Label2.Caption=Year（Date）
Label4.Caption=Month（Date）
Label6.Caption=Day（Date）
Label9.Caption=Weekday（Date）
Label11.Caption=Time
标签文字竖排的方法：
输入汉字，缩减标签的宽度到只够显示一个汉字；
所有标签建议放大字号，并设置“Alignment”属性为“3-Center”；
标签控件出现边框的方法：
设置“BorderStyle”属性为“1-FixSingle”；
date函数和time函数后的括弧可以要，但换行后会被计算机自行省略；
第八题
设计一个数学函数程序，界面如图所示。
程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。
文本框始终处于选中状态。
Dimx
Label2.Caption="
Abs函数的计算结果"
Label3.Caption=Abs（x）
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len（Text1.Text）
Sqr函数的计算结果"
Label3.Caption=Sqr（x）
Fix函数的计算结果"
Label3.Caption=Fix（x）
Int函数的计算结果"
Label3.Caption=Int（x）
Sgn函数的计算结果"
Label3.Caption=Sgn（x）
PrivateSubText1_LostFocus（）
x=Text1.Text
IfNotIsNumeric（x）Then
EndIf
用于显示结果的标签需修改BorderStyle属性；
此外建议修改Alignment属性调节对齐方式；
“Text1_LostFocus”事件中的代码是典型的限定数值型输入的语句，建议记忆；
所有限定数值型数据的输入均可用此法处理；
if语句部分如果觉得接受起来困难的话可以考虑略去；
命令按钮Click事件中的后三行代码，是选择文本框中全部内容的定式句法，建议记忆
第九题
请按图设一个大小能自动调整以适应其显示图片的尺寸的图片框（Picture1）以及“显示”和“清空”两个按钮（Command1、Command2）。
运行时，单击“显示”，在图片框中显示自选图片；
单击“清空”则清空图片框。
Picture1.Picture=LoadPicture（App.Path&
"
\aaa.jpg"
）
Picture1.Picture=LoadPicture（"
图片框“Autosize”属性需要设置为True；
双引号内的\aaa.jpg根据实际所加图片名称自行调整；
这是调用图片的基本结构；
第十题
设计一个窗体Forml，界面如上图所示。
编写适当的事件过程，程序运行后在第一个文本框中输入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。
Dimx!
Text2.Text=x^2*pi
上面这句也可以这么写：
text2.text=x*x*pi
Text3.Text=x*2*pi
第十一题
设计一个计算购书价钱的程序，界面如下图所示。
为了提高运行速度，设置Tab键序，使得输入完单价后，焦点定位到输入数量文本框中。
单击“计算总价”或用访问键，算出总价。
总价文本框要求为只读属性。
完成相应功能。
x=Val（x）
y=Text2.Text
y=Fix（Val（y））
Text3.Text=x*y
PrivateSubText1_keyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
SendKeys"
{tab}"
本题的难点在于部分不常见的方法调用及属性设置；
设置访问键的方法：
修改按键的Caption属性，在需要设置成访问键的字母前加&
；
例如题目所示的退出按钮，Caption需修改为退出（&
X）;
Tab键序调节方法是修改对应控件的“Tab”属性；
就本题而言，只需确保用于输入数量的Text2对应“Tab”属性比输入单价的Text1的“Tab”属性大1；
显示总价的Text3需要修改“Locked”属性；
第十二题
设计一工程，界面如上图所示。
程序运行，单击“计算”，求出对应角度的三角函数的绝对值于文本框Text2中，同时要求选中文本框Text1内容，以便继续输入。
Constpi=3.1415926
y!
n%
n=15
y=x*（2*pi）/360
Text2.Text=Text2.Text&
Format（x,"
@@@"
）&
Space（n）&
Format（Sin（y）,"
0.000"
Format（Cos（y）,"
vbCrLf
追加垂直滚动条的方法是，修改文本框的Multiline属性为true，修改文本框的ScroolBar属性为2-Vertical
可根据需要自行调整n值和相关标签的间距，使得结果视觉效果尽量接近样例图；
第十三题
设计一工程，在文本框中输入一整数，单击“判断”按钮，判断能否同时被3、5、7整除，若能用MsgBox函数显示“能同时被3、5、7整除”，否则显示“不能整除”。
x=Fix（Val（x））
IfxMod3=0AndxMod5=0AndxMod7=0Then
MsgBox（"
能同时被3、5、7整除"
Else
不能整除"
第十四题
输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：
90~100优秀；
80~89良好；
70~79中等；
60~69及格；
0~59不及格。
z="
SelectCasey
Case0To59
不及格"
Case60To69
及格"
Case70To79
中等"
Case80To89
良好"
Case90To100
优秀"
EndSelect
Picture1.Print"
学号：
&
x
分数：
y&
z
第十五题
用块结构条件语句实现。
InputBox函数输入三个数，找出并在窗体中输出三个数中的最大数及最小数。
z!
x=InputBox（"
请输入第一个数"
y=InputBox（"
请输入第二个数"
z=InputBox（"
请输入第三个数"
Ifx>
=yAndy>
=zThen
Print"
最大数为"
最小数为"
ElseIfx>
=zAndz>
=yThen
y
ElseIfy>
=xAndx>
=xThen
ElseIfz>
由于题目明确要求使用块结构条件语句，所以不建议使用排序等其他方法；
第十六题
设计一个程序，用户界面如下图所示。
程序运行后，单击Command1按钮，求出最大、最小数。
Dima!
b!
c!
max!
min!
a=Text1.Text
b=Text2.Text
c=Text3.Text
max=a
min=a
Ifb>
maxThen
max=b
Ifb<
minThen
min=b
Ifc>
max=c
Ifc<
min=c
Text4.Text=max
Text5.Text=min
仅取最大值、最小值，可用这一结构实现；
第十七题
利用输入框输入三个数，单击窗体后进行降序排序并求出其中最大值、最小值，结果打印输入在窗体上。
运行结果如图所示。
Cls'
用于清除之前窗体上显示的内容；
a=InputBox（"
b=InputBox（"
c=InputBox（"
Print"
输入的数据为：
Printa,b,c
Print'
用于空出一行达成样例图的格式效果；
降序排序后：
Printmax,a+b+c-max-min,min
其中最大值为：
max
其中最小值为：
min
第十八题
界面如上图（右侧），用SelectCase语句实现。
文本框输入任意一个整数x，根据其除以3的余数判断并输出结果。
如果余数为0，则消息框输出str（x）&
“整除3”
如果余数为1，则消息框输出str（x）&
“除以3余1”
“除以3余2”
Dimx%,y%
y=xMod3
Case0
MsgBox（Str（x）&
整除于3"
Case1
除以3余1"
Case2
除以3余2"
第十九题
界面如下图所示。
编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，若能组成三角形在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。
L!
s!
L=（a+b+c）/2
Ifa<
LAndb<
LAndc<
LThen
s=Sqr（L*（L-a）*（L-b）*（L-c））
Text4.Text=Format（s,"
.00"
）'
借助format函数控制小数位数；
Text4.Text="
FALSE"
第二十题推荐
设计程序，输出100-200之间不能被7整除的数
Fori=100To200Step1
IfNot（iMod7=0）Then
List1.AddItemi
Nexti
文本框版本
Text1.Text=Text1.Text&
Str（i）&
注意文本框text属性留空；
第二十一题
设计如图所示界面，单击两个命令按
升级会员 