Visual Basic程序设计习题答案VB理论教材16章.docx
- 文档编号:3413174
- 上传时间:2022-11-22
- 格式:DOCX
- 页数:17
- 大小:19.75KB
Visual Basic程序设计习题答案VB理论教材16章.docx
《Visual Basic程序设计习题答案VB理论教材16章.docx》由会员分享,可在线阅读,更多相关《Visual Basic程序设计习题答案VB理论教材16章.docx(17页珍藏版)》请在冰豆网上搜索。
VisualBasic程序设计习题答案VB理论教材16章
第一章VB概述
一.选择题
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
C
C
C
C
A
C
B
A
C
A
A
二.填空题
1.视图 工具箱
2.对象 事件驱动
3.代码 窗体设计器
4.属性 方法 事件
5.对象的特征
6.一个对象可执行的动作
7.属性窗口 赋值语句
三.简答题
1.略
2.略
四.编程题
【属性窗口设置】
Caption 这是我的第一个练习
【代码窗口设置】
PrivateSubForm_Click()
Print"我可以用VisualBasic语言编写程序了!
"
EndSub
第二章窗体与常用控件
一.选择题
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
B
D
D
C
A
C
B
A
D
D
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
D
D
B
D
B
D
B
C
D
C
21.
22.
23.
C
C
D
二.填空题
1.Value
2.下拉列表框
3.Scroll
4.LargeChange
5.ASCII码
6.Enabled
7.ListCount
8.PopupMenu
9.Alt
10.复选
11.CommonDialog1.ShowColor 或者 ShowColor
12.Flags
13:
1
14.-
15.GFED
第三章VB程序设计基础
一.选择题
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
A
D
A
D
C
B
C
B
D
B
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
B
B
C
B
B
D
C
A
D
A
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
A
B
C
B
B
D
B
B
C
B
31.
32.
33.
34.
B
B
D
D
二.填空题
1.Right(CStr(x),1)&Left(CStr(x),1)
2.xMod5=0OrxMod9=0
3.False
4.CDEF
5.s>="A"Ands<="Z"Ors>="a"Ands<="z"
6. x>=0 And x<100
7.Int(Rnd*(X-2)+3)
8.Sqr(cos(23*3.14/180)/(x^2*Log(y)))
9.-4 -5 -4
10."请输入圆的半径:
" "求圆的面积" 2
11."圆的半径值必须介于1到10之间,请重输" 48 "求圆的面积"
第四章VB控制结构
一.选择题
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
D
C
D
A
C
C
C
B
D
C
二.填空题
1. 4.8 20
2. y=11
3. 1!
+2!
+3!
+4!
+5!
4. 9
k
5. 0
n
6. 2
7. x>=0
x>max
8. 5 7
13 12
14 11
9.sum=0
sum+j
st&k&"+"
10.4
11
10
11. i+1
List1.RemoveItemj
12.Combo1.List(i)=Combo1.Text
flag=False
Combo1.AddItemCombo1.Text
三.编程题
1.
PrivateSubForm_Click()
DimxAsSingle
x=Val(InputBox("请输入一个x的值:
"))
Ifx<=0Then
fx=-1
ElseIfx<1Then
fx=Sqr(x)
Else
fx=x^3+2
EndIf
MsgBox("运算结果为:
"&fx)
EndSub
2.
PrivateSubForm_Click()
DimnAsInteger,kAsInteger,sAsString
n=Val(InputBox("请输入一个正整数:
"))
k=2
s=n&"="
Do
IfnModk=0Then
s=s&k&"*"
n=n\k
Else
k=k+1
EndIf
LoopUntiln=k
s=s&k
Prints
EndSub
3.
PrivateSubForm_Click()
DimsAsString,iAsInteger
DimaAsInteger,bAsInteger,cAsInteger,dAsInteger,eAsInteger
s=Text1.Text
Fori=1ToLen(s)
IfMid(s,i,1)>="0"AndMid(s,i,1)<="9"Then
IfVal(Mid(s,i,1))Mod2<>0Then
a=a+1
Else
b=b+1
EndIf
ElseIfMid(s,i,1)>="A"AndMid(s,i,1)<="Z"Then
c=c+1
ElseIfMid(s,i,1)>="a"AndMid(s,i,1)<="z"Then
d=d+1
Else
e=e+1
EndIf
Nexti
Print"奇数个数为:
";a
Print"偶数个数为:
";b
Print"大写字母个数为:
";c
Print"小写字母个数为:
";d
Print"其他字符个数为:
";e
EndSub
4.
PrivateSubForm_Click()
DimnAsInteger,sumAsInteger
n=Val(InputBox("请输入一个正整数:
"))
DoUntiln=0
sum=sum+nMod10
n=n\10
Loop
MsgBox("各位数字之和为:
"&sum)
EndSub
5.
PrivateSubForm_Click()
DimnAsLong,iAsInteger,LAsInteger
n=Val(InputBox("请输入一个正整数:
"))
L=Len(CStr(n))
Fori=1ToL/2
IfMid(CStr(n),i,1) <>Mid(CStr(n),L,1)Then
ExitFor
EndIf
L=L-1
Nexti
Ifi >L/2Then
MsgBox("该数是回文数。
")
Else
MsgBox("该数不是回文数。
")
EndIf
EndSub
6.
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsInteger
Fora=1To30
Forb=1To30
Forc=1To30
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic程序设计习题答案VB理论教材16章 Basic 程序设计 习题 答案 VB 理论 教材 16