在VB中调用Function过程,是怎么调用?直接在过程中引用名称名?
DimxAsIntegerStaticFunctiomrand()x=x*29+27x=xMod1000n=xrand=nEndFunctionPrivateSubFor...
Dim x As Integer
Static Functiom rand()
x=x*29+27
x=x Mod 1000
n=x
rand=n
End Function
Private Sub Form_Click()
FontSize=12
X=777
CLs
Rannum=InputBox(“需要输出多少随机数”)
Rannum=Val(rannum)
Print”输出0到1000之间的随机数”
Print
For m=1 To rannum
If m Mod 5=0 Then
print rand();" ";
Print
Else
Print rand();" ";
End If
Next m
End Sub
为什么要使用CLs?
print rand();" ";是不是算引用了Function rand了?
而且print rand();" ";
Print
和Print rand();" ";是什么意思?是不是和换行有关 展开
Static Functiom rand()
x=x*29+27
x=x Mod 1000
n=x
rand=n
End Function
Private Sub Form_Click()
FontSize=12
X=777
CLs
Rannum=InputBox(“需要输出多少随机数”)
Rannum=Val(rannum)
Print”输出0到1000之间的随机数”
For m=1 To rannum
If m Mod 5=0 Then
print rand();" ";
Else
Print rand();" ";
End If
Next m
End Sub
为什么要使用CLs?
print rand();" ";是不是算引用了Function rand了?
而且print rand();" ";
和Print rand();" ";是什么意思?是不是和换行有关 展开
3个回答
展开全部
Cls用于清空屏幕上已经“PRINT”的数据
print rand();" ";是不是算引用了Function rand了?------调用。
Print
两句用于在屏幕上输出
Print指令如果在最后没有分号“;”就不会自动换行,所以要加上PRINT的空指令输出一行空行
print rand();" ";是不是算引用了Function rand了?------调用。
两句用于在屏幕上输出
Print指令如果在最后没有分号“;”就不会自动换行,所以要加上PRINT的空指令输出一行空行
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
有3种模式。架设函数叫a,那么可以Call a(),a,变量\属性=a()(包括在语句中直接调用,如if a()="asss" then beep。前两种抛弃返回直,最后一种返回值,注意()的问题。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询