1 / 7
文档名称:

程序设计基础课后作业作业布置2018春VB.doc

格式:doc   大小:53KB   页数:7页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

程序设计基础课后作业作业布置2018春VB.doc

上传人:cxmckate6 2022/1/17 文件大小:53 KB

下载得到文件列表

程序设计基础课后作业作业布置2018春VB.doc

相关文档

文档介绍

文档介绍:word
word
1 / 7
word
VB作业布置
作业一:P8 1、2、3、4、6、9
VB是用于开发________环境下应用程序的工具。〔B〕
A. DOS B. Windows C. DOS和Windownt() False
<= And –>- False
Str()=Cstr() False
〔正常执行是指系统不给出出错提示〕?
A. Print 32765+3 溢出
B. Print 5+7=14 False
C. Print 256/128 2
D. Print “14”+ 32 46
E. Print “14”& 32 “1432”
答:能正常执行的语句有:B、C、D、E,具体执行结果见上。
15. 执行语句代码Print Format(, “##,##”),以下答案中那一个是正确的结果。〔C〕A. B. 7, C
16. 图形填空
z = InputBox("输入一个数:" , "程序示例" , )
17. 写出显示如下信息框的MsgBox函数.
word
word
3 / 7
word
X=MsgBox("Z的值" & Str(z) & "大于0" , 48 , "程序示例" )
18. 编写程序,输入三角形的两个边长以与夹角的角度数,求三角形面积.
程序代码如下:
Private Sub mand2_Click()
Dim a As Single, b As Single, c As Single
Dim area As Single
a = Val(InputBox("请输入三角形的边长a:"))
b = Val(InputBox("请输入三角形的边长b:"))
c = Val(InputBox("请输入三角形两边之间夹角的角度数c:"))
area = 1 / 2 * a * b * Sin(c * / 180)
Print area
End Sub
作业四:P81:1、2、3、4、5
阅读程序,写出执行结果。
运行结果为: 6 55
运行结果为: DDEF
EDDEF
FEDDEF
运行结果为: 6 5
运行结果为: 11 10 8
编写程序,随机生成100个两位整数,并统计出其中小于等于40、大于40且小于等于70与大于70的数据个数。
Private sub mand1_click()
Dim n as integer,n1 as integer,n2 as integer,I as integer
For i=1 to 100
M=int(rnd*90)+10
If m<=40 then
N=n+1
Elseif m <=70 then