vb习题参考答案.docx
- 文档编号:30699863
- 上传时间:2023-08-19
- 格式:DOCX
- 页数:50
- 大小:26.35KB
vb习题参考答案.docx
《vb习题参考答案.docx》由会员分享,可在线阅读,更多相关《vb习题参考答案.docx(50页珍藏版)》请在冰豆网上搜索。
vb习题参考答案
第1章
习题与思考题参考答案
1.思考题
(略)
2.判断题
(1)——(10)×、√、×、√、×、√、×、×、√、√
3.填空题
(1)Selstart
(2)Enabled(3)Load
(4)TabIndex,0(5)vbModal或1
4.选择题
(1)A
(2)A(3)D(4)A(5)D(6)B(7)B(8)C(9)A(10)B
上机练习参考程序
参见本目录中的bct1,bct2
1.
VERSION5.00
BeginVB.FormForm1
Caption="Form1"
ClientHeight=3810
ClientLeft=60
ClientTop=345
ClientWidth=8790
LinkTopic="Form1"
ScaleHeight=3810
ScaleWidth=8790
StartUpPosition=3'窗口缺省
BeginVB.CommandButtonCommand4
Caption="移动"
Height=375
Left=5760
TabIndex=4
Top=2880
Width=855
End
BeginVB.CommandButtonCommand3
Caption="下画线"
Height=375
Left=4365
TabIndex=2
Top=2880
Width=855
End
BeginVB.CommandButtonCommand2
Caption="加粗"
Height=375
Left=2955
TabIndex=1
Top=2880
Width=855
End
BeginVB.CommandButtonCommand1
Caption="放大"
Height=375
Left=1560
TabIndex=0
Top=2880
Width=855
End
BeginVB.LabelLabel1
AutoSize=-1'True
Caption="VisualBasic程序设计"
Height=180
Left=720
TabIndex=3
Top=720
Width=1800
End
End
AttributeVB_Name="Form1"
AttributeVB_GlobalNameSpace=False
AttributeVB_Creatable=False
AttributeVB_PredeclaredId=True
AttributeVB_Exposed=False
PrivateSubCommand1_Click()'放大
Label1.FontSize=Label1.FontSize*3
Label1.Left=(Form1.Width-Label1.Width)/2
EndSub
PrivateSubCommand2_Click()'加粗
Label1.FontBold=True
EndSub
PrivateSubCommand3_Click()'下画线
Label1.FontUnderline=True
EndSub
PrivateSubCommand4_Click()'移动
Label1.Left=Label1.Left-200
EndSub
PrivateSubForm_Load()
Label1.AutoSize=True
EndSub
第2章习题与思考题参考答案1.思考题
(略)
2.填空题
(1)
(2)int(rnd*90)+10
(3)(xmod10)*10+x\10
(4)sin(65/180*3.14)+2*3.14*sqr(x+2*exp(y))/(x+y)
(5)-10
(6)CDEF
3.编程题
参见本目录中的bct1,bct2
1.BeginVB.FormForm1
Caption="Form1"
ClientHeight=3195
ClientLeft=60
ClientTop=345
ClientWidth=6360
LinkTopic="Form1"
ScaleHeight=3195
ScaleWidth=6360
StartUpPosition=3'窗口缺省
BeginVB.CommandButtonCommand1
Caption="确定"
BeginPropertyFont
Name="宋体"
Size=12
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Height=495
Left=4560
TabIndex=2
Top=1440
Width=1335
End
BeginVB.TextBoxText1
BeginPropertyFont
Name="宋体"
Size=12
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Height=495
Left=2520
TabIndex=0
Top=1440
Width=1815
End
BeginVB.LabelLabel1
Caption="输入一个三位整数"
BeginPropertyFont
Name="宋体"
Size=12
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
Height=375
Left=480
TabIndex=1
Top=1440
Width=1935
End
End
AttributeVB_Name="Form1"
AttributeVB_GlobalNameSpace=False
AttributeVB_Creatable=False
AttributeVB_PredeclaredId=True
AttributeVB_Exposed=False
PrivateSubCommand1_Click()
DimxAsInteger,one%,ten%,hundread%
x=Val(Text1)
one=xMod10'个位数
ten=(x\10)Mod10'十位数
hundread=x\100'百位数
Print"百位数:
"&hundread&"十位数:
"&ten&"个位数:
"&one
EndSub
第3章
习题与思考题
1.思考题
(略)
2.
(略)
3.程序阅读
(1)A=2B=3C=2
(2)5(3)BABCBACBC
(4)12False(5)1-12-123-1234-
4.选择题
(1)B
(2)D(3)B(4)B(5)D(6)C
5.编程题
参见本目录中的bct1,bct2
1.
BeginVB.FormForm1
Caption="Form1"
ClientHeight=3630
ClientLeft=60
ClientTop=345
ClientWidth=6360
BeginPropertyFont
Name="宋体"
Size=12
Charset=134
Weight=400
Underline=0'False
Italic=0'False
Strikethrough=0'False
EndProperty
LinkTopic="Form1"
ScaleHeight=3630
ScaleWidth=6360
StartUpPosition=3'窗口缺省
End
AttributeVB_Name="Form1"
AttributeVB_GlobalNameSpace=False
AttributeVB_Creatable=False
AttributeVB_PredeclaredId=True
AttributeVB_Exposed=False
PrivateSubForm_Click()
DimxAsDouble,x2AsDouble,sqtAsDouble
x=Val(InputBox("输入一个数据"))
x2=Int(x*x*1000)/1000'保留小数点后3位
sqt=Int(Sqr(x)*1000)/1000
Vol=Fix(Vol*10000+0.5)/10000
Printx&"平方="&x2&","&"平方根="&sqt
EndSub
第4章
习题与思考题参考答案
1.判断题
(1)——(5)×、√、×、×、√
2.写出下列VisualBasic表达式的值:
(1)False
(2)True(3)True(4)False
(5)True(6)True(7)1000(8)False
3.将下列命题用VisualBasic布尔表达式表示:
(1)z>xandz>y
(2)Abs(a)<=Abs(b+2)ora>b+2
(3)pModq=0
(4)(x<-5orx>-2)and(x<2orx>5)
(5)(x-z)*(y-z)<0
(6)a 4选择题 (1)A(注: 程序段最前面加一些个语句: DimA%,I%) (2)D(3)A(4)B(5)A(6)A 5.程序阅读 (1)x=3y=7 (2)w=4 w=13 w=135 w=31 (3)^_`a12uv^ (4)129 6.程序填空题 (1)Chr(KeyAscii)Chr(KeyAscii)=”)”Count1=count1-1Count1=0 Count1>0 (2)MaxMinc>Maxc (3)xMod3=2andxMod5=3xMod7=4Text1.SetFocus Text1.SelStart=0Text1.SelLength=Len(Text1) 7.编程题 参见本目录中的bct1,bct2,….. 1. BeginVB.FormForm1 Caption="Form1" ClientHeight=3195 ClientLeft=60 ClientTop=345 ClientWidth=4680 LinkTopic="Form1" ScaleHeight=3195 ScaleWidth=4680 StartUpPosition=3'窗口缺省 End AttributeVB_Name="Form1" AttributeVB_GlobalNameSpace=False AttributeVB_Creatable=False AttributeVB_PredeclaredId=True AttributeVB_Exposed=False OptionExplicit PrivateSubForm_Click() DimNAsLong N=Val(InputBox("请输入年份","提示框")) If(NMod400=0)Or(NMod4=0AndNMod100<>0)Then'判断条件 PrintN&"年是闰年" Else PrintN&"年不是闰年" EndIf EndSub 2. BeginVB.FormForm1 Caption="Form1" ClientHeight=3195 ClientLeft=60 ClientTop=345 ClientWidth=4680 LinkTopic="Form1" ScaleHeight=3195 ScaleWidth=4680 StartUpPosition=3'窗口缺省 End AttributeVB_Name="Form1" AttributeVB_GlobalNameSpace=False AttributeVB_Creatable=False AttributeVB_PredeclaredId=True AttributeVB_Exposed=False OptionExplicit PrivateSubForm_Click() Dima! b! c! s! x! a=Val(InputBox("请输入三角形的边长A=? ")) b=Val(InputBox("请输入三角形的边长B=? ")) c=Val(InputBox("请输入三角形的边长C=? ")) Ifa+b>cAndb+c>aAnda+c>bThen'如果能构成三角形 x=(a+b+c)/2 s=Sqr(x*(x-a)*(x-b)*(x-c)) Print"S=";s Else Print"数据有错,不能构成三角形" EndIf EndSub 3. BeginVB.FormForm1 Caption="Form1" ClientHeight=3195 ClientLeft=60 ClientTop=345 ClientWidth=4680 LinkTopic="Form1" ScaleHeight=3195 ScaleWidth=4680 StartUpPosition=3'窗口缺省 End AttributeVB_Name="Form1" AttributeVB_GlobalNameSpace=False AttributeVB_Creatable=False AttributeVB_PredeclaredId=True AttributeVB_Exposed=False OptionExplicit PrivateSubForm_Click() DimxAsDouble,fxAsDouble x=Val(InputBox("请输入X=? ")) Ifx<0Andx<>-3Then fx=x*x+x-6 ElseIfx>=0Andx<10Andx<>2Andx<>3Then fx=x*x-5*x+6 Else fx=x*x-x-1 EndIf Print"f("&x&")=";fx EndSub 4. BeginVB.FormForm1 Caption="Form1" ClientHeight=3525 ClientLeft=60 ClientTop=345 ClientWidth=6195 LinkTopic="Form1" ScaleHeight=3525 ScaleWidth=6195 StartUpPosition=3'窗口缺省 End AttributeVB_Name="Form1" AttributeVB_GlobalNameSpace=False AttributeVB_Creatable=False AttributeVB_PredeclaredId=True AttributeVB_Exposed=False OptionExplicit PrivateSubForm_Click() DimM1%,M2%,M3%,ave% M1=Val(InputBox("请输入成绩M1=? ")) M2=Val(InputBox("请输入成绩M2=? ")) M3=Val(InputBox("请输入成绩M3=? ")) ave=(M1+M2+M3)/3 Ifave>=95OrM1=100AndM2=100AndM3>=80OrM1=100And_ M3=100AndM2>=80OrM2=100AndM3=100AndM1>=80Then Print"一等奖" ElseIfave>=90OrM1=100AndM2>=75AndM3>=75Or_ M2=100AndM1>=75AndM3>=75OrM3=100AndM1>=75_ AndM3>=75Then Print"二等奖" ElseIfM1>=75AndM2>=75AndM3>=75Then Print"三等奖" Else Print"不符合得奖条件" EndIf EndSub 上级练习题 1. BeginVB.FormForm1 Caption="Form1" ClientHeight=5055 ClientLeft=120 ClientTop=450 ClientWidth=7530 LinkTopic="Form1" ScaleHeight=5055 ScaleWidth=7530 StartUpPosition=3'窗口缺省 BeginVB.CommandButtonCommand1 Caption="确定" Height=735 Left=1320 TabIndex=2 Top=1320 Width=1935 End BeginVB.TextBoxText1 Height=495 Left=2400 TabIndex=1 Top=240 Width=2175 End BeginVB.LabelLabel1 Caption="输入1-7中一个数字" Height=375 Left=480 TabIndex=0 Top=360 Width=1575 End End AttributeVB_Name="Form1" AttributeVB_GlobalNameSpace=False AttributeVB_Creatable=False AttributeVB_PredeclaredId=True AttributeVB_Exposed=False PrivateSubCommand1_Click() IfText1.Text=1Then MsgBox"星期一",vbOKOnly ElseIfText1.Text=2Then MsgBox"星期二",vbOKOnly ElseIfText1.Text=3Then MsgBox"星期三",vbOKOnly ElseIfText1.Text=4Then MsgBox"星期四",vbOKOnly ElseIfText1.Text=5Then MsgBox"星期五",vbOKOnly ElseIfText1.Text=6Then MsgBox"星期六",vbOKOnly ElseIfText1.Text=7Then MsgBox"星期天",vbOKOnly Else MsgBox"输入有误,请重新输入",vbOKOnly Text1.Text="" EndIf EndSub 2. BeginVB.FormForm1 Caption="Form1" ClientHeight=3090 ClientLeft=60 ClientTop=450 ClientWidth=4680 LinkTopic="Form1" ScaleHeight=3090 ScaleWidth=4680 StartUpPosition=3'窗口缺省 BeginVB.CommandButtonCommand2 Caption="结束" Height=495 Left=2280 TabIndex=4 Top=1800 Width=1335 End BeginVB.CommandButtonCommand1 Caption="判断" Height=495 Left=360 TabIndex=1 Top=1800 Width=1455 End BeginVB.TextBoxText1 Height=495 Left=1920 TabIndex=0 Top=600 Width=1335 End BeginVB.LabelLabel2 Caption="x,y" Height=255 Left=480
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 习题 参考答案