吉林农业大学也vb复习资料.docx
- 文档编号:5470070
- 上传时间:2022-12-16
- 格式:DOCX
- 页数:27
- 大小:24.08KB
吉林农业大学也vb复习资料.docx
《吉林农业大学也vb复习资料.docx》由会员分享,可在线阅读,更多相关《吉林农业大学也vb复习资料.docx(27页珍藏版)》请在冰豆网上搜索。
吉林农业大学也vb复习资料
1.使用多种循环结构实现求1到100之间所有自然数的平方和。
创建一个窗体,窗体上绘制两个标签,四个按钮,他们的属性如图所示
控件
属性
值
命令按钮
Name
cmdDoWhileLoop
Caption
DoWhileLoop
命令按钮
Name
cmdDoWhileLoop
Caption
DoWhileLoop
命令按钮
Name
cmdDoUntilLoop
Caption
DoUntilLoop
命令按钮
Name
CmdForNext
Caption
ForNext
标签
Name
Label1
标签
Name
Label2
程序如下:
PrivateSubcmdDoLoopWhile_Click()
DimiAsInteger
DimTotalAsLong
Do
Total=Total+i*i
i=i+1
LoopWhilei<=100
Label1.Caption=”Do…LoopWhile方法结果”
Label2.Caption=Format(Total)
Endsub
PrivateSubcmdDoLoopWhile_Click()
DimiAsInteger
DimTotalAsLong
DoUntili>100
Total=Total+i*i
i=i+1
Label1.Caption=”DoUntil…Loop方法结果:
”
Label2.Caption=Format(Total)
EndSub
PrivateSubcmdDoWhileLoop_Click()
DimiAsInteger
DimTotalAsLong
DoWhilei<=100
Total=Total+i*i
i=i+1
Loop
Label1.Caption=”Do…LoopWhile方法结果”
Label2.Caption=Format(Total)
Endsub
PrivateSubCmdForNext_Click()
DimiAsInteger
DimTotalAsLong
Fori=0To100
Total=Total+i*i
Nexti
Label1.Caption=“For…Next方法结果:
”
Label2.Caption=Format(Total)
EndSub
2.假设我国现有人口12亿,设我国人口的年增长率为1%,编写程序,计算多少年后我国人口为20亿
程序如下:
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。
编写程序代码如下
PrivateSubForm_Click()
DimxAsDouble
DimsumAsDoutle,itemAsDouble
DimnAsInteger
sum=1
item=1
n=1
x=1
Whileitem*x/n
Sum=sum+item
n=n+1
Wend
Printsum
EndSub
4打印九九表
PrivateSubFormClick()
Forml.FontSize=12
PrintTab(50);”九九乘法表”
Form1.FontSize=9
Fori=1To9
Forj=1Toi
s=i*j
PrintTab(j*12);i;”*”;j;”=”;s;””
Nextj
Next
End
5使用4、6、8这三个数字可以组成一个三位数,编写程序显示所有的三位数(可以重复使用数字),并统计生成三位数的个数
程序代码如下
PrivateSubForm_Click()
Sum=0
Fora=4To8Step2
Forb=4To8Step2
Forc=4To9Step2
x=a*100+b*10+c
Printx;
Sum=Sum+1
IfSumMod5=0Then
EndIf
Nextc
Nextb
Nexta
Ptrint”sum=”;Sum
EndSub
6编写程序,实验出口语句
程序如下
PrivateSubCommand1_Click()
DimxAsString
DimyAsstring
Do
x=InputBox(“请输入变量x的值,如果输入#代表停止输入!
”,”输入”)
Ifx=”#”Then
ExitDo
EndIf
y=y+x
Loop
MsgBox”y=”&y
EndSub
PrivateSubCommand2_Click()
Fori=1To3
x=InputBox(”请输入您的确认码:
”)
Ifx=1234Then
MsgBox”你的确认码正确!
”
ExitFor
EndIf
Next
Ifi=4Then
MsgBox“你的确认码不正确!
”
EndIf
EndSub
PrivateSubForm_Laod()
Form1.Command1.Caption=”测试ExitDo”
Form2.Command2.Caption=”测试ExitFor”
EndSub
选择
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
EndSub
程序运行后,单机命令按钮,一次在输入对话框中输入5、4、3、2、1、-1,的输出结果为
2阅读一下程序段
Fori=1To3
Forj=1Toi
Fork=jTo3
a=a+1
Nextk
Nextj
Nexti
执行上面的3重循环后,a的值为
3在窗体上画两个文体框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下时间过程
PrivateSubCommand1-Click()
x=0
DoWhilex<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=STR(N)
Text2.Text=Str(x)
EndSub
程序运行后,单击命令按钮,在两个文体框中显示的值分别为
4.1编写一个程序,已知一个长方体的长宽高为abc,求其表面积。
表面积的公式为:
S=(a*b+b*c+a*c)
创建一个窗体,在窗体上绘制两个标签,三个文本框,一个命令按钮,其中三个文本框的名称依次为text1text2text3。
所有文本框的text属性均设置为空。
而其他控件属性按照其默认设置来进行设定,需要特殊设定的设置在表4-1中。
控件
属性
值
标签
Name
Label1
Caption
在下面依次输入长方体的长宽高
标签
Name
Label2
Caption
空
命令按钮
Name
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)
Endsub
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
printtab(20);”x2=”;x2
endsub
4.3输入圆的半径,求圆的面积。
创建一个窗体,在窗体上创建一个文本框,两个标签,两个命令按钮,他们的属性设置如表4-2所示》
控件
属性
值
文本框
Name
Text1
Text
空
标签
Name
Label1
Caption
圆的半径
标签
Name
Label2
Caption
空
命令按钮
Name
Command2
Caption
结束程序
命令按钮
Name
Cmdcalcu
Caption
求圆的面积
程序的代码如下:
Privatesubcmdcalcu-click()
Constpi=3.1416
Dimrasdouble,aasdouble
r=text1.text
A=pi*r*r
Label2.caption=”经计算圆的面积为:
“&a
Endsub
Privatesubcommand2-click()
Endsub
‘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所示
控件
属性
值
标签
Name
Label1
Caption
已知鸡兔的总头数为16,总脚数为40
标签
Name
Label2
Caption
鸡
标签
Name
Label3
Caption
兔
标签
Name
Label4
Caption
空
Borderstyle
1
标签
Name
Label5
Caption
空
Borderstyle
1
程序代码部分如下:
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所示
控件
属性
值
标签
Name
Label1
Caption
年份
标签
Name
Label2
文本框
Name
Text1
Text
空
按钮
Name
Command1
Caption
判断
代码部分如下:
Privatesubcommand1-click()
Dimyasinteger
DimleapasBoolean
y=val(text1.text)
ifymod400=0or(ymod4=0andymod100<>0)then
leap=true
else
leap=false
endif
ifleapthen
label2.caption=”是闰年”
else
label2.caption=”不是闰年”
endif
endsub
privatesubtext1-change()
label2.caption=””
dimok
ifnotisnumeric(text1.text)then
ok=msgbox(”请输入数字!
!
”,vbcritical,”注意”)
text1.selstart=0
text1.sellength=len(text1.text)
endif
endsub
用户输入年份后,单机command1按钮产生click事件,在该事件中首先从文本框中获取用户输入年份,然后使用该年份与400,4,100做除法,如果该年份可以被400整除,或者能够被4整除并且不能被100整除,说明该年份是闰年,设定逻辑型变量leap为真;否则为假。
然后根据leap的值决定label2的caption属性值。
如果leap的值为真,caption属性为“是闰年“;否则caption属性为“不是闰年”。
该过程中的两次条件判断均使用if-then-else-endif结构。
4.8编写一段程序,用户输入一个年份,能够判断生肖(已知1972年为鼠年。
创建一个窗体,在窗体上绘制一个命令按钮,两个标签,它们的属性设置如表4-6所示。
控件
属性
值
命令按钮
Name
Cmdcalcu
Caption
统计&c
标签
Name
Label1
标签
Name
Label2
程序代码部分如下:
Privatesubcmdcalcu-click()
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
Endsub
用户点击“统计”按钮后引发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
else
printn
plu_n=plu_n+1
plu_s=plu_s+n
endif
nexti
print”共有”;neg_n;”个负数,它们的和为:
”;neg_s
print”共有”;plu_n;”个正数,它们的和为:
”;plu_s
endsub
程序运行后,显示一个输入对话框,在对话框中输入一个数,接着再显示一个对话框,再输入下一个数……直到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
Endsub
2)在窗体上建立一个文本框,将其name属性设置为sore………
Subscorelostfocus()
X=val(score.text)
Ifx<0orx>100then
Beep
Score.text=””
Score.setfocus
Print”请重新输入”
Else
Total=x
Endif
Endsub
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
Imgtra3.Visbile=True
EndIf
EndSub
PrivateSubBtntra2-Click()
UnloadMe
Endsub
5)单选框和复选框的综合应用举例….……
OptionExplicit
PrivateSubcheck2-Click()
Text1.FontItalic=Nottext1.FontItalic
Endsub
PrivateSubcheck1-Click()
Text1.Fontunderline=NotText1.FontUnderline
Endsub
PrivateSuboption1-Click()
Text1.FonttName=”黑体”
Endsub
PrivateSuboption2-Click()
Text1.FontName=”宋体”
Endsub
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”
Endsub
PrivatesubList1DblClick()
List2.AddItemList1.Text
List1.RemoveItemList1.ListIndex
EndSub
PrivatesubList2DblClick()
List1.AddItemList2.Text
List2.RemoveItemList2.ListIndex
EndSub
7)用计时器实现字体的放大
PrivatesubFormLoad()
Lable1.FontName=”宋体”
Lable1.Caption=””
Lable1.Width=Width
Label11.Height=Height
Timer1.Interval=1000
EndSub
PrivateSubTimer1-Timer()
IfLabel1.FontSize<100Then
Label1.FontSize=Label1.FontSize*1.2
Else
Label1.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 吉林 农业大学 vb 复习资料
![提示](https://static.bdocx.com/images/bang_tan.gif)