吉林农业大学也vb复习资料文档格式.docx
《吉林农业大学也vb复习资料文档格式.docx》由会员分享，可在线阅读，更多相关《吉林农业大学也vb复习资料文档格式.docx（27页珍藏版）》请在冰点文库上搜索。
PrivateSubForm_Click（）
DimtotalAsSingle
DimnAsInteger
n=0
total=1200000000
Whiletotal<
2000000000
total=total+total*0.01
n=n+1
Wend
Print“经过”：
n：
“年”
EndSub
3编写程序，求解数列的和
已知数列如下：
e的x次方=1+x+x平方/2！
+x立方/3+…
针对x=1，求e的近似值，并要求误差小于0.001。
编写程序代码如下
DimxAsDouble
DimsumAsDoutle,itemAsDouble
DimnAsInteger
sum=1
item=1
n=1
x=1
Whileitem*x/n
Sum=sum+item
Printsum
4打印九九表
PrivateSubFormClick（）
Forml.FontSize=12
PrintTab（50）;
”九九乘法表”
Print
Form1.FontSize=9
Fori=1To9
Forj=1Toi
s=i*j
PrintTab（j*12）；
i;
”*”;
j;
”=”;
s;
””
Nextj
Print
Next
End
5使用4、6、8这三个数字可以组成一个三位数，编写程序显示所有的三位数（可以重复使用数字），并统计生成三位数的个数
程序代码如下
Sum=0
Fora=4To8Step2
Forb=4To8Step2
Forc=4To9Step2
x=a*100+b*10+c
Printx;
Sum=Sum+1
IfSumMod5=0Then
Print
EndIf
Nextc
Nextb
Nexta
Ptrint”sum=”;
Sum
6编写程序，实验出口语句
程序如下
PrivateSubCommand1_Click（）
DimxAsString
DimyAsstring
Do
x=InputBox（“请输入变量x的值，如果输入#代表停止输入！
”,”输入”）
Ifx=”#”Then
ExitDo
y=y+x
Loop
MsgBox”y=”&
y
PrivateSubCommand2_Click（）
Fori=1To3
x=InputBox（”请输入您的确认码:
”）
Ifx=1234Then
MsgBox”你的确认码正确!
ExitFor
Ifi=4Then
MsgBox“你的确认码不正确!
PrivateSubForm_Laod（）
Form1.Command1.Caption=”测试ExitDo”
Form2.Command2.Caption=”测试ExitFor”
选择
1在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=0
DoUntilx=-1
a=InputBox（“请输入a的值”）
a=Val（A）
b=InputBox（“请输入b的值”）
b=Val（B）
x=InputBox（“请输入x的值”）
x=Val（x）
A=a+b+x
Loop
Printa
程序运行后，单机命令按钮，一次在输入对话框中输入5、4、3、2、1、-1，的输出结果为
2阅读一下程序段
Fori=1To3
Forj=1Toi
Fork=jTo3
a=a+1
Nextk
Nexti
执行上面的3重循环后，a的值为
3在窗体上画两个文体框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1）,然后编写如下时间过程
PrivateSubCommand1-Click（）
x=0
DoWhilex<
50
x=（x+2）*（x+3）
Text1.Text=STR（N）
Text2.Text=Str（x）
程序运行后，单击命令按钮，在两个文体框中显示的值分别为
4.1编写一个程序，已知一个长方体的长宽高为abc，求其表面积。
表面积的公式为：
S=（a*b+b*c+a*c）
创建一个窗体，在窗体上绘制两个标签，三个文本框，一个命令按钮，其中三个文本框的名称依次为text1text2text3。
所有文本框的text属性均设置为空。
而其他控件属性按照其默认设置来进行设定，需要特殊设定的设置在表4-1中。
在下面依次输入长方体的长宽高
空
Command1
caption
计算长方体表面积
程序代码部分如下：
`用户输入长方体的长宽高，计算表面积
Privatesubcommand1-click（）
`定义计算过程中使用的变量
`abc分别代表长宽高
Dimaasdouble,basdouble,casdouble
`s为长方体表面积
Dimsasdouble
`从文本框中获得
a=val（text1.text）
b=val（text2.text）
c=val（text3.text）
s=2*（a*b+b*c+c*a）
`进行计算
`将结果通过label2的caption属性显示
Label2.caption=”该立方体的表面积为：
”+CStr（s）
4.2编写一个程序实现解方程，如图4-2所示
Privartesubcommand1-click（）
`计算a*x^2+b*x+c=0的两个根
Dimaasinteger,basinteger,casinteger
Dimxlassingle,x2assingle,dassingle
Form1.cls
a=csng（text1.text）
b=csng（text2.text）
c=csng（text3.text）
`计算△
d=sqr（abs（b*b-4*a*c））
x1=（-b+d）/（2*a）
x2=（-b-d）/（2*a）
printtab（20）;
”x1=”;
x1
”x2=”;
x2
endsub
4.3输入圆的半径，求圆的面积。
创建一个窗体，在窗体上创建一个文本框，两个标签，两个命令按钮，他们的属性设置如表4-2所示》
文本框
Name
Text1
Text
Label1
Caption
圆的半径
Label2
Command2
结束程序
Cmdcalcu
求圆的面积
程序的代码如下：
Privatesubcmdcalcu-click（）
Constpi=3.1416
Dimrasdouble,aasdouble
r=text1.text
A=pi*r*r
Label2.caption=”经计算圆的面积为：
“&
a
Privatesubcommand2-click（）
‘4.4使用程序解决鸡兔同笼问题，鸡兔同笼，已知鸡兔的总头数为h,总脚数为f，求鸡兔各有多少，要解此题可以列出数学方程：
（其中鸡为x只，兔为y只）
｛x+y=h
2x+4y=f
解方程后得到如下式子：
x=（4h-f）/2
y=（f-2h）/2
假设h=16,f=40则程序编制如下：
创建一个窗体，窗体上绘制五个标签，它们的属性设置如表4-3所示
已知鸡兔的总头数为16，总脚数为40
鸡
Label3
兔
Label4
Borderstyle
1
Label5
Borderstyle
Privatesubform-load（）
Dimhasinteger,fasinteger,yasinteger,xasinteger
h=16
f=40
x=（4*h-f）/2
y=（f-2*h）/2
label4.caption=x
label5.caption=y
endsub
4.7编写一个程序，由用户输入年份，点击按钮后，显示该年份是否是闰年。
如图4-6所示。
建立一个窗体，在此窗体上绘制两个标签，一个文本框一个命令按钮。
它们的属性设置如表4-5所示
年份
Text1
Text
按钮
判断
代码部分如下：
Dimyasinteger
DimleapasBoolean
y=val（text1.text）
ifymod400=0or（ymod4=0andymod100<
>
0）then
leap=true
else
leap=false
endif
ifleapthen
label2.caption=”是闰年”
label2.caption=”不是闰年”
endif
privatesubtext1-change（）
label2.caption=””
dimok
ifnotisnumeric（text1.text）then
ok=msgbox（”请输入数字!
!
”,vbcritical,”注意”）
text1.selstart=0
text1.sellength=len（text1.text）
用户输入年份后，单机command1按钮产生click事件，在该事件中首先从文本框中获取用户输入年份，然后使用该年份与400,4,100做除法，如果该年份可以被400整除，或者能够被4整除并且不能被100整除，说明该年份是闰年，设定逻辑型变量leap为真；
否则为假。
然后根据leap的值决定label2的caption属性值。
如果leap的值为真，caption属性为“是闰年“；
否则caption属性为“不是闰年”。
该过程中的两次条件判断均使用if-then-else-endif结构。
4.8编写一段程序，用户输入一个年份，能够判断生肖（已知1972年为鼠年。
创建一个窗体，在窗体上绘制一个命令按钮，两个标签，它们的属性设置如表4-6所示。
统计&
c
Dimyearasinteger
Dimnameasinteger
Year=inputbox（“请输入一个年份：
Label1.caption=str（year）+”年的生肖为：
Year=year-1972
Ifyear>
=0then
Name=yearmod12
Else
Year=abs（year）
Name+12-（yearmod12）
Endif
Selectcasename
Case0
Label2.caption=”鼠”
Case1
Label2.caption=”牛”
Case2
Label2.caption=”虎”
Case3
Label2.caption=”兔”
Case4
Label2.caption=”龙”
Case5
Label2.caption=”蛇”
Case6
Label2.caption=”马”
Case7
Label2.caption=”羊”
Case8
Label2.caption=”猴”
Case9
Label2.caption=”鸡”
Case10
Label2.caption=”狗”
Case11
Label2.caption=”猪”
Endselect
用户点击“统计”按钮后引发click时间，弹出一个输入对话框，在对话框中输入年份后，首先将该年份减去1972，然后把差值除12取余数，利用selectcase结构根据该余数生成对应的生肖。
4.10用户连续输入十个整数，程序分别计算出其中正数的个数以及总和，和其中负数的个数以及总和。
程序代码如下：
Privatesubform——click（）
Dimnasinteger
Neg_n=0
Neg_s=0
Plu_n=0
Plu-s=0
Fori=1to10
n=inputbox（“请输入数据：
“，”“输入”）
ifn<
0then
printn
neg_n=neg_n+1
neg_s=neg_s+n
plu_n=plu_n+1
plu_s=plu_s+n
nexti
print
print”共有”;
neg_n;
”个负数，它们的和为:
”;
neg_s
plu_n;
”个正数，它们的和为:
plu_s
程序运行后，显示一个输入对话框，在对话框中输入一个数，接着再显示一个对话框，再输入下一个数……直到10个数输入完为止。
每输入完一个数程序会将它显示在窗体上，当输入完10个数之后，分别显示正数的个数和正数之和及负数之和。
1）在窗体Form1上建立两个文本框分别是Text1Text2……..
Privatesubformload（）
Text1.text=””
Text2.text=””
Text1.Fontname=“宋体”
Text2.Fontname=”宋体”
Text1.FontSize=14
Text2.FontSize=14
Text1.Backcolor=vbBlack
Text1.Backcolor=vbWhite
Text2.backcolor=vbRed
Form1.show
Text1.setfocus
2）在窗体上建立一个文本框，将其name属性设置为sore………
Subscorelostfocus（）
X=val（score.text）
Ifx<
0orx>
100then
Beep
Score.text=””
Score.setfocus
Print”请重新输入”
Total=x
3）创建一个窗体在窗体上绘制两个按钮……….
PrivatesubFormclick（）
Cmdtop1.caption=”示例1”
Cmdtop1.Fontname=”黑体”
Cmdtop1.FondSize=”20”
Cmdtop1.FontBold=True
Cmdtop1.FontItalic=True
Cmdtop2.caption=”示例2”
Cmdtop2,Fondname=”宋体”
Cmdtop2.FondSize=”22”
Cmdtop2.FontBold=True
Cmdtop2.FontItalic=False
Cmdtop1.Enabled=False
Cmdtop2.Enabled=True
4）编写程序模拟交通信号灯………
PrivatesubBtntral-lick（）
IfImgtral.Visible=TrueThen
Imgtral.Visible=False
Imgtra2.Visible=True
ElseIfImgtra2.Visbile=TrueThen
Imgtra2.Visbile=False
Imgtra3.Visbile=True
ElseImgtra3.Visbile=False
EndIf
PrivateSubBtntra2-Click（）
UnloadMe
5）单选框和复选框的综合应用举例….……
OptionExplicit
PrivateSubcheck2-Click（）
Text1.FontItalic=Nottext1.FontItalic
PrivateSubcheck1-Click（）
Text1.Fontunderline=NotText1.FontUnderline
PrivateSuboption1-Click（）
Text1.FonttName=”黑体”
PrivateSuboption2-Click（）
Text1.FontName=”宋体”
6）交换两个表格中的项目………
PrivatesubFormLoad（）
List1.FontSize=14
List2.FontSize=14
List1.AddItem”IMB”
List1.AddItem”Compaq”
List1.AddItem”HP”
List1.AddItem”FUH”
List1.AddItem”Digiul”
List1.AddItem”长城”
List1.AddItem”联想”
List1.AddItem”Cmon”
List1.AddItem”四通”
List1.AddItem”Ac”
List1.AddItem”Nec”
PrivatesubList1DblClick（）
List2.AddItemList1.Text
List1.RemoveItemList1.ListIndex
PrivatesubList2DblClick（）
List1.AddItemList2.Text
List2.RemoveItemList2.ListIndex
7）用计时器实现字体的放大
Lable1.FontName=”宋体”
Lable1.Caption=””
Lable1.Width=Width
Label11.Height=Height
Timer1.Interval=1000
PrivateSubTimer1-Timer（）
IfLabel1.FontSize<
100Then
Label1.FontSize=Label1.FontSize*1.2
Label1.
升级会员 