《计算机基础实验VB》期末考试Word文件下载.docx
《《计算机基础实验VB》期末考试Word文件下载.docx》由会员分享，可在线阅读，更多相关《《计算机基础实验VB》期末考试Word文件下载.docx（27页珍藏版）》请在冰豆网上搜索。
DimxAsSingle
a=Text1.Text
b=Text2.Text
x=（-b）/a
Text3.Text=x
PrivateSubCommand2_Click（）
"
Text2.Text="
Text3.Text="
3、信息框设计
设计如下对话框，选择“是”则操作正确，选择“否”则提示重新操作。
DimintTmpAsInteger
intTmp=MsgBox（"
此项操作正确吗？
vbYesNo+vbQuestion,"
提示"
）
IfintTmp=vbYesThen
MsgBox"
操作正确!
vbOKOnly+vbInformation,"
恭喜"
Else
重新操作!
vbOKOnly+vbCritical,"
不好意思哦"
EndIf
4、设计窗体及控件如图所示，在文本框中输入内容，然后单击命令按钮，在文本框中输入的内容同时显示在标签和命令按钮上。
Command1.Caption=Text1.Text
5、设计一个收款计算程序如图所示，用户输入商品的“单价”，“数量”和“折扣”后，单击“计算”按钮将显示“应付款”，单击“清除”按钮清除文本框中所有数据。
DimaAsSingle,bAsSingle,cAsSingle,dAsSingle
a=Val（Text1.Text）
b=Val（Text2.Text）
c=Val（Text3.Text）
d=a*b*c
Text4.Text=Str（d）
Text4.Text="
6、理解大小写转换函数。
在文本框中输入英文字母，按“转大写”按钮，文本变为大写，按“转小写”按钮，文本变为小写。
单击“退出”按钮，程序结束。
Text1.Text=UCase（Text1.Text）
Text1.Text=LCase（Text1.Text）
PrivateSubCommand3_Click（）
End
7、在窗体上输出100——200之间（包括100和200）不能被3整除的奇数及这些数的和。
Fori=100To200
IfiMod3<
>
0AndiMod2<
0Then
Printi;
s=s+i
n=n+1
IfnMod5=0ThenPrint
EndIf
Next
Print
Prints
8、设S=1*2*3*…*n，求S不大于400000时最大的n。
s=1
i=0
Whiles<
=400000Ands*（i+1）<
=400000
i=i+1
s=s*i
Wend
Printi
9、建立两个窗体，名称分别为Form1和Form2，其中Form2是启动窗体，其标题为“启动窗体”，在Form2上画一个命令按钮，名称为Command1，标题为“结束”。
请编写适当的事件过程以满足一下要求：
1）单击Form2窗体，则显示Form1窗体；
2）单击Form1窗体，则Form1窗体消失；
3）单击“结束”按钮则结束程序运行。
注意：
要求程序中不能使用变量，每个事件过程中只能写一条语句。
PrivateSubForm_Click（）
Form1.Hide
10、打印九九乘法表。
Show
FontSize=15
PrintTab（24）;
"
九九乘法表"
FontSize=10
Fork=0To9
Nextk
Forj=1To9
Fork=1Toj
PrintTab（k*9）;
Val（k）&
×
&
Val（j）&
="
j*k;
Nextj
中（11--20）
11、如图所示的窗体中建立两组单选钮，根据选择的字体和字号来改变输入内容的格式
IfOption1.Value=TrueThenText1.FontName="
宋体"
IfOption2.Value=TrueThenText1.FontName="
黑体"
IfOption3.Value=TrueThenText1.FontSize="
8"
IfOption4.Value=TrueThenText1.FontSize="
12"
12、建立列表框，在列表框中有8个学生的姓名，当选定某个学生的姓名后，单击“显示学生籍贯“按钮，在文本框上显示该学生的籍贯，如图所示，如果用户双击学生姓名，也能在文本框中显示学生籍贯信息。
IfList1.Text="
张三"
ThenText1="
湖南省"
李四"
湖北省"
王春华"
山东省"
关红梅"
江西省"
华成"
江苏省"
范杰"
山西省"
樊平"
陕西省"
陈蓉"
海南省"
List1.AddItem"
PrivateSubList1_DblClick（）
Command1.Value=True
13、编一帐号和密码输入的检验程序。
对输入的帐号和密码规定如下：
（1）帐号为不超过6位数字，密码为4位字符，在本题中，密码假定为“Pass”。
（2）密码输入时在屏幕上不显示输入的字符，而以“*”代替。
（3）当输入不正确，如帐号为非数字字符或密码不正确时，显示有关信息。
PrivateSubcmdclear_Click（）
txtno.Text="
txtpas.Text="
PrivateSubcmdok_Click（）
DimiAsInteger
Iftxtpas.Text="
pass"
Then
MsgBox"
输入正确"
Else
i=MsgBox（"
密码错误"
5+vbCritical,"
输入密码"
Ifi<
4Then
txtpas.SetFocus
PrivateSubtxtno_LostFocus（）
IfNotIsNumeric（txtno）Then
账号有非数字字符"
vbExclamation,"
输入账号"
txtno.SetFocus
14、调色板
设计一个如下的调色板程序，根据滑块的变化来更改色块的颜色
PrivateSubHScroll1_Change（）
Text1.BackColor=RGB（HScroll1.Value,HScroll2.Value,HScroll3.Value）
PrivateSubHScroll2_Change（）
PrivateSubHScroll3_Change（）
15、平均成绩计算
输入N个学生的成绩，求其平均分并找出低于平均成绩学生的学号、成绩。
Dimnum（）AsString,score（）AsSingle
DimaverAsSingle,sumAsSingle
DimnAsInteger
DimnxAsString,sx,n1AsString
PrivateSubcmdexit_Click（）
PrivateSubcmdin_Click（）
n1=InputBox（"
请输入学生人数"
"
数据输入框"
n=Val（n1）
ReDimnum（n）,score（n）
Fori=1Ton
nx="
请输入第"
+Str（i）+"
个学生的学号"
sx="
个学生的成绩"
num（i）=InputBox（nx,"
score（i）=Val（InputBox（sx,"
））
Nexti
cmdout.Enabled=True
PrivateSubcmdout_Click（）
sum=sum+score（i）
aver=sum/n
PrintTab（60）;
平均成绩：
;
aver
低于平均成绩的学生的学号与成绩"
学号"
成绩"
Ifscore（i）<
averThenPrintTab（60）;
num（i）,score（i）
16、求三角形面积
给出a，b，c的值，单击“确定”按钮，判断能否构成三角形的三边，如能构成三角形则计算出三角形的面积。
三角形的面积公式s=
其中P=（a+b+c）/2
PrivateSubbutton1_Click（）
Dima,b,cAsSingle
If（a+b）>
cAnd（b+c）>
cAnd（c+a）>
bThen
t=（a+b+c）/2
s=Math.Sqr（t*（t-a）*（t-b）*（t-c））
Text4.Text=Str（s）
Text4.Text=MsgBox（"
不能构成三角形"
17、设计一个简单的四则运算器。
IfOption1.Value=TrueThen
Label1.Caption=Option1.Caption
Text3=Val（Text1）+Val（Text2）
IfOption2.Value=TrueThen
Label1.Caption=Option2.Caption
Text3=Val（Text1）-Val（Text2）
IfOption3.Value=TrueThen
Label1.Caption=Option3.Caption
Text3=Val（Text1）*Val（Text2）
IfOption4.Value=TrueThen
Label1.Caption=Option4.Caption
Text3=Val（Text1）/Val（Text2）
18、电子钟设计
设计一个电子钟来显示系统当前时间，根据选择可出现不同的时间格式。
如下图所示
PrivateSubCmdOne_Click（）
Ifcmdone.Caption="
改为12小时"
Txt_time.Text=TimeValue（Txt_time）
Timer1.Enabled=False
Timer2.Enabled=True
cmdone.Caption="
改为24小时"
Timer1.Enabled=True
Timer2.Enabled=False
PrivateSubTimer1_Timer（）
Txt_time.Text=Format（Time,"
h:
m:
sAM/PM"
PrivateSubTimer2_Timer（）
Txt_time.Text=Time
19、在窗体上有一个图片框，三个单选按钮，一个命令按钮。
程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在图片框中显示“选择了正方形”、“选择了椭圆形”或“选择了圆形”。
如图所示。
Fori=0To2
IfOption1（i）=TrueThen
p1.Print"
选择了"
Option1（i）.Caption
20、输出所有的水仙花数。
所谓水仙花数，是指一个三位数其各位数字立方和等于该数字本身。
例如，153是水仙花数，因为：
153=1^3+5^3+3^3
DimxAsInteger,yAsInteger,zAsInteger
Forx=1To9
Fory=0To9
Forz=oTo9
a=x*100+y*10+z
b=x^3+y^3+z^3
Ifa=bThenPrinta
Nextz
Nexty
Nextx
lblmsg.Visible=False'
隐藏标签控件使之不影响运行结果的显示
难（21--30）
21、文章整理
规范整理英语文章，即对输入的任意大小写文章进行整理，所有句子开头都应为大写字母，其他都是小写字母。
（句子以问号、句号、感叹号作为结束符）。
PrivateSubcommand2_Click（）
txtinput.Text="
txtarrange.Text="
PrivateSubcommand3_Click（）
Dimt0AsString,t1AsString
txtarrange="
n=1
t0="
."
'
使文本框中的第1个字母能被整理成为大写字母
t1=Mid（txtinput,n,1）
DoWhilen<
=Len（txtinput）
t1=LCase（t1）
Ift0="
Ort0="
?
!
Thent1=UCase（t1）
txtarrange=txtarrange+t1
t0=t1
Loop
22、输入一串字符，统计各字母出现的次数，大小写字母不区分，效果如图所示。
DimsAsString
Dima（1To26）AsInteger
s=Trim（Text1）
n=Len（s）
m=Asc（UCase（Mid（s,i,1）））
Ifm>
=65Andm<
=92Then
a（m-64）=a（m-64）+1
Fori=1To26
Text2=Text2&
Chr（i+64）&
a（i）&
23、将一个包含10位同学成绩的数组按分数从大到小排序，然后显示排序结果。
1、PrivateSubPicture1_Click（）
Dimstu_no（10）AsInteger
Dimstu_score（10）AsInteger
Randomize
Picture1.Print"
学号成绩"
Picture2.Print"
Fori=1To10
stu_no（i）=i
stu_score（i）=Int（Rnd*（100-30+1）+30）
Picture1.Printstu_no（i）;
stu_score（i）
Forj=1To10-i
Ifstu_score（j）<
stu_score（j+1）Then
t1=stu_score（j）
stu_score（j）=stu_score（j+1）
stu_score（j+1）=t1
t2=stu_no（j）
stu_no（j）=stu_no（j+1）
stu_no（j+1）=t2
Picture2.Printstu_no（i）;
2、PrivateSubForm_Load（）
Dima（1To10）AsInteger
a（i）=InputBox（"
i&
个同学的成绩"
Printa（i）
Fori=1To9
Ifa（j）<
a（j+1）Then
t=a（j）
a（j）=a（j+1）
a（j+1）=t
Nextj,i
24、“完备数”是指一个数恰好等于它的因子之和，如6的因子为1、2、3，因而6就是完备数，编制程序，找出1-10000之间的全部“完备数”。
1、PrivateSubCommand1_Click（）
DimPerfectAsSt
升级会员 