注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

纪念册~~

 
 
 

日志

 
 

VB实验内容(七)  

2010-12-25 17:25:10|  分类: 学海无涯 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

实验原理及内容

实验题目1:

1、  以下代码的功能是:调用max“函数过程”,求出两个数中的最大值。请将以下代码补充完整。

   

实验题目1源程序代码:

Function max(m%, n%) As Integer

Dim t%

If m > n Then

t = m

Else

t = n

End If

max = t

End Function

 

Private Sub Form_Click()

Dim x%, y%, z%

x = Val(InputBox("请输入数据"))

y = Val(InputBox("请输入数据"))

z = max(x, y)

Print "最大值:"; z

End Sub

 

实验题目2:

以下代码的功能是:调用“子过程”,求出两个数中的最大值。请将代码补充完整。

 

实验题目2源程序代码:

Sub max(m%, n%, t%)

If m > n Then

t = m

Else

t = n

End If

End Sub

Private Sub Form_Click()

Dim x%, y%, z%

x = Val(InputBox("请输入数据"))

y = Val(InputBox("请输入数据"))

Call max(x, y, z)

Print "最大值;"; z

End Sub

 

实验题目3:

编写函数,可以实现1到n之和。请将以函数过程补充完整。

实验题目3源程序代码:

Public Function add(x%) As Integer

Dim i As Integer

For i = 1 To x

add = add + i

Print add

Next i

End Function

Private Sub Form_Click()

Dim n%, sum%

n = (InputBox("请输入n的值"))

sum = add(n)

Print "1 到 " & n & "的和是:"; sum

End Sub

 

实验题目3运行界面:

 

 

实验题目4:

有程序如下,请在代码窗口输入下面程序,并运行程序。

Private Function mj(r as single)

mj =3.14*r^2

End Function

Private Sub Command1_Click()

Dim a!,b!

a=val(text1.text)

b=mj(a)

Print b

End Sub

实验题目4程序运行结果(截图):

 

 

  评论这张
 
阅读(44)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018