vb程序設(shè)計(jì)30道編程題-資料下載頁(yè)
2025-07-26 04:44本頁(yè)面
【正文】 Dim i%f=1For i=2 To X1If i Mod X=0 Thenf=0Exit ForEnd IfNext iEnd SubPrivate Sub Command4_Click()39。，滿足3的倍數(shù)、7的倍數(shù)的數(shù)各有多少m=0:n=0For i=1 To 100If i Mod 3=0 Thenn=n+1ElseIf i Mod 7=0 Thenm=m+1End IfNext iMsgBox(3的倍數(shù)個(gè)數(shù)=amp。n)MsgBox(7的倍數(shù)個(gè)數(shù)=amp。m)End SubPrivate Sub Command5_Click()39。，有7個(gè)評(píng)委。如果分別輸入7個(gè)評(píng)委對(duì)某個(gè)參賽者的打分?jǐn)?shù)，按照去掉一個(gè)最高分和一個(gè)最低分的計(jì)算辦法，求出該參賽者的平均得分Dim sum%,max%,min%sum=0:max=0:min=999For i=1 To 7X=Val(InputBox(input))If max=X Thenmax=XEnd IfIf min=X Thenmin=XEnd Ifsum=sum+XNext iAvg=(summaxmin)/5MsgBox(最高分=amp。max)MsgBox(最低分=amp。min)MsgBox(總和=amp。sum)MsgBox(平均分=amp。Avg)End Sub39。，統(tǒng)計(jì)其中字母A(不區(qū)分大小寫)出現(xiàn)的次數(shù)。Dim ch As Stringch=ASDEASn=0For i=1 To Len(ch)st=Mid(ch,i,1)If UCase(st)=AThenn=n+1End IfNext iMsgBox(字符串中出現(xiàn)A字符的系數(shù)amp。n)End SubPrivate Sub Command6_Click()39。，%計(jì)算，多少年后我國(guó)人口將超過(guò)26億。n=0X=13Do While X=26X=X*n=n+1LoopMsgBox(n)End SubPrivate Sub Command7_Click()39。，第一天吃掉一半多一個(gè)；第二天吃剩下桃子的一半多一個(gè)；以后每天都吃尚存桃子的一半多一個(gè)，到第7天只剩一個(gè)，問(wèn)小猴原有桃多少？X=1For i=6 To 1 Step1X=(X+1)*2Next iMsgBox(X)End SubPrivate Sub Command8_Click()39。For i=1 To 100flag=1For j=2 To i1If i Mod j=0 Thenflag=0End IfNext jIf flag=1 ThenMsgBox(iamp。是素?cái)?shù))End IfNext iEnd SubPrivate Sub Command9_Click()39。16.百元買百雞問(wèn)題。假定小雞每只5角，公雞每只2元，母雞每只3元，編程求解購(gòu)雞方案。n=0For X=0 To 33For y=0 To 50z=100XyIf 3*X+2*y+*z=100 ThenPrint X,y,zEnd IfNext yNext XEnd Sub
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1