设计一个VB程序模拟n次抛硬币过程

privatesubform_click()dimnasinteger,iasintegerfori=7to1000ifimod7=0thenn=n+1nextprintnendsu

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

去网上下载一个计算器的源码,慢慢修改即可.读书的时候要认真听呢……再问：好吧其实这个我真不懂上课也没听明白只能百度了

privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(

根据成绩计算绩点的公式是什么?60分绩点是1,然后每增加1分,绩点就增加0.1,例如:80就是绩点为3,98就是绩点为4.是这样子吗?如果是这样子的~程序：dimphy,eng,mathphy=79'

这样就可以了,楼上的子函数M()没有用到DimpiAsDoubleDimrunTimeAsDoubleDimaAsSingle,bAsSingleDimcntXAsSingle,cntYAsSingl

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

4个text1-text4,Label1(0-3).PrivateSubCommand1_Click()Dimk1AsSingle,k2AsSingle,k3AsSingle,k4AsSinglek1

#include#include#includevoidmain(){inti,j,k,temp;inta[10][1001]={0};//利用二维数组保存所有过程的记录srand(time(NULL

PrivateSubCommand1_Click()DimI,J,X,Y,ZAsIntegerDimA(1To10000)AsIntegerDimFlagAsBooleanX=Int(InputBox

一个很诡异的方法：Sum=0a=InputBox("请输入一个正整数")Fori=1ToLen(a)Sum=Sum+Val(Mid(a,i,1))Next

PrivateSubForm_Click()Dimd1AsIntegerDimd2AsSingleDimd3AsIntegerDimd4AsStringDimd5AsIntegerDimd6AsInt

用srand()和rand()%2产生0、1两个随机数,分别代表正面反面.设置一个while循环,用变量i对相同值连续出现的次数进行计数,用j对总的随机次数计数,当i达到3时退出while循环,输出j

Private Sub Command1_Click()Dim n As IntegerDim x As SingleD

ConstPI=3.14159DimalfaAsSingleDimxAsSingle,yAsSingle,rxAsSingle,ryAsSingleDimcenxAsSingle,cenyAsSing

DimSum,I,N,FlagN=10Flag=1Sum=1ForI=3ToNIfIMod2=1ThenSum=Sum+1/I*FlagFlag=-FlagEndIfNext再问：大哥，貌似调试不出来

#include#include#include/*在这里修改存储“连续出现次数”情况的数组大小（不是投掷的次数.事实上,投掷次数可以远大于这个数组的大小）*/#defineN200intmain()

PrivateSubform_load()Dimn,a(),i,b(5)n=100000ReDima(n-1)Fori=0Ton-1Randomizea(i)=Int(Rnd*6)+1b(a(i)-1

PrivateSubCommand1_Click()DimiAsInteger,NAsInteger,num1AsInteger,num2AsIntegerN=Val(InputBox("请输入抛硬币

试试下面的代码fori=1:10fprintf('\n',i,i+10);r=rand(1,10+i);coin=find(