作业帮 > 综合 > 作业

二、设计简单的VB程序计算函数的值 自己设计一个简单的VB程序,计算下列VB函数的值.提示:为简单起见,可

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/27 23:09:16
二、设计简单的VB程序计算函数的值 自己设计一个简单的VB程序,计算下列VB函数的值.提示:为简单起见,可
二、设计简单的VB程序计算函数的值
自己设计一个简单的VB程序,计算下列VB函数的值.提示:为简单起见,可使用Form_Click事件,并用定义相应类型的变量保存每个函数的值,最后再用Print方法输出每个变量的值.
(1)Int(-3.14159)
(2)Sqr(Sqr(64))
(3)CInt(15/4)
(4)Str(-459.65)
(5)Int(Abs(99-100)/2)
(6)Val("16 Year")
(7)Len("VB5.0")
(8)Mid("Window_VB",3,4)
运行你自己的程序,并回答以下问题.
表示式(1)的计算结果为__________,函数Int()的功能是_______________________.
表示式(2)的计算结果为__________,函数Sqr的功能是_______________________.
表示式(3)的计算结果为__________,函数CInt()的功能是_______________________.
表示式(4)的计算结果为__________,函数Str()的功能是_______________________.
表示式(5)的计算结果为__________,函数Abs()的功能是_______________________.
表示式(6)的计算结果为__________,函数Val()的功能是_______________________.
表示式(7)的计算结果为__________,函数Len()的功能是_______________________.
表示式(8)的计算结果为__________,函数Mid()的功能是_______________________.
Private Sub Form_Click()
Dim d1 As Integer
Dim d2 As Single
Dim d3 As Integer
Dim d4 As String
Dim d5 As Integer
Dim d6 As Integer
Dim d7 As Integer
Dim d8 As String
d1 = Int(-3.14159)
d2 = Sqr(Sqr(64))
d3 = CInt(15 / 4)
d4 = Str(-459.65)
d5 = Int(Abs(99 - 100) / 2)
d6 = Val("16 Year")
d7 = Len("VB5.0")
d8 = Mid("Window_VB",3,4)
Print d1,vbCrLf,d2,vbCrLf,d3,vbCrLf,d4,vbCrLf,d5,vbCrLf,d6,vbCrLf,d7
End Su