VB课后答案Word格式.docx
- 文档编号:21156227
- 上传时间:2023-01-28
- 格式:DOCX
- 页数:32
- 大小:24KB
VB课后答案Word格式.docx
《VB课后答案Word格式.docx》由会员分享,可在线阅读,更多相关《VB课后答案Word格式.docx(32页珍藏版)》请在冰豆网上搜索。
PrivateSubCommand1_Click()'
放大
Label1.FontSize=Label1.FontSize*3
PrivateSubCommand2_Click()'
加粗
Label1.FontBold=True
PrivateSubCommand3_Click()'
下画线
Label1.FontUnderline=True
PrivateSubCommand4_Click()'
还原
Label1.FontBold=False
Label1.FontUnderline=False
PrivateSubCommand5_Click()'
移动
DimdxAsSingle
dx=Form1.Width/3/10'
每次移动量是Label1最初距左边距离的1/10
Label1.Left=Label1.Left–dx
第三章上机试题
第二题
Label1.FontSize=Label1.FontSize*(Int(Rnd*3+1))'
放大字体
Label1.Caption="
当前时间为"
&
Time'
显示时间
'
以下让Label1居中显示
Label1.Left=Form1.ScaleWidth/2-Label1.Width/2
Label1.Top=Form1.ScaleHeight/2-Label1.Height/2
Time
第三题
Label1.Caption="
+"
Text3.Text=Val(Text1.Text)+Val(Text2.Text)
-"
Text3.Text=Val(Text1.Text)-Val(Text2.Text)
*"
Text3.Text=Val(Text1.Text)*Val(Text2.Text)
PrivateSubCommand4_Click()
/"
Text3.Text=Val(Text1.Text)/Val(Text2.Text)
PrivateSubCommand5_Click()
Text1.Text="
"
Text2.Text="
Text3.Text="
第四章上机试题
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
DimstAsString*1
st=Chr(KeyAscii)
小写字母与大写字母的Ascii码相差32
Ifst>
="
a"
Andst<
z"
Then'
如果是小写字母
st=Chr(KeyAscii-32)'
转换成大写字母
ElseIfst>
A"
Z"
Then
st=Chr(KeyAscii+32)
EndIf
Text2.Text=Text2.Text&
st
'
转换摄氏
DimfAsSingle,cAsSingle
输入华氏温度
f=Val(Text1.Text)
c=5/9*(f-32)
输出摄氏温度
Text2.Text=Str(c)
转换华氏
输入摄氏温度
c=Val(Text2.Text)
f=9/5*c+32
输出华氏温度
Text1.Text=Str(f)
“华氏温度”文本框中按回车键转换
IfKeyAscii=13Then'
是否按下回车键
“摄氏温度”文本框中按回车键转换
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
PrivateSubCommand1_Click()'
判断命令按钮
DimxAsInteger,yAsInteger,kAsInteger
k=InStr(Text1.Text,"
"
)'
查找逗号所在地位置
Ifk=0Then
MsgBox"
输入错误,请重新输入"
vbInformation,"
消息框"
Text1.Text="
Text1.SetFocus
Else
x=Val(Mid(Text1.Text,1,k-1))'
分离x坐标
y=Val(Mid(Text1.Text,k+1))'
分离y坐标
SelectCasex
Case0
Ify=0Then
("
x&
y&
)在坐标原点"
ElseIfy>
0Then
)是在Y轴的上半轴上"
)是在Y轴的下半轴上"
CaseIs>
0
)是在X轴的正半轴上"
)是在第一象限中"
)是在第四象限中"
CaseIs<
)是在X轴的负半轴上"
)是在第二象限中"
)是在第三象限中"
消息"
EndSelect
限定只能输入数字,逗号,回退键
按回车键调用"
判断"
命令按钮
CallCommand1_Click
ExitSub
SelectCaseChr(KeyAscii)
Case"
0"
To"
9"
"
Chr(8)
CaseElse
KeyAscii=0
结束命令按钮
第四题
DimbzhAsSingle
bzh=Val(Text1.Text)-105
IfVal(Text2.Text)>
bzh*1.1Then
Label5.Caption="
偏胖,注意饮食"
ElseIfVal(Text2.Text)<
bzh*0.9Then
偏瘦,增加营养"
正常,继续保持"
SelectCaseKeyAscii
Case48To57,8
第五题
Dimi%,j%,n%
Form1.Cls
n=Val(Text1.Text)
Ifn<
=0Orn>
=10Then
提示信息"
Text1="
Fori=1Ton'
外循环控制打印行数
Ifi<
=n/2Then
PrintTab(10-i);
每行起始打印位置
Forj=1To2*i-1'
内循环控制打印个数
PrintTrim(Str(i));
打印内容
Nextj
k=n-i+1
PrintTab(10-k);
Forj=1To2*k-1
Nexti
第六题
PrivateSubForm_Click()
DimIpAsDouble,TempAsDouble
DimNAsDouble,KAsDouble
Ip=2:
Temp=2:
N=1
Do
Ip=Temp
K=2*N
Temp=Temp*(K/(K-1))*(K/(K+1))
N=N+1
LoopUntilAbs(Temp-3.141592)<
0.000001
Print"
π="
Ip
N="
N
第七题
DimPreAsLong‘存放当前处理字符的前一个字符
Pre=46‘初始状态为“.”
DimchAsString
ch=Chr(KeyAscii)
If(Pre=46OrPre=63OrPre=33OrPre=13)Andch>
=“a”Andch<
=“z”Then
KeyAscii=KeyAscii–32
IfKeyAscii<
>
32ThenPre=KeyAscii
第五章上机试题
Dima(1To7)AsInteger,i%,j%
Fori=1To7
a(i)=i
Printa(i);
t=a(7)
Forj=6To1Step-1
a(j+1)=a(j)
a
(1)=t
Forj=1To7
Printa(j);
OptionBase1
Dima(11)AsInteger'
定义数组
PrivateSubcmdcreat_Click()'
产生的一维数组
DimiAsInteger
Picture1.Cls
Picture1.Print"
产生的一维数组为:
Randomize
Fori=1To10
a(i)=Int(Rnd*20+10)
Picture1.Printa(i);
Picture1.Print
PrivateSubcmdmax_Click()'
求最大元数及所在的位置
DimmaxAsInteger,pAsInteger,iAsInteger
max=a
(1)'
假设第一元素就是最大元素
p=1
Fori=2To10
Ifa(i)>
maxThen
max=a(i)
p=i
第"
p;
个元素"
a(p)&
为最大元素"
PrivateSubcmdave_Click()'
计算平均值
DimaveAsSingle,iAsInteger
ave=ave+a(i)
ave=ave/10
产生的随机数平均值为:
ave
PrivateSubcmdsort_Click()'
使用选择法排序
Dimi%,j%,p%,t%
Fori=1To9
Forj=i+1To10
Ifa(p)>
a(j)Thenp=j
t=a(i):
a(i)=a(p):
a(p)=t
排序后的一维数组为:
PrivateSubcmdinsert_Click()'
数据插入
Dimx%,p%,i%
x=Val(InputBox("
输入要插入的数据:
))
DoWhilex>
a(p)Andp<
=10
p=p+1
Loop
Fori=10TopStep-1
a(i+1)=a(i)
a(p)=x
插入后的一维数组为:
Fori=1To11
Dims()AsInteger,i%,j%,n%
n=Val(Text1)
ReDims(n,n)
第一列和主对角线为1
Fori=1Ton
s(i,1)=1
s(i,i)=1
Fori=3Ton
Forj=2Toi-1
s(i,j)=s(i-1,j-1)+s(i-1,j)
打印杨辉三角
Forj=1Toi
让每个数据占4列输出
PrintSpc(4-Len(Str(s(i,j))));
s(i,j);
Dima()AsString,n%
DimIAsInteger,jAsInteger,pAsInteger,tAsString
IfKeyAscii=13Then
n=n+1
ReDimPreservea(n)‘动态存储数组a增加1个元素,前n-1个元素值保持不变
a(n)=Text1.Text
Text2.Text=Text2.Text+Text1.Text+Chr(13)+Chr(10)
Text1.Text=“”
ForI=1Ton–1
Forj=I+1Ton
ForI=1Ton
Text3.Text=Text3.Text&
a(i)&
Chr(13)+Chr(10)
第六章上机试题
OptionBase1
PrivateSubInputData(b()AsInteger)'
给数组输入数据
Dimi%,n%,m%
n=LBound(b)
m=UBound(b)
Fori=nTom
b(i)=Val(InputBox("
Enter"
A("
i&
)=?
Printb(i);
求数组平均值函数过程
PrivateFunctionAvenum(b()AsInteger)AsSingle
Dims!
i%,n%
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 课后 答案