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编程中换行符与回车符有什么区别?