vb程序设计教程实验指导与习题解答上机答案Word文档格式.docx
- 文档编号:21168208
- 上传时间:2023-01-28
- 格式:DOCX
- 页数:21
- 大小:188.70KB
vb程序设计教程实验指导与习题解答上机答案Word文档格式.docx
《vb程序设计教程实验指导与习题解答上机答案Word文档格式.docx》由会员分享,可在线阅读,更多相关《vb程序设计教程实验指导与习题解答上机答案Word文档格式.docx(21页珍藏版)》请在冰豆网上搜索。
单击退出之后的窗口:
自测题5
Text1.Text="
"
Text2.Text="
Text3.Text=Val(Text1.Text)+Val(Text2.Text)
单击运算之后窗口:
自测练习1
Dima$
a=Text1.Text
Label1.Caption=Left(a,2)
Label2.Caption=Right(a,2)
Text1.Text=Label1.Caption&
Label2.Caption
初始窗口界面
输入字符串
截取前两个字符
截取后两个字符
字符串连接
自测练习2
PrivateSubForm_Click()
Dima%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%
a=7349
e=aMod10'
个位
d=(a\10)Mod10'
十位
c=(a\100)Mod10'
百位
b=a\1000'
千位
i=(e+7)Mod10'
h=(d+7)Mod10'
g=(c+7)Mod10'
f=(b+7)Mod10'
j=i
i=f'
交换后的个位
f=j'
交换后的千位
k=h
h=g'
交换后的十位
g=k'
交换后的百位
l=f*1000+g*100+h*10+i
Text1.Visible=False
加密前的4位整数是7439"
;
(Chr(10));
"
加密后的结果是"
l
初始界面
单击窗体运行后的界面
Dima%,b%,c%,d%,e%,f!
a=Val(InputBox("
输入第一个数"
"
输入一个数"
8))
b=Val(InputBox("
7))
c=a+b
d=a-b
e=a*b
f=a/b
f=Fix(f*100+0.5)/100
MsgBox"
x+y="
&
c&
Chr(10)&
x-y="
d&
x*y="
e&
x/y="
f,,"
输出的结果"
输入第一个数的值"
))
输入第二个数的值"
c=Val(InputBox("
输入第三个数的值"
d=Val(InputBox("
输入第四个数的值"
e=a+b+c+d
f=e/4
和="
e
平均值="
f
自测练习3
Dimh%,f%,x%,y%
h=Val(InputBox("
输入总头数"
f=Val(InputBox("
输入总脚数"
x=(4*h-f)/2
y=(f-2*h)/2
笼中鸡的头数为"
x;
只"
笼中兔的头数为"
y;
自测练习1:
Dima%,b%,c%
请输入第一条边"
边长"
请输入第二条边"
请输入第三条边"
Ifa+b>
cAnda+c>
bAndb+c>
aThen
Ifa*a+b*b=c*cOra*a+c*c=b*bOrb*b=c*c=a*aThen
直角"
ElseIfa=bAndb=cThen
等边三角形"
ElseIfa=bOra=cOrb=cThen
等腰三角形"
Else
一般三角形"
EndIf
不是三角形"
不是三角形运行结果:
输入三条边:
运行结果:
直角三角形运行结果:
等边三角形运行结果如下:
等腰三角形:
一般三角形
自测练习2:
Dima%,b!
请输入"
IfaMod2=0AndaMod3=0AndaMod5=0Then
b=Sqr(a)
Printa,b
输入一个数:
Dima%,b%
a=Val(Text1.Text)
SelectCasea>
0
Casea<
20
行李费为0.2元/kg"
,"
行李费"
Casea>
=20Anda<
50
行李费为0.3元/kg"
=50Anda<
100
行李费为0.4元/kg"
CaseElse
b=0.2*100+(a-100)*0.5:
MsgBox"
行李费为"
b&
元"
EndSelect
输入10:
输入25:
输入55:
输入120:
OptionBase1
Dimi%,a(1To20)AsInteger
a
(1)=1:
a
(2)=1
Printa
(1);
Printa
(2);
Fori=3To10
a(i)=a(i-1)+a(i-2)
Printa(i);
Nexti
Fori=11To16
Fori=17To20
初始界面:
运行结果界面:
PrivateSubForm_Load()
Form1.Width=10000
Form1.Height=5000
Dimi%,j%,t%,a(1To4,1To4)AsInteger
Fori=1To4
Forj=1To4
a(i,j)=Int(Rnd*10)+1
Picture1.Printa(i,j);
Nextj
Picture1.Print
Picture3.Print"
对角线的元素如下"
Picture3.Printa(i,i);
Picture3.Print
Picture3.Printa(i,5-i);
t=a(1,i)
a(1,i)=a(4,i)
a(4,i)=t
t=a(i,2)
a(i,2)=a(i,3)
a(i,3)=t
Picture2.Printa(i,j);
Picture2.Print
运行初始界面:
运
Subitostr(aAsInteger)
Dimb%,c$
Whilea>
=1
c=Chr(aMod10+48)&
c
a=a\10
Wend
Text2.Text=c
DimaAsInteger
Callitostr(a)
验证其他数字:
PublicFunctionarea(n)AsDouble
Dimc#,d#,e#,s#
n=Val(Text2.Text)
c=(1-0)/n
Whilee<
d=I*c:
e=(I+1)*c
s=s+(Sin(d)+Sin(e))*c/2
I=I+1
area=s
EndFunction
DimsAsDouble
Callarea(n)
Text1.Text=area(n)
PrivateSubForm_click()
n=Val(InputBox("
请输入n的值"
x=Val(InputBox("
请输入x的值"
e的值="
es(n,x)
PrivateFunctiones(n,x)
DimaAsDouble,bAsDouble,cAsDouble,iAsInteger
a=1:
b=1:
c=1
Fori=1Ton
a=x*a:
b=b*i:
c=c+a/b
es=c
输入数据:
自测练习4:
Forj=i+1To5
Ifa(i)>
a(j)Then
t=a(i):
a(i)=a(j):
a(j)=t
EndIf
Nextj
Fori=1To5
IfY<
a(i)Then
a(i)=Y:
Y=t
Fori=1To6
a(6)=t
Dimi#,a%(1To6),Y%
Y=Val(InputBox("
输入y的值"
输入数据"
Insertfuna%(),Y
Printa(i);
插入数据:
IfCh1.Value=1Then
报名参加羽毛球比赛"
IfCh2.Value=1Then
报名参加乒乓球比赛"
IfCh1.Value=1AndCh2.Value=1Then
报名参加羽毛球,乒乓球比赛"
Label1.Alignment=2
Label1.FontSize=24
Label1.FontName="
黑体"
Label1.ForeColor=&
HFF&
PrivateSubOption1_Click()
Label1.Caption="
我是学生"
PrivateSubOption2_Click()
我是教师"
PrivateSubOption3_Click()
我是工人"
PrivateSubOption4_Click()
我是农民"
自测练习6:
Fori=0ToCombo1.ListCount-1
IfCombo1.List(i)=Combo1.TextThen
ExitFor
Ifi>
Combo1.ListCount-1Then
Combo1.AddItemCombo1.Text
IfCombo1.ListIndex<
>
-1Then
Combo1.RemoveItemCombo1.ListIndex
Combo1.RemoveItemi
Combo1.Clear
运行初始界面:
自测练习7:
Timer1.Interval=1
Timer1.Enabled=True
lbltemp1.FontSize=20
lbltishi.FontSize=20
Label1.FontSize=20
Label2.FontSize=20
PrivateSubTimer1_Timer()
VSbwd.Value=VSbwd.Value+10
lbltem=VSbwd.Value
IfVSbwd>
=100Then
lbltishi="
水开了"
Timer1.Enabled=False
PrivateSubmyhelp_Click()
frmAbout.Show
PrivateSubmymenu1_Click()
百货大楼"
PrivateSubmymenu2_Click()
利客隆"
PrivateSubmymenu3_Click()
稻香村"
PrivateSubDis_Click()
菜单程序设计"
Text1.FontSize=20
Text1.FontName="
PrivateSubHid_Click()
自测练习3:
PrivateSubvbhelp_Click()
r=MsgBox("
帮助"
)
PrivateSubVbnew_Click()
新建"
PrivateSubvbopen_Click()
打开"
PrivateSubvbsave_Click()
存盘"
CommonDialog1.Action=1
List1.AddItemCommonDialog1.FileName
DimaAsString,n%,i%,j%
Open"
E:
\Data.txt"
ForInputAs#1
Input#1,a
n=Len(a)
j=0
IfMid(a,i,1)="
%"
Thenj=j+1
Close#1
\Datares.txt"
ForOutputAs#1
Print#1,j
Dimx$
e:
\txt2.txt"
DoWhileNotEOF
(1)
LineInput#1,x$
Loop
\txt1.txt"
ForAppendAs#1
Print#1,x$
自测练习4
PrivateSubForm_load()
26个英文字母"
abcdefghijklmnopqrstuvwxyz"
字母个数分别为"
文本$=InputBox("
请输入文本"
n=UCase(文本$)
Print#1,n
Dima%()
Fori=1ToLen(n)
ReDimPreservea(1To26)
j=Asc(Mid(n,i,1))-64
a(j)=a(j)+1
Forj=LBound(a)ToUBound(a)
Printa(j);
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 程序设计 教程 实验 指导 习题 解答 上机 答案