非常风气网www.verywind.cn
首页
vb编写一个function过程
VB编程
题:
编写一个
产生1 至100之间的随机整数的
Function 过程
答:
函数代码如下:Public
Function
sj() As Integer Randomize sj = Int(Rnd * 98) + 2 End Function
...阶乘的计算分别用Sub过程和
Function过程
两种方法来实现
答:
(
1
)用Sub实现的
过程
如下:Dim a,b,c,s a=1 b=2 c=3 s=0Sub jc(x)Dim v v=1 While x>0 v=v*x x=x-1 Wend s=s+v End Sub jc a jc b jc c MsgBox s (2)用
Function
的过程如下 Function Function jc(a)If a>0 Then jc=a*jc(a-1)Else jc=1 End If End Functio...
用vb编写一个function过程
判断一个年份是否是闰年,返回一个boolean型...
答:
Private Sub Command1_Click()y = CInt(InputBox("请输入
一个
年份:"))MsgBox (y & "年" & IIf(isleap(y), "", "不") & "是一个闰年")End Sub
Function
isleap(y) As Boolean isleap = y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 End Function ...
vb
6.0 要求
编写一个function过程
在文本框中输入数值 (label显示...
答:
写
了一段,窗体上放
一个
Text,一个按钮,代码如下:
Function
Sushu(a As Integer) As Integer For i = 2 To a - 1 Step 1 If a Mod i = 0 Then MsgBox a & "不为素数", vbInformation + vbOKOnly, "提示!" Exit Function End If Next MsgBox a & "是素数",...
...个求三个数中最大值max和最小值min的
function过程
,然后用这个过程分 ...
答:
MaxAndMin.max = a(0)MaxAndMin.min = a(0)For i = 0 To l If (a(i) > MaxAndMin.max) Then MaxAndMin.max = a(i)If (a(i) < MaxAndMin.max) Then MaxAndMin.max = a(i)Next End
Function
Private Sub Command
1
_Click()Dim a(4) As Long Dim val As MAXMINVAL a(0...
用vb
语言
编写一个function过程
,计算银行定期存款到期本金、利息之和...
答:
Option Explicit Private
Function
Total(ByVal a As Single, ByVal b As Single, ByVal c As Integer) As Single Total = a * (
1
+ b * c)End Function Private Sub Form_click()Print Total(100, 0.02, 1)End Sub a 是本金,b 是年利率,c是存入年限。回答完毕。
VB
请分别用循环语句和递归方式设计
一个Function过程
Sigma(N),实现整数...
答:
Function
Sigma(ByVal N As Integer) As Integer '循环 Dim tmp As Integer For i =
1
To N tmp = tmp + i Next i Sigma = tmp End Function 递归:Function Sigma(ByVal N As Integer) As Integer '递归 If N = 1 Then Sigma = 1 Else Sigma = N + Sigma(N - 1)End If End...
在
VB
中
编写一个function过程
,求圆的面积(圆的半径作为过程的参数)
答:
Private Sub Form_Click()Const PI As Single = 3.1415926 Dim r As Single r = InputBox("请输入圆的半径:")Print YMJ(PI, r)End Sub
Function
YMJ(PI, r)YMJ = 2 * PI * r * r End Function
vb编写
求两数中较大的数的
Function过程
。利用该函数求3个数中的最大...
答:
Function
Max(n1 As Long, n2 As Long) As LongMax = IIf(n1 > n2, n1, n2)End FunctionPrivate Sub Form_Click() '点击窗体运行Dim x1 As Long, x2 As Long, x3 As Longx1 = Val(InputBox("请输入第
1个
数"))x2 = Val(InputBox("请输入第2个数"))x3 = Val(InputBox("请...
VB 编写一个
求阶乘的
Function过程
,计算1到5的阶乘之和 谢谢了!!!_百...
答:
Private Sub Command
1
_Click()Dim s As Double, ss As String, i As Integer For i = 1 To 5 s = s + jc(i)ss = ss & i & "!+"Next i Print Mid(ss, 1, Len(ss) - 1) & "=" & s End Sub
Function
jc(n As Integer)jc = 1 For i = 1 To n jc = jc * i ...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
你可能感兴趣的内容
vb自定义函数过程
vb function函数的用法
VB是哪个文件类型
vb设计一个简易计算器
vb用for语句求1加到100
VB逻辑运算符
VB常用内部函数
vb二进制文件读写
vb按值传递
本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
©
非常风气网