VB中总评成绩的代码怎么写

楼上的，“Peacetimeachievements”的意思是“和平时代的成绩”，你受金山误导了！平时成绩Regulargrade期中考试成绩Midtermgrade期末考试成绩Finalexamgr

先把text1的MultiLine属性设为TruePrivateSubCommand1_Click()Fori=10To99IfiMod3=0ThenText1.Text=Text1.Text&Str

PrivateSubForm_Load()DimstrAsStringFori=100To200IfiMod3=2AndiMod5=3AndiMod7=2Thenstr=str&""&iEndIfNe

设半径为变量RPI=3.14259265C=2*PI*RS=PI*R*R再问：用到Command，Label或者是Text最好知道相应对象中的代码是什么再答：你连这个最基本的Label框和Text框都

你的问题不够具体…那么我给你一个例子,你参考下:PrivateSubForm_Load()Dima(1To50)ShowFori=1To50a(i)=101*RNDsum=sum+a(i)NextiP

'引用 Microsoft Script Control 1.0 '应该是你说的,但你说的3x 这样的公式 要写成

一个text控件PrivateSubForm_Load()DimRAsDoubleDimSAsDoubleR=Val(Text1.Text)S=3.14*(R^2)MsgBoxStr(S)EndSu

\usepackage[numbers]{natbib}%\renewcommand{\citenumfont}[1]{\textit{#1}}\setcitestyle{open={},close=

DimNum1AsDoubleDimNum2AsDoubleDimEqualAsDoubleDimMAsDoubleDimEqual2AsIntegerDimStrNum1AsStringDimStr

我的校园生活》中学生活是个百变怪,难以形容.在这个人生的花季,在美丽的繁花背后,隐藏着酸甜与苦咸.我该怎么形容你,百变的花季,百变的中学生活?甜一年前,我初次踏入中学大门.一进学校大门我便发现了与小学

ound((ProgressBar1.Value/Text2.Text)*10)不过最好执行公式之前判断text2.text是否为数值且不能为0val(text2.text)会比较好点

dimiasintegerdimnasintegerfori=100to200ifimod3=0orimod5=0thenprinti&"";n=n+1ifnmod10=0thenprintendif

楼上的是什么版本?VB6.0就这样ifa=1ora=2ora=3ora=4then要保存数据可以写入文件DIMAASINTEGER保存A:OPEN"c:\A.DAT"FORBINARYAS#1PUT#

不知你需要什么种类的三角函数,我编了一种,你可以依样画葫芦编出其他Constpi=3.14159PrivateSubCommand1_Click()DimxAsDoublex=InputBox("x=

用以下一个语句就搞定：print(a+b-1)mod22+1要过程的话：c=a+bprinta;"+";b;"=";c;ifc>22thend=((c-1)\22)*22print"-";d;"=";

你要用算法在vb算pi100000位的话起码要10秒钟以上吧,这不是一个明智的做法,最好直接把pi的100000放里面.当然,如果你的程序的作用就是计算pi的多少位的话,那你就自己写吧,算法有好有坏,

说明VB不支持ln函数,换句话说,VB的log函数就是数学中的ln函数,而常用对数lg只能使用换底公式lg(x)=log(x)/log(10)条件很简单x>0.

假设考试成绩在A列,平时成绩在B列,总评成绩在C列,在C1单元格输入:=a1*60%+b1*40%,回车即可求出第一个成绩,再把光标放在C1单元格右下角,光标变成细十字时,往下拉到最后就行了

在List2的属性中设置Sorted属性为True即可,这个属性是设置是否自动按字母顺序排列的属性.

是“奇数”吗..?另外一共就产生十个,每行显示十个……是不是产生任意多个,然后每行输出十个?奇数的话范围就在11~99之间,用2n+1法产生奇数的话n的取值范围就是5~49新建工程,窗体上放个文本框,