操作题机大于五数学号素数一百到二百平均值一千以内最大五个

1、大于五的Private Sub Command1_Click() DimcAsString,xAsInteger c = Text1.Textle = For i = 1 To x = Val(Mid(c, i, Ifx=5Then n = n + 1EndIf Next Print 出现的次数是 & 学msgbox11101Private Sub Dim b = IfRight(b,3)101Then MsgBox 是一班的学生 MsgBox End IfEnd 一百到二百素数平均100200 Private Sub Form_Click()DimflagAsBoolean,m%,i%,s%

2、,aver!,n%,t% s = 0: n = 0For m = 100 To flag = Fori=2ToSqr(m) IfmModi=0Then flag = 1Exit EndIf Next Ifflag=0Then Print m;n=n+1 s = s + IfnMod5=0ThenPrint End IfNext aver=s/n Print averFor m = 100 To flag = For i =2 To Sqr(m) IfmModi=0Then flag = 1ExitFor End If Next iIfflag=0AndmaverThen t = t + 1En

3、dIf Next Print&t& End SubPrivateSubForm_Click() s = 0: n = 0: t = 0For m = 100 To 200 If shus(m) = 0 Then n = n + 1s=s+m Print m;IfnMod5=0ThenPrint End Ifaver=s/n Print averFor m = 100 To Ifshus(m)=0And(maver)Then t = t + 1EndIf Next Print 大于所有素数平均数的素数有 & t &End PublicFunctionshus(ByValxAsInteger)As

4、Integer Dim flag As Integer, i%flag = Fori=2ToSqr(x) IfxModi=0Then flag = 1ExitFor End If Next ishus = flag End 一千以内最大的五个素10005Private Sub Dim flag As Boolean, m%, i%, For m = 1000 To 2 Step -flag = Fori=2ToSqr(m) IfmModi=0Then flag = 1ExitFor End If Next iIfflag=0Then Print m;n = n + Ifn=5ThenExitF

5、or End IfNext m End 文本框中大于四4PrivateSubCommand1_Click() Dim c$, le%, i%, x%, t%c=Text1.Text le = Len(c)For i = 1 To x=Val(Mid(c,i,1) If x 4 Thent=t+1 End IfPrint4& t &End 四个数的最大公4，4 Private Sub Form_click()a = b = c = d=InputBox() x = a Mod by = c Mod z = b Mod d DoUntilx=0a = b = x=aModb Do Until y

6、= c = d = y=cModd DoUntilz=0 b = dd = z=bModd Printd End 求四个数的最大公约数和最小公倍PrivateSubForm_Click() Dim a%, b%, c%, d%a = b = c = d = Print 最大公约数是： & maxgcd(d, maxgcd(c, maxgcd(a, Print&a*b*c*dmaxgcd(d,maxgcd(c,maxgcd(a, b) 3End PublicFunctionmaxgcd(ByValxAsInteger,ByValyAsInteger)AsInteger Dim r%r = x M

7、od Ifr=0ThenExitDo x = yy=r maxgcd = y EndFunction分类统计数字串Private Sub Dima(1To26)AsInteger,cAsString*1 le = Len(Text1)For i = 1 To c = UCase(Mid(Text, i, Ifc=AAndc 0 Then Picture1.Print ; Chr(j + 64); =; Next Dim a%(10), x%, y%, For i = 1 To a(i)=Int(Rnd*201-100) Print a(i);Ifa(i)0Then x = x + 1ElseIfa(i)=0Then y = y + 1z=z+1 End If Next i Print&x Print 零的个数是： & yPrint 负数的个数是： & 成绩统0-59、60-69、70-79、80-100的个数，学生成绩由键盘输入，当输入-1时中止DimFor i = 1 To 100 q(i)=InputBox()Ifq(i)0Andq(i)60Andq(i)70Andq(i)80Andq(i)=aAndstr=0Andnum=9Then n = n + 1Printn; End If Next i(1).a = Text1