VB编程输入圆的的半径r 和一个整型数k,当k=1 时,计算圆的面积

#definePI3.1416//后面不需要;#include"stdio.h"//注意关键字之间要有空格intmain(){floatr,s,c;scanf("%f",&r);c=2*PI*

usingSystem;usingSystem.Collections.Generic;usingSystem.Linq;usingSystem.Text;namespaceConsoleApplic

第一个的,其他几个也类似Dimsum,nAsDoublesum=0n=1Fori=1To100n=i*nsum=sum+nNextText1.Text=sum

PrivateSubCommand1_Click()Dima#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox("请输入三角形第一条边","

dimA(1to26)asintegerdimiasinteger,jasinteger,casstring*1,tasintegert=len(text1)fori=1totc=ucase(mid(

PublicSubcommand1_click()dimrasintegerr=val(inputbox("请输入半径"))s=3.1415926*r^2msgbox"圆的面积为:"&sendsu

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

PrivateSubCommand1_Click()DimbjAsSingleDimzzAsSingleDimmjAsSinglebj=CSng(Text1.Text)Ifbj

以下代码为输入任意多个数字进行统计如果输入0则退出循环显示出统计结果PrivateSubCommand1_Click()DimiAsIntegerDimqAsIntegerDimoAsIntegerq

privatesubcommand1_click()dima(9),b(),c,d,e,iasintegerfori=0to9a(i)=int(val(inputbox("输入第"&i+1&"个数："

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

PrivateSubCommandButton1_Click()DimnNumAsLongIfIsNumeric(TextBox1.Text)ThennNum=Val(TextBox1.Text)If

答案是C.输入10000个数值,计算平均数,适合采用循环结构算法.A.判断一个证书是否为偶数,解决该问题仅需一步判断,也许需要一步赋值,没有多次重复的步骤,不适合采用循环结构算法.B.输入一个圆的半径

他们的答案好像都没有输出结果.Dim r, s, c As IntegerPrivate Sub Command1_Click()

VB内置的常用函数里就有这个功能mid函数:比如你在text1中输入的三位数是123a=text1.texttext2.text=mid(a,1,2)这时输出的字符是1和2,含义是从第一个字符开始的前

算法没问题,按你的代码,调整了一下PrivateSubCommand1_Click()Dima!,b!,c!a=Val(InputBox("请输入a"))b=Val(InputBox("请输入b"))

PrivateSubForm_Load()DimaAsInteger,bAsInteger,cAsInteger,MaxAsInteger,MinAsIntegera=InputBox("请输入a值"

constpi=3.1416subcircle（byvalrassingle,Lassingle,aassingle,VASSINGLE）L=2*pi*rA=pi*r*rV=4/3*r*r*r*pie

publicclassTest{//x为数字,且是num的倍数privateintx;//y是需要生成的随机数的个数privateinty;privateinttemp=0;privat

界面：4个标签,4个文本框,2个命令按钮（网络不给力,传不上图）代码：PrivateSubCommand1_Click()Dimr,h,s,vAsSingleConstPi=3.1415926r=Te