用vb编写一个SUB过程
根据参数K求1+2+3+……+K的值，在窗体的CLICK的事件过程中用输入框（inputbox）输入某N的值调用该sub过程求Y的值Y=1/1+1/（1+2）+1/（1+2+3）+……+1/（1+2+3……+N），计算机过用消息框显示
a (InputBox(Number, b, c, c, e, 1, 1))
End Sub
Private Sub a(i As Integer)
Dim sum As Integer
sum = 0
For e = 0 To i
sum = sum + e
Next
Text1.Text = sum
End Sub
Dim s As Integer
s = InputBox("请输入要累加的数字：")
For i = 1 To s
a = a + i
Next i
MsgBox "从1累加到 " & s & " 的数是 " & a
End Sub本回答被网友采纳
vb的sub子程序怎么用
<script language="vbscript">dim b,j,ii=inputbox("请输入第一个数")j=inputbox("请输入第二个数")call a(i,j,b)document.write bsub a(i,j,k)dim lfor l= i to jk=k+l^2nextend sub<\/script>
vb题 编一sub过程,对于已知正整数,判断该数是否是素数.然后调用该子...
' 这里sub改成 Function Function ss(ByVal n As Integer) Dim flag As Boolean, i As Long flag = True If n Mod 2 = 0 And n <> 0 Or n = 1 Then flag = False Else ' 这里改成 Math.Sqrt For i = 3 To Math.Sqrt(n) Step 2 If n Mod i =...
vb题sub过程
1、a、b赋值后，a=90,b=36,运行Call（90，36）2、运行sub ab(),这时x=90,y=36,执行判断语句if y=0时不成立，则运行else后面的语句：Call ab(y, x Mod y) ，这时Y=36,x mod y=90 mod 36=18,实际上运行的是Call(36,18)3、第二次运行sub ab()时,x=36,y=18,再判断y=0时仍...
用VB编写程序,求S=A!+B!+C!,阶乘的计算分别用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的Sub过程
在编程中，当对象触发特定事件时，将执行与该事件相关联的代码块，这就是事件过程。例如，按钮的单击事件即是一个Sub过程。Sub过程在程序开发中极为实用，特别是在需要重复实现相同功能时。假设需要编写一个程序，根据当前时间判断是上午、下午、晚上还是凌晨，并给出相应提示。若仅在单个按钮事件中编写此...
VB编写一个Sub 过程Reverse,将一个字符串逆序输出
Private Sub Command1_Click() Dim s As String Call Severse(Text1.Text, s) Text2.Text = sEnd SubPrivate Sub Severse(ByVal Str As String, ByRef Sev As String) For i = Len(Str) To 1 Step -1 Sev = Sev + Mid(Str, i, 1) Next iEnd Sub ...
vb计算机二级sub过程
C）Visual Basic程序设计 对。鼠标键盘事件～，文本框中输入字母“a”，触发keydown事件，输出 Visual Basic，因为Print "Visual Basic"; 后面有分号，下次输出不换行，窗体上点鼠标，松开的时候触发 mouseup，输出 程序设计，两个print后面的都是字符串，所以下次输出紧跟在上次输出后面，即 “Visual ...
vb题,编写一个计算机矩形的sub过程,然后调用该过程计算矩形面积 求解...
程序代码：Private Sub RECTAcreage(ByVal sngChangDu As Single, ByVal sngKuanDu As Single, Optional ByVal intPoint As Integer = 3)MsgBox "矩形的长=" & sngChangDu & vbCrLf & "矩形的宽=" & sngKuanDu & vbCrLf & "矩形的面积=" & Format$(sngChangDu * sngKuanDu。IIf(CBool(...
VB中用sub过程编程1!+2!+3!...+10!的代码,一定要是Sub过程
Private Sub jc(x As Integer, y As Single)Dim i As Integer y = 1 For i = 1 To x y = y * i Next i End Sub Private Sub Form_Click()Dim j As Integer, s As Single, sum As Single For j = 1 To 10 Call jc(j, s)sum = sum + s Next j Print sum End Sub ...
VB调用SUB过程如何做这条
Public Sub area(x As Integer, y As Integer)Dim s As Integer s = x * y Print "矩形面积s为:" & s End Sub Private Sub Form_Click()dim x,y as integer x=inputbox("矩形的长")y=inputbox("矩形的宽")Call area(x, y)End Sub ...
