sub x1=inputbox(“请输入”) print x1 & 123 end sub 运行时输入123,输出（）subx1=inputbox(“请输入”) print x1 & 123 end sub 运行时输入123,输出（）

sub x1=inputbox(“请输入”) print x1 & 123 end sub 运行时输入123,输出（）subx1=inputbox(“请输入”) print x1 & 123 end sub 运行时输入123,输出（） 三角形的三条边,判断能否构成三角形若能则求面积Private Sub Command1_Click()Dim a%,b%,c%Dim ,area!a = InputBox(请输入边长a)b = InputBox(请输入边长b)c = InputBox(请输入边长c)If a + b > c And a + c > b And b + c 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题目:输入三角形的三边编程求出面积下面是我自己编的,可是好像是错的,大虾帮忙看看（我用了余弦定理)Private Sub Command1_Click()Dim x As Doublea = InputBox(请输入三角形第一边)b = InputBox(请输入 vb编程象限判断!声明字符与声明的数据类型不符 帮我指出哪里不对啊Private Sub Command1_Click()x = InputBox(请输入x的值)y = InputBox(请输入y的值)If x = 0 ThenPrint 点( & x & , & y & ) & 位于y轴上Exit vb 一个分段函数 编程错误 我用的 vb6.0版的 编一个分段函数 如下Private Sub form_Click()Dim x As Integer,y As Integerx = Val(InputBox(请输入x值:))If x 求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用function编写一个产生随机整数过程,输出n个指定范围的随机整数Sub sj(i%,a%,b%)Dim x%x = Int(Rnd * (b - a + 1)) + aEnd SubPrivate Sub Command1_Click()Dim n%,a%,b%,i%,x%n = InputBox(请输入随机整数的个数n)a = InputBo VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数.输入一个整数判断其是否为水仙花数.Private Sub Form_Load()Dim x%,a%,b%,c%,y%x = InputBox(请输入三位数,提示框)If Len(x) = 3 Th vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = InputBox(请输入一个正整数： )Print Fac(n)End SubPrivate Function Fac(m) As Long '' '请不要删除该行,只在下一行中填空' For k = 2 to Fac = Fac 我用vb写了一个计算长方形~正方形或三角形面积的程序~代码如下~怎样修改啊~Private Sub Command1_Click()Dim a As StringDim h,l,s As Singlea = InputBox(请输入形状（只限于长方形~正方形或三角形）,请输 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循环语句中sqr(n)是什么意思for i=2 to sqr(n) 中sqr(n)代表什么意思?我只能肯定不是开根号的意思!Private Sub Form_Click()Dim n As Integern = InputBox(请输入一个正整数(>=3))k = 0For i = 2 To Sqr(n)If n Mod i = 0 Th VB qing gao shou'以下程序用于判断一个正整数（≥3）是否为素数.'Private Sub Form_Click()n = InputBox(请输入一个正整数（≥3）)k = Int(Sqr(n))i = 2swit = 0'】End IfLoopIf swit = 0 ThenPrint n; 是一个素数ElsePrint 这是我学VB看到的一个小程序：判断一个大于或等于3的正整数是不是一个素数.sub form click_()dim n as integern =inputbox(请输入数)k=int(spr(n))i=2swit=0while i VB 使显示每行的最大值的位置（下面的程序可以把最大值找出）Private Sub cmdbegin_Click() Dim a(4,3) As Integer,i As Integer,j As Integer Dim max As Integer For i = 1 To 4 For j = 1 To 3 a(i,j) = InputBox(请输入矩阵的第 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,能构成 Private Sub Text1_Click() If Text1.Text = 请输入 Then Text1.Text = End Sub这条语句的作用是什么Private Sub Text1_Click()If Text1.Text = 请输入 Then Text1.Text = End Sub