vb随机产生20个学生的成绩,计算优 及格 不及格的人数
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/08 00:13:33
![vb随机产生20个学生的成绩,计算优 及格 不及格的人数](/uploads/image/f/855798-6-8.jpg?t=vb%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F20%E4%B8%AA%E5%AD%A6%E7%94%9F%E7%9A%84%E6%88%90%E7%BB%A9%2C%E8%AE%A1%E7%AE%97%E4%BC%98+%E5%8F%8A%E6%A0%BC+%E4%B8%8D%E5%8F%8A%E6%A0%BC%E7%9A%84%E4%BA%BA%E6%95%B0)
Dima%(1To20)Fori=1To20a(i)=Int(Rnd*90+10)Printa(i);NextPrintFori=1To20Ifa(i)Mod2=1ThenPrinta(i);EndI
窗体中加命令按钮,单击事件代码如下:PrivateSubCommand1_Click() Randomize Dima(1To20)AsInteger&nb
command1完成第一题,command2完成第二题PrivateSubCommand1_Click()Dimx%(1To10),n%,i%n=1DoWhilen
PrivateSubForm_click()Dimn(1To20)AsIntegerDimi,j,ave,tempRandomizeFori=1To20n(i)=Int((51*Rnd)+50)Pri
PrivateSubForm_Click()Dima(19)AsIntegerDimmaxAsInteger,minAsInteger,avAsIntegerFori=0To19a(i)=Int((1
PrivateSubCommand1_Click()DimIAsInteger,NAsInteger,MaxAsInteger,MinAsIntegerMin=100RandomizeForI=1To
'以下代码产生30个区分大小写的不同字母PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,ich(30)AsInteger,chAsString,A
我已经上机验证过了,正确.思路:产生80个随机数,把这80个随机数由小到大排序,然后从第1个到第80个的顺序挑选偶数,赋值给字符串s1,够10个换行.再从第80个到第1个的顺序挑选奇数,赋值给字符串s
Dimy%,x%Fori=1To10x=Int(Rnd*100)'[0,99]Printx;Ifi=1Theny=xElseIfy>xTheny=xEndIfNextiPrint"最小值";x如果是N
'窗体放一个按钮Command1PrivateSubCommand1_Click()Randomize'初始化随机数生成器DimJiShuHangAsString'奇数行DimOuShuHangAsS
再问:谢了,能否把程序给提供一下,我不会再答:好吧!
subform_click()dima%(20)fori=1to20a(i)=int(rnd()*10+1)printa(i),nextendsu
'试一下:PrivateSubCommand1_Click()Dima(1To10)AsStringDimiAsInteger,jAsIntegerFori=1To10Randomizea(i)=Ch
functionsj(i%,a%,b%)aslongDimx%x=Int(Rnd*(b-a+1))+asj=xEndfunctionPrivateSubCommand1_Click()Dimn%,a%
是的!
楼主看看这个:Private Sub Command1_Click() Dim aNum(19) As Long,&
PrivateSubCommand1_Click()DimZs(1To35)AsIntegerFori=1To35RandomizeZs(i)=Int(61*Rnd)+20PrintZs(i);Nex
是“奇数”吗..?另外一共就产生十个,每行显示十个……是不是产生任意多个,然后每行输出十个?奇数的话范围就在11~99之间,用2n+1法产生奇数的话n的取值范围就是5~49新建工程,窗体上放个文本框,
vb6测试通过PrivateSubCommand1_Click()Dima(10)AsInteger,tempAsInteger,iAsInteger,jAsIntegerRandomizetemp=
Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim