n=val(inputbox(" ",,如果输入15那么意思是n就是15吗?

n=val(inputbox( ,,如果输入15那么意思是n就是15吗? vb三角形编程输入三条边,判断能否构成三角形.看我的编程是否有问题,Dim A=Val(InputBox(请输入a) ) B=Val(InputBox(请输入b) ) C=Val(InputBox(请输入c) ) Ifa+ b >c and a+c >b and b+c>a then print a ,b,c,能构成 求VB程序设计,五行五列矩阵中副对角线之和Sub Fun(X() As Integer,N As Integer,s As Integer)'End SubPrivate Sub Command1_Click()N = Val(InputBox(请输入矩阵的行数N,数据输入,5))ReDim X(N,N)Form1.ClsRandomizeFor i = 1 To NF vb计算1!+3!+*****+（2n+1）!的代码Private Sub Command1_Click()Dim n As Integer, i As Integer, j As Integern = Val(InputBox(请输入N值))m = 1: Sum = 0For i = 1 To 2 * n + 1 Step (2)For j = 1 To im = m * jNext jSum = Sum + mNext iPrint SumEn vb题 Private Sub Command 1 _Click（）Dim x As Integerx=Val（InputBOX（输入数据））Text1=Str（fun（x）+fun（x）+fun（x））End SubPrivate Function fun（ByRef n As Integer）If n Mod 3=0 Thenn=n+nElsen=n*nEnd Iffun=nEnd Function当 vb题 下面程序的功能是什么?Private Sub Command1_Click() Dim s%,n% Dim a As String n = 0 a = InputBox(Please input a number:) For s = 1 To Len(a) If (func(Val(Mid(a,s,1)))) Thenn = n + 1NextPrint n End Sub Private Function func(x%) As Bool 对于用户输入的3个数值a,b,c,请输出他们中间最大的数vb中经过我看了一遍,大概的是这样的代码.我只是自己做的,可能会不正确哦.Dim a%,b%,c%a = Val(InputBox(输入a))b = Val(InputBox(输入b))c = Val(Input 程序阅读,程序功能是什么Private Sub Command1_Click()Dim s%,n%Dim a As Stringn=0a=InputBox(“Please input a number：”)For s=1To Len(a)If(func(Val(Mid(a,s,1)))) Then n=n+1NextPrint nEnd SubPrivate Function func(x%) As BooleanIf(x Mod 2=0) vb编程题：解决古代数学问题“鸡兔同笼”.已知在同一个笼子里有总数为m只鸡和兔,鸡和兔的总脚数为n只,求鸡兔各多少.我是初学者,写了如下代码Private Sub Form_Click()Dim m%,n%,x%,y%m = Val(InputBox( 我只会用vb绘制一次函数图象怎么样画二次的代码类似于Private Sub Cmd1_Click()k = Val(InputBox(k))b = Val(InputBox(b))Picture1.ClsPicture1.ScaleMode = 3Picture1.Scale (-150, 150)-(150, -150)Picture1.DrawWidth = 1Picture1.Line 怎么样用vb绘制二次函数图象,我只会画一次的代码类似于Private Sub Cmd1_Click()k = Val(InputBox(k))b = Val(InputBox(b))Picture1.ClsPicture1.ScaleMode = 3Picture1.Scale (-150,150)-(150,-150)Picture1.DrawWidth = 1Picture1.Line ( VB 这道关于四舍五入的题从键盘上输入2数,非别计算商和余,输出商,保留2位,并对第三位四舍五入.我想问一下四舍五入怎么实现先看下我的代码：a=val(inputbox(请输入一个数))b=val(inputbox(请输 vb求和,求sin(x)=x/1-x^3/3!+x^5/5!- …… (-1)^(n-1)* x^(2*n-1)/(2n-1)!感叹号是阶乘的意思Private Sub Form_Click()Dim x%,,i%,q%x = Val(InputBox(请输入X的值))Do While t >= 10 ^ (-5)s = s + tn = n + 1For k = 1 To 2 * n - 1q = q * kNex vb 一个分段函数 编程错误 我用的 vb6.0版的 编一个分段函数 如下Private Sub form_Click()Dim x As Integer,y As Integerx = Val(InputBox(请输入x值:))If x 为什么不加下面的也能出正确结果?Str(s) //转化为字符串 r = Val(r) //转化为数值型 原来是变体型Private Sub Command1_Click()r = InputBox(r=)r = Val(r) //转化为数值型 原来是变体型If r >= 0 Thens = 3.14 * r * r vb求m+mm+mmm+...+mm...mmm(n个m)要求 n ,m值 用 inputbox输入Dim m%,n%,i%,j%,a(0 To 9999999) As IntegerPrivate Sub Form_Click()m = InputBox(请输入m值 )n = InputBox(请输入n值 )For i = n To 0 Step -1a(n) = a(n) + 10 ^ (i - 1)Next iPrin 求教用VB 写程序.求两自然数m,n的最小公倍数.这样写对吗?Dim a%,b%,t%,i%a=inputbox(“第1个数”)：b=inputbox(“第2个数”)If a ((val)=((val)&15) + ((val)>>4)*10)是什么意思?如题 我想知道的是(val)&15和(val)>>4是什么意思,时设置系统时钟的一个宏定义