当前位置:编程学习 > VB >>

VB编程题目,求高手做

二)实验内容

利用随机函数产生80个10~99之间的随机整数,将其中的奇数按由小到大的顺序排列并输出;在产生的80个随机整数中,找出其中的素数。

(三)实验要求

1.将随机产生的80个整数存入数组,按每行10个数输出到窗体或文本框中。

2.奇数也存入另一个数组,将排好序的奇数输出到窗体或文本框中。

3.用Sub子过程或Function函数过程判断随机整数是否为素数。

4.将素数按每行10个数在窗体或文本框中输出。

5.界面和属性由学生自行设计和设置。

追问:不行,我们学的是VB
答案:
第一题:
运行条件:form1上面有3个控件,文本框text1,内容代表n,文本框text2,内容代表x,按钮command1,执行计算OptionExplicitPrivateSubCommand1_Click()
MsgBoxcal(Me.Text1,Me.Text2)
EndSubFunctioncal(ByValnAsInteger,ByValxAsSingle)AsSingle
DimiAsInteger
DimresultAsSingleIfAbs(x)>=1Then
cal=0
EndIfresult=0Fori=0Ton-1
result=result+((-x)^i)/(i+1)
Nextcal=result
EndFunction
第一题:
运行条件:form1上面有3个控件,文本框text1,内容代表n,文本框text2,内容代表x,按钮command1,执行计算OptionExplicitPrivateSubCommand1_Click()
MsgBoxcal(Me.Text1,Me.Text2)
EndSubFunctioncal(ByValnAsInteger,ByValxAsSingle)AsSingle
DimiAsInteger
DimresultAsSingleIfAbs(x)>=1Then
cal=0
EndIfresult=0Fori=0Ton-1
result=result+((-x)^i)/(i+1)
Nextcal=result
EndFunction
用c语言行不?

上一个:vb编程 连接用户名现实问题
下一个:在VB编程中换行符与回车符有什么区别?

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,